Slap count

on *:text:!dm*:#: {
  if (%dm2 == active) {
    msg $chan a duel is already active please wait for it to end.
  }
  if (%dm1 == active) {
    set %p2 $nick
    msg $chan the match is set! %p1 vs %p2
    set %dm2 active
    set %p1hp 99
    set %p2hp 99
    set %spec1 0
    set %spec2 0
    set %turn player1
  }
  else {
    set %dm1 active
    set %p1 $nick
    msg $chan $nick Started a Death Match, are you brave enough to join him? type !dm if so.
  }
}
on *:text:!dds*:#: {
  if (%turn == player1) {
    if ($nick == %p1) {
      if (%spec1 < 4) {
        set %hit1 $rand(0,33)
        set %hit2 $rand(0,33)
        inc %spec1 1
        msg $chan %p1 has hit %hit1 and %hit2
        dec %p1hp %hit1
        decrease %p1hp %hit2
        msg $chan %p2 has %p2hp hp left
        set %turn player2
      }
      else {
        notice %p1 you are out of specials.
      }
    }
  }
}
on *:text:!dds*:#: {
  if (%turn == player2) {
    if ($nick == %p2) {
      if (%spec2 < 4) {
        set %hit1 $rand(0,33)
        set %hit2 $rand(0,33)
        inc %spec2 1
        msg $chan %p2 has hit %hit1 and %hit2
        dec %p1hp %hit1
        dec %p1hp %hit2
        msg $chan %p1 has %p2hp hp left
        set %turn player1
      }
      else {
        notice %p2 you are out of specials.
      }
    }
  }
}
on *:text:!tele:#:{
  if (%p1 == $nick) || (%p2 == $nick) {
    msg $chan $nick loses the Death Match by Teleing away...What a nub!
    unset %turn
    unset %hit1
    unset %hit2
    unset %p1hp
    unset %p2hp
    unset %p1
    unset %p2
    unset %spec1
    unset %spec2
    unset %dm1
    unset %dm2  
  }
}