Unnamed

on *:TEXT:!dm:#: { 
  if (!%dm) {
    set %player1 $nick
    set %dm oneplayer
    msg $chan $nick has started a deathmatch, wont to challange him? type !dm.
  }
  else {
    if ($nick != %player1) && (%dm == oneplayer) {
      set %player2 $nick
      set %r $r(1,2)
      if (%r == 1) {
        set %shot %player1
      }
      if (%r == 2) {
        set %shot %player2
      }
      msg $chan $nick accepts %player1 $+ 's challange, %shot will start.
      notice %shot Its your turn!
      set %dm ready
    }
  }
  else {
    if ($nick == %player1) {
      msg $chan %player1 is an emo and wonts to kill himself
    }
  }
  else {
    if (%dm == ready) {
      notice $nick Sorry there is allready a death match running.
    }
  }
}
on *:TEXT:!whip:#: {
  if (%dm == ready) && ($nick == %player1) && (%shot == $nick) {
    set %hit $r(1,40)
    dec %hp2 %hit
    if (%hp2 < 1) {
      set %hp2 0
      msg $chan %player1 K0's %player2 with a %hit leaving %player2 with 0 hp!
      /dmoff
    }
  }
  else {
    if (%hp2 > 1) {
      msg $chan$+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
      msg $chan %player1 hits a %hit on %player2 leaving him with %hp2 $+ . Its now %player2 $+ 's shot!
      set %shot %player2
      notice %player2 Its your shot!
    }
  }
  else {
    if (%dm == ready) && ($nick == %Player2) && (%shot == $nick) {
      set %hit $r(1,40)
      dec %hp1 %hit
      if (%hp1 < 1) {
        set %hp1 0
        msg $chan %player1 K0's %player1 with a %hit leaving %player1 with 0 hp!
        /dmoff
      }
    }
  }
  else {
    if (%hp1 > 1) {
      msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
      msg $chan %player2 hits a %hit on %player1 leaving him with %hp1 $+ . Its now %player1 $+ 's shot!
      set %shot %player1
      notice %player1 Its your shot!
    }
  }
}
alias dmoff {
  unset %dm
  unset %player1
  unset %Player2
  unset %r
  unset %shot
  unset %hp1
  unset %hp2
}