DM

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 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 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 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,30) 
    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! 
      /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,30) 
    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! 
      /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 
    } 
  } 
} 
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 The DM has been halted by $nick $+ . 
      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,20) 
    /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 3 $+ $readini(dm.ini,$chan,Nick1) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick1) 2hits a3 $readini(hit.ini,$chan,hit1) 2and a3 $readini(hit.ini,$chan,hit2) $+ 2.3 $readini(dm.ini,$chan,Nick2) 2has3 $readini(hp.ini,$chan,Nick2) 2hp 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,20) 
    /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 3 $+ $readini(dm.ini,$chan,Nick2) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick2) 2hits a3 $readini(hit.ini,$chan,hit1) 2and a3 $readini(hit.ini,$chan,hit2) $+ 2.3 $readini(dm.ini,$chan,Nick1) 2has3 $readini(hp.ini,$chan,Nick1) 2hp 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 3 $+ $readini(dm.ini,$chan,nick1) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick1) 2hits a3 $readini(hit.ini,$chan,hit1) 2and a3 $readini(hit.ini,$chan,hit2) $+ 2.3 $readini(dm.ini,$chan,Nick2) 2has3 $readini(hp.ini,$chan,Nick2) 2hp 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 3 $+ $readini(dm.ini,$chan,nick2) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick2) 2hits a3 $readini(hit.ini,$chan,hit1) 2and a3 $readini(hit.ini,$chan,hit2) $+ 2.3 $readini(dm.ini,$chan,Nick1) 2has3 $readini(hp.ini,$chan,Nick1) 2hp 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 3 $+ $readini(dm.ini,$chan,nick1) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick1) 2hits3 $readini(hit.ini,$chan,hit1) $+ 2,3 $readini(hit.ini,$chan,hit2) $+ 2, and3 $readini(hit.ini,$chan,hit3) $+ 2.3 $readini(dm.ini,$chan,Nick2) 2has3 $readini(hp.ini,$chan,Nick2) 2hp 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 3 $+ $readini(dm.ini,$chan,nick2) 2hits a total of3 $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! 
      /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 3 $+ $readini(dm.ini,$chan,Nick2) 2hits3 $readini(hit.ini,$chan,hit1) $+ 2,3 $readini(hit.ini,$chan,hit2) $+ 2, and3 $readini(hit.ini,$chan,hit3) $+ 2.3 $readini(dm.ini,$chan,Nick1) 2has3 $readini(hp.ini,$chan,Nick1) 2hp 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 3 $+ $readini(dm.ini,$chan,nick1) 2has eaten a shark giving them3 $readini(hp.ini,$chan,nick1) $+ 2. $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 3 $+ $readini(dm.ini,$chan,nick1) 2has eaten a shark giving them3 $readini(hp.ini,$chan,nick1) $+ 2. $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 3 $+ $readini(dm.ini,$chan,nick2) 2has eaten a shark giving them3 $readini(hp.ini,$chan,nick2) $+ 2. $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 3 $+ $readini(dm.ini,$chan,nick2) 2has eaten a shark giving them3 $readini(hp.ini,$chan,nick2) $+ 2. $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:/^[`!]dcomms/Si:#:{ 
  notice $nick 4!whip 
  notice $nick 4!msb (50% spec required) 
  notice $nick 4!dds (25% spec required) 
  notice $nick 4!gmaul (100% spec required) 
  notice $nick 4!(dh,gaxe) (Lower the HP, bigger the hit!) 
  notice $nick 4!barrage (Randomly freezes opponent for one turn) 
  notice $nick 4!check (Checks food, spec, and barrages) 
  notice $nick 4!eat (Heals 20 HP) 
  notice $nick 4!stopdm (Op, or dm player) 
} 
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(3,70) }  
    elseif ($readini(hp.ini,$chan,Nick2) <= 30) { /writeini hit.ini $chan hit $rand(1,45) } 
    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 3 $+ $readini(dm.ini,$chan,nick1) 2hits a total of3 $readini(hp.ini,$chan,Nick1) 2on3 $readini(dm.ini,$chan,Nick2) 2leaving them with 302 hp.3 $readini(dm.ini,$chan,nick1) 2has 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 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) 
      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(3,70) }  
    elseif ($readini(hp.ini,$chan,Nick1) <= 30) { /writeini hit.ini $chan hit $rand(1,45) } 
    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 3 $+ $readini(dm.ini,$chan,nick2) 2hits a total of3 $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! 
      /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) 
      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,20) 
    /var %barrage = $rand(0,3) 
    if ($calc($readini(hp.ini,$chan,nick2) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 3 $+ $readini(dm.ini,$chan,nick1) 2hits a total of3 $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! 
      /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 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) 
      /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 3 $+ $readini(dm.ini,$chan,Nick1) 2has successfully frozen3 $readini(dm.ini,$chan,nick2) 2for 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,20) 
    /var %barrage = $rand(0,3) 
    if ($calc($readini(hp.ini,$chan,nick1) - $readini(hit.ini,$chan,hit)) <= 0) { 
      /msg $chan 3 $+ $readini(dm.ini,$chan,nick2) 2hits a total of3 $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! 
      /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 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) 
      /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 3 $+ $readini(dm.ini,$chan,Nick2) 2has successfully frozen3 $readini(dm.ini,$chan,nick1) 2for one turn! | remini hit.ini $chan | halt }    
      /writeini turn.ini $chan turn 1 
      /remini hit.ini $chan    
      halt 
    } 
  } 
}