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 }