Someone

ON $*:TEXT:/^[!@.]mop/Si:#cmtest:{
  VAR %output = $iif($Left($1,1) == @,msg $chan,.notice $nick)
  IF ($2 == List) {
    VAR %i = 1
    WHILE (%i <= $Lines(mopjes.txt)) {
      VAR %names = $AddTok(%names,$GetTok($Read(mopjes.txt,%i),2,32),32)
      INC %i
    }
    IF (%names) %output I know jokes from: $Replace(%names,$Chr(32),$Chr(44) $Chr(32))
    ELSE %output I can't seem to locate my jokes file!
  }
  ELSEIF ($2) {
    VAR %i = 1, %s = 1
    WHILE ($IsFile($+(mopjes.,%s))) INC %s
    WHILE (%i <= $Lines(mopjes.txt)) {
      IF ($GetTok($Read(mopjes.txt,%i),2,32) == $2) Write $+(mopjes.,%s) $Read(mopjes.txt,%i)
      INC %i
    }
    IF ($Lines($+(mopjes.,%s)) > 0) %output $Read($+(mopjes.,%s))
    ELSE %output I don't have any jokes from $2
    IF ($IsFile($+(mopjes.,%s))) .Remove $+(mopjes.,%s)
  }
  ELSE %output $Read(mopjes.txt)
}