IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
12Beğeni(ler)
  • 1 Post By YouMyCure
  • 4 Post By Feragat
  • 1 Post By YouMyCure
  • 3 Post By Feragat
  • 1 Post By YouMyCure
  • 1 Post By Feragat
  • 1 Post By YouMyCure

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Şubat 2015, 21:40   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Böyle Bişey Mümkünmü



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: {
  .server irc.sohbetyolu.net
}

on *:CONNECT: {
  .oper NİCK ŞİFRE
  .ns ghost SYNet-Puan 22520
  .nick SYNet-Puan
  .msg NickServ IDENTIFY 22520
  .os su SY
  .join #sohbet
  .join #OPS
  .close -m
  .setident YMC
  .sethost Socket.SohbetYolu.Net
  .setname 5(10YouMyCure 14Socket 1Bot's5)
  .close -m
  .close -m
}

on *:text:*:#Sohbet:{
  if $1 == !puan {
    if ($2 == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }
    if $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | .msg #sohbet  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D   | goto t0p10 }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 200 { mode $chan +v $nick | msg $chan 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız.  | .os raw swhois $nick :RAMAZAN }
  }
   :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #sohbet 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg #sohbet 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}

şeklinde bişeyler yaptım fakat rütbe eklemeyi beceremedim rütbe konusunda bişeyler yapabilirmiziniz teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-- Puan Bot

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
Konu Feragat tarafından (25 Şubat 2015 Saat 00:19 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın lütfen..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 24 Şubat 2015, 00:14   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



KraL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde bişeyler yaptım fakat rütbe eklemeyi beceremedim rütbe konusunda bişeyler yapabilirmiziniz teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-- Puan Bot

Rütbe dediğin eğer puana göre mode-prefix vermek ise alttaki şekilde yapabilirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Sohbet:{
  if $1 == !puan {
    set %k #
    if ($2 == list) { top10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }
    elseif $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg # 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | msg #  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 200 { mode # +v $nick | msg # 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız. | .os raw swhois $nick :RAMAZAN }
    elseif %yeah == 400 { mode # +h $nick | msg # 0,1 $nick Tebrikler 400 puan olduğunuz için; Halfop kazandınız. }
    elseif %yeah == 1000 { mode # +o $nick | msg # 0,1 $nick Tebrikler 1000 puan olduğunuz için; @Op kazandınız. }
  }
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg %k 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}


__________________
The Ghost of Christmas Past...

i'm here sometimes
Konu Feragat tarafından (24 Şubat 2015 Saat 01:43 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 24 Şubat 2015, 15:53   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Rütbe dediğin eğer puana göre mode-prefix vermek ise alttaki şekilde yapabilirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Sohbet:{
  if $1 == !puan {
    set %k #
    if ($2 == list) { top10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 6puan listesinde yok }
    elseif $2 == $me { msg # $+($nick,:) 6ßenim Puanmımı ßoşver, ßenimki Ancak ßana Yetiyor :D }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg # 5 $read(puan.txt,$readn) 4p5u13a6n7'12ı 13v12a3r | msg #  $nick  Hadi AzKaLdı Finish e Şunun Şurasında NevarKine Ya ALLah BismiLLah De Siva BirmakLarı Bas TuŞLara Hadi Canim ßenim :D }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 200 { mode # +v $nick | msg # 0,1 $nick Tebrikler 200 puan olduğunuz için; +voice kazandınız. | .os raw swhois $nick :RAMAZAN }
    elseif %yeah == 400 { mode # +h $nick | msg # 0,1 $nick Tebrikler 400 puan olduğunuz için; Halfop kazandınız. }
    elseif %yeah == 1000 { mode # +o $nick | msg # 0,1 $nick Tebrikler 1000 puan olduğunuz için; @Op kazandınız. }
  }
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg %k 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}

Yok o değil
Alıntı:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias rütbe {   if ($1 <= 75) { return Caylak }   if ($1 >= 76 && $1 <= 150) { return Star }   if ($1 >= 151 && $1 <= 250) { return Super Star }   if ($1 >= 251 && $1 <= 350) { return Multi Star ( VIP Üye ) }   if ($1 >= 351 && $1 <= 500) { return Super ChatterBox ( VIP Üye ) }   if ($1 >= 501 && $1 <= 650) { return Vezir ( Bronz Üye ) }   if ($1 >= 651 && $1 <= 800) { return Lord ( Gold Üye ) }   if ($1 >= 801 && $1 <= 1001) { return KraL ( Platinium Üye ) }   if ($1 == 1907) { return 8,2 Fener Bahçe  } }

bu şekilde ama bu kodları benim paylaştığım kodlara uyarlıyamadım :S

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Alt 24 Şubat 2015, 22:01   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



KraL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yok o değil
bu şekilde ama bu kodları benim paylaştığım kodlara uyarlıyamadım :S

top10 aliası ile beraber altındaki şekilde eklersen istediğin gibi olur.

Örnek Görüntü:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[21:58] <deneme1> !puan list
[21:58] <Feragat> ,, ««« Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: »»»
[21:58] <Feragat>  1st deneme1 1017 KraL Gold Üye
[21:58] <Feragat>  2nd deneme5 600 Vezir Bronz Üye
[21:58] <Feragat>  3rd abuzer 5 Caylak
[21:58] <Feragat>  4th
[21:58] <Feragat>  5th
[21:58] <Feragat>  6th
[21:58] <Feragat>  7th
[21:58] <Feragat>  8th
[21:58] <Feragat>  9th
[21:58] <Feragat>  10th

- Uğraşırsan daha kısasını da yapabilirsin.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg %k 12 $ord(%top10) $iif($line(%cnk,%top10), $rütbe($v1), $v1) | inc %top10 } 
  window -c %cnk
}  

alias böl return $token($strip($1),2,32)

alias rütbe {  
  $iif($böl($1) isnum 1-75, return $1 Caylak)
  $iif($böl($1) isnum 76-150, return $1 Star)   
  $iif($böl($1) isnum 151-250, return $1 Super Star)   
  $iif($böl($1) isnum 251-350, return $1 Multi Star VIP Üye)   
  $iif($böl($1) isnum 351-500, return $1 Super ChatterBox VIP Üye)   
  $iif($böl($1) isnum 501-650, return $1 Vezir Bronz Üye)   
  $iif($böl($1) isnum 651-800, return $1 Lord Gold Üye)   
  $iif($böl($1) isnum 801-1001, return $1 KraL Platinium Üye)  
  $iif($böl($1) isnum 1002-1906, return $1 KraL Gold Üye) 
  $iif($böl($1) == 1907, return $1 8,2 Fener Bahçe)
  $iif($böl($1) > 1907, return $1 KraL Üye)
}


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 24 Şubat 2015, 22:05   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



peki bunları swhois olarak kullanıcıya yazdıramazmıyız her girdiğinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Alt 24 Şubat 2015, 22:13   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



Join eventı ile yazdırabilirsin.
bkz. /help on join

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 24 Şubat 2015, 22:56   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Böyle Bişey Mümkünmü



teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Cevapla

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Böyle bir TCL mümkünmü Mediaturkish Eggdrop, NeoStats, BNC 2 22 Eylül 2012 21:51
Böyle Bir Kod Mümkünmü ? Joop mIRC Scripting Sorunları 1 17 Ağustos 2010 21:29
Böyle bişey mümkünmü ? SurucLu mIRC Scripting Sorunları 2 25 Mayıs 2008 02:46
böyle bişey mümkün mü? Dictator Eggdrop, NeoStats, BNC 1 12 Ekim 2006 03:43




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet tel sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org