on $*:TEXT:/^[!@]PKw(orld)?( on)/Si:#: { 
  if ($nick isop $chan || $nick ishop $chan) {
    set %pkworldonoff [ $+ [ $chan ] ] on
    msg $chan The pkworld script for $chan is now on
  }
}
on $*:TEXT:/^[!@]PKw(orld)?( off)/Si:#: { 
  if ($nick isop $chan || $nick ishop $chan) {
    set %pkworldonoff [ $+ [ $chan ] ] off
    msg $chan The pkworld script for $chan is now off
  }
}
on $*:TEXT:/^[!@]setPKw(orld)?/Si:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (%pkworldonoff [ $+ [ $chan ] ] == off) { halt }
    if (!$2) {
      msg $chan please select a world
    }
    else {
      set %pkworld [ $+ [ $chan ] ] $2-
      msg $chan The pkworld for $chan is $2-
    }
  }
}
on $*:TEXT:/^[!@]PKw(orld)?/Si:#: { 
  if ($nick !isreg $chan) {
    if (%pkworldonoff [ $+ [ $chan ] ] == off) { halt }
    $iif(!%pkworld [ $+ [ $chan ] ],msg $chan there is no pkw for $chan,msg $chan the pkw for $chan is %pkworld [ $+ [ $chan ] ])
  }
}