Untitled

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) $+ . }
        else { /notice $nick 4put [PD] in your name to see the PKing world example: /nick [PD] $nick }
        if (%pdpk == OFF) {
        /notice $nick 4PKers8-7Dinasty 5is not currently PKing }
}
}