profanity not working

#profanity 0ff
on *:text:*:#: {
  if (%profanity. [ $+ [ # ] ] == ON) {
    if ($me isop #) || ($me isowner #) {
      set %prof.text $strip($1-)
      set %prof.nick $nick
      set %prof.nick2 $converter($nick)
      set %prof.chan #
      profanity
    }
  }
}
alias profanity {
  var %prof = 0
  :profstart
  var %prof = $calc(%prof + 1)
  if ($read(profanity.txt,%prof) == $null) { goto profend }
  if ($read(profanity.txt,%prof) isin %prof.text) {
    inc %prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ]
    if (%prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ] == 1) { [ $+ [ %prof.chan ] ] msg %prof.chan Please do not use profanity in this room. We prefer Not to have that word said in this Room. You have been 4 Warned | halt }
    if (%prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ] == 2) { [ $+ [ %prof.chan ] ] msg %prof.chan %prof.nick 4 You were warned about the profanity once. Next time you will be Kicked | halt }
    if (%prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ] == 3) { [ $+ [ %prof.chan ] ] kick %prof.chan %prof.nick You were warned about the profanity once. Next time you will be banned | halt }
    if (%prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ] == 4) { [ $+ [ %prof.chan ] ] access %prof.chan add deny $address(%prof.nick,1) $crlf kick %prof.chan %prof.nick  [-Banned-] Iwarned
you
about
the
profanity
twice. | unset %prof. [ $+ [ # ] ] [ $+ [ %prof.nick ] ] | halt }
  }
  goto profstart
  :profend
  halt
}
#profanity end
menu menubar,channel {
  =Profanity Filter= %profanity. [ $+ [ # ] ]
  .ON: {
    set %profanity. [ $+ [ # ] ] ON
    msg # Profanity Filter has ben turned On
    echo -a 9[Profanity Filter On]
  }
  .OFF: {
    unset %prof. [ $+ [ # ] ] [ $+ [ * ] ]
    unset %profanity. [ $+ [ # ] ]
    msg # Profanity filter Off
    echo -a 4[Profanity Filter Off]
  }
  .-
  .Edit Words:/run profanity.txt
}