on *:TEXT:!setpkw*:?: {  
  if ($nick isop #wildernis) || ($nick isop #dragonfire) || ($nick isop #d-pk) || ($nick == Fastbow15) {  
    set %pkworld $2
    msg #d-pk 8,1the pkworld has been changed by7 $nick
  } 
}
on *:TEXT:*!pkw*:*: { if ($chan == #dragonfire) halt
  {
    if (%pkworld == $null) notice $nick 8,1Sorry, but there is no world set.
    elseif ($nick isvoice #dragonfire) || ($nick ishop #dragonfire) || ($nick isop #dragonfire) || ($nick isvoice #d-pk) || ($nick ishop #d-pk) || ($nick isop #d-pk) || ($nick == smooth_dudes) {
      notice $nick 7 %pkworld 4is the recommended world on7 #d-pk  
    }
  }
}
on *:TEXT:!nopkw*:?: {
  if ($nick isop #wildernis) || ($nick isop #smooth) || ($nick isop #d-pk) || ($nick == Fastbow15) {
    unset %pkworld
    msg #d-pk 8,1The pking world has now been reset by7 $nick
  }
  else notice $nick 8,1Sorry, but only op's can reset the pkworld.
}

on 1:JOIN:#d-pk: {
  /notice $nick 7welcome 4 $nick 6enjoy 10your 11stay 13at 12#d-pk ;O) type !pkw for current pking world... ENJOY
}

on *:TEXT:!setevent*:?: {
  if ($nick isop #wildernis) || ($nick isop #smooth) || ($nick isop #dragonfire) || ($nick == Fastbow15)  {
    set %event $2-
    msg #dragonfire 8,1A new event has been set by7 $nick4 type7 !event4 to see it
  }
  else notice $nick 8,1Sorry but only ops can change the event.
}

on *:TEXT:!event:*: { 
  if (%event == $null) notice $nick 8,1Sorry, but there is no world set.
  elseif ($nick isvoice #dragonfire) || ($nick ishop #dragonfire) || ($nick isop #dragonfire) || ($nick isop #smooth) || ($nick == smooth_dudes) {
    notice $nick 13[7 event 13]8,1 %event
  }
}
on *:TEXT:!noevent*:?: {
  if ($nick isop #wildernis) || ($nick isop #smooth) || ($nick isop #dragonfire) || ($nick == Fastbow15) {
    unset %event
    msg #dragonfire 8,1The event has now been reset by8 $nick
  }
  else notice $nick 8,1Sorry but only ops can reset the event.
}