Çevrimdışı

[PHP]on *:SOCKOPEN:irobot: { %irnick = Techv5- $+ $r(100,9999) sw $sockname NICK %irnick sw $sockname USER $qidentdx "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo } on *:SOCKREAD:irobot: { var %r sockread %r tokenize 32 %r if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { sw $sockname oper Daemon 19899 } if $2 == 381 { sw $sockname MODE %irnick -s sw $sockname join 0, sw $sockname KILL Sysop_IRobot IRobot - Coded by Daemon (auto reconnect) .timer 1 2 sw $sockname NICK Sysop_IRobot } if $2 == NICK { if $right($3,-1) == Sysop_IRobot { sw $sockname MODE Sysop_IRobot +HB-h sw $sockname MODE Sysop_IRobot -s sw $sockname ns identify 19899 .timer 1 5 sw $sockname SAJOIN Sysop_IRobot #opers,#bots,#helpdesk,#globaldesk,#webdesk,#localdesk,#yönetim } if $botfnick($1) == Sysop_IRobot { sw $sockname KILL Sysop_IRobot Re .timer 1 3 sw $sockname NICK Sysop_IRobot } } if $2 == 319 { var %i 1 , %chans $right($5-,-1) while %i <= $numtok(%chans,32) { sw $sockname SAJOIN Sysop_IRobot $delprefix($gettok(%chans,%i,32)) inc %i } } if $2 == 366 { if $hget(kanalkapat,$4) { sw $sockname TOPIC $4 :4Bu kanal Efsanesohbet IRC Sunucusu kurallarina aykiri hareketlerinden dolayi kapatilmistir. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname MODE $4 +miO } if $4 != #Opers && $4 != #helpdesk && $4 != #globaldesk && $4 != #localdesk && $4 != #Bots { sw $sockname PART $4 } } if $2 == 353 { var %i 1 , %nicks $right($6-,-1) while %i <= $numtok(%nicks,32) { if $hget(kanalkapat,$5) { if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) } } if $hget(killnick,$noprefix($gettok(%nicks,%i,32))) { ; sw $sockname MODE $5 +aoq Sysop_IRobot Sysop_IRobot Sysop_IRobot if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) } sw $sockname MODE $5 +oaqbb Sysop_IRobot Sysop_IRobot Sysop_IRobot $noprefix($gettok(%nicks,%i,32)) $+ !*@* *!*@ $+ $iif($hget(userip,$noprefix($gettok(%nicks,%i,32))),$ifmatch,noip) sw $sockname KICK $5 $noprefix($gettok(%nicks,%i,32)) :Efsanesohbet IRC Sunucusu kurallarina uymadiginiz icin uzaklastirildiniz. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname TEMPSHUN $noprefix($gettok(%nicks,%i,32)) TEMPSHUN by Sysop_IRobot } inc %i } } if $2 == 340 && $len($4) > 3 { hadd -m userip $gettok($right($4,-1),1,61) $gettok($4,2,64) } if $2 == PRIVMSG && $3 == #opers { var %irt $right($4-,-1) if $gettok(%irt,1,32) == .kill && (Daemon iswm $botfnick($1) || Efsane iswm $botfnick($1) || $botfnick($1) == NoMercy) { killnick $gettok(%irt,2,32) } if $gettok(%irt,1,32) == .kanalkapat && Efsane iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) } if $gettok(%irt,1,32) == .kanalkapat && Daemon iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) } } if $2 == PRIVMSG && $3 == #Localdesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Localdesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } if $gettok(%irt,1,32) == .kanalkapat && * iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) sw $sockname privmsg #Opers : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. sw $sockname privmsg #Localdesk : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. } } if $2 == PRIVMSG && $3 == #Globaldesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Globaldesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } if $gettok(%irt,1,32) == .kanalkapat && * iswm $botfnick($1) { kanalkapat $gettok(%irt,2,32) sw $sockname privmsg #Opers : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. sw $sockname privmsg #Globaldesk : $gettok(%irt,2,32) kanalina gerekli topic atilip kanal modlari (+mi) alinmistir. } } if $2 == PRIVMSG && $3 == #Helpdesk { var %irt $right($4-,-1) if $gettok(%irt,1,32) == !Shun && * iswm $botfnick($1) { killnick $gettok(%irt,2,32) sw $sockname privmsg #Opers : 4 $gettok(%irt,2,32) 2nicki için !Shun Komutu kullanıldı. Kullanan 4 %::nick 2Sebep (4 $6- 2) sw $sockname privmsg #Helpdesk : $gettok(%irt,2,32) nicki networkdaki her kanaldan atilmistir. } } if $2 == JOIN { if $botfnick($1) == Sysop_IRobot && $hget(kanalkapat,$right($3,-1)) { sw $sockname MODE $right($3,-1) +oaq Sysop_IRobot Sysop_IRobot Sysop_IRobot sw $sockname cs set $right($3,-1) topiclock off sw $sockname cs access $right($3,-1) del 1-999 sw $sockname cs set $right($3,-1) password $r(99999,99999999999) sw $sockname cs set $right($3,-1) founder E-ADMIN sw $sockname cs set $right($3,-1) desc Efsane Sohbet, Chat odaları - Efsane Mirc download - Mynet Sohbet sw $sockname cs set $right($3,-1) mlock +ntim sw nomercy cs suspend $right($3,-1) 12Efsanesohbet Yönetimi Reklam tarafından kapatmıştır. sw $sockname privmsg #opers $right($3,-1) kanalı kapatılmıştır. } } }

























Yukaridaki nomercy'nin içerisindeki irobot mirc kodunu tcl scripte cevirebilecek bir arkadaşimiz varsa yardimci olursa sevinirim.[/PHP]amaç opers kanalindan eggdrop'u kullanarak kanallara otomatik girip ban atip kanaldan tekrar cikmasidir. örnek


if $hget(killnick,$noprefix($gettok(%nicks,%i,32))) { ; sw $sockname MODE $5 +aoq Sysop_IRobot Sysop_IRobot Sysop_IRobot if $xisprefix($gettok(%nicks,%i,32)) { sw $sockname MODE $5 -ohva $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) } sw $sockname MODE $5 +oaqbb Sysop_IRobot Sysop_IRobot Sysop_IRobot $noprefix($gettok(%nicks,%i,32)) $+ !*@* *!*@ $+ $iif($hget(userip,$noprefix($gettok(%nicks,%i,32))),$ifmatch,noip) sw $sockname KICK $5 $noprefix($gettok(%nicks,%i,32)) :Efsanesohbet IRC Sunucusu kurallarina uymadiginiz icin uzaklastirildiniz. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname TEMPSHUN $noprefix($gettok(%nicks,%i,32)) TEMPSHUN by Sysop_IRobot