alias whipmax {
  set %whipmax $1
  echo 2 -at *** max hit for whip is now $1
}
alias dmoff {
  unset %player1 [ $+ [ $chan ] ]
  unset %player2 [ $+ [ $chan ] ]
  unset %hp1 [ $+ [ $chan ] ]
  unset %hp2 [ $+ [ $chan ] ]
  unset %whip [ $+ [ $chan ] ]
  unset %dds [ $+ [ $chan ] ]
  unset %turn2 [ $+ [ $chan ] ]
  unset %turn [ $+ [ $chan ] ]
  unset %dm [ $+ [ $chan ] ]
}
on *:text:!dm:#pkdm:{
  if (!%dm [ $+ [ $chan ] ]) {
    msg $chan dm request starting.
    set %dm [ $+ [ $chan ] ] $chan
    set %player1 [ $+ [ $chan ] ] $nick
    set %request [ $+ [ $chan ] ] on
  }
  elseif (%request [ $+ [ $chan ] ] == on) && (!%player2 [ $+ [ $chan ] ]) && (%player1 [ $+ [ $chan ] ] != $nick) && (%dm [ $+ [ $chan ] ]) {
    set %player2 [ $+ [ $chan ] ] $nick
    unset %request [ $+ [ $chan ] ]
    $iif($rand(0,1),set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ],set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ])
    set %hp1 [ $+ [ $chan ] ] 99
    set %hp2 [ $+ [ $chan ] ] 99
    set %whip [ $+ [ $chan ] ] $rand(0,40)
    set %turn2 [ $+ [ $chan ] ] $iif(%turn [ $+ [ $chan ] ] == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ])
    msg $chan dm starting... %turn [ $+ [ $chan ] ] goes first.
  }
  elseif (%player1 [ $+ [ $chan ] ] == $nick) {
    notice %player1 [ $+ [ $chan ] ] you can't dm yourself.
  }
  elseif (%dm [ $+ [ $chan ] ]) && (!%request [ $+ [ $chan ] ]) && (%player2 [ $+ [ $chan ] ]) {
    notice $nick there is already an active dm in $chan
  }
}
on *:text:!turn:#pkdm:{
  if (%dm [ $+ [ $chan ] ]) {
    notice $nick it is currently $+(%turn [ $+ [ $chan ] ],'s) turn for the active dm in $chan
  }   
  elseif (!%dm [ $+ [ $chan ] ]) {
    notice $nick there is not an active dm in $chan
  }
}
on *:text:!whip:#pkdm:{
  if (%turn [ $+ [ $chan ] ] == %player1 [ $+ [ $chan ] ]) && (%turn [ $+ [ $chan ] ] == $nick) && (- !isin %hp2 [ $+ [ $chan ] ]) {
    set %whip [ $+ [ $chan ] ] $rand(0,%whipmax)
    msg $chan %turn [ $+ [ $chan ] ] inflicts %whip [ $+ [ $chan ] ] on $+(%turn2 [ $+ [ $chan ] ],$chr(44)) and leaves %turn2 [ $+ [ $chan ] ] with $iif(- isin $c(%hp2 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ]),0,$c(%hp2 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ]))
    set %hp2 [ $+ [ $chan ] ] $c(%hp2 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ])
    var %turn1 [ $+ [ $chan ] ] %turn [ $+ [ $chan ] ]
    set %turn [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn2 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    $iif(- isin %hp2 [ $+ [ $chan ] ],msg $chan %player2 [ $+ [ $chan ] ] has been defeated by %player1 [ $+ [ $chan ] ],msg $chan it is now $+(%turn [ $+ [ $chan ] ],'s) turn)
  }
  elseif (%turn [ $+ [ $chan ] ] == %player2 [ $+ [ $chan ] ]) && (%turn [ $+ [ $chan ] ] == $nick) && (- !isin %hp1 [ $+ [ $chan ] ]) {
    set %whip [ $+ [ $chan ] ] $rand(0,%whipmax)
    msg $chan %turn [ $+ [ $chan ] ] inflicts %whip [ $+ [ $chan ] ] on $+(%turn2 [ $+ [ $chan ] ],$chr(44)) and leaves %turn2 [ $+ [ $chan ] ] with $iif(- isin $c(%hp1 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ]),0,$c(%hp1 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ]))
    set %hp1 [ $+ [ $chan ] ] $c(%hp1 [ $+ [ $chan ] ] - %whip [ $+ [ $chan ] ])
    var %turn1 [ $+ [ $chan ] ] %turn [ $+ [ $chan ] ]
    set %turn [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn2 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    $iif(- isin %hp1 [ $+ [ $chan ] ],msg $chan %player1 [ $+ [ $chan ] ] has been defeated by %player2 [ $+ [ $chan ] ],msg $chan it is now $+(%turn [ $+ [ $chan ] ],'s) turn)
  }
  elseif (- isin %hp2 [ $+ [ $chan ] ]) {
    msg $chan %player2 [ $+ [ $chan ] ] has been defeated by %player1 [ $+ [ $chan ] ]
    dmoff
  }
  elseif (- isin %hp1 [ $+ [ $chan ] ]) {
    msg $chan %player1 [ $+ [ $chan ] ] has been defeated by %player2 [ $+ [ $chan ] ]
    dmoff
  }
}
on *:text:!stop:#pkdm:{
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick isop %dm [ $+ [ $chan ] ]) || ($wildsite = $address($me,2)) || ($nick == %player1 [ $+ [ $chan ] ]) || ($nick == %player2 [ $+ [ $chan ] ]) {
      msg $chan unsetting the current dm on request of $nick
      unset %player1 [ $+ [ $chan ] ]
      unset %player2 [ $+ [ $chan ] ]
      unset %hp1 [ $+ [ $chan ] ]
      unset %hp2 [ $+ [ $chan ] ]
      unset %whip [ $+ [ $chan ] ]
      unset %dds [ $+ [ $chan ] ]
      unset %turn2 [ $+ [ $chan ] ]
      unset %turn [ $+ [ $chan ] ]
      unset %dm [ $+ [ $chan ] ]
    }
    elseif ($nick !isop %dm [ $+ [ $chan ] ]) || ($wildsite != $address($me,2)) || ($nick != %player1 [ $+ [ $chan ] ]) || ($nick == %player2 [ $+ [ $chan ] ]) {
      notice $nick access denied.
    }
  }
  elseif (!%dm [ $+ [ $chan ] ]) {
    notice $nick there is not an active dm in $chan
  }
}