On $*:text:/^[!@.]setp(cw|cworld)/Si:#ana:{

  if (%arpc == on) {
    if ($nick isop $chan) || ($nick ishop $chan) { 
      if ($2 isnum 2-144) {
        hadd -m arpc world $3
        hadd -m arpc setter $nick
        hadd -m arpc tset $ctime
        msg $chan World: $hget(arpc, world) Set by: $hget(arpc, setter) Set for: $duration($calc($ctime - $hget(arpc, tset)))
        msg #arpc 7New World Set by:4 $hget(arpc, setter)
      }
      else { 
        notice $nick error: $2 is not number
      }
    }
  }
}
On $*:text:/^[!@.](pcw|world|w)/Si:#arpc,#ana:{
  if (%arpc == on) { 
    if ($hget(arpc, world) != $null) {
      .notice $nick 4[World]2 $hget(arpc, world) $iif(($hget(arpc, suggested) != $null),4[Suggested]2 $hget(arpc, suggested) 4[Suggested by]2 $hget(arpc, suggester),$null) 4[Set by]2 $hget(arpc, setter) 4[Set for]2 $duration($calc($ctime - $hget(arpc, tset)))
    }
    else {
      notice $nick  No current world atm
    }
  }
}
On $*:text:/^[!@.]suggest/Si:#arpc:{
  if (%arpc == on) {
    if ($nick !isreg $chan) { 
      if ($2 isnum 2-144) {
        hadd -m arpc suggested $2
        hadd -m arpc suggester $nick
        msg #ana $nick has suggested $2
        msg #arpc There is now a suggested world -> suggested by $nick
      }
      else { 
        notice $nick error: $2 is not number
      }
    }
  }
}
on *:TEXT:!shutdown*:#ana:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 == $me) {
      pcwoff
    }
  }
}
on *:TEXT:!start*:#ana:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 == $me) {
      pcwon
    }
  }
}
alias pcwoff {
  set %arpc off
  msg #ana My pcw scripts are now off to start them !start $me
}
alias pcwon {
  set %arpc on
  msg #ana My pcw scripts are now on to shut them down !shutdown $me
}