on *:TEXT:!dm:#PCGames: {
  if ($readini(dm.ini,GameChans,$chan) == 1Player) {
    if ($readini(dm.ini,$chan,Player1) == $nick) { .notice $nick $c1(You aren't allowed to play with yourself, we are very sorry) | HALT }
    writeini dm.ini $chan Player2 $nick
    writeini dm.ini GameChans $chan on
    writeini dm.ini $chan P2hp 99
    writeini dm.ini $chan P2spec 100
    writeini dm.ini $chan P2food 5
    msg $chan 4 $nick 12has Joined The DM. Game is4 $readini(dm.ini,$chan,Player1) 12-VS-4 $readini(dm.ini,$chan,Player2) $+ 12. Type !Dmcommands To View Attacks!
    if ($r(0,1) == 0) {
      writeini dm.ini $chan Turn Player1
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn. 
    }
    else {
      writeini dm.ini $chan Turn Player2
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn. 
    }
  }
  elseif ($readini(dm.ini,GameChans,$chan) != On) {
    writeini dm.ini GameChans $chan 1Player
    writeini dm.ini $chan Player1 $nick
    writeini dm.ini $chan P1hp 99
    writeini dm.ini $chan P1spec 100
    writeini dm.ini $chan P1food 5
    msg $chan $c2($nick) $c1(has initiated a Death Match. Type) $c2(!dm) $c1(to challenge) $c2($nick)
  }
}
on *:TEXT:!stopdm:#PCGames: {
  if ($nick !isreg $chan || $readini(dm.ini,$chan,Player1) == $nick || $readini(dm.ini,$chan,Player2) == $nick) {
    remini dm.ini $chan
    remini dm.ini GameChans $chan
    msg $chan The Death Match has been halted by $nick
    halt
    .notice $nick You have to be playing or a member of staff 
  }
}

on *:TEXT:!whip:#PCGames: {
  if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
    if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    writeini dm.ini $chan hit $r(0,35)
    writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) - $readini(dm.ini,$chan,hit))
    msg $chan $readini(dm.ini,$chan,Player1) Smacks $readini(dm.ini,$chan,Player2) with their Whip, Hitting a $readini(dm.ini,$chan,hit) $+ . 
    if ($readini(dm.ini,$chan,P2hp) > 0) {
      writeini dm.ini $chan Turn Player2
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player2) Has Died! $readini(dm.ini,$chan,Player1) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
  }
  elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
    if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    writeini dm.ini $chan hit $r(0,35)
    writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) - $readini(dm.ini,$chan,hit))
    msg $chan $readini(dm.ini,$chan,Player2) Smacks $readini(dm.ini,$chan,Player1) with their Whip, Hitting a $readini(dm.ini,$chan,hit) $+ .
    if ($readini(dm.ini,$chan,P1hp) > 0) {
      writeini dm.ini $chan Turn Player1
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player1) Has Died! $readini(dm.ini,$chan,Player2) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
  }
  else { .notice $nick Its not your turn or you are not playing a DM. }
}

on *:TEXT:!eat:#PCGames: {
  if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
    if ($readini(dm.ini,$chan,P1food) <= 0) { .notice $nick You Have No Food Left. | HALT }
    if ($calc($readini(dm.ini,$chan,P1hp) + 20) <= 99) {
      writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) + 20)
      msg $chan $readini(dm.ini,$chan,Player1) Eats. $hpbar($readini(dm.ini,$chan,P1hp))
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn.
      writeini dm.ini $chan Turn Player2
      writeini dm.ini $chan P1food $calc($readini(dm.ini,$chan,P1hp) - 1)
      if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
    }
    else {
      writeini dm.ini $chan P1hp 99
      msg $chan $readini(dm.ini,$chan,Player1) Eats. $hpbar(99)
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn.
      writeini dm.ini $chan Turn Player2
      writeini dm.ini $chan P1food $calc($readini(dm.ini,$chan,P1hp) - 1)
      if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
    }
  }
  elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
    if ($readini(dm.ini,$chan,P2food) <= 0) { .notice $nick You Have No Food Left. | HALT }
    if ($calc($readini(dm.ini,$chan,P2hp) + 20) <= 99) {
      writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) + 20)
      msg $chan $readini(dm.ini,$chan,Player2) Eats. $hpbar($readini(dm.ini,$chan,P2hp))
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn.
      writeini dm.ini $chan Turn Player1
      writeini dm.ini $chan P2food $calc($readini(dm.ini,$chan,P2hp) - 1)
      if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
    }
    else {
      writeini dm.ini $chan P2hp 99
      msg $chan $readini(dm.ini,$chan,Player2) Eats. $hpbar(99)
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn.
      writeini dm.ini $chan Turn Player1
      writeini dm.ini $chan P2food $calc($readini(dm.ini,$chan,P2hp) - 1)
      if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
    }
  }
  else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!dds:#PCGames: {
  if ($readini(dm.ini,$chan,Turn) == Player1 && $readini(dm.ini,$chan,Player1) == $nick) {
    if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    if ($readini(dm.ini,$chan,P1spec) < 25) { .notice $nick You Have no Special Energy left! | HALT }
    writeini dm.ini $chan P1spec $calc($readini(dm.ini,$chan,P1spec) - 25)
    writeini dm.ini $chan Hit $r(0,25)
    writeini dm.ini $chan Hit2 $r(0,25)
    msg $chan $readini(dm.ini,$chan,Player1) specs at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) and a $readini(dm.ini,$chan,Hit2) $+ .
    writeini dm.ini $chan P2hp $calc( $readini(dm.ini,$chan,P2hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2 ) ) )
    if ($readini(dm.ini,$chan,P2hp) < 1) {
      msg $chan $readini(dm.ini,$chan,Player2) has Died! $readini(dm.ini,$chan,Player1) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
      writeini dm.ini $chan Turn Player2
    }
  }
  elseif ($readini(dm.ini,$chan,Turn) == Player2 && $readini(dm.ini,$chan,Player2) == $nick) {
    if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    if ($readini(dm.ini,$chan,P2spec) < 25) { .notice $nick You Have no Special Energy left! | HALT }
    writeini dm.ini $chan P2spec $calc($readini(dm.ini,$chan,P2spec) - 25)
    writeini dm.ini $chan Hit $r(0,25)
    writeini dm.ini $chan Hit2 $r(0,25)
    msg $chan $readini(dm.ini,$chan,Player2) specs at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) and a $readini(dm.ini,$chan,Hit2) $+ .
    writeini dm.ini $chan P1hp $calc( $readini(dm.ini,$chan,P1hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2 ) ) )
    if ($readini(dm.ini,$chan,P1hp) < 1) {
      msg $chan $readini(dm.ini,$chan,Player1) has Died! $readini(dm.ini,$chan,Player2) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
      writeini dm.ini $chan Turn Player1
    }
  }
  else { 
    .notice $nick Its not your Turn or Your Not in This DM!
  }
}
on *:TEXT:!gaxe:#PCGames: {
  if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
    if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
    writeini dm.ini $chan hit $r(0,75)
    writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) - $readini(dm.ini,$chan,hit))
    writeini dm.ini $chan P1gaxe 1 
    msg $chan $readini(dm.ini,$chan,Player1) Cracks $readini(dm.ini,$chan,Player2) with their Great Axe, Hitting a $readini(dm.ini,$chan,hit) $+ . 
    if ($readini(dm.ini,$chan,P2hp) > 0) {
      writeini dm.ini $chan Turn Player2
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player2) Has Died! $readini(dm.ini,$chan,Player1) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
  }
  elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
    if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass Or !eat. | HALT }
    writeini dm.ini $chan hit $r(0,75)
    writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) - $readini(dm.ini,$chan,hit))
    writeini dm.ini $chan P2gaxe 1
    msg $chan $readini(dm.ini,$chan,Player2) Cracks $readini(dm.ini,$chan,Player1) with their Great Axe, Hitting a $readini(dm.ini,$chan,hit) $+ .
    if ($readini(dm.ini,$chan,P1hp) > 0) {
      writeini dm.ini $chan Turn Player1
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player1) Has Died! $readini(dm.ini,$chan,Player2) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
  }
  else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!pass:#PCGames: {
  if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
    if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
    msg $chan $readini(dm.ini,$chan,Player1) Passes. $readini(dm.ini,$chan,Player2) $+ , Its your Turn.
    writeini dm.ini $chan turn Player2
  }
  elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
    if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
    msg $chan $readini(dm.ini,$chan,Player2) Passes. $readini(dm.ini,$chan,Player1) $+ , Its your Turn.
    writeini dm.ini $chan turn Player1
  }
  else { .notice $nick Its not your turn or you are not playing a DM. }
}


on *:TEXT:!gmaul:#PCGames: {
  if ($readini(dm.ini,$chan,Turn) == Player1 && $readini(dm.ini,$chan,Player1) == $nick) {
    if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    if ($readini(dm.ini,$chan,P1spec) < 100) {  .notice $nick You Dont have Enough Special Energy left! | HALT }
    writeini dm.ini $chan P1spec 0
    writeini dm.ini $chan Hit $r(0,20)
    writeini dm.ini $chan Hit2 $r(0,20)
    writeini dm.ini $chan Hit3 $r(0,20)
    msg $chan $readini(dm.ini,$chan,Player1) Granite Maul specs at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ .
    writeini dm.ini $chan P2hp $calc( $readini(dm.ini,$chan,P2hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3 ) ) )
    if ($readini(dm.ini,$chan,P2hp) < 1) {
      msg $chan $readini(dm.ini,$chan,Player2) has Died! $readini(dm.ini,$chan,Player1) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player2) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
      writeini dm.ini $chan Turn Player2
    }
  }
  elseif ($readini(dm.ini,$chan,Turn) == Player2 && $readini(dm.ini,$chan,Player2) == $nick) {
    if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT  }
    if ($readini(dm.ini,$chan,P2spec) < 100) { .notice $nick You Dont have Enough Special Energy left! | HALT }
    writeini dm.ini $chan P2spec 0
    writeini dm.ini $chan Hit $r(0,20)
    writeini dm.ini $chan Hit2 $r(0,20)
    writeini dm.ini $chan Hit3 $r(0,20)
    msg $chan $readini(dm.ini,$chan,Player2) Granite Maul specs at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ .
    writeini dm.ini $chan P1hp $calc( $readini(dm.ini,$chan,P1hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3 ) ) )
    if ($readini(dm.ini,$chan,P1hp) < 1) {
      msg $chan $readini(dm.ini,$chan,Player1) has Died! $readini(dm.ini,$chan,Player2) is the Winner!
      remini dm.ini $chan
      remini dm.ini GameChans $chan
    }
    else {
      msg $chan $readini(dm.ini,$chan,Player1) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
      writeini dm.ini $chan Turn Player1
    }
  }
  else { 
    .notice $nick Its not your Turn or Your Not in This DM!
  }
}
on *:TEXT:!hpbar *:#PCGames:{
  if ($2 isnum 1-99) {
    msg $chan $hpbar($2)
  }
  else { 
    .notice $nick Invalid Number. 1-99.
  }
}

alias hpbar {
  if ($1 isnum 1-5) { return $+(9,$chr(44),9|4,$chr(44),4||||||||,010,$1,4|||||||||) }
  if ($1 isnum 6-9) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,010,$1,4|||||||||) }
  if ($1 == 10) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,01,$1,4|||||||||) }
  if ($1 isnum 11-15) { return $+(9,$chr(44),9|||04,$chr(44),4||||||,01,$1,4|||||||||) }
  if ($1 isnum 16-20) { return $+(9,$chr(44),9||||04,$chr(44),4|||||,01,$1,4|||||||||) }
  if ($1 isnum 21-25) { return $+(9,$chr(44),9|||||04,$chr(44),4||||,01,$1,4|||||||||) }
  if ($1 isnum 26-30) { return $+(9,$chr(44),9||||||04,$chr(44),4|||,01,$1,4|||||||||) }
  if ($1 isnum 31-35) { return $+(9,$chr(44),9|||||||04,$chr(44),4||,01,$1,4|||||||||) }
  if ($1 isnum 36-40) { return $+(9,$chr(44),9||||||||04,$chr(44),4|,01,$1,4|||||||||) }
  if ($1 isnum 41-45) { return $+(9,$chr(44),9|||||||||01,$chr(44),04,$1,04|||||||||) }
  if ($1 isnum 46-50) { return $+(9,$chr(44),9|||||||||01,$left($1,1),01,$chr(44),04,$right($1,1),04|||||||||) }
  if ($1 isnum 51-55) { return $+(9,$chr(44),9|||||||||,01,$1,04,$chr(44),04|||||||||) }
  if ($1 isnum 56-60) { return $+(9,$chr(44),9|||||||||,01,$1,09|04,$chr(44),04||||||||) }
  if ($1 isnum 61-65) { return $+(9,$chr(44),9|||||||||,01,$1,09||04,$chr(44),04|||||||) }
  if ($1 isnum 66-70) { return $+(9,$chr(44),9|||||||||,01,$1,09|||04,$chr(44),04||||||) }
  if ($1 isnum 71-75) { return $+(9,$chr(44),9|||||||||,01,$1,09||||04,$chr(44),04|||||) }
  if ($1 isnum 76-80) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||04,$chr(44),04||||) }
  if ($1 isnum 81-85) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||04,$chr(44),04|||) }
  if ($1 isnum 86-90) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||04,$chr(44),04||) }
  if ($1 isnum 91-95) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||||04,$chr(44),04|) }
  if ($1 isnum 96-98) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
  if ($1 isnum 100-999999) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
}
on *:TEXT:!dmcommands:#PCGames:{
  .msg $nick 12Dm 4Commands
  .msg $nick 12!Whip
  .msg $nick 12!DDS 1-4 25% Spec
  .msg $nick 12!Gmaul 1-4 100% Spec
  .msg $nick 12!Gaxe
  .msg $nick 12!Eat
  .msg $nick 12!Stopdm 1-4 Halfop +
  .msg $nick 12!Pass
}