Miscellany

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 5has stopped 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 }
}
on *:TEXT:!setpk *:*:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if ($2- ) { 
      if (%pdpk == ON) { 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! } 
      if (%pdpk == OFF) { /notice $nick 4PdPk must be activated before you start setting worlds! }
    } 
  } 
}
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) $+ . }
    if (%pdpk == OFF) { notice $nick 4PKers8-7Dinasty 5is not currently PKing }
  }
  else { /notice $nick 4Put [PD] in your name to see the PKing world example: /nick [PD] $nick }
}