Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias swircbot $iif($sock(ircbot).status == active,sockwrite -nt ircbot $1-)
on *:sockclose:ircbot:$+(.timer,ircbot) 1 2 sockopen ircbot $_sunucuip $_port
on *:sockopen:ircbot:{
if ($sockerr) { sockclose ircbot | $+(.timer,ircbot) 1 2 sockopen ircbot $_sunucuip $_port | returnex }
swircbot NICK $+($_ircbot,$r(1000,99999999))
swircbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
sockmark $sockname $_ircbot
}
on *:sockread:ircbot:{
if ($sockerr) { sockclose ircbot | $+(.timer,ircbot) 1 2 sockopen ircbot $_sunucuip $_port | returnex }
var %;ircbot | sockread %;ircbot | tokenize 32 %;ircbot
if ($1 = ping) swircbot pong $remove($2,:)
elseif $regex($2,/(001|433)/) { swircbot oper $_oper | swircbot ns ghost $_ircbot $_pass | swircbot ns release $_ircbot $_pass | swircbot join #0,0 | $+(.timer,$rand(10,99999)) 1 3 swircbot nick $_ircbot }
elseif $1 == error && $2 == :closing { sockclose ircbot | $+(.timer,ircbot) 1 2 sockopen ircbot $_sunucuip $_port }
elseif $regex($2,/(473|475|471|474)/) { swircbot sajoin $_ircbot $4 }
elseif $regex($2,/(481|411)/) { swircbot oper $_oper | swircbot nick $_ircbot | swircbot nickserv identify $_pass }
elseif ($2 == NICK) {
if $_nick($1) == $_ircbot { swircbot ns ghost $_ircbot $_pass | swircbot ns release $_ircbot $_pass | $+(.timer,$rand(1000,999999)) 1 3 swircbot nick $_ircbot }
elseif $right($3,-1) == $_ircbot {
swircbot nickserv identify $_pass
swircbot oper $_oper
$iif($_supass,swircbot os su $_supass)
swircbot join 0,0
swircbot mode $right($3,-1) +qHp-h
swircbot chgh45t $right($3,-1) $_host
$+(.timer,_ircbotgir) 1 5 swircbot sajoin $right($3,-1) $+($_opers,$chr(44),$_bots)
}
}
elseif $regex($2,/366/) && !$istok($_opers $_bots,$4,32) { swircbot part $4 }
elseif $regex($2,/^PART$/i) {
if $regex($_nick($1),/^ $+ $_ircbot $+ $/Si) && $istok($_opers $_bots,$3,32) { swircbot sajoin $_nick($1) $3 }
}
elseif $regex($2,/^KICK$/i) {
if $regex($4,/^ $+ $_ircbot $+ $/Si) && $istok($_opers $_bots $_xline,$3,32) { swircbot sajoin $4 $3 }
}
elseif $regex($2,/^JOIN$/i) {
if $regex($_nick($1),/ $+ $+(^,$_ircbot,$) $+ /Si) {
if ($right($3,-1) == $_opers) {
swircbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
swircbot mode $_nick($1) +qHp-h
swircbot chgh45t $_nick($1) $_usename
}
elseif $istok($_bots,$right($3,-1),32) {
swircbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
swircbot mode $_nick($1) +qHp-h
swircbot chgh45t $_nick($1) $_host
}
}
}
elseif $regex($2,/^MODE$/Si) && $regex($3,/^#/) {
if $regex($4,^\+(\S+)?(b)(\S+)?) && $5 {
swircbot mode $3 -b *!*@*
if $regex($5-,/ $+ $_ircbot $+ /i) { swircbot mode $3 -b $_ircbot }
}
elseif $regex($4,^\-(\S+)?(h)(\S+)?) || $regex($4,^\+(\S+)?(a|q|o)(\S+)?) && $regex($5-,/ $+ $_ircbot $+ /i) { swircbot mode $3 -qao+h $str($+($_ircbot,$chr(32)),5) }
}
elseif $regex($2,/^NOTICE$/Si) && $regex($4-,/Client connecting on port/Si) {
var %:nick $token($token($4-,1,40),-1,32), %:ident $token($token($4-,1,64),2,40), %:ip $token($token($4-,2,64),1,41), %:port $token($token($4-,1,58),-1,32), %rand $r(1000,999999)
if $regex(%:port,/666(1|2|3|4|5|6|7|8|9|0)|7000/Si) {
swircbot kill %:nick 0,1IRC Girişimiz Geçici Olarak Kapalıdır.Lütfen 4 $_web 0,1üzerinden giriş deneyiniz.
}
}
}
alias botçık { sockclose ircbot }
alias botgir {
sockopen ircbot $_sunucuip $_port
}
alias _ircbot return IRCQ
alias _pass return nickpass
alias _ident return Bozkurt
alias _username return 0,1Buraya 4Bir şey yazın
alias _oper return opernick operpass
alias _supass return supass
alias _sunucu return irc.sunucum.com
alias _sunucuip return 111.222.33.44
alias _port return 6667
alias _web return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias _opers return #Operkanalı
alias _bots return #Botkanalı
alias _xline return #xline