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
}