Untitled

on $*:TEXT:/^[!@.](DM|Duel)/Si:#:{
  if ($chan == #bots) || ($chan == #DmScript) { halt }
  if ($readini(dm.ini,$chan,Player1) == $nick) || ($readini(dm.ini,$chan,Player2) == $nick) {
    notice $nick $br(DM) $+ 14: 14You cannot accept your own challenge.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == on) {
    writeini dm.ini $chan Status on2
    writeini dm.ini $chan Player2 $nick
    writeini dm.ini $chan Shark1 10
    writeini dm.ini $chan Shark2 10
    writeini dm.ini $chan Hp1 99 
    writeini dm.ini $chan Hp2 99
    writeini dm.ini $chan Turn 1
    writeini dm.ini $chan Ddsspec1 4
    writeini dm.ini $chan Ddsspec2 4
    timer $+ $chan $+ 1 off
    timer $+ $chan $+ 2 off
    msg $chan $br(DM) $+ 14: 14The deathmatch sequence has BEGUN! Get ready to fight $br(Player 1) 14and $br(Player 2) $+ 14.
    msg $chan $br(DM) $+ 14: 14It's currently $br($readini(dm.ini,$chan,Player1)) $+ 's turn.
    notice $readini(dm.ini,$chan,Player1) $br(DM) $+ 14: 14You have $br(99) 14hitpoints and $br(10) 14sharks. 14To view my $br(deathmatch) 14commands please type: $br(!dmcommands)
    notice $readini(dm.ini,$chan,Player2) $br(DM) $+ 14: 14You have $br(99) 14hitpoints and $br(10) 14sharks. 14To view my $br(deathmatch) 14commands please type: $br(!dmcommands)
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini dm.ini $chan Status on
    writeini dm.ini $chan Player1 $nick
    msg $chan $br(DM) $+ 14: $br($nick) 14has initiated the $br(deathmatch) 14sequence! 14Timeout to accept: $br(30 seconds)
    timer $+ $chan $+ 1 1 30 msg $chan $br(DM) $+ 14: $br($readini(dm.ini,$chan,Player1)) 14does not seem to have a $br(challenger) $+ 14. Deathmatch sequence terminated. 
    timer $+ $chan $+ 2 1 30 remini dm.ini $chan
    halt 
  }
  if ($readini(dm.ini,$chan,Status) == on2) {
    notice $nick $br(DM) $+ 14: 14There is already a $br(deathmatch) 14going on.
    halt
  }
}