Jump to content

Archived

This topic is now archived and is closed to further replies.

chain

!deljoke script

Recommended Posts

  • Administrators
>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

 }

}

Link to comment
Share on other sites



×
×
  • Create New...