Stuff

on $*:TEXT:/^[!@]pcscript (on|off)$/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    if ($2 == on) {
      if ($hget(pcwscript,$chan) == off) || (!$hget(pcwscript,$chan)) {
        hadd pcwscript $chan on
        msg $chan PCW Script enabled!
      }
      else {
        msg $chan PCW Script already enabled, noob.
      }
    }
    elseif ($2 == off) {
      if ($hget(pcwscript,$chan) == on) {
        hadd pcwscript $chan off
        msg $chan PCW Script DISABLED!
      }
      elseif ($hget(pcwscript,$chan) == off) || (!hget(pcwscript,$chan)) {
        msg $chan PCW Script wasn't on in the first place...
      }
    }
  }
}
on $*:TEXT:/^[!@](setpc|setpcw|setworld) +.$/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    if ($hget(pcwscript,$chan) != off) {
      hadd pcw $chan $2
      hadd pcwsetnicks $chan $nick
      hadd pcwsetsec $chan 0
      hinc -c pcwsetsec $chan 1
      msg $chan New world set by $nick $+ ! Type !world or !pcw to get the new world.
    }
    else {
      msg $chan Enable the PCW Script first!
    }
  }
  else {
    notice $nick Have to be op/hop to be able to do that.
  }
}
on $*:TEXT:/^!(pcw|world)$/Si:#: {
  if ($hget(pcwscript,$chan) == on) { 
    if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
      notice $nick Current PCW world is $hget(pcw,$chan) $+ . 
      notice $nick World was set by $hget(pcwsetnick,$chan) about $duration($hget(pcwsetsec,$chan),3) ago.
    }
    else {
      notice $nick You have to be voiced/hop/op to see the world.
    }
  }
  else {
    notice $nick PCW Script isn't even enabled...
  }
}