@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] pardon hocam yanlıs bilgi vermişim. Nomercy botundan alıntı yapmısım kodlar böyle ;
Botun özeli Takim ekleme kodu ;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if ($2 = privmsg && $left($3,1) != $chr(35)) {
if $right($4,-1) == !takim || $right($4,-1) == .takim {
if $hget(takim,$_nick($1)) >= 1 { return }
.hinc -msu10 takim $_nick($1)
if !$istok(Fb Gs Normal Bjk Trb,$5,32) { swbot privmsg $_nick($1) Lütfen 4 büyük takim kisaltmalarini yaziniz, !Takim FB / GS / BJK / TRB / Normal | return }
.Cle add $_nick($1) $5
swbot privmsg $_nick($1) Takiminiz degistirildi.
swbot privmsg #Opers $_nick($1) > $4-
}
}
Aliaslar eklenen kodlar ;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias Cle {
if $1 == add {
hadd -m Cle $2 $3-
hsave Cle Hash/takim.sr
}
if $1 == get {
if $hget(Cle,$2) {
return $ifmatch
}
else {
return Normal
}
}
}
alias yetkilitkm {
if *SOHBET-* iswm $1- { return }
if $1 == Fb { swbot os raw svsjoin $2 :#fenerbahçe | return [Takim] ~ 2,8Fener8,2bahçe! }
if $1 == Gs { swbot os raw svsjoin $2 :#Galatasaray | return [Takim] ~ 4,8Galata8,4saray! }
if $1 == Bjk { swbot os raw svsjoin $2 :#Besiktas | return [Takim] ~ 1,0Be$ik0,1ta$! }
if $1 == Trb { swbot os raw svsjoin $2 :#Trabzon | return [Takim] ~ 11,5Trabzon5,11spor! | }
if $1 == Normal { return 4* [Takim] ~ 4,0Tür0,4kiye! }
}
Nomercy botundaki silme komutları şöyle ;
Bu kodu sockete ceviremiyom.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $gettok(%::text,1,32) == !clear || $gettok(%::text,1,32) == !temizle {
if $read(txt/Globl.txt,w,%::chan) || *Fener* iswm %::chan {
if !%clearkont. [ $+ [ %::nick ] ] {
inc -u5 %clearkont. [ $+ [ %::nick ] ] 2
if $cle(get,%::Nick) == FB {
.timer 50 00 sockwrite -nt $sockname privmsg %::chan 2,2FENERBAHÇE FENERBAHÇE 8,8FENERBAHÇE FENERBAHÇE
}
if $cle(get,%::Nick) == GS {
.timer 50 00 sockwrite -nt $sockname privmsg %::chan 4,4GALATASARAYGALATASARAY8,8GALATASARAYGALATASARAY
}
if $cle(get,%::Nick) == Bjk {
.timer 50 00 sockwrite -nt $sockname privmsg %::chan 1,1BEŞİKTAŞBEŞİKTAŞ 0,0BEŞİKTAŞBEŞİKTAŞ
}
if $cle(get,%::Nick) == Trb {
.timer 50 00 sockwrite -nt $sockname privmsg %::chan 5,5TRABZONTRABZON 11,11TRABZONTRABZON
}
if $cle(get,%::Nick) == normal {
.timer 50 00 sockwrite -nt $sockname privmsg %::chan
}
.timer 1 2 sockwrite -nt $sockname privmsg %::chan Kanal temizlenmistir, Ekran temizlenmiştir.
}
else {
;sw $sockname kick %::chan %::nick !clear flood yapmayiniz!
}
}
}