Mine

on *:TEXT:!setpk *:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    if ($2- != $null) { set %pkw $2- | msg $chan 7The current PK world has been changed! type !pk to see it! }
    if ($2 == $null) { set %pkw NONE | msg $chan No world has been set! }
  }
  else { notice $nick Only Ops/ Half-Ops can do that! }
}
on *:TEXT:!delpk:#: {
  if ($nick isop $chan || $nick ishop $chan) {
  set %pkw NONE | msg $chan All PK World records has been deleted! }
}
on *:TEXT:!pk:#: {
  if ($nick isreg $chan) { notice $nick You must have voice to see the world! }
  else { notice $nick 7The current PKing world for $chan is: %pkw }
}