Someone

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

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

on *:text:!l*:#sdpc_staff: { 
  if ($Nick isop $chan || $Nick ishop $chan) {
    inc %sets
    set %world %suggest 
    set %pctime $ctime
    set %scoutedby $2
    msg #sdpc 10 the pc world has been changed, type 2!pcw 10to see it!
  }
}