| RahmetLi | 01 Temmuz 2019 20:50 |
Guard sorun
S.a arkadaslar aşagıdakı kod guardımda eklı fakan karntına cekıyor ama kanallara dagıtmıyor. sorun neden olabılır Kod:
alias dagit2 {
swsebot sajoin $1 $2
}
alias dagit {
swsebot sapart $1 #karantina
inc %irc.dagit
if %irc.dagit == 1 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 2 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 3 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 4 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) | set %irc.dagit 0 }
}
kodun tamamı : Kod:
alias swsebot if ($sock(sebot).status == active) sockwrite -n sebot $1-
on *:sockclose:sebot:{ $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port }
on *:sockopen:sebot:{
if ($sockerr) { sockclose sebot | $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port | returnex }
$iif($_portpass,swsebot PASS $_portpass)
swsebot NICK $+($_sebot,$r(100,9999))
swsebot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
swsebot $sockname $_sebot
}
on *:sockread:sebot:{
if ($sockerr) { sockclose sebot | $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port | returnex }
var %; | sockread %; | tokenize 32 %;
;echo -a %;
if ($1 = ping) swsebot pong $remove($2,:)
if $1 == error && $2 == :closing { sockclose sebot | $+(.timer,$rand(100,999)) 1 2 sockopen sebot $_sunucuip $_port }
if ($2 == 001) {
set %:myip $strip($token($token($1-,2,64),1,41))
swsebot oper $_oper | swsebot join #0,0 | swsebot nick $_sebot
}
if ($regex($2,/473|475|471|474)) { swsebot sajoin $_sebot $4 }
if ($regex($2,/481|411|433)) { swsebot oper $_oper | swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | swsebot nick $_sebot | swsebot nickserv identify $_pass | swsebot os su $_supass | .timer 1 10 swsebot chghost SohbetLi-STATUS NoMercy.SohbetLi.Org }
if $2 == 433 { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | swsebot nick $_sebot }
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
if $4 == :TIME { swsebot NOTICE $_nick($1) TIME $asctime | return }
if $4 == :VERSION { swsebot NOTICE $_nick($1) VERSION 2mIRC v6.35 Khaled Mardam-Bey | swsebot NOTICE $_nick($1) VERSION $_username | return }
if $4 == :FINGER { swsebot NOTICE $_nick($1) FINGER $_username $+ ( $+ $_ident $+ @) Idle 1 seconds | return }
if $4 == :PING { swsebot NOTICE $_nick($1) PONG $5- | return }
}
if ($2 == NICK) {
if $_nick($1) == $_sebot { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | $+(.timer,$rand(100,999)) 1 3 swsebot nick $_sebot }
if $right($3,-1) == $_sebot {
swsebot nickserv identify $_pass
swsebot oper $_oper
swsebot os su $_supass
swsebot join 0,0
swsebot mode $right($3,-1) +qHp-h
$+(.timer,sebotgirs) 1 3 swsebot sajoin $right($3,-1) $+($_log,$chr(44),$_opers,$chr(44),$_kontrol)
swsebot chghost $right($3,-1) NoMercy.SohbetLi.ORG
return
}
}
if $2 == JOIN {
if $right($3,-1) == #karantina {
if *admin* iswm $1 || *IRCop* iswm $1 {
swsebot os mode #karantina +a $remove($gettok($1,1,33),:)
}
}
}
if $2 == 366 { if !$istok($_log $_opers $_kontrol,$4,32) { swsebot part $4 } }
if $2 == PART { if $_nick($1) == $_sebot && $istok($_log $_opers $_kontrol,$3,32) { swsebot sajoin $_nick($1) $3 } }
if $2 == KICK {
if $3 == #Karantina {
swsebot SAPART $_nick($1) $3
swpbot privmsg #opers 4UYARI : #Karantina kanalında KICK kullanmak yasaktır. Lütfen korumanızı kapayıp tekrar giriş yapınız $_nick($1) $+ .
}
if $4 == $_sebot && $istok($_log $_opers $_kontrol,$3,32) {
if $istok(ChanServ NickServ MemoServ HelpServ OperServ StatServ,$_nick($1),32) { swsebot sajoin $4 $3 | return }
swsebot os raw :chanserv mode $3 -qaoh $str($+($_nick($1),$chr(32)),5) | swsebot sajoin $4 $3 | return
}
}
if ($2 == JOIN) {
if $_nick($1) == $_sebot && $istok($_log $_opers $_kontrol,$right($3,-1),32) {
if ($right($3,-1) == #karantina) { swpbot mode $right($3,-1) -qah+o $str($+($_nick($1),$chr(32)),5) | halt }
if ($right($3,-1) == #system) { swpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | halt }
if ($right($3,-1) == #opers) { swpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | halt }
swsebot mode $right($3,-1) -qah $str($+($_nick($1),$chr(32)),5) | swsebot os raw svsmode $_nick($1) +qHpN-h
return
}
}
if $2 == MODE && $left($3,1) == $chr(35) {
if (!$5) { return }
if ($regex($4,\+(b))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -b $_sebot | return }
if ($regex($4,\-(h))) && ($regex($4,\-(o))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -qah+o $str($+($_sebot,$chr(32)),5) }
if ($regex($4,\+(a|o|q))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -qah+o $str($+($_sebot,$chr(32)),5) }
}
if $2 == NOTICE {
if (*Client connecting on port* iswm $strip($4-)) {
if ($token($gettok($13,2,64),1,41) == $_sunucuip) || ($token($gettok($13,2,64),1,41) == %:myip) { return }
if $read(proxylist.txt,w,$token($gettok($13,2,64),1,41)) { return }
if $read(proxymuaf.txt,w,$token($gettok($13,2,64),1,41)) || $istok($_muafport,$remove($11,:),32) { dagit $12 | return }
if $_kaçık == 1 { swsebot sajoin $12 #karantina | $+(.timer,dagit,$12) 1 $_ksure dagit $12 }
swsebot PRIVMSG $12 :VERSION | swsebot PRIVMSG $12 :FINGER | swsebot PRIVMSG $12 :PING
if (%proxy == on) && $hget(proxy,$token($gettok($13,2,64),1,41)) { swsebot gzline $+(*@,$token($gettok($13,2,64),1,41)) - 2Sakıncalı giriş tespit edildi. - 2• 12NoMercy Security System 2™ | return }
if (%pkoruma == on) { set %pnick $12 | madgir $token($gettok($13,2,64),1,41) }
}
}
}
alias dagit2 {
swsebot sajoin $1 $2
}
alias dagit {
swsebot sapart $1 #karantina
inc %irc.dagit
if %irc.dagit == 1 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 2 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 3 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
if %irc.dagit == 4 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) | set %irc.dagit 0 }
}
|
