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)
  }