Anonymous

alias health {
  if ($readini(hp.ini,$chan,$1) >= 96) { return 9,9......................... }
  elseif ($readini(hp.ini,$chan,$1) >= 91) { return 9,9........................4,4. }
  elseif ($readini(hp.ini,$chan,$1) >= 86) { return 9,9.......................4,4.. }
  elseif ($readini(hp.ini,$chan,$1) >= 81) { return 9,9......................4,4... } 
  elseif ($readini(hp.ini,$chan,$1) >= 76) { return 9,9.....................4,4.... }
  elseif ($readini(hp.ini,$chan,$1) >= 71) { return 9,9....................4,4..... }
  elseif ($readini(hp.ini,$chan,$1) >= 66) { return 9,9...................4,4...... }
  elseif ($readini(hp.ini,$chan,$1) >= 61) { return 9,9..................4,4....... } 
  elseif ($readini(hp.ini,$chan,$1) >= 56) { return 9,9.................4,4........ }
  elseif ($readini(hp.ini,$chan,$1) >= 51) { return 9,9................4,4......... }
  elseif ($readini(hp.ini,$chan,$1) >= 46) { return 9,9...............4,4.......... }
  elseif ($readini(hp.ini,$chan,$1) >= 41) { return 9,9..............4,4........... } 
  elseif ($readini(hp.ini,$chan,$1) >= 36) { return 9,9.............4,4............ }
  elseif ($readini(hp.ini,$chan,$1) >= 31) { return 9,9............4,4............. }
  elseif ($readini(hp.ini,$chan,$1) >= 26) { return 9,9...........4,4.............. }
  elseif ($readini(hp.ini,$chan,$1) >= 21) { return 9,9..........4,4............... } 
  elseif ($readini(hp.ini,$chan,$1) >= 16) { return 9,9.........4,4................ }
  elseif ($readini(hp.ini,$chan,$1) >= 11) { return 9,9........4,4................. }
  elseif ($readini(hp.ini,$chan,$1) >= 6) { return 9,9.......4,4.................. 
  }
}
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:/^[.~`]dmcommands/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
    }
  }
}