Alias -l Typec {
return $+($nick($chan,$1).color,$nick($chan,$1).pnick)
}
on *:text:*!warn *:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == %alan.ip.address ) {
if ($2 ison $chan) {
if ($2 isop $chan) { HALT }
else {
if $regex($2,/[?Alan(Bot\]\)?/Si) { halt }
else {
inc $+(%,$2)
set $+(%,reasonwarn,$2,$($+(%,$2),2)) $iif($3,$3-,because $nick doesn't like what you have to say!)
msg $chan $typec($2) has been warned by $typec($nick) $+ . $typec($2) has $+(,$($+(%,$2),2),) $+(warnin,$iif($($+(%,$2),2) != 1,s),.)
if ($($+(%,$2),2) == 1) {
msg $2 You have been warned ONCE. If you get warned two more times you will be KBed. The reason for your warn was: $($+(%,reasonwarn,$2,$gettok($($+(%,$2),2),1,32)),2) $+ .
}
elseif ($($+(%,$2),2) == 2) {
msg $2 You have been warned TWICE! If you get warned one more time you WILL BE KBed. The reason for your warn was: $($+(%,reasonwarn,$2,$gettok($($+(%,$2),2),1,32)),2) $+ .
}
elseif ($($+(%,$2),2) == 3) {
/ban -k $chan $2 2 You have been warned three times. The reason for your KB is because you have been ignoring rules. Please send Alan a reason why you should be unbanned.
unset % $+ $2
msg $2 I told you so. If you wish to be unbanned send Alan a message and state why you should be unbanned.
msg $2 The reason for your first warn was $($+(%,reasonwarn,$2,$gettok(%,$2),1,32))1)))
}
}
}
}
else { HALT }
}
unset %statusname
unset %statusname2
}