Something

on $*:TEXT:/^[!@.]pcw|w(orld)/Si:#: { 
  if ($nick isreg $chan) {
    notice $nick You need voice plus to access this command.
    halt 
  }
  if (%pcw. [ $+ [ $chan ]] !== $null) {
    notice $nick No Pest World has been Set for this channel!, type !suggest (world) to suggest a world  
    halt 
  }
  if ($pcwsuggest [ $+ [ $chan ] ] !== $null) {
    set %msg $iif($left($1,1) == @,msg $chan,notice $nick)
    inc %pcwc. [ $+ [ $chan ]]
    msg $chan The Current Pc World is %pcw [ $+ [ $chan ] ] , Set by %pcwnick [ $+ [ $chan ] ] , Set approximatly $duration( $calc ( $ctime - %curtime [ $+ [ $chan ] ] ) )  
  }
  else 
  msg $chan The Current Pc World is %pcw [ $+ [ $chan ] ] , Set by %pcwnick [ $+ [ $chan ] ] , Set approximatly $duration( $calc ( $ctime - %curtime [ $+ [ $chan ] ] ) ) , Suggest World is %pcwsuggest [ $+ [ $chan ] ] .
}

On *:TEXT:!setpcw*:*: {
  if ($nick isreg $chan || $nick isvoice $chan) { 
    notice $nick You need Halfop + to set the PCW world for $chan 
    halt 
  }
  elseif ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-140) {
    set %pcw [ $+ [ $chan ] ] $2
    set %curtime [ $+ [ $chan ] ] $ctime
    set %pcwnick [ $+ [ $nick ] ] $nick
    msg $chan New PC World has been set Type: !pcw or !world to see it!
    msg $chan New PC World has been set Type: !pcw or !world to see it!
  }
}

on *:TEXT:!pcw suggest*:*: {
  if ($3 isnum 2-140) $3 {
    set %pcwsuggest [ $+ [ $chan ] ] 
    msg $chan  $nick has suggest world $3 for $chan
  }
  else Syntax : !pcw suggest <WORLD>
}