The script

on *:TEXT:!tell*:#test: {
  inc -u4 %tellspam. [ $+ [ $nick ] ]
  if (%tellspam. [ $+ [ $nick ] ] == 2) msg $chan Stop.
  if (%tellspam. [ $+ [ $nick ] ] == 4) inc %spammer $nick
  if (%tellspam. [ $+ [ $nick ] ] == 4) msg $chan Too late.
  if (%tellspam. [ $+ [ $nick ] ] == 4) unset %tellspam. [ $+ [ $nick ] ]
}

on *:TEXT:!delete*:#test: { if ($nick == soap) dec %spammer $2
if ($nick == soap) msg $chan done }


------------------------------------------------


on *:TEXT:!tell*:#test: {
  if ($nick isin %spammer) msg $chan You are not permitted to do that.
  if ($2 == person) msg $chan troll
  if (!$2) msg $chan !tell PERSON MESSAGE
  if (!$3) msg $chan !tell PERSON MESSAGE
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) inc %tell. [ $+ [ $2 ] ] 1
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) inc %messageto. [ $+ [ $2 ] ] 1
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) if (%messageto. [ $+ [ $2 ] ] == 1) inc %message. [ $+ [ $2 ] ] Message by $nick to $2 on $date $+ : " $+ $3- $+ "
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) if (%messageto. [ $+ [ $2 ] ] >= 2) inc %message. [ $+ [ $2 ] ] 4NEXT: Message by $nick to $2 on $date $+ : " $+ $3- $+ "
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) inc % $+ $2 $nick
  if (%allowed. [ $+ [ $nick ] ] == 1) if (%allowed2. [ $+ [ $nick ] ] >= 3) msg $chan ok, stored
  else { inc %allowed. [ $+ [ $nick ] ] 1
    else { if (%allowed. [ $+ [ $nick ] ] == 1) inc %allowed2. [ $+ [ $nick ] ] 1
      else { if (%allowed. [ $+ [ $nick ] ] == 1) inc %allowed2. [ $+ [ $nick ] ] 1
        else { if (%allowed. [ $+ [ $nick ] ] == 1) inc %allowed2. [ $+ [ $nick ] ] 1
        }
      }
    }
  }
}

--------------------------------------------


on *:TEXT:*:#test: { if (%tell. [ $+ [ $nick ] ] >= 1) msg $chan %message. [ $+ [ $nick ] ]
  if (%tell. [ $+ [ $nick ] ] >= 1) unset %allowed. [ $+ [ $read($nick $+ .txt ] ]
  if (%tell. [ $+ [ $nick ] ] >= 1) unset %allowed2. [ $+ [ $read($nick $+ .txt ] ]
  if (%tell. [ $+ [ $nick ] ] >= 1) unset %messageto. [ $+ [ $nick ] ]
  if (%tell. [ $+ [ $nick ] ] >= 1) unset %message. [ $+ [ % $+ $nick ] ]
}