on 1:close:?:unset %Popen %Popen2 [ $+ [ $wildsite ] ] %Popen|inc [ $+ [ $wildsite ] ] %Popen|nick [ $+ [ $wildsite ] ]
on 1:open:?:{
if ($comchan($nick,1) = $null) inc -u4 %Popen
if ($comchan($nick,1)) inc -u2 %Popen
if (%Popen = 6) {
ignore -ptkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Popen = 3) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if (!list* iswm $strip($1-)) goto ignore
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u8 %Popen|inc [ $+ [ $wildsite ] ]
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Popen|inc [ $+ [ $wildsite ] ]
if (%Popen|inc [ $+ [ $wildsite ] ] = 2) goto ignore
set -u30 %Popen|nick [ $+ [ $wildsite ] ] $nick
inc -u7 %Popen2 [ $+ [ $wildsite ] ]
if (%Popen2 [ $+ [ $wildsite ] ] = 3) ignore -ptkdu300 $wildsite
halt
:ignore
ignore -ptkdu600 $wildsite
ignore -ptkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
on 1:notice:*:?:{
if ((????serv iswm $nick) && (Serv isincs $nick)) || (. isin $nick) { halt }
if ($comchan($nick,1) = $null) inc -u4 %Pnotice
if ($comchan($nick,1)) inc -u2 %Pnotice
if (%Pnotice = 7) {
ignore -ntkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Pnotice = 4) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u9 %Pnotice|inc [ $+ [ $wildsite ] ]
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Pnotice|inc [ $+ [ $wildsite ] ]
if (%Pnotice|inc [ $+ [ $wildsite ] ] = 2) && ($comchan($nick,1) = $null) {
ignore -ntkdu600 $wildsite
ignore -ntkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
set -u30 %Pnotice|nick [ $+ [ $wildsite ] ] $nick
inc -u4 %Pnotice2 [ $+ [ $wildsite ] ]
if (%Pnotice2 [ $+ [ $wildsite ] ] = 5) ignore -ntkdu300 $wildsite
}
on 1:open:?:{
if ($comchan($nick,1) = $null) inc -u4 %Popen
if ($comchan($nick,1)) inc -u2 %Popen
if (%Popen = 6) {
ignore -ptkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Popen = 3) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if (!list* iswm $strip($1-)) goto ignore
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u8 %Popen|inc [ $+ [ $wildsite ] ]
if ((%Popen|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Popen|inc [ $+ [ $wildsite ] ]
if (%Popen|inc [ $+ [ $wildsite ] ] = 2) goto ignore
set -u30 %Popen|nick [ $+ [ $wildsite ] ] $nick
inc -u7 %Popen2 [ $+ [ $wildsite ] ]
if (%Popen2 [ $+ [ $wildsite ] ] = 3) ignore -ptkdu300 $wildsite
halt
:ignore
ignore -ptkdu600 $wildsite
ignore -ptkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
on 1:notice:*:?:{
if ((????serv iswm $nick) && (Serv isincs $nick)) || (. isin $nick) { halt }
if ($comchan($nick,1) = $null) inc -u4 %Pnotice
if ($comchan($nick,1)) inc -u2 %Pnotice
if (%Pnotice = 7) {
ignore -ntkdu120 *
mode $me +RM
silence *
.timer 1 120 silence -*
.timer 1 180 mode $me -RM
}
if (%Pnotice = 4) ignore -tkdu60 *
if ($count($1-,$chr(2),$chr(3),$chr(22),$chr(31)) > $len($1-)) .ignore -ku120 $wildsite
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1) = $null)) inc -u9 %Pnotice|inc [ $+ [ $wildsite ] ]
if ((%Pnotice|nick [ $+ [ $wildsite ] ] != $nick) && ($comchan($nick,1))) inc -u4 %Pnotice|inc [ $+ [ $wildsite ] ]
if (%Pnotice|inc [ $+ [ $wildsite ] ] = 2) && ($comchan($nick,1) = $null) {
ignore -ntkdu600 $wildsite
ignore -ntkdu120 $str(?,$len($nick)) $+ ! $+ $str(? ,$len($gettok($wildtok($fulladdress,*,2,33),1,64))
) $+ @*
silence $wildsite
.timer [ $+ [ $wildsite ] ] 1 120 silence - $+ $wildsite
}
set -u30 %Pnotice|nick [ $+ [ $wildsite ] ] $nick
inc -u4 %Pnotice2 [ $+ [ $wildsite ] ]
if (%Pnotice2 [ $+ [ $wildsite ] ] = 5) ignore -ntkdu300 $wildsite
}
تعليق