Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $2 == PRIVMSG {
;%n
değişkenine nicki, %m değişkenine gelen mesajı, %k değişkenine kanalı
ayarlıyoruz
var %n =
$gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k =
$3
;;;;;;;;;;;;;;;;;;;;;;;;kanalda;;;;;;;;;;;;;;;;;;
if $2 == privmsg && $remove($3,:) ischan && s.a isin $4- {
.timer 1 $rand(1,10) sockwrite -n $sockname privmsg $3
$gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt
}
if $2 == privmsg && $remove($3,:)
ischan && slm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt
}
if $2 == privmsg && $remove($3,:) ischan && selam isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt }
if $2 == privmsg && $remove($3,:)
ischan && nbr isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nbr.txt
}
if $2 == privmsg && $remove($3,:)
ischan && sezer isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\YaPraK.txt
}
if $2 == privmsg && $remove($3,:)
ischan && a.s isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt
}
if $2 == privmsg && $remove($3,:)
ischan && aslm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt
}
if $2 == privmsg && $remove($3,:)
ischan && nasılsın isin $4- { .timer 1 $rand(1,10) sockwrite -n
$sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read
bot\bot\nasılsınız.txt }
if $2 == privmsg
&& $remove($3,:) ischan && bot isin $4- { .timer 1 $rand(1,10)
sockwrite -n $sockname privmsg $3 $gettok($gettok($1-,1,33),1,58) $read
bot\bot\bot.txt }
;;;;;;;;;;;;;;;;;;;;;;;;özelde;;;;;;;;;;;;;;;;;;
if $2 == privmsg && $remove($3,:) == sezer && bot isin $4- {
.timer 1 $rand(1,2) sockwrite -n $sockname privmsg
$gettok($gettok($1-,1,33),1,58) $read bot\bot\bot.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && s.a isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && slm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && selam isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zzzzz.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && nbr isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nbr.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && sezer isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\YaPraK.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && a.s isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && aslm isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\zxz2.txt
}
if $2 == privmsg && $remove($3,:) ==
sezer && nasılsın isin $4- { .timer 1 $rand(1,10) sockwrite -n $sockname
privmsg $3 $gettok($gettok($1-,1,33),1,58) $read bot\bot\nasılsınız.txt
}
}
socket botu konuşturma kodu belki birinin işine yarat küfür koruma olarakta değiştirilip kullanıla bilir bot nick sezer dir. kodlamaya göre