on $*:text:/^[!@]joke/Si:#:{ 
     set %joke 
   if (!$2) $iif($left($1,1) == @,msg $chan,notice $nick) $read(Joke.ini)
   }
on $*:text:/^[!@]hint/Si:#:{ 
 If (%joke) %display $v1) $read(joke.ini)
}
on $*:text:/^[!@]answer/Si:#:{
if (!$2) $iif($left($1,1) == @,msg $chan,notice $nick) $read(joke.ini)