Something

on $*:TEXT:/(.*)/:#:{
  var %c = #scripts
  if ($chan == %c) {
    if ($nick isop $chan) {
      if ($1 == !pcw) notice $nick the current pcw is $hget(%c,pcw) $+ .
      if ($1 == !setpcw) {
        if ($2 isnum) {
          hadd -m %c off true
          hadd -m %c pcw $2
          msg %c new pcw set!
        }
      }
      if ($1 == !on) {
        notice $nick you have turned 'leaking' on.
        if ($hget(%c,off)) hdel %c off
      }
      if ($1 == !off) {
        notice $nick you have turned 'leaking' off.
        hadd %c off true
      }
    }
  }
  if ($nick == [PC]iKick) {
    if (!$hget(%c,off)) {
      var %world = $regsubex($1-,/^(?=.*current.*)[^0-9]+(\d+).*$/Si,\1)
      if (%world != $hget(%c,pcw)) {
        hadd -m %c pcw %world
        msg %c the pcw has been set! type !pcw to view it!
      }
    }
  }
}