Unnamed

on *:TEXT:!dm:#: {
  if (%dmscript. [ $+ [ $chan ] ] == off) { HALT }
  if ($readini(dm.ini,GameChans,$chan) == 1Player) {
    if ($readini(dm.ini,$chan,Player1) == $nick) { notice $nick You Cant Fight Yourself!!! | 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 4!Dmcommands12 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 4 $nick 12has initiate a Death Match!  Type 4!DM12 to fight4 $nick $+ 12!
  }
}
on *:TEXT:!stopdm:#: {
  if ($readini(dm.ini,GameChans,$chan) == On) {
    if ($nick isop $chan || $nick ishop $chan || $readini(dm.ini,$chan,Player1) == $nick || $readini(dm.ini,$chan,Player2) == $nick) {
      remini dm.ini $chan
      remini dm.ini GameChans $chan
      msg $chan DM Halted By $nick $+ .
    }
    else { 
      notice $nick You Have to Be Ingame, HalfOp, or Op!) 
    }
  }
  else { notice $nick No DM is being Played. }
}
on *:TEXT:!whip:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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 *:#:{
  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:#:{
  .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
}
on *:text:!dmon*:#:{ 
  if ($nick isop $chan) || ($nick == Snipezy) { 
    set %dmscript. $+ $chan on 
    msg $chan 10»15]|[ 12DM Commands For4 $chan 12 Are Now ON 15]|[10«
  } 
} 
on *:text:!dmoff*:#:{ 
  if ($nick isop $chan) || ($nick == Snipezy) { 
    set %dmscript. $+ $chan off 
    msg $chan 10»15]|[ 12DM Commands For4 $chan 12 Are Now OFF 15]|[10«
  } 
}