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ı sohbet bizimmekan sohbet odaları