Miscellany

On $*:text:/^[!@.~]pk(w|world)/Si:#:{
  if ($nick !isreg $chan) {
    set %target.pk $iif(($left($1,1) == @) || ($left($1,1) == ~),msg $chan,notice $nick)
    if ($hget($chan, pkw) == $null) {
      if ($nick ishop $chan) || ($nick isop $chan) {
        %target.pk No Pking world or location at the moment to set use !pkhelp
        unset %target.pk
      }
      else {
        %target.pk No Pking world or location at the moment
        unset %target.pk
      }
    }
    else {
      %target.pk 7[14PK Return7]4[World]2 $iif(($hget($chan, pkw) != $null),$hget($chan, pkw),-) 4[Location]2 $iif(($hget($chan, pkl) != $null),$hget($chan, pkl),-) 4[Set at]2 $iif(($hget($chan, pkt) != $null),$hget($chan, pkt) 7[12GMT7],-)                       
    }
  }
}
On $*:text:/^[!@.~]change/Si:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    set %target.pk $iif(($left($1,1) == @) || ($left($1,1) == ~),msg $chan,notice $nick)
    if ($2 !isnum) {
      %target.pk Please use: $1 world location
      unset %target.pk 
      if ($3 isnum) {
        %target.pk Please use: $1 world location
        unset %target.pk
      }
      else {
        hadd -m $chan pkw $2
        hadd -m $chan pkl $3-
        hadd -m $chan pkt $time on $date 
        msg $chan Pk world change - 4!pkw1 to view
        unset %target.pk
      }
    }
    else {
      hadd -m $chan pkw $2
      hadd -m $chan pkl $3-
      hadd -m $chan pkt $time on $date 

      msg $chan Pk world change - 4!pkw1 to view
      unset %target.pk
    }

  }
  else {
    notice $nick Access denied.
  }
}
On $*:text:/^[!@.~]pkhelp/Si:#:{
  if ($nick isop $chan) || ($nick isop $chan) {
    notice $nick To set a pkw: use !change World Location extra info
    notice $nick To unset world use: !unset pk
  }
}
On $*:text:/^[!@.~]unsetpk/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) { 
    hdel $chan pkw
    hdel $chan pkl
    hdel $chan pkt
    msg $chan Pkworld unset
  }
}