Defset

on $*:text:/^[!@](defset|setdef)/Si:#:{
  if ($($+(%,botflood.,$nick),2)) {
    if ($($+(%,botflood.,$nick),2) >= 50) { ignore -u60 $address($nick,0) | msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot. | halt }
    elseif ($($+(%,botflood.,$nick),2) >= 40) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
    else { inc -z $+(%,botflood.,$nick) 25 }
  }
  else { inc -z $+(%,botflood.,$nick) 25 }
  set %_def.msgtype $iif($left($strip($1),1) == @,msg $chan,notice $nick)
  set %_def.num 0
  if ($3) {
    if (!$($+(%,def,.,%_def.word,.,%_def.num),2)) {
      set %_def.word $2
      set $+(%,def,.,%_def.word,.,%_def.num) $+(12[4,%_def.word,12]10) $qt($3-)
      %_def.msgtype $($+(%,def,.,%_def.word,.,%_def.num),2)
      unset %_def.*
    }
    elseif ($($+(%,def,.,%_def.word,.,%_def.num),2)) {
      %_def.msgtype That defintion already exists! -- $($+(%,def,.,%_def.word,.,%_def.num),2)
      unset %_def.*
    }
  }
  elseif (!$3) {
    %_def.msgtype Incorrect Syntax 4[ Set a definition with !defset <word> <definition> ]
    unset %_def.*
  }
}