alias unsetdm {
  msg %dmchan 2Nobody has decided to DM %dmp1 within 30 seconds, the DM invitation is now closed.
  unset %dmp1 $nick
  unset %dmstart 1
  unset %dmchan $chan
} 
alias stopdm {
  .timerdm* off
  unset %dm*
  unset %hp*
  unset %food*
  unset %spec* 
  unset %dmp*
  unset %dhp*
  unset %whp*
  unset %ghp*
  unset %amp*
  unset %ahp*
  unset %cbp*
  unset %dhu*
  unset %froze*
  unset %runes*
  unset %turn
}
alias switchturn {
  msg %dmchan 2 $1 has not made an action in 60 seconds, it is now $2 $+ 's turn.
  set %turn $2
  if (%froze [ $+ [ %dmp1 ] ]) {
    dec %froze [ $+ [ %dmp1 ] ]
    $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])

  }
  if (%froze [ $+ [ %dmp2 ] ]) {
    dec %froze [ $+ [ %dmp2 ] ]
    $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
  }
}
alias dmwinner {
  if ($read(dmloser.txt, s, $1) != $null) {
    var %dmloser = $read(dmloser.txt, s, $1)
    write -s $+ $1 dmloser.txt $1 $calc($remove(%dmloser,$1) + 1)
  }
  else {
    write dmloser.txt $1 1
  }
  if ($read(dmwinner.txt, s, $2) != $null) {
    var %dmwinner = $read(dmwinner.txt, s, $2)
    write -s $+ $2 dmwinner.txt $2 $calc($remove(%dmwinner,$2) + 1)
  }
  else {
    write dmwinner.txt $2 1
  }
  msg %dmchan 2 $+ $2 $+ 's rankings are: Wins: $iif($read(dmwinner.txt, s, $2) != $null, $read(dmwinner.txt, s, $2), 0) Losses: $iif($read(dmloser.txt, s, $2) != $null, $read(dmloser.txt, s, $2), 0) Total games played: $calc($read(dmloser.txt, s, $2) + $read(dmwinner.txt, s, $2)) Winning Percentage: $round($calc($read(dmwinner.txt, s, $2) / $calc($read(dmloser.txt, s, $2) + $read(dmwinner.txt, s, $2)) * 100),2) $+   $+ $chr(37) $+ .
}
on *:TEXT:!dmstats*:#:{
  if ($2) {
    msg $chan 2 $+ $2 $+ 's rankings are: Wins: $iif($read(dmwinner.txt, s, $2) != $null, $read(dmwinner.txt, s, $2), 0) Losses: $iif($read(dmloser.txt, s, $2) != $null, $read(dmloser.txt, s, $2), 0) Total games played: $calc($read(dmloser.txt, s, $2) + $read(dmwinner.txt, s, $2)) Winning Percentage: $round($calc($read(dmwinner.txt, s, $2) / $calc($read(dmloser.txt, s, $2) + $read(dmwinner.txt, s, $2)) * 100),2) $+   $+ $chr(37) $+ .
  }
  else {
    msg $chan 2 $+ $nick $+ 's rankings are: Wins: $iif($read(dmwinner.txt, s, $nick) != $null, $read(dmwinner.txt, s, $nick), 0) Losses: $iif($read(dmloser.txt, s, $nick) != $null, $read(dmloser.txt, s, $nick), 0) Total games played: $calc($read(dmloser.txt, s, $nick) + $read(dmwinner.txt, s, $nick)) Winning Percentage: $round($calc($read(dmwinner.txt, s, $nick) / $calc($read(dmloser.txt, s, $nick) + $read(dmwinner.txt, s, $nick)) * 100),2) $+   $+ $chr(37) $+ .
  }
}
on $*:TEXT:/^[!@]Dm(on|off)/Si:#:{
  if ($address($nick,4) == $address($me,4)) {
    if ($right($1,2) == on) && (!%dmon) {
      .notice $nick 2Death Matches have already been enabled.
      halt
    } 
    if ($right($1,3) == off) && (%dmon) {
      .notice $nick 2Death Matches have already been disabled.
      halt
    } 
    if ($right($1,2) == on) {
      unset %dmon
    }
    if ($right($1,3) == off) {
      set %dmon False
    }
    .notice $nick 2Death Matches have been $iif(%dmon != False,en,dis) $+ abled.
    amsg 2Death Matches have been $iif(%dmon != False,en,dis) $+ abled by my owner. $iif($3,( $+ $2- $+ )) Pm $nick $+ , or visit $chan to voice objections.
  }
}
on $*:TEXT:/^[!@]dm(commands|cmds|help)/Si:#:{
  var %dmcmds = $iif($left($1,1) == !,.notice $nick,msg $nick)
  if ($right($1,-3) == help) {
    if (!$2) {
      %dmcmds 2!dmhelp <command> Will give you a description of the command.
    }
    else {
      goto $right($2,-1)
    }
  }
  else {
    :whip 
    %dmcmds 2!Whip Will attack your opponent with your whip. The max hit is 35.
    $iif($right($1,-3) == help,halt)
    :dds
    %dmcmds 2!Dds Will attack your opponent twice with your dds. It will also decrease your Special Energy by 25%. The max hit on each of the attacks is 25.
    $iif($right($1,-3) == help,halt)
    :gmaul
    %dmcmds 2!Gmaul Will attack your opponent three times with your granite maul. It will also decrease your Special Energy by 100%. The max hit on each of the attacks is 20.
    $iif($right($1,-3) == help,halt)
    :cbow
    %dmcmds 2!Cbow Will attack your opponent with your crystal bow. The max hit is 30. 
    $iif($right($1,-3) == help,halt)
    :msb
    %dmcmds 2!Msb Will attack your opponent twice with your mage short bow. It will also decrease your special energy by 50%. The max hit on each of the attacks is 20.
    $iif($right($1,-3) == help,halt)
    :eat
    %dmcmds 2!Eat Will eat a shark and increase your health by 20.
    $iif($right($1,-3) == help,halt)
    :spec
    %dmcmds 2!Spec Will check your special energy bar.
    $iif($right($1,-3) == help,halt)
    :food
    %dmcmds 2!Food Will check the amount of food you have left.
    $iif($right($1,-3) == help,halt)
    :stopdm
    %dmcmds 2!Stopdm will stop the Dm if you are a deathmatch player or an op in the channel.
    $iif($right($1,-3) == help,halt)
    :ancient
    %dmcmds 2!Ancient (ice,blood) (burst,blitz) Will attack your opponent with an ancient magic attack, ice will freeze, blood will take part of their Hp and give it to you, burst is less powerful than blitz. Burst will take away 1 cast, while blitz will take away 2.
    $iif($right($1,-3) == help,halt)
    :dh
    %dmcmds 2!Dh Will attack your opponent with the dharok barrows armour. This armour will have a higher max hit and damage the lower your hp is. This is a one time only attack, as the armour degrades to nothing after the attack.
    $iif($right($1,-3) == help,halt)
  }
}
on $*:TEXT:/^[!@]dm(un|de)?(disable|revoke|ignore)/Si:#:{
  if ($2) {
    if ($address($me,4) == $address($nick,4) || ($nick isop $2)) {
      if ($mid($1,4,2) !isin unde) {
        if ($2 isin %ignoredm) {
          .notice $nick 2Death Matches were already disabled for $2 $+ .
          halt
        }
        set %ignoredm %ignoredm $2
        .notice $nick 2Death Matches have been disabled for $2 $+ .
      }
      else {
        if ($2 !isin %ignoredm) {
          .notice $nick 2Death Matches were not disabled for $2 $+ .
          halt
        }
        set %ignoredm $remove(%ignoredm,$2)
        .notice $nick 2Death Matches have been enabled for $2 $+ .
      }
    }
  }
}
on $*:TEXT:/^[!@]dmcheck/Si:#:{
  if ($iif($2,$2,$chan) isin %ignoredm) {
    $iif($right($1,1) == !,.notice $nick,msg $chan) 2 $+ $iif($2,$2,$chan) has been ignored for dm's.
  }
  else {
    $iif($right($1,1) == !,.notice $nick,msg $chan) 2 $+ $iif($2,$2,$chan) has not been ignored for dm's.
  }
}
on $*:TEXT:/^[!@]dmadmin(add|del)?/Si:#:{
  if ($right($1,3) != add) && ($right($1,3) != del) {
    .notice $nick 2The dm admins are %dmadmin $+ .
  }
  if ($address($nick,4) == $address($me,4)) {
    if ($right($1,3) == add) {
      if ($2 isin %dmadmin) {
        .notice $nick 2 $+ $2 is already a dm admin.
        halt
      }
      set %dmadmin %dmadmin
      .notice $nick 2 $+ $2 has been added as a dm admin.
    }
    elseif ($right($1,3) == del) {
      if ($2 !isin %dmadmin) {
        .notice $nick 2 $+ $2 is not a dm admin.
      }
      set %dmadmin $remove(%dmadmin,$2)
      .notice $nick 2 $+ $2 has been deleted as a dm admin.
    }
  }
}
on $*:TEXT:/^[!@]dm(.*)?/Si:#:{
  if ($chan !isin %ignoredm) {
    if (%dmon != False) {
      if (%dmstart) && (!%dmrun) {
        if ($nick == %dmp1) {
          .notice $nick 2You may not fight yourself.
          halt
        }
        if (%dmchallenge) {
          if ($nick == %dmchallenge) {
            goto dm
          }
          else {
            .notice $nick 2Sorry, %dmp1 has challenged %dmchallenge to a dm. Please wait for their dm to finish.
          }
        }
        else {
          if ($nick ison %dmchan) {
            :dm
            unset %dmstart
            msg $chan 2 $+ $nick has joined the dm against %dmp1 $+ .
            set %dmp2 $nick
            msg $chan 2The fighters in this Dm are %dmp1 and %dmp2 $+ .
            msg $chan 2Both fighters will recieve 220 2sharks which heal 20 and start with the maximum of 399 2HP.
            .timerdmlimit 1 60 switchturn %dmp1 %dmp2
            .timerdm off
            set %dmp2 $nick
            set %dmrun 1
            set %hp [ $+ [ %dmp1 ] ] 99
            set %hp [ $+ [ %dmp2 ] ] 99
            set %food [ $+ [ %dmp1 ] ] 20
            set %food [ $+ [ %dmp2 ] ] 20
            set %spec [ $+ [ %dmp1 ] ] 100
            set %spec [ $+ [ %dmp2 ] ] 100
            set %runes [ $+ [ %dmp1 ] ] 5
            set %runes [ $+ [ %dmp2 ] ] 5
            set %turn $iif($rand(1,2) == 1,%dmp1,%dmp2)
            msg $chan 2 $+ $iif(%turn == %dmp1,%dmp1,%dmp2) gets the first attack!
          }
          else {
            .notice $nick 2Sorry, %dmp1 has started a dm on %dmchan $+ . Please join %dmchan to dm them.
          }
        }
      }
      elseif (!%dmrun) {
        if ($2) {
          if ($2 ison $chan) {
            if ($2 == $nick) {
              .notice $nick 2 $+ You cannot challenge yourself to a dm.
              halt
            }
            set %dmchallenge $2
            msg $chan 2 $+ $nick Has challenged %dmchallenge to a Dm! $2 $+ , type !dm to accept the challenge.
          }
          else {
            .notice $nick 2 $+ $2 must be on this channel to dm them.
          }
        }
        else {
          msg $chan 2 $+ $nick Has initiated a Dm! Type !dm to fight them.
        }
        set %dmp1 $nick
        set %dmstart 1
        set %dmchan $chan
        .timerDm 1 30 unsetdm
      }
      else {
        .notice $nick 2Sorry, there is already a Dm running, please wait for that one to end.
      }
      if (%dmrun) {
        .timerdm off
      }
    }
  }
  else {
    .notice $nick 2Death Matches have been revoked for $chan $+ .
  }
}
on $*:TEXT:/^[!@](stop|end)dm/Si:#:{
  if ($nick == %dmp1) || ($nick == %dmp2) || ($nick isop %dmchan) || ($address($nick,4) == $address($me,4)) {
    if (%dmstart) {
      msg $chan 2The Dm invitation has been closed by $nick $+ .
    }
    elseif (%dmrun) {
      msg $chan 2The Dm between %dmp1 and %dmp2 has been ended by $nick $+ .
    }
    else {
      .notice $nick 2There is no Dm to stop.
      halt
    }
    .timerdm off
    stopdm
  }
}
on $*:TEXT:/^[!@]degrade(d)?/Si:#:{
  if ($nick == %dmp1) {
    if (%dhu [ $+ [ %dmp1 ] ]) {
      .notice $Nick 2Your Dharoks are degraded fully. You may not use them for another attack.
    }
    else {
      .notice $Nick 2Your Dharoks are not degraded.
    }
  }
  elseif ($nick == %dmp2) {
    if (%dhu [ $+ [ %dmp2 ] ]) {
      .notice $Nick 2Your Dharoks are degraded fully. You may not use them for another attack.
    }
    else {
      .notice $Nick 2Your Dharoks are not degraded.
    }
  }
  else {
    .notice $nick 2You are not fighting in this Dm.
  }
}
on *:TEXT:!froze*:#:{
  if ($nick == %dmp1) {
    if (%froze [ $+ [ %dmp1 ] ]) {
      .notice $Nick 2You are frozen for %froze [ $+ [ %dmp1 ] ] more turns.
    }
    else {
      .notice $nick 2You are not frozen.
    }
  }
  elseif ($nick == %dmp2) {
    if (%froze [ $+ [ %dmp2 ] ]) {
      .notice $nick 2You are frozen for %froze [ $+ [ %dmp2 ] ] more turns.
    }
    else {
      .notice $nick 2You are not frozen.
    }
  }
  else {
    .notice $nick 2You are not fighting in this Dm.
  }
}
on *:TEXT:!spec*:#:{
  if ($nick == %dmp1) {
    .notice $nick 2You have %spec [ $+ [ %dmp1 ] ] $+ % special energy left.
  }
  elseif ($nick == %dmp2) { 
    .notice $nick 2You have %spec [ $+ [ %dmp2 ] ] $+ % special energy left.
  }
  else {
    .notice $nick 2You are not fighting in this Dm.
  }
}
on *:TEXT:!food*:#:{
  if ($nick == %dmp1) {
    .notice $nick 2You have %food [ $+ [ %dmp1 ] ] sharks left.
  }
  elseif ($nick == %dmp2) { 
    .notice $nick 2You have %food [ $+ [ %dmp2 ] ] sharks left.
  }
  else {
    .notice $nick 2You are not fighting in this Dm.
  }
}
on $*:TEXT:/^[!@](eat|shark)/Si:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          if (%food [ $+ [ %dmp1 ] ] > 0) {
            set %hp [ $+ [ %dmp1 ] ] $calc(%hp [ $+ [ %dmp1 ] ] + 20)
            dec %froze [ $+ [ %dmp1 ] ]
            $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
            if (%hp [ $+ [ %dmp1 ] ] > 99) {
              set %hp [ $+ [ %dmp1 ] ] 99
            }
            dec %food [ $+ [ %dmp1 ] ] 1
            if (%spec [ $+ [ %dmp1 ] ] < 100) {
              inc %spec [ $+ [ %dmp1 ] ] 5
            }
            msg $chan 2 $+ $nick has eaten a shark. %dmp1 now have 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp.
            .notice $nick 2You have %food [ $+ [ %dmp1 ] ] sharks left. 
            msg $chan 2It is now %dmp2 $+ 's turn.
            set %turn %dmp2
          } 
          else { 
            .notice $nick 2Sorry, you have no food left to eat.
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          if (%food [ $+ [ %dmp2 ] ] > 0) {
            dec %froze [ $+ [ %dmp2 ] ] 
            $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
            inc %hp [ $+ [ %dmp2 ] ] 20
            if (%hp [ $+ [ %dmp2 ] ] > 99) {
              set %hp [ $+ [ %dmp2 ] ] 99
            }
            dec %food [ $+ [ %dmp2 ] ] 1
            if (%spec [ $+ [ %dmp2 ] ] < 100) {
              inc %spec [ $+ [ %dmp2 ] ] 5
            }
            msg $chan 2 $+ $nick has eaten a shark. %dmp1 now have 3 $+ %hp [ $+ [ %dmp2 ] ] 2hp.
            .notice $nick 2You have %food [ $+ [ %dmp2 ] ] sharks left.
            msg $chan 2It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          } 
          else { 
            .notice $nick 2Sorry, you have no food left to eat.
            set %turn %dmp1
            msg $chan  2It is now %dmp1 $+ 's turn.
          }
        }
      }
    }
  }
}
on *:TEXT:!whip*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          if (%froze [ $+ [ %dmp1 ] ]) {
            dec %froze [ $+ [ %dmp1 ] ]
            $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
            msg $chan 2It is now %dmp2 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your whip.
            set %turn %dmp2
            halt
          }
          else {
            set %whp2 $rand(0,35)
            if (%whp2 < %hp [ $+ [ %dmp2 ] ]) {
              dec %hp [ $+ [ %dmp2 ] ] %whp2
              msg $chan 2 $+ %dmp1 has hit %dmp2 with their whip and has done4 %whp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
              if (%spec [ $+ [ %dmp1 ] ] < 100) {
                inc %spec [ $+ [ %dmp1 ] ] 5
              }
              msg $chan 2It is now %dmp2 $+ 's turn.
              set %turn %dmp2
              unset %whp2
              halt
            }
            if (%whp2 >= %hp [ $+ [ %dmp2 ] ]) {
              set %whp2 %hp [ $+ [ %dmp2 ] ]
              dec %hp [ $+ [ %dmp2 ] ] %whp2  
              msg $chan 2 $+ %dmp1 has hit a4 %whp2 2with their whip leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
              dmwinner %dmp2 %dmp1
              stopdm
              Halt
            } 
          }
        }        
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          if (%froze [ $+ [ %dmp2 ] ]) {
            dec %froze [ $+ [ %dmp2 ] ]
            $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
            msg $chan 2It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
          else {
            set %whp1 $rand(0,35)
            if (%whp1 < %hp [ $+ [ %dmp1 ] ]) {
              dec %hp [ $+ [ %dmp1 ] ] %whp1
              msg $chan 2 $+ %dmp2 has hit %dmp1 with their whip and has done 4 $+ %whp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
              if (%spec [ $+ [ %dmp2 ] ] < 100) {
                inc %spec [ $+ [ %dmp2 ] ] 5
              }
              msg $chan 2 It is now %dmp1 $+ 's turn.
              set %turn %dmp1
              unset %whp1
              halt
            }
            if (%whp1 >= %hp [ $+ [ %dmp1 ] ]) {
              set %whp1 %hp [ $+ [ %dmp1 ] ]
              dec %hp [ $+ [ %dmp1 ] ] %whp1
              msg $chan 2 $+ %dmp2 has hit a4 %whp1 2with their whip leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
              dmwinner %dmp1 %dmp2
              stopdm
              Halt
            }
          }
        }
      }
    }
  }
}
on *:TEXT:!dds*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          if (%froze [ $+ [ %dmp1 ] ]) {
            dec %froze [ $+ [ %dmp1 ] ]
            $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
            msg $chan 2It is now %dmp2 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your dds.
            set %turn %dmp2
            halt
          }
          else {
            if (%spec [ $+ [ %dmp1 ] ] >= 25) { 
              set %dhp1p2 $rand(0,25)
              set %dhp2p2 $rand(0,25)
              if ($calc(%dhp1p2 + %dhp2p2) < %hp [ $+ [ %dmp2 ] ]) {
                dec %hp [ $+ [ %dmp2 ] ] %dhp1p2
                dec %hp [ $+ [ %dmp2 ] ] %dhp2p2
                dec %spec [ $+ [ %dmp1 ] ] 25
                .notice $nick 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
                msg $chan 2 %dmp1 has hit %dmp2 with their dds and has done 4 %dhp1p2 2and 4 %dhp2p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
                if (%spec [ $+ [ %dmp1 ] ] < 100) {
                  inc %spec [ $+ [ %dmp1 ] ] 5
                }
                msg $chan 2It is now %dmp2 $+ 's turn.
                set %turn %dmp2
                unset %dhp1p2
                unset %dhp2p2
                halt
              }
              if ($calc(%dhp1p2 + %dhp2p2) >= %hp [ $+ [ %dmp2 ] ]) { 
                set %dhp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %dhp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                dec %hp [ $+ [ %dmp2 ] ] %dhp1p2
                dec %hp [ $+ [ %dmp2 ] ] %dhp2p2
                msg $chan 2 %dmp1 has hit a4 %dhp1p2 and4 %dhp2p2 2on %dmp2 leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
                dmwinner %dmp2 %dmp1
                stopdm
                Halt
              } 
            }
            else { 
              .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
              msg $chan 2It is now %dmp2 $+ 's turn.
              set %turn %dmp2
            }
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          if (%froze [ $+ [ %dmp2 ] ]) {
            dec %froze [ $+ [ %dmp2 ] ]
            $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
            msg $chan 2It is now %dmp1 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your dds.
            set %turn %dmp1
          }
          else {
            if (%spec [ $+ [ %dmp2 ] ] >= 25) {
              set %dhp1p1 $rand(0,25)
              set %dhp2p1 $rand(0,25)
              if ($calc(%dhp1p1 + %dhp2p1) < %hp [ $+ [ %dmp1 ] ]) {
                dec %hp [ $+ [ %dmp1 ] ] %dhp2p1
                dec %hp [ $+ [ %dmp1 ] ] %dhp1p1
                dec %spec [ $+ [ %dmp2 ] ] 25
                .notice $nick 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
                msg $chan 2 %dmp2 has hit %dmp1 with their dds and has done 4 $+ %dhp1p1 2 and 4 %dhp2p1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
                if (%spec [ $+ [ %dmp2 ] ] < 100) {
                  inc %spec [ $+ [ %dmp2 ] ] 5
                }
                msg $chan 2It is now %dmp1 $+ 's turn.
                set %turn %dmp1
                unset %dhp1p1
                unset %dhp2p1
                halt
              }
              if ($calc(%dhp1p1 + %dhp2p1) >= %hp [ $+ [ %dmp1 ] ]) {
                set %dhp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %dhp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                dec %hp [ $+ [ %dmp1 ] ] %dhp1p1
                dec %hp [ $+ [ %dmp1 ] ] %dhp2p1
                msg $chan 2 %dmp2 has hit a4 %dhp1p1  and4 %dhp2p1 2on %dmp1 leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
                dmwinner %dmp1 %dmp2
                stopdm
                Halt
              }
            }
            else {
              .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
              msg $chan 2It is now %dmp1 $+ 's turn.
              set %turn %dmp1
            }
          }
        }
      }
    }
  }  
}
on *:TEXT:!gmaul*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          if (%froze [ $+ [ %dmp1 ] ]) {
            dec %froze [ $+ [ %dmp1 ] ]
            $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
            msg $chan 2It is now %dmp2 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your gmaul.
            set %turn %dmp2
            halt
          }
          else {
            if (%spec [ $+ [ %dmp1 ] ] >= 100) { 
              set %ghp1p2 $rand(0,20)
              set %ghp2p2 $rand(0,20)
              set %ghp3p2 $rand(0,20)
              if ($calc(%ghp1p2 + %ghp2p2 + %ghp3p2) < %hp [ $+ [ %dmp2 ] ]) {
                dec %hp [ $+ [ %dmp2 ] ] %ghp1p2
                dec %hp [ $+ [ %dmp2 ] ] %ghp2p2
                dec %hp [ $+ [ %dmp2 ] ] %ghp3p2
                dec %spec [ $+ [ %dmp1 ] ] 100
                .notice $nick 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
                msg $chan 2 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 2 and4 %ghp3p2 2damage leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp.
                if (%spec [ $+ [ %dmp1 ] ] < 100) {
                  inc %spec [ $+ [ %dmp1 ] ] 5
                }
                msg $chan 2It is now %dmp2 $+ 's turn.
                set %turn %dmp2
                unset %ghp1p2
                unset %ghp2p2
                unset %ghp3p2
                halt
              }
              if ($calc(%ghp1p2 + %ghp2p2 + %ghp3p2) >= %hp [ $+ [ %dmp2 ] ]) {
                dec %hp [ $+ [ %dmp2 ] ] %ghp1p2
                set %ghp3p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                set %ghp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
                dec %hp [ $+ [ %dmp2 ] ] %ghp3p2
                dec %hp [ $+ [ %dmp2 ] ] %ghp2p2
                msg $chan 2 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 2 and4 %ghp3p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left. Congratulations %dmp1 $+ , you won the Dm!
                dmwinner %dmp2 %dmp1
                stopdm
                Halt
              } 
            }
            else { 
              .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
              msg $chan 2It is now %dmp2 $+ 's turn.
              set %turn %dmp2
            }
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          if (%froze [ $+ [ %dmp2 ] ]) {
            dec %froze [ $+ [ %dmp2 ] ]
            $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
            msg $chan 2It is now %dmp1 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your gmaul.
            set %turn %dmp1
            halt
          }
          else {
            if (%spec [ $+ [ %dmp2 ] ] >= 100) {
              set %ghp1p1 $rand(0,20)
              set %ghp2p1 $rand(0,20)
              set %ghp3p1 $rand(0,20)
              if ($calc(%ghp1p1 + %ghp2p1 + %ghp3p1) < %hp [ $+ [ %dmp1 ] ]) { 
                dec %hp [ $+ [ %dmp1 ] ] %ghp1p1
                dec %hp [ $+ [ %dmp1 ] ] %ghp2p1
                dec %hp [ $+ [ %dmp1 ] ] %ghp3p1
                dec %spec [ $+ [ %dmp2 ] ] 100
                .notice $nick 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
                msg $chan 2 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1  and4 %ghp3p1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left.
                if (%spec [ $+ [ %dmp2 ] ] < 100) {
                  inc %spec [ $+ [ %dmp2 ] ] 5
                }
                msg $chan 2It is now %dmp1 $+ 's turn.
                set %turn %dmp1
                unset %ghp1p1
                unset %ghp2p1
                unset %ghp3p1
                halt
              }
              if ($calc(%ghp1p1 + %ghp2p1 + %ghp3p1) >= %hp [ $+ [ %dmp1 ] ]) {
                dec %hp [ $+ [ %dmp1 ] ] %ghp1p1
                set %ghp3p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                set %ghp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
                dec %hp [ $+ [ %dmp1 ] ] %ghp3p1
                dec %hp [ $+ [ %dmp1 ] ] %ghp2p1
                msg $chan 2 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1  and4 %ghp3p1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left. Congratulations %dmp2 $+ , you won the Dm!
                dmwinner %dmp1 %dmp2
                stopdm
                Halt
              }
            }
            else {
              .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
              msg $chan 2It is now %dmp1 $+ 's turn.
              set %turn %dmp1
            }
          }
        }
      }
    }
  }
}
on *:TEXT:!cbow*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          set %cbp2 $rand(0,25)
          dec %froze [ $+ [ %dmp1 ] ] 1
          $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
          if (%cbp2 < %hp [ $+ [ %dmp2 ] ]) {
            dec %hp [ $+ [ %dmp2 ] ] %cbp2
            msg $chan 2 %dmp1 has hit %dmp2 with their crystal bow and has done4 %cbp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
            if (%spec [ $+ [ %dmp1 ] ] < 100) {
              inc %spec [ $+ [ %dmp1 ] ] 5
            }
            msg $chan 2It is now %dmp2 $+ 's turn.
            set %turn %dmp2
            unset %cbp2
            halt
          }
          if (%cbp2 >= %hp [ $+ [ %dmp2 ] ]) {
            set %cbp2 %hp [ $+ [ %dmp2 ] ]
            dec %hp [ $+ [ %dmp2 ] ] %cbp2  
            msg $chan 2 %dmp1 has hit a4 %cbp2 2with their crystal bow leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
            dmwinner %dmp2 %dmp1
            stopdm
            Halt
          } 
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          set %cbp1 $rand(0,30)
          dec %froze [ $+ [ %dmp2 ] ] 1
          $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
          if (%cbp1 < %hp [ $+ [ %dmp1 ] ]) {
            dec %hp [ $+ [ %dmp1 ] ] %cbp1
            msg $chan 2 %dmp2 has hit %dmp1 with their crystal bow and has done 4 $+ %cbp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
            if (%spec [ $+ [ %dmp2 ] ] < 100) {
              inc %spec [ $+ [ %dmp2 ] ] 5
            }
            msg $chan 2 It is now %dmp1 $+ 's turn.
            set %turn %dmp1
            unset %cbp1
            halt
          }
          if (%cbp1 >= %hp [ $+ [ %dmp1 ] ]) {
            set %cbp1 %hp [ $+ [ %dmp1 ] ]
            dec %hp [ $+ [ %dmp1 ] ] %cbp1
            msg $chan 2 %dmp2 has hit a4 %cbp1 2with their crystal bow leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
            dmwinner %dmp1 %dmp2
            stopdm
            Halt
          }
        }
      }
    }
  }
}
on *:TEXT:!msb*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          dec %froze [ $+ [ %dmp1 ] ] 
          $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
          if (%spec [ $+ [ %dmp1 ] ] >= 50) { 
            set %msp1p2 $rand(0,20)
            set %msp2p2 $rand(0,20)
            if ($calc(%msp1p2 + %msp2p2) < %hp [ $+ [ %dmp2 ] ]) {
              dec %hp [ $+ [ %dmp2 ] ] %msp1p2
              dec %hp [ $+ [ %dmp2 ] ] %msp2p2
              dec %spec [ $+ [ %dmp1 ] ] 50
              .notice $nick 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
              msg $chan 2 %dmp1 has hit %dmp2 with their mage short bow and has done 4 %msp1p2 2and 4 %msp2p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
              if (%spec [ $+ [ %dmp1 ] ] < 100) {
                inc %spec [ $+ [ %dmp1 ] ] 5
              }
              msg $chan 2It is now %dmp2 $+ 's turn.
              set %turn %dmp2
              unset %msp1p2
              unset %msp2p2
              halt
            }
            if ($calc(%msp1p2 + %msp2p2) >= %hp [ $+ [ %dmp2 ] ]) { 
              set %msp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
              set %msp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
              dec %hp [ $+ [ %dmp2 ] ] %msp1p2
              dec %hp [ $+ [ %dmp2 ] ] %msp2p2
              msg $chan 2 %dmp1 has hit a4 %msp1p2 and4 %msp2p2 2on %dmp2 leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
              dmwinner %dmp2 %dmp1
              stopdm
              Halt
            } 
          }
          else { 
            .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
            msg $chan 2It is now %dmp2 $+ 's turn.
            set %turn %dmp2
          }
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          dec %froze [ $+ [ %dmp2 ] ]
          $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ]) 
          if (%spec [ $+ [ %dmp2 ] ] >= 25) {
            set %msp1p1 $rand(0,20)
            set %msp2p1 $rand(0,20)
            if ($calc(%msp1p1 + %msp2p1) < %hp [ $+ [ %dmp1 ] ]) {
              dec %hp [ $+ [ %dmp1 ] ] %msp2p1
              dec %hp [ $+ [ %dmp1 ] ] %msp1p1
              dec %spec [ $+ [ %dmp2 ] ] 50
              .notice $nick 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
              msg $chan 2 %dmp2 has hit %dmp1 with their mage short bow and has done 4 $+ %msp1p1 2 and 4 %msp2p1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
              if (%spec [ $+ [ %dmp2 ] ] < 100) {
                inc %spec [ $+ [ %dmp2 ] ] 5
              }
              msg $chan 2It is now %dmp1 $+ 's turn.
              set %turn %dmp1
              unset %msp1p1
              unset %msp2p1
              halt
            }
            if ($calc(%msp1p1 + %msp2p1) >= %hp [ $+ [ %dmp1 ] ]) {
              set %msp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
              set %msp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
              dec %hp [ $+ [ %dmp1 ] ] %msp1p1
              dec %hp [ $+ [ %dmp1 ] ] %msp2p1
              msg $chan 2 %dmp2 has hit a4 %msp1p1  and4 %msp2p1 2on %dmp1 leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
              dmwinner %dmp1 %dmp2
              stopdm
              Halt
            }
          }
          else {
            .notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
            msg $chan 2It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
        }
      }
    }
  }
}
on *:TEXT:!ancient*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if (!$2) || (!$3) {
          .notice $nick 2Please specify a valid command. 
          halt
        }
        else {
          if ($3 != blitz) && ($3 != burst) {
            .notice $nick 2Please specify a valid command. 
            halt 
          }
          if ($2 != blood) && ($2 != ice) {
            .notice $nick 2Please specify a valid command. 
            halt
          }
          else {
            if ($nick == %dmp1) {
              if (%runes [ $+ [ %dmp1 ] ] < 1) {
                .notice $nick 2You do not have any runes left.
                set %turn %dmp2
                msg $chan 2It is now %dmp2 $+ 's turn.
                halt
              }
              .timerdmlimit off
              .timerdmlimit 1 60 switchturn %dmp2 %dmp1
              dec %froze [ $+ [ %dmp1 ] ] 
              $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
              if ($3 == blitz) {
                if (%runes [ $+ [ %dmp1 ] ] < 2) {
                  .notice $nick 2You do not have enough runes to cast that spell.
                }
                else {
                  dec %runes [ $+ [ %dmp1 ] ] 2
                  set %ahp2 $rand(0,25)
                  if ($2 == ice) {
                    set %froze [ $+ [ %dmp2 ] ] 2
                    .notice %dmp2 2You have been frozen for %froze [ $+ [ %dmp2 ] ] turns. You may only attack with range or mage attacks.
                  }
                  if ($2 == blood) {
                    set %hp [ $+ [ %dmp1 ] ] $calc(%hp [ $+ [ %dmp1 ] ] + $floor($calc(%ahp2 / 4)))
                    if (%hp [ $+ [ %dmp1 ] ] > 99) {
                      set %hp [ $+ [ %dmp1 ] ] 99
                    }
                    .notice $nick 2You now have %hp [ $+ [ %dmp1 ] ] hp.
                  }
                }
              }
              if ($3 == burst) {
                dec %runes [ $+ [ %dmp1 ] ]
                set %ahp2 $rand(0,15)
                if ($2 == ice) {
                  set %froze [ $+ [ %dmp2 ] ] 1
                  .notice %dmp2 2You have been frozen for %froze [ $+ [ %dmp2 ] ] turns. You may only attack with range or mage attacks.
                }
                if ($2 == blood) {
                  set %hp [ $+ [ %dmp1 ] ] $calc(%hp [ $+ [ %dmp1 ] ] + $floor($calc(%ahp2 / 4)))
                  if (%hp [ $+ [ %dmp1 ] ] > 99) {
                    set %hp [ $+ [ %dmp1 ] ] 99
                  }
                  .notice $nick 2You now have %hp [ $+ [ %dmp1 ] ] hp.
                }
              }
              if (%ahp2 < %hp [ $+ [ %dmp2 ] ]) {
                dec %hp [ $+ [ %dmp2 ] ] %ahp2
                msg %dmchan 2 %dmp1 has cast an ancient attack on %dmp2 and has done4 %ahp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
                .notice $nick 2You have %runes [ $+ [ %dmp1 ] ] casts left.
                if (%spec [ $+ [ %dmp1 ] ] < 100) {
                  inc %spec [ $+ [ %dmp1 ] ] 5
                }
                msg $chan 2It is now %dmp2 $+ 's turn.
                set %turn %dmp2
                unset %ahp2
                halt
              }
              if (%ahp2 => %hp [ $+ [ %dmp2 ] ]) {
                set %ahp2 %hp [ $+ [ %dmp2 ] ]
                dec %hp [ $+ [ %dmp2 ] ] %ahp2  
                msg %dmchan 2 %dmp1 has cast an ancient attack on %dmp2 and has done4 %ahp2 2damage leaving %dmp2 with 3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
                dmwinner %dmp2 %dmp1
                stopdm
                halt
              }
            }
            if ($nick == %dmp2) {
              if (%runes [ $+ [ %dmp2 ] ] < 1) {
                .notice $nick 2You do not have any runes left.
                set %turn %dmp2
                msg $chan 2It is now %dmp1 $+ 's turn.
                halt
              }
              .timerdmlimit off
              .timerdmlimit 1 60 switchturn %dmp1 %dmp2
              dec %froze [ $+ [ %dmp2 ] ]
              $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
              if ($3 == blitz) {
                if (%runes [ $+ [ %dmp2 ] ] < 2) {
                  .notice $nick 2You do not have enough runes to cast that spell.
                }
                else {
                  dec %runes [ $+ [ %dmp2 ] ] 2
                  set %ahp1 $rand(0,25)
                  if ($2 == ice) {
                    set %froze [ $+ [ %dmp1 ] ] 2
                    .notice %dmp1 2You have been frozen for %froze [ $+ [ %dmp1 ] ] turns. You may only attack with range or mage attacks.
                  }
                  if ($2 == blood) {
                    set %hp [ $+ [ %dmp2 ] ] $calc(%hp [ $+ [ %dmp2 ] ] + $floor($calc(%ahp1 / 4)))
                    if (%hp [ $+ [ %dmp2 ] ] > 99) {
                      set %hp [ $+ [ %dmp2 ] ] 99
                    }
                    .notice $nick 2You now have %hp [ $+ [ %dmp2 ] ] hp.
                  }
                }
              }
              if ($3 == burst) {
                dec %runes [ $+ [ %dmp2 ] ]
                set %ahp1 $rand(0,15)
                if ($2 == ice) {
                  set %froze [ $+ [ %dmp1 ] ] 1
                  .notice %dmp1 2You have been frozen for %froze [ $+ [ %dmp1 ] ] turns. You may only attack with range or mage attacks.
                }
                if ($2 == blood) {
                  set %hp [ $+ [ %dmp2 ] ] $calc(%hp [ $+ [ %dmp2 ] ] + $floor($calc(%ahp1 / 4)))
                  if (%hp [ $+ [ %dmp2 ] ] > 99) {
                    set %hp [ $+ [ %dmp2 ] ] 99
                  }
                  .notice $nick 2You now have %hp [ $+ [ %dmp2 ] ] hp.
                }
              }
              if (%ahp1 < %hp [ $+ [ %dmp1 ] ]) {
                dec %hp [ $+ [ %dmp1 ] ] %ahp1
                msg %dmchan 2 %dmp2 has cast an ancient attack on %dmp1 and has done4 %ahp1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left.
                .notice $nick 2You have %runes [ $+ [ %dmp2 ] ] casts left.
                if (%spec [ $+ [ %dmp1 ] ] < 100) {
                  inc %spec [ $+ [ %dmp1 ] ] 5
                }
                msg $chan 2It is now %dmp1 $+ 's turn.
                set %turn %dmp1
                unset %ahp1
                halt
              }
              if (%ahp1 => %hp [ $+ [ %dmp1 ] ]) {
                set %ahp1 %hp [ $+ [ %dmp1 ] ]
                dec %hp [ $+ [ %dmp1 ] ] %ahp1  
                msg %dmchan 2 %dmp2 has cast an ancient attack on %dmp1 and has done4 %ahp1 2damage leaving %dmp1 with 3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
                dmwinner %dmp2 %dmp1
                stopdm
                halt
              }
            }
          }
        }
      }
    }
  }
}
on *:TEXT:!dh*:#:{
  if (%dmrun) {
    if ($nick != %dmp1) && ($nick != %dmp2) {
      .notice $nick 2You are not fighting in this Dm.
    }
    else {
      if ($nick != %turn) {
        .notice $nick 2It is not your turn.
      }
      else {
        if ($nick == %dmp1) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp2 %dmp1
          if (%froze [ $+ [ %dmp1 ] ]) {
            dec %froze [ $+ [ %dmp1 ] ]
            $iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
            msg $chan 2It is now %dmp2 $+ 's turn.
            .notice $nick 2You have been frozen and may not attack with your dharoks.
            set %turn %dmp2
            halt
          }
          else {
            if (%dhu [ $+ [ %dmp1 ] ]) {
              msg $chan 2It is now %dmp2 $+ 's turn.
              .notice $nick 2You have used your dharoks before, and may not fight in fully degraded armour.
              set %turn %dmp2
              halt
            }
            else {
              set %dhp2 $rand(0,$floor($calc($calc(100 - %hp [ $+ [ %dmp1 ] ] ) / 3 * $rand($calc( 1 / 2 ),2))))
              if (%dhp2 < %hp [ $+ [ %dmp2 ] ]) {
                dec %hp [ $+ [ %dmp2 ] ] %dhp2
                msg $chan 2 %dmp1 has hit %dmp2 with their dharoks and has done4 %dhp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
                if (%spec [ $+ [ %dmp1 ] ] < 100) {
                  inc %spec [ $+ [ %dmp1 ] ] 5
                }
                msg $chan 2It is now %dmp2 $+ 's turn.
                set %turn %dmp2
                set %dhu [ $+ [ %dmp1 ] ] 1
                unset %dhp2
                halt
              }
              if (%dhp2 >= %hp [ $+ [ %dmp2 ] ]) {
                set %dhp2 %hp [ $+ [ %dmp2 ] ]
                dec %hp [ $+ [ %dmp2 ] ] %dhp2  
                msg $chan 2 %dmp1 has hit a4 %dhp2 2with their dharoks leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
                dmwinner %dmp2 %dmp1
                stopdm
                Halt
              } 
            }
          }        
        }
        if ($nick == %dmp2) {
          .timerdmlimit off
          .timerdmlimit 1 60 switchturn %dmp1 %dmp2
          if (%froze [ $+ [ %dmp2 ] ]) {
            dec %froze [ $+ [ %dmp2 ] ]
            $iif(%froze [ $+ [ %dmp2 ] ] <= 0, unset %froze [ $+ [ %dmp2 ] ])
            .notice $nick 2You have been frozen and may not attack with your dharoks.
            msg $chan 2It is now %dmp1 $+ 's turn.
            set %turn %dmp1
          }
          else {
            if (%dhu [ $+ [ %dmp2 ] ]) {
              msg $chan 2It is now %dmp1 $+ 's turn.
              .notice $nick 2You have used your dharoks before, and may not fight in fully degraded armour.
              set %turn %dmp1
              halt
            }
            set %dhp1 $rand(0,$floor($calc($calc(100 - %hp [ $+ [ %dmp2 ] ] ) / 3 * $rand($calc(1 / 2),2))))
            if (%dhp1 < %hp [ $+ [ %dmp1 ] ]) {
              dec %hp [ $+ [ %dmp1 ] ] %dhp1
              msg $chan 2 %dmp2 has hit %dmp1 with their dharoks and has done 4 $+ %dhp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
              if (%spec [ $+ [ %dmp2 ] ] < 100) {
                inc %spec [ $+ [ %dmp2 ] ] 5
              }
              msg $chan 2 It is now %dmp1 $+ 's turn.
              set %turn %dmp1
              set %dhu [ $+ [ %dmp2 ] ] 1
              unset %dhp1
              halt
            }
            if (%dhp1 >= %hp [ $+ [ %dmp1 ] ]) {
              set %dhp1 %hp [ $+ [ %dmp1 ] ]
              dec %hp [ $+ [ %dmp1 ] ] %dhp1
              msg $chan 2 %dmp2 has hit a4 %dhp1 2with their dharoks leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
              dmwinner %dmp1 %dmp2
              stopdm
              Halt
            }
          }
        }
      }
    }
  }
}