Tekil Mesaj gösterimi
Alt 03 Mayıs 2011, 20:51   #5
Çevrimdışı
RegSubex
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket botu konuşturma




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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet