Çevrimdışı

Merhaba Arkadaşlar ;

ŞişeÇevirmece TCL Varmı İdi Elinizde, Google'den Bir Çok Araştırma Yaptım Ama Genelde Ya Socket Olarak Verilmiş Yada Gereksiz Bir Döküman Çıkıyor...

Paylaşan Olursa Çok Teşekkür Ederim...

 

Çevrimdışı

if $2 == PRIVMSG && $istok($_puan,$3,44) {
if $token($1,1,58) == Toprak!ibr@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] && $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== !sıfırla { .sıfırla $3 }
if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== !top10 { if $hget(Flodtop10,$3) >= 1 { return } | .hinc -msu2 Flodtop10 $3 | $top10($3) | return }
if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== !puan {
if $istok($_pmuaf,$strip($5),32) { return }
if $hget(Flod!puan,$_nick($1)) >= 1 { return }
.hinc -msu5 Flod!puan $_nick($1)
if !$strip($5) || $strip($5) == $_nick($1) {
if $hget(Puan,$_nick($1)) { swpubot privmsg $3 :[ $_nick($1) ] Konuşma Puanınız; [ $hget(Puan,$_nick($1)) ] | return }
else { swpubot privmsg $3 :[ $_nick($1) ] Konuşma puan'ınız bulunmamaktadır. | return }
}
if $strip($5) {
if $hget(Puan,$strip($5)) { swpubot privmsg $3 :[ $strip($5) ] Konuşma Puanı; [ $hget(Puan,$strip($5)) ] | return }
else { swpubot privmsg $3 :[ $strip($5) ] Nick'inin konuşma puan'ı bulunmamaktadır. | return }
}
}
if $hget(anick,$_nick($1)) { return }
if $istok($_pmuaf,$_nick($1),32) { return }
if $hget(Flodpuan,$_nick($1)) >= 1 { return }
.hinc -msu1 Flodpuan $_nick($1)
if $hget(Puan,$_nick($1)) { .hinc -m konus $_nick($1) 1 | .hsave -i konus Puan/konus.mercy | swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] }
else { .hadd -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy }
if $hget(konus,$_nick($1)) == 50 {
.hinc -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy
.hdel konus $_nick($1) | .hsave -i konus Puan/konus.mercy
swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ]
}
if $hget(Puan,$_nick($1)) == 10 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 20 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 30 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 40 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 50 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 60 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 70 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 80 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 90 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 100 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 150 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 200 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 250 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hadd -m vnick $_nick($1) 1 | .hsave -i vnick Puan/vnick.mercy | swpubot mode $3 +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46) }
if $hget(Puan,$_nick($1)) == 300 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 350 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 400 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 450 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 500 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hdel vnick $_nick($1) | .hsave -i vnick Puan/vnick.mercy | .hadd -m hnick $_nick($1) 1 | .hsave -i hnick Puan/hnick.mercy | swpubot mode $3 +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46) }
if $hget(Puan,$_nick($1)) == 550 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 600 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 650 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 700 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 750 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot chghost $_nick($1) Gold. $+ $gettok($_sunucu,2-,46) }
if $hget(Puan,$_nick($1)) == 800 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 850 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 900 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 950 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
if $hget(Puan,$_nick($1)) == 999 { .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hadd -m anick $_nick($1) 1 | .hsave -i anick Puan/anick.mercy | swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) }
}

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 }
}
on *:start:{
.remote on
if (!$hget(Puan)) { hmake Puan | hload -i Puan Puan/Puan.mercy }
if (!$hget(konus)) { hmake konus | hload -i konus Puan/konus.mercy }
if (!$hget(vnick)) { hmake vnick | hload -i vnick Puan/vnick.mercy }
if (!$hget(hnick)) { hmake hnick | hload -i hnick Puan/hnick.mercy }
if (!$hget(onick)) { hmake onick | hload -i onick Puan/onick.mercy }
if (!$hget(anick)) { hmake anick | hload -i anick Puan/anick.mercy }
}
alias top10 {
var %:ibo = 1
while %:ibo <= $hget(Puan,0).data {
var %:top10 $addtok(%:top10,$hget(Puan,%:ibo).data,191)
inc %:ibo
}
var %:sira = $sorttok(%:top10,191,nr)
var %:top10 = $gettok(%:sira,1-10,191)
var %t = 1 | while %t <= $gettok(%:top10,0,191) { .fazlaise $gettok(%:top10,%t,191) | inc %t }
var %1 = 14,1#10,1 $iif($token($gettok(%:tops10,1,191),1,32),$token($ gettok(%:tops10,1,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,1,191),2,32),$token($ gettok(%:tops10,1,191),2,32),0) $+ )
var %2 = 14,1 #20,1 $iif($token($gettok(%:tops10,2,191),1,32),$token($ gettok(%:tops10,2,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,2,191),2,32),$token($ gettok(%:tops10,2,191),2,32),0) $+ )
var %3 = 14,1 #30,1 $iif($token($gettok(%:tops10,3,191),1,32),$token($ gettok(%:tops10,3,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,3,191),2,32),$token($ gettok(%:tops10,3,191),2,32),0) $+ )
var %4 = 14,1 #40,1 $iif($token($gettok(%:tops10,4,191),1,32),$token($ gettok(%:tops10,4,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,4,191),2,32),$token($ gettok(%:tops10,4,191),2,32),0) $+ )
var %5 = 14,1 #50,1 $iif($token($gettok(%:tops10,5,191),1,32),$token($ gettok(%:tops10,5,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,5,191),2,32),$token($ gettok(%:tops10,5,191),2,32),0) $+ )
var %6 = 14,1 #60,1 $iif($token($gettok(%:tops10,6,191),1,32),$token($ gettok(%:tops10,6,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,6,191),2,32),$token($ gettok(%:tops10,6,191),2,32),0) $+ )
var %7 = 14,1 #70,1 $iif($token($gettok(%:tops10,7,191),1,32),$token($ gettok(%:tops10,7,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,7,191),2,32),$token($ gettok(%:tops10,7,191),2,32),0) $+ )
var %8 = 14,1 #80,1 $iif($token($gettok(%:tops10,8,191),1,32),$token($ gettok(%:tops10,8,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,8,191),2,32),$token($ gettok(%:tops10,8,191),2,32),0) $+ )
var %9 = 14,1 #90,1 $iif($token($gettok(%:tops10,9,191),1,32),$token($ gettok(%:tops10,9,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,9,191),2,32),$token($ gettok(%:tops10,9,191),2,32),0) $+ )
var %10 = 14,1 #100,1 $iif($token($gettok(%:tops10,10,191),1,32),$token( $gettok(%:tops10,10,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,10,191),2,32),$token( $gettok(%:tops10,10,191),2,32),0) $+ )
swpubot privmsg $1 :0,1 Top10 %1 %2 %3 %4 %5 %6 %7 %8 %9 %10
.unset %:tops10
}
alias fazlaise { var %:10 = 1 | while %:10 <= $hfind(Puan,$1,0).data { .set %:tops10 $addtok(%:tops10,$hfind(Puan,$1,%:10,w).data,191) $1 | inc %:10 } }
alias sıfırla {
.hfree -sw Puan | .hmake Puan | .hsave -i Puan Puan/Puan.mercy
.hfree -sw konus | .hmake konus | .hsave -i Puan Puan/Konus.mercy
.hfree -sw vnick | .hmake vnick | .hsave -i Puan Puan/vnick.mercy
.hfree -sw hnick | .hmake hnick | .hsave -i Puan Puan/hnick.mercy
.hfree -sw anick | .hmake anick | .hsave -i Puan Puan/anick.mercy
swpubot privmsg $1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ütün puanlar sıfırlanmıştır.
return
}

if ($2 == JOIN) {
if $istok($_puan,$right($3,-1),44) {
if $hget(vnick,$_nick($1)) {
swpubot mode $right($3,-1) +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46)
swpubot privmsg $right($3,-1) :[ $_nick($1) ] Önce'den 250 puan'ı aştıgınız için oto voice listemdesiniz.
}
if $hget(hnick,$_nick($1)) {
swpubot mode $right($3,-1) +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46)
swpubot privmsg $right($3,-1) :[ $_nick($1) ] Önce'den 500 puan'ı aştıgınız için oto halfop listemdesiniz.
}
if $hget(anick,$_nick($1)) { swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) }
if $hget(Puan,$_nick($1)) { swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] }
}
}

if ($2 == NICK) {
if $hget(Puan,$right($3,-1)) { swpubot os raw swhois $right($3,-1) :Rütbe [ $rütbe($hget(Puan,$right($3,-1))) ] Konuşma Puani = [ $hget(Puan,$right($3,-1)) ] }
}


Bu Bot Tcl Dosyasi değildir ama Socket olarak ekleyebilir yada kendiniz tcl ye cevirebilirsiniz. Suanda Kendi Sunucumda Kullanıyorum Çalışır halde Kolay gelsin

16:01:28] <PuaN> ReDDeViLL 85 Konuşma puanın var!

Ayrıca Toprak Nickli Arkadaşa Tşk Ederim Bu Remoteyi Yaptiği İçin Yukarıdaki Tüm Kullanılan Kodlar Coderine Aittir. Başarılarının devamını dilerim ayrıca