| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Socket Bot Konuşturma hakkında.
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ðlantýsý 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ðlantýsý 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ðer bot socketý açý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ýnda banlý. }
if $2 == 366 { %: $4 kanalý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ýkýsmesaj
}
alias quitbot {
if (%cycle == off) { halt }
sbotsil %quitnick
swbota os raw $+(:,%quitnick) quit $cýký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
|