Tabi Mümkündür
cyclebot.tcl de
bul
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Kurallara Uyunuz. :)"
puthelp "os :raw nick $before 1 1 $botident 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$botadi"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
Degitir
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :Kural ihlali sebebi ile uzaklastirildiniz."
puthelp "os :raw nick $before 1 1 $botident [randstring 1 ABCDEF1234567][randstring 1 ABCDEF][randstring 1 ABCDEF1234567][rand 9][rand 9][rand 9][rand 9][randstring 1 ABCDE].$pwhost $servicesadr :$botadi"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"