on *:text:!dm*:#: {
if (stop isin $1) && ($nick isop $chan) {
if (!$readini,dm.ini,dm,status)) {
msg $chan There is no deathmatch in progress.
halt
}
msg $chan Deathmatch $($chr(35),%iv) (Players: $($readini(dm.ini,dm,player1),$chr(44),$chr(32),$readini(dm.ini,dm,player2) $+ $chr(41)
remini dm.ini dm
remini dm.ini $readini(dm.ini,dm,player1)
remini dm.ini $readini(dm.ini,dm,player2)
}
if ($readini(dm.ini,dm,status) != $null) && (!$readini(dm.ini,dm,player2)) { {
halt
}
if (!$readini(dm.ini,dm,player1) {
writeini dm.ini dm player1 $nick
writeini dm.ini dm status active
writeini dm.ini $nick hp 99
msg $chan $nick has initiated a deathmatch. To join type !dm (After 30 seconds, the deathmatch will be cancelled if no one joins)
.timerdm 1 30 msg $chan The deathmatch has been cancelled because no one joined within 30 seconds. To start a deathmatch type !dm | remini dm.ini dm | remini dm.ini $nick
halt
}
var %x = $rand(1,2)
inc %iv
writeini dm.ini dm player2 $nick
writeini dm.ini $nick hp 99
msg $chan Duel $($chr(35),%iv) started. 3Player 1: $readini(dm.ini,dm,player1) (Wins: $iif(!$readini(dm.ini,wl,$readini(dm.ini,dm,player1), 0, $readini(dm.ini,$readini(dm.ini,dm,player1)) $+ $chr(41) 4Player 2: $readini(dm.ini,dm,player2) $iif(!$readini(dm.ini,wl,$readini(dm.ini,dm,player1), 0, $readini(dm.ini,$readini(dm.ini,dm,player1)) $+ $chr(42)
.timerdm off
mode $chan +vvm $readini(dm.ini,dm,player1) $readini(dm.ini,dm,player2)
if (%x == 1) {
msg $chan 3It's $($readini(dm.ini,dm,player1),'s) turn! Type !dminst for the commands.
writeini dm.ini dm turn $readini(dm.ini,dm,player1)
halt
}
msg $chan 4It's $($readini(dm.ini,dm,player2),'s) turn! Type !dminst for the commands.
writeini dm.ini dm turn $readini(dm.ini,dm,player1)
}