Mine

on *:TEXT:*:#rspc: {
if ( $1 == !world || $1 == !pcw ) 

inc %pcwcount 1
notice $nick 4[-=-}14~15^14-15_46The current Pest-control world is %world $+ . Changed by 4 %nick 6 $duration($calc($ctime - %ht)) ago $+ . 15_14-15^14~4{-=-]  
}
elseif ($1 == !setpcw) && $nick($chan,$nick,ohv) {
set %world $2-
set %ht $ctime    
set %nick $nick    
msg $chan 4[-=-}14~15^14-15_6the Pest-control world has just been updated by 4|| $+ $nick $+ || $+ !.15|||6The new Pest-control world is now 4|| $+ %world $+ ||15_14-15^14~4{-=-]  

}
elseif ( $1 == !suggest ) {
write c:\suggest.txt $nick suggested World $2-  
}
elseif ( $1 == !clearsuggest ) && $nick($chan,$nick,oh) {
write -c c:\suggest.txt Suggested World(s) in $chan $+ :  
}
elseif ($1 == !suggested) && $nick($chan,$nick,ohv) {
play $nick c:\suggest.txt  
}