!deljoke script

[chain]

>on $*:Text:/^[!@](joke)/Si:#: {

 set %return $iif($left($1,1) == @, msg $chan, notice $nick)

 %return $c1($read(jokez.txt,n))

}

on *:TEXT:!addjoke*:*: {

 /write jokez.txt $2-

 msg $nick thank you for adding a joke to my system

} 

on *:TEXT:!deljoke*:*: {

 if (!$read(jokez.txt, npw,  $+(*,$2-,*))) msg $nick Joke $qt($2-) was not found.

 else {

   $read(jokez.txt, rw, $+(*,$2-,*))

   msg $nick The line with $qt($2-) in it, is removed. Thanks

 }

}