Çevrimdışı

Aeg arkadasımızın yazmıs oldugu socket cycle bot gayet kullanıslı ve güzel kendisine emeğinden dolayı tşk ederim. benim bu botta yapmak istediğim kanaldaki konuslarıda alması

Alıntı:

on *:sockopen:bot:{ if ($sockerr) { echo $color(info) -st Socket botun ba&eth;lant&yacute;s&yacute; kesildi. | sockopen bot $sunucu $portsifre | return } swbot PASS $portsifre swbot NICK $dcyclenick swbot USER $dident * * : $+ $drealname swbot ns identify $dcyclenickpassword .timer 1 3 swbot join $kanal swbot mode $2cyclenick +D .timerping 0 20 swbot ping $2cyclenick sockmark $sockname $2cyclenick } on *:sockread:bot:{ if ($sockerr) { echo $color(info) -st Socket botun ba&eth;lant&yacute;s&yacute; kesildi. | sockopen bot irc.zurna.net 6667 | return } var %; | sockread %; | tokenize 32 %; if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1- swalias $1- } alias swbot { if $sock(bot) { sockwrite -n bot $1- } } alias swalias { ;e&eth;er bot socket&yacute; aç&yacute;ksa if $sock(bot) { var %: = echo $color(info) -st > Socket bot: if : VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Jawa User %logo $+ $chr(1) } if : FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Jawa User %logo $+ $chr(1) } if $1 == PING { swbot PiNG $2- } if $2 == 474 { %: $4 kanal&yacute;nda banl&yacute;. } if $2 == 366 { %: $4 kanal&yacute;na girdi. } if $1 == error && $2 == :closing { baslat 2 } if $2 == NICK { set %nickdegis $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. | set %newnick $right($3,-1) if (%parametre == sunucu) { nickbot | halt } } if $2 == JOIN { if ($kanal isin $3) { set %joinnick $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if (%parametre == sunucu) { joinbot | halt } } } if $2 == PART { if ($3 == $kanal) { set %partnick $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if (%parametre == sunucu) { partbot | halt } } } if $2 == quit { set %quitnick $remove($gettok($1,1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if (%parametre == sunucu) { quitbot | halt } } } } alias joinbot { if ($read(botnet.txt,w,%joinnick)) && ($read(girmis.txt,w,%joinnick)) && ($istok($masternick,%joinnick,32)) && ($gettok($sunucu,2,46) isin %joinnick) { halt } if (%cycle == off) { halt } if ($tnick(%joinnick)) { if (!$hget(tnick)) { hmake tnick 100 } hinc -u20 tnick $tnick(%joinnick) if ($hget(tnick,$tnick(%joinnick)) >= 3) { halt } if ($domain == $null) { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$rand(0 ,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(A,Z),$r and(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$rand(0, 9),.,$rand(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$ rand(0,9),$rand(A,Z)) $services : $+ $web Jawa User } else { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$domain ) $services : $+ $web Jawa User } } write sgirmis.txt %joinnick swbota os raw svsmode %joinnick +iwtr swbota os raw $+(:,%joinnick) join $kanallar swbota privmsg $logchan Nick %joinnick Olusturuldu , Kanallara Sokuldu, [Sunucu] } alias partbot { if (%cycle == off) { halt } sbotsil %partnick swbota os raw $+(:,%partnick) part $kanallar (PART) swbota os raw $+(:,%partnick) quit $c&yacute;k&yacute;smesaj } alias quitbot { if (%cycle == off) { halt } sbotsil %quitnick swbota os raw $+(:,%quitnick) quit $c&yacute;k&yacute;smesaj } alias nickbot { if (%cycle == off) { halt } sbotsil %nickdegis write sgirmis.txt %newnick swbota os raw $+(:,%nickdegis) nick %newnick } alias sbotsil { if $1 { if !$read(sgirmis.txt,w,$1) { halt } | else { write $+(-dl,$readn) sgirmis.txt } } }

botun genel kodlaması buraya nasıl bir kod eklesem kanaldaki konusmalarıda alır.? yardımlarınızı bekliyorum