Someone

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 %hp2 99
      set %hp1 99
      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) { HALT }
  else {
    set %hit $r(1,40)
    set %hp2 $calc(%hp2 - %hit)
    if (%hp2 < 1) {
      msg $chan With a crushing blow ( $+ %hit $+ ) $nick kills %Player2
    }
  }
  if (%hp2 > 1) {
    msg $chan $nick hits a %hit on %Player2 who now has %hp2 hp left. Its now %player2 $+ 's turn
    notice %player2 its your turn
    set %shot %player2
  }
  elseif (%shot == %player2) && ($nick == %player2) {
    set %hit $r(1,40)
    set %hp1 $calc( $+ %hp1 - %hit $+ )
    if (%hp1 < 1) {
      msg $chan With a crushing blow ( $+ %hit $+ ) $nick kills %Player1
    }
  }
  if (%hp1 > 1) {
    msg $chan $nick hits a %hit on %Player1 who now has %hp1 hp left. Its now %player1 $+ 's turn
    notice %player1 its your turn
    set %shot %player1
  }
}