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 ($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 3 
    /writeini food.ini $chan Nick1 20 
    /writeini spec.ini $chan Nick1 100 
    /msg $chan 14Type !dm to take on7 $nick $+ 14! 14(Wins:7 $readini(dmscores.ini,wins,$nick) 14Losses:7 $readini(dmscores.ini,losses,$nick) $+ 14) 
    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 3 
    /writeini food.ini $chan Nick2 20 
    /writeini dm.ini $chan Nick2 $nick 
    /writeini spec.ini $chan Nick2 100 
    /var %turn = $rand(1,2) 
    /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14(Wins:7 $readini(dmscores.ini,wins,$readini(dm.ini,$chan,nick2)) 14Losses:7 $readini(dmscores.ini,losses,$readini(dm.ini,$chan,nick2)) $+ 14) 14has decided to take on7 $readini(dm.ini,$chan,Nick1) 14(Wins:7 $readini(dmscores.ini,wins,$readini(dm.ini,$chan,nick1)) 14Losses:7 $readini(dmscores.ini,losses,$readini(dm.ini,$chan,nick1)) $+ 14) $+ 14! 
    if (%turn == 1) { writeini turn.ini $chan turn 1 | msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14gets the first attack! | halt } 
    if (%turn == 2) { writeini turn.ini $chan turn 2 | msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14gets 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,50) 
    if ($calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hp.ini,$chan,nick2) 14on7 $readini(dm.ini,$chan,Nick2) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,Nick1) 14has won the match! 
      /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 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp 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,30) 
    if ($calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hp.ini,$chan,nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,Nick2) 14has won the match! 
      /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 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp 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 
    } 
  } 
} 
on $*:TEXT:/^[!@](end|halt|stop)(dm|deathmatch)/Si:#:{ 
  if ($readini(dm.ini,$chan,status) == $null) { 
    notice $nick There is no DM for $chan $+ ! 
    halt 
  } 
  if ($nick == Quan_Leo) { halt } 
  if ($readini(dm.ini,$chan,status) == startup) || ($readini(dm.ini,$chan,status) == on) { 
    if ($nick isop $chan) || ($readini(dm.ini,$chan,nick1) == $nick) || ($readini(dm.ini,$chan,nick2) == $nick) { 
      msg $chan 14The DM has been halted by7 $nick $+ 14. 
      stopdm 
      halt 
    } 
    else { 
      notice $nick You need to be an op or a DM player. 
    } 
  } 
} 
on $*:TEXT:/^!dds/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(spec.ini,$chan,nick1) < 25) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(spec.ini,$chan,nick2) < 25) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 1) && ($readini(spec.ini,$chan,nick1) >= 25) { 
    /writeini hit.ini $chan hit1 $rand(0,40) 
    /writeini hit.ini $chan hit2 $rand(0,35) 
    if ($calc($readini(hp.ini,$chan,Nick2) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a total of7 $readini(hp.ini,$chan,nick2) 14on7 $readini(dm.ini,$chan,Nick2) 14Leaving them with 7014 hp.7 $readini(dm.ini,$chan,Nick1) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hit.ini,$chan,hit1) 14and a7 $readini(hit.ini,$chan,hit2) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp left. $health(Nick2) 
      /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,Nick1) - 25) 
      /notice $nick You now have $readini(spec.ini,$chan,nick1) $+ % spec energy left.      
      /writeini turn.ini $chan turn 2 
      if ($readini(spec.ini,$chan,Nick1) < 100) { /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      /remini hit.ini $chan 
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) && ($readini(spec.ini,$chan,nick2) >= 25) { 
    /writeini hit.ini $chan hit1 $rand(0,40) 
    /writeini hit.ini $chan hit2 $rand(0,35) 
    if ($calc($readini(hp.ini,$chan,nick1) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a total of7 $readini(hp.ini,$chan,nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14Leaving them with 7014 hp.7 $readini(dm.ini,$chan,Nick2) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hit.ini,$chan,hit1) 14and a7 $readini(hit.ini,$chan,hit2) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp left. $health(Nick1) 
      /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,Nick2) - 25) 
      /notice $nick You now have $readini(spec.ini,$chan,nick2) $+ % spec energy left. 
      /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 
      halt 
    } 
  } 
} 
on $*:TEXT:/^!msb/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(spec.ini,$chan,nick1) < 50) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(spec.ini,$chan,nick2) < 50) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 1) && ($readini(spec.ini,$chan,nick1) >= 50) { 
    /writeini hit.ini $chan hit1 $rand(0,25) 
    /writeini hit.ini $chan hit2 $rand(0,20) 
    if ($calc($readini(hp.ini,$chan,nick2) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14hits a total of7 $readini(hp.ini,$chan,Nick2) 14on7 $readini(dm.ini,$chan,Nick2) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,Nick1) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hit.ini,$chan,hit1) 14and a7 $readini(hit.ini,$chan,hit2) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp left. $health(Nick2) 
      /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,Nick1) - 50) 
      if ($readini(spec.ini,$chan,Nick1) < 100) { /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,nick1) + 5) } 
      /notice $nick You now have $readini(spec.ini,$chan,nick1) $+ % spec energy left. 
      /writeini turn.ini $chan turn 2 
      /remini hit.ini $chan 
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) && ($readini(spec.ini,$chan,nick2) >= 50) { 
    /writeini hit.ini $chan hit1 $rand(0,25) 
    /writeini hit.ini $chan hit2 $rand(0,20) 
    if ($calc($readini(hp.ini,$chan,nick1) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14hits a total of7 $readini(hp.ini,$chan,Nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick2) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hit.ini,$chan,hit1) 14and a7 $readini(hit.ini,$chan,hit2) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp left. $health(Nick1) 
      /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,Nick2) - 50) 
      if ($readini(spec.ini,$chan,Nick2) < 100) { /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      /notice $nick You now have $readini(spec.ini,$chan,nick2) $+ % spec energy left. 
      /writeini turn.ini $chan turn 1 
      /remini hit.ini $chan 
      halt 
    } 
  } 
} 
on $*:TEXT:/^!gmaul/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(spec.ini,$chan,nick1) < 100) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(spec.ini,$chan,nick2) < 100) { 
    /notice $nick You do not have enough spec energy! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 1) && ($readini(spec.ini,$chan,nick1) >= 100) { 
    /writeini hit.ini $chan hit1 $rand(0,20) 
    /writeini hit.ini $chan hit2 $rand(0,20) 
    /writeini hit.ini $chan hit3 $rand(0,10) 
    if ($calc($readini(hp.ini,$chan,nick2) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2) + $readini(hit.ini,$chan,hit3))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14hits a total of7 $readini(hp.ini,$chan,Nick2) 14on7 $readini(dm.ini,$chan,Nick2) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick1) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2) - $readini(hit.ini,$chan,hit3)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits7 $readini(hit.ini,$chan,hit1) $+ 14,7 $readini(hit.ini,$chan,hit2) $+ 14, and7 $readini(hit.ini,$chan,hit3) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp left. $health(Nick2) 
      /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,Nick1) - 100) 
      if ($readini(spec.ini,$chan,Nick1) < 100) { /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,nick1) + 5) } 
      /writeini turn.ini $chan turn 2      
      /notice $nick You now have $readini(spec.ini,$chan,nick1) $+ % spec energy left. 
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) && ($readini(spec.ini,$chan,nick2) >= 100) { 
    /writeini hit.ini $chan hit1 $rand(0,20) 
    /writeini hit.ini $chan hit2 $rand(0,20) 
    /writeini hit.ini $chan hit3 $rand(0,10) 
    if ($calc($readini(hp.ini,$chan,nick1) - $calc($readini(hit.ini,$chan,hit1) + $readini(hit.ini,$chan,hit2) + $readini(hit.ini,$chan,hit3))) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14hits a total of7 $readini(hp.ini,$chan,Nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick2) 14has won the match! 
      /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,hit1) - $readini(hit.ini,$chan,hit2) - $readini(hit.ini,$chan,hit3)) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits7 $readini(hit.ini,$chan,hit1) $+ 14,7 $readini(hit.ini,$chan,hit2) $+ 14, and7 $readini(hit.ini,$chan,hit3) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp left. $health(Nick1) 
      /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,Nick2) - 100) 
      if ($readini(spec.ini,$chan,Nick2) < 100) { /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      /writeini turn.ini $chan turn 1      
      /notice $nick You now have $readini(spec.ini,$chan,nick2) $+ % spec energy left. 
      halt 
    } 
  } 
} 
on $*:TEXT:/^!(eat|shark)/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) { 
    if ($readini(hp.ini,$chan,nick1) >= 80) { writeini hp.ini $chan nick1 99 
      /writeini food.ini $chan Nick1 $calc($readini(food.ini,$chan,nick1) - 1) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14has eaten a shark giving them7 $readini(hp.ini,$chan,nick1) $+ 14. $health(Nick1) 
      /notice $nick You now have $readini(food.ini,$chan,nick1) shark left. 
      /writeini turn.ini $chan turn 2 
      halt 
    } 
    else { 
      /writeini hp.ini $chan nick1 $calc($readini(hp.ini,$chan,nick1) + 20) 
      /writeini food.ini $chan Nick1 $calc($readini(food.ini,$chan,nick1) - 1) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14has eaten a shark giving them7 $readini(hp.ini,$chan,nick1) $+ 14. $health(Nick1) 
      /notice $nick You now have $readini(food.ini,$chan,nick1) shark left. 
      /writeini turn.ini $chan turn 2 
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) { 
    if ($readini(hp.ini,$chan,nick2) >= 80) { writeini hp.ini $chan nick2 99 
      /writeini food.ini $chan Nick2 $calc($readini(food.ini,$chan,nick2) - 1) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14has eaten a shark giving them7 $readini(hp.ini,$chan,nick2) $+ 14. $health(Nick2) 
      /notice $nick You now have $readini(food.ini,$chan,nick2) shark left. 
      /writeini turn.ini $chan turn 1 
      halt 
    } 
    else { 
      /writeini hp.ini $chan nick2 $calc($readini(hp.ini,$chan,nick2) + 20) 
      /writeini food.ini $chan Nick2 $calc($readini(food.ini,$chan,nick2) - 1) 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14has eaten a shark giving them7 $readini(hp.ini,$chan,nick2) $+ 14. $health(Nick2) 
      /notice $nick You now have $readini(food.ini,$chan,nick2) shark left. 
      /writeini turn.ini $chan turn 1 
      halt 
    } 
  } 
} 
on $*:TEXT:/^!check/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 check. 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) { 
    /notice $nick $readini(food.ini,$chan,nick1) shark. 
    /notice $nick $readini(barrages.ini,$chan,nick1) barrage cast. 
    /notice $nick $readini(spec.ini,$chan,nick1) $+ % spec energy. 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) { 
    /notice $nick $readini(food.ini,$chan,nick2) shark. 
    /notice $nick $readini(barrages.ini,$chan,nick2) barrage cast. 
    /notice $nick $readini(spec.ini,$chan,nick2) $+ % spec energy. 
    halt 
  } 
} 
on $*:TEXT:/^[`!]dmcommands/Si:#:{ 
  msg $nick 7-------Dm Commands------- 
  msg $nick 7!whip 
  msg $nick 7!msb14 (50% spec required) 
  msg $nick 7!dds14 (25% spec required) 
  msg $nick 7!gmaul14 (100% spec required) 
  msg $nick 7!(dh,gaxe)14 (Lower the HP, bigger the hit!) 
  msg $nick 7!barrage14 (Randomly freezes opponent for one turn) 
  msg $nick 7!check14 (Checks food, spec, and barrages) 
  msg $nick 7!eat14 (Heals 20 HP) 
  msg $nick 7!stopdm14 (Op, or dm player) 
  msg $nick 7-------Dm Commands------- 
} 
on $*:TEXT:/^!(dh|gaxe)/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) { 
    if ($readini(hp.ini,$chan,Nick2) <= 15) { /writeini hit.ini $chan hit $rand(30,99) }  
    elseif ($readini(hp.ini,$chan,Nick2) <= 30) { /writeini hit.ini $chan hit $rand(1,60) } 
    elseif ($readini(hp.ini,$chan,Nick2) <= 50) { /writeini hit.ini $chan hit $rand(0,30) } 
    elseif ($readini(hp.ini,$chan,Nick2) <= 99) { /writeini hit.ini $chan hit $rand(0,15) } 
    if ($calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14hits a total of7 $readini(hp.ini,$chan,Nick1) 14on7 $readini(dm.ini,$chan,Nick2) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick1) 14has won the match! 
      /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 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp left. $health(Nick2) 
      if ($readini(spec.ini,$chan,Nick1) < 100) { /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,nick1) + 5) } 
      /writeini turn.ini $chan turn 2      
      /remini hit.ini $chan      
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) { 
    if ($readini(hp.ini,$chan,Nick2) <= 15) { /writeini hit.ini $chan hit $rand(30,99) }  
    elseif ($readini(hp.ini,$chan,Nick1) <= 30) { /writeini hit.ini $chan hit $rand(1,60) } 
    elseif ($readini(hp.ini,$chan,Nick1) <= 50) { /writeini hit.ini $chan hit $rand(0,30) } 
    elseif ($readini(hp.ini,$chan,Nick1) <= 99) { /writeini hit.ini $chan hit $rand(0,15) } 
    if ($calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14hits a total of7 $readini(hp.ini,$chan,Nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick2) 14has won the match! 
      /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 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp left. $health(Nick1) 
      if ($readini(spec.ini,$chan,Nick2) < 100) { /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      /writeini turn.ini $chan turn 1      
      /remini hit.ini $chan      
      halt 
    } 
  } 
} 
on $*:TEXT:/^!(barrage|freeze)/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(barrages.ini,$chan,nick1) <= 0) { 
    /notice $nick You do not have enough barrage runes for that! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(barrages.ini,$chan,nick2) <= 0) { 
    /notice $nick You do not have enough barrage runes for that! 
    halt 
  } 
  if ($readini(dm.ini,$chan,nick1) == $nick) && ($readini(turn.ini,$chan,turn) == 1) && ($readini(barrages.ini,$chan,nick1) >= 1) { 
    /writeini hit.ini $chan hit $rand(0,30) 
    /var %barrage = $rand(0,5) 
    if ($calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick1) 14hits a total of7 $readini(hp.ini,$chan,Nick2) 14on7 $readini(dm.ini,$chan,Nick2) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick1) 14has won the match! 
      /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)) 
      /writeini barrages.ini $chan Nick1 $calc($readini(barrages.ini,$chan,nick1) - 1)      
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick2) 14has7 $readini(hp.ini,$chan,Nick2) 14hp left. $health(Nick2) 
      /notice $nick You know have $readini(barrages.ini,$chan,Nick1) barrages left.    
      if ($readini(spec.ini,$chan,Nick1) < 100) { /writeini spec.ini $chan Nick1 $calc($readini(spec.ini,$chan,nick1) + 5) } 
      if (%barrage == 2) { msg $chan 7 $+ $readini(dm.ini,$chan,Nick1) 14has successfully frozen7 $readini(dm.ini,$chan,nick2) 14for one turn! | remini hit.ini $chan | halt }    
      /writeini turn.ini $chan turn 2  
      /remini hit.ini $chan    
      halt 
    } 
  } 
  if ($readini(dm.ini,$chan,nick2) == $nick) && ($readini(turn.ini,$chan,turn) == 2) && ($readini(barrages.ini,$chan,nick2) >= 1) { 
    /writeini hit.ini $chan hit $rand(0,30) 
    /var %barrage = $rand(0,5) 
    if ($calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 7 $+ $readini(dm.ini,$chan,nick2) 14hits a total of7 $readini(hp.ini,$chan,Nick1) 14on7 $readini(dm.ini,$chan,Nick1) 14leaving them with 7014 hp.7 $readini(dm.ini,$chan,nick2) 14has won the match! 
      /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)) 
      /writeini barrages.ini $chan nick2 $calc($readini(barrages.ini,$chan,nick2) - 1)      
      /msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14hits a7 $readini(hit.ini,$chan,hit) $+ 14.7 $readini(dm.ini,$chan,Nick1) 14has7 $readini(hp.ini,$chan,Nick1) 14hp left. $health(Nick1) 
      /notice $nick You know have $readini(barrages.ini,$chan,nick2) barrages left.    
      if ($readini(spec.ini,$chan,Nick2) < 100) { /writeini spec.ini $chan Nick2 $calc($readini(spec.ini,$chan,nick2) + 5) } 
      if (%barrage == 2) { msg $chan 7 $+ $readini(dm.ini,$chan,Nick2) 14has successfully frozen7 $readini(dm.ini,$chan,nick1) 14for one turn! | remini hit.ini $chan | halt }    
      /writeini turn.ini $chan turn 1 
      /remini hit.ini $chan    
      halt 
    } 
  } 
}