Something

alias stopdm { 
  /remini dm.ini $chan 
  /remini hp.ini $chan 
  /remini barrage.ini $chan 
  /remini food.ini $chan 
  /remini spec.ini $chan 
  /remini hit.ini $chan 
} 
on $*:TEXT:/^!(dm|deathmatch)/Si:#:{ 
  if ($chan == #cwhearts) { HALT }
  if ($readini(dm.ini,$chan,status) == on) {
    notice $nick There is allready a DM for $chan $+ ! 
    halt 
  } 
  if ($readini(dm.ini,$chan,Nick1) == $nick) { 
    notice $nick You cannot hit yourself!...or can you.. 
    halt
  } 
  if ($readini(dm.ini,$chan,status) == $null) { 
    /writeini dm.ini $chan status startup 
    /writeini dm.ini $chan Nick1 $nick 
    /writeini hp.ini $chan Nick1 99 
    /writeini barrages.ini $chan Nick1 5 
    /writeini food.ini $chan Nick1 25 
    /writeini spec.ini $chan Nick1 100 
    /msg $chan 2Type !dm to take on $nick $+ ! (Wins: $readini(dmscores.ini,wins,$nick) Losses: $readini(dmscores.ini,losses,$nick) $+ ) 
    halt 
  } 
  if ($readini(dm.ini,$chan,status) == startup) { 
    /timer $+ $chan $+ 5 off 
    /timer $+ $chan $+ 4 off 
    /writeini dm.ini $chan status on 
    /writeini hp.ini $chan Nick2 99 
    /writeini barrages.ini $chan Nick2 5 
    /writeini food.ini $chan Nick2 25 
    /writeini dm.ini $chan Nick2 $nick 
    /writeini spec.ini $chan Nick2 100 
    /var %turn = $rand(1,2) 
    /msg $chan 3 $+ $readini(dm.ini,$chan,Nick2) (Wins: $readini(dmscores.ini,wins,$readini(dm.ini,$chan,nick2)) Losses: $readini(dmscores.ini,losses,$readini(dm.ini,$chan,nick2)) $+ ) 2has decided to take on3 $readini(dm.ini,$chan,Nick1) (Wins: $readini(dmscores.ini,wins,$readini(dm.ini,$chan,nick1)) Losses: $readini(dmscores.ini,losses,$readini(dm.ini,$chan,nick1)) $+ ) $+ 2! 
    if (%turn == 1) { writeini turn.ini $chan turn 1 | msg $chan 2 $+ $readini(dm.ini,$chan,nick1) 2gets the first attack! | halt } 
    if (%turn == 2) { writeini turn.ini $chan turn 2 | msg $chan 2 $+ $readini(dm.ini,$chan,nick2) 2gets the first attack! | halt } 
    halt 
  } 
} 
on $*:TEXT:/^!(whip|flick)/Si:#:{ 
  if ($readini(dm.ini,$chan,status) == $null) { 
    /notice $nick There is no DM going on for $chan $+ ! 
    halt 
  } 
  if ($readini(dm.ini,$chan,status) == startup) { 
    /notice $nick We need one more person before you can attack! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 2) { 
    /notice $nick It is not your turn! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 1) { 
    /notice $nick It is not your turn! 
    halt 
  } 
  if ($readini(dm.ini,$chan,Nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 1) { 
    /writeini hit.ini $chan hit $rand(0,45) 
    if ($calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 3 $+ $readini(dm.ini,$chan,Nick1) 2hits a3 $readini(hp.ini,$chan,nick2) 2on3 $readini(dm.ini,$chan,Nick2) 2leaving them with 302 hp.3 $readini(dm.ini,$chan,Nick1) 2has won the match! 
      set %loot $rand(1,1)
      if ((%loot == 1)) msg $chan $Nick receives a whopping 500k from $Nick!!
      /writeini dmscores.ini wins $readini(dm.ini,$chan,Nick1) $calc($readini(dmscores.ini,wins,$readini(dm.ini,$chan,Nick1)) + 1) 
      /writeini dmscores.ini losses $readini(dm.ini,$chan,Nick2) $calc($readini(dmscores.ini,losses,$readini(dm.ini,$chan,Nick2)) + 1) 
      /stopdm      
      halt 
    } 
    else { 
      /writeini hp.ini $chan nick2 $calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) 
      /msg $chan 3 $+ $readini(dm.ini,$chan,Nick1) 2hits a3 $readini(hit.ini,$chan,hit) $+ 2.3 $readini(dm.ini,$chan,Nick2) 2has3 $readini(hp.ini,$chan,Nick2) 2hp left. $health(Nick2) 
      /writeini turn.ini $chan turn 2 
      if ($readini(spec.ini,$chan,Nick1) < 100) { writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,Nick1) + 5) } 
      /remini hit.ini $chan 
      halt    
    }  
  } 
  if ($readini(dm.ini,$chan,Nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) {      
    /writeini hit.ini $chan hit $rand(0,45) 
    if ($calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 3 $+ $readini(dm.ini,$chan,Nick2) 2hits a3 $readini(hp.ini,$chan,nick1) 2on3 $readini(dm.ini,$chan,Nick1) 2leaving them with 302 hp.3 $readini(dm.ini,$chan,Nick2) 2has won the match! 
      set %loot $rand(1,1)
      if ((%loot == 1)) msg $chan $nick receives a whopping 500k from $nick!!
      /writeini dmscores.ini wins $readini(dm.ini,$chan,Nick2) $calc($readini(dmscores.ini,wins,$readini(dm.ini,$chan,Nick2)) + 1) 
      /writeini dmscores.ini losses $readini(dm.ini,$chan,Nick1) $calc($readini(dmscores.ini,losses,$readini(dm.ini,$chan,Nick1)) + 1) 
      stopdm 
      halt 
    } 
    else { 
      /writeini hp.ini $chan Nick1 $calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) 
      /msg $chan 3 $+ $readini(dm.ini,$chan,Nick2) 2hits a3 $readini(hit.ini,$chan,hit) $+ 2.3 $readini(dm.ini,$chan,Nick1) 2has3 $readini(hp.ini,$chan,Nick1) 2hp left. $health(Nick1) 
      /writeini turn.ini $chan turn 1 
      if ($readini(spec.ini,$chan,Nick2) < 100) { writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      /remini hit.ini $chan 
    } 
  } 
}