Mine

on $*:TEXT:/^[!@](setpcw|setworld|setpc|setw|set)/Si:#sdpc_staff:{
  if (($nick isop #) || ($nick ishop #)) {
    If ($2 isnum 1-144) {
      set %pcwscouter 
      set %setby $nick 
      set %world $2
      set %scoutedby $3
      inc %pcwscouts [ $+ [ %pcwscouter ] ] 
      msg #sdpc 10 the pc world has been changed, type 2!pcw 10to see it!
    } 
  }
}
on *:text:!suggest*:#sdpc: {
  If ($2 isnum 1-144) {
    set %suggest [ $+ [ $chan ] ] $2
    set %suggestedby $nick 
    inc %suggestedworlds [ $+ [ $Nick ] ]
    msg $chan 10 $nick has suggested world :2 $2 10reason: 2 $3-
  }
}
on $*:TEXT:/^[!@](world|pcw|pc|w)/Si:#sdpc:{ 
  /notice $nick 10 world: 2 %world  5|| 10 scouted by:2 %scoutedby  5|| 10 set by: 2 %setby   5 || 10 suggested: 2 %suggest [ $+ [ $chan ] ]
} 

on *:TEXT:!scouts:#: {  
  notice $nick 4 You have scouted %suggestedworlds [ $+ [ $iif($2,$2,$nick) ] ] worlds. 
}