on *:TEXT:!setpk *:*:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if ($2- ) { 
      set $+(%,pcw.,$chan) $2- | set $+(%,pcw.,$chan,.nick) $nick | set $+(%,pcw.,$chan,.time) $ctime | 
      .msg $chan 7The current 4PKing7 world has changed by 4 $eval($+(%,pcw.,$chan,.nick),2) $+ 7 ! 7Type 4!pk7 to see it! 
    } 
  } 
} 
on *:TEXT:!pk*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ([PD]* iswm $nick) {
if (%pdpk == ON){ 
  /notice $nick 4,1The current PKing world in which 7,1 $chan 4,1is in is:7,1 $eval($+(%,pcw.,$chan),2) $+ . 4,1And Was Last Set $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) ago by  $($+(%,pcw.,$chan,.nick),2) $+ . }
  else { /notice $nick 4put [PD] in your name to see the PKing world example: /nick [PD] $nick }
on *:text:!setpdpk *:#: {
  if ($nick isop $chan) {
    IF  ($2 == on) {
      set %pdpk ON
      msg $chan 4PKers8-7Dinasty 5is now PKing
    }
    If ($2 == off) {
      set %pdpk OFF
      msg $chan 4PKers8-7Dinasty 5stoped PKing
    }
  }
  else { notice $nick 4You can't set that! only ops can }
}
on *:text:!pdpk*:#: {
  IF (%pdpk == ON) {
    notice $nick 4PKers8-7Dinasty 5is now PKing type 4!pk 5to see the current PKing world
  }
  if (%pdpk == OFF) {
    notice $nick 4PKers8-7Dinasty 5is not currently PKing
  }