Untitled

on $*:TEXT:/^[!@.]pcw|w(orld)/Si:#: { 
  if ($nick isreg $chan) {
    notice $nick You need voice plus to access this command. 
  }
  elseif (!%pcw. [ $+ [ $chan ]]) {
    notice $nick No Pest World has been Set for this channel!, type !suggest (world) to suggest a world  
  }
  elseif (!%pcwsuggest. [ $+ [ $chan ] ]) {
    set %msg $iif($left($1,1) == @,msg $chan,notice $nick)
    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 
  }
  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:!suggest *:*: {
  if ($2 isnum 2-140) {
    set %pcwsuggest. [ $+ [ $chan ] ] 
    msg $chan  $nick has suggest world $2 for $chan
  }
  else Syntax : !suggest <WORLD>
}