Something

on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-140) {
    writeini Pcw.ini $chan W $2 $nick $ctime
    msg $chan The current PCW has been set to $2 by $nick $+ !
  }
}
on *:TEXT:!pcw:#:{
  if ($readini(Pcw.ini,-n,$chan,W)) {
    tokenize 32 $ifmatch $readini(Pcw.ini,-n,$chan,S)
    notice $nick The current world is $1 set by $2 $+ , $duration($calc( $ctime - $3 )) ago $iif($4,The suggested world is $4 suggested by $5 $+ , $duration($calc( $ctime - $6 )) ago
  }
}
on *:TEXT:!suggest*:#:{
  if ($2 !isnum 2-140) { halt }
  writeini Pcw.ini $chan S $2 $nick
  writeini Pcw.ini $chan $nick $calc( $readini(Pcw.ini,-n,$chan,$nick) + 1 )
  msg $chan 1 $+ $nick Has suggested 12 $+ $2
}
on *:TEXT:!lazy*:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    writeini Pcw.ini $chan W $readini(Pcw.ini,-n,$chan,SE) $ctime
    msg $chan The world has been set to $gettok($readini(Pcw.ini,-n,$chan,SE),1,32)
  }
}
on *:TEXT:!scouts:#:{
  notice $nick You have suggested $iif($readini(Pcw.ini,-n,$chan,$nick),$ifmatch,0) worlds
}