Something

on $*:TEXT:/^[!@](setpcw|setworld|setpc|setw|set)/Si:#sdpc_staff:{
  if (($nick isop #) || ($nick ishop #)) {
    If ($2 isnum 1-144) {
      inc %sets [ $+ [ $nick ] ] 
      set %world $2
      set %scoutedby $3
      set %pctime $ctime 
      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 4 >>>> 10world: 2 %world  5|| 10 scouted by:2 %scoutedby  5|| 10 suggested: 2 %suggest [ $+ [ $chan ] ] 4 <<<<
  /notice $nick 4 >>>> 3This pcw was Set $duration($calc($ctime - %pctime)) ago 4 <<<<. 
} 

on *:TEXT:!scouts:#: { 
  notice $nick 4 You have scouted %suggestedworlds [ $+ [ $iif($2,$2,$nick) ] ] world(s). 
}  
on *:text:@scouts:#: { 
  msg $chan 4 $nick You have scouted %suggestedworlds [ $+ [ $iif($2,$2,$nick) ] ] world(s). 
}
on *:text:!sets*:#sdpc: {
  if ($Nick isop $chan || $Nick ishop $chan) {
    notice $nick 4 you have set 11 %sets [ $+ [ $iif($2,$2,$nick) ] ] 4 world(s).
  }
}
on *:text:@sets*:#sdpc: {
  if ($Nick isop $chan || $Nick ishop $chan) {
    msg $chan 4 $Nick you have set 11 %sets [ $+ [ $iif($2,$2,$nick) ] ] 4 world(s).
  }
}

on *:text:!lazy*:#sdpc: { 
  if ($Nick isop $chan || $Nick ishop $chan) {
    set %world %suggest
    msg #sdpc 10 the pc world has been changed, type 2!pcw 10to see it!
    msg #pure_pride 2 the pc world in #sdpc has been changed to %world
  }
}