Mine

on $*:TEXT:/^[?!@](w)?suggest/Si:#: {
  if (!$2) { notice $nick 7Error:4 You must specify a world. | halt }
  if ($2 !isnum 2-140) { notice $Nick 7Error:4 You must specify a real world.7 $2 4isnt a real world. | halt }
  set %sworld [ $+ [ $chan ] ] $2- 
  set %ssettime [ $+ [ $chan ] ] $ctime  
  set %snick [ $+ [ $chan ] ] $nick  
  if ($chan !== #rspcw) {
    msg $chan 7 $+ $nick 4has suggested a new PCW. Type !spcw to view it.
  }
}
on $*:TEXT:/^[?!@]s(world|pcw)/Si:#: {
  set %output  $iif($left($1,1) == !,notice $nick,msg $chan)  
  if (!%sworld [ $+ [ $chan ] ]) { %output 4No suggested PCW is set. | halt }
  %output 4The current suggested PCW for7 $chan 4is:7 %sworld [ $+ [ $chan ] ] $+ 4. This was set by:7 %snick [ $+ [ $chan ] ] $duration($calc($ctime - $($+(%,ssettime,$chan),2))) 4ago.
}