on *:text:!dmcommands*:#:{
  if (%dmcommands == on) { 
    notice $nick [DM] Currently sending somebody else the commands.
    notice $nick [DM] Please try again in 15 seconds.
    halt
  }
  set %dmcommands on
  timer 01 15 unset %dmcommands
  msg $chan [DM] Sending $nick DMCommands.
  msg $nick [DM] DM RULES.
  msg $nick [DM] You start with 100% Special Attack meter. It is suggested you use this.
  msg $nick [DM] Every turn, your Special Attack meter raises 5%.
  msg $nick [DM] DM SPECIAL COMMANDS.
  msg $nick [DM] Syntax: Command :: Percent special uses :: Max hit :: Effect
  msg $nick [DM] !dds :: 25% :: 46 (double 23) :: Hits twice.
  msg $nick [DM] !dmace :: 25% :: 50 :: Double the chance to hit below 25.
  msg $nick [DM] !anchor :: 50% :: 40 :: Double the chance to hit above 15.
  msg $nick [DM] !dscim :: 60% :: 35 :: 5% chance of earning 100% special meter. 10% chance of earning 40% special meter. 50% chance of STEALING 10% special meter.
  msg $nick [DM] !whip :: 55% :: 35 (40. See special) :: If hits below 10, do 1 extra damage. If hits above 11, do 2 extra damage, if hits above 25, do 3 extra damage, if hits 35, do 5 extra damage and steal 20% special meter.
  msg $nick [DM] !daxe :: 60% :: Either hits 0 or 45 :: Low chance to hit 45.
  msg $nick [DM] DM NORMAL COMMANDS.
  msg $nick [DM] Syntax: Command :: Max hit :: Effect
  msg $nick [DM] !Nwhip :: 30 :: None.
  msg $nick [DM] !Nmaul :: 25 :: Slightly high chance to hit higher.
  msg $nick [DM] !Nanchor :: 35 :: Slightly high chance to hit lower.
  msg $nick [DM] !Ndscim :: 25 :: Regenerate 5% extra special meter this turn.
  msg $nick [DM] OTHER COMMANDS.
  msg $nick [DM] Syntax: Command :: Effect
  msg $nick [DM] !dmstop :: Stops DM. Requires two people to initiate.
  msg $nick [DM] !dmcommands :: Display all commands. This that you are reading IS !dmcommands
  msg $nick [DM] !dmcheck :: Display current Win/Lose record
}
on *:text:!dds*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,23)
  set %dmhit2 $rand(0,23)
  msg $chan [ DM ]  $+ $nick $+  uses his DDS Special and hits a4 %dmhit1 and4 %dmhit2 !
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [ DM ] You now have2 %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!dmace*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit $rand(0,50)
  if (%dmhit > 25) {
    set %dmhit $rand(0,50)
  }
  msg $chan [ DM ]  $+ $nick $+  uses his DMace Special and hits a4 %dmhit !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [ DM ] You now have2 %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!anchor*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 50
  set %dmhit $rand(0,35)
  if (%dmhit < 15) {
    set %dmhit $rand(0,40)
  }
  msg $chan [ DM ]  $+ $nick $+  uses his Anchor Special and hits a4 %dmhit !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have2 %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!dscim*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit $rand(0,35)
  set %dmrand1 $rand(1,20)
  if (%dmrand1 == 1) { set %dmscima yes }
  set %dmrand2 $rand(1,10)
  if (%dmrand2 == 1) { set %dmscimb yes }
  set %dmrand3 $rand(1,2)
  if (%dmrand3 == 1) { set %dmscimc yes }
  msg $chan [ DM ]  $+ $nick $+  uses his Dscim Special and hits a4 %dmhit !
  if (%dmscima == yes) { msg $chan [ DM ]  $+ $nick $+  Also gains an extra3 100% worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 100 }
  if (%dmscimb == yes) { msg $chan [ DM ]  $+ $nick $+  Also gains an extra3 40% worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 40 }
  if (%dmscimc == yes) { msg $chan [ DM ]  $+ $nick $+  Also STEALS3 10% special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $nick ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [ DM ] You now have2 %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!whip*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 55
  set %dmhit $rand(0,35)
  if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 }
  if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 }
  if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 }
  msg $chan [DM] $nick uses his Whip Special and hits a %dmhit $+ , which includes a + $+ %dmwhip bonus!
  if (%dmwhip == 5) { msg $chan [DM] $nick Also steals _20%_ special meter from %dmotherperson $+ !
    inc %dmspec [ $+ [ $nick ] ] 20
    dec %dmspec [ $+ [ %dmotherperson ] ] 20
  }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!daxe*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick [DM] You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit $rand(1,10)
  if (%dmhit < 4) { set %dmhit 45 }
  if (%dmhit > 3) { set %dmhit 0 }
  msg $chan [DM] $nick uses his Daxe Special and hits a %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!nwhip*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  set %dmhit $rand(0,30)
  msg $chan [DM] $nick uses his Whip and hits a %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!nmaul*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  set %dmhit $rand(0,4)
  if (%dmhit != 4) {
    set %dmhit $rand(0,25)
  }
  if (%dmhit == 4) {
    set %dmhit $rand(15,25)
  }
  msg $chan [DM] $nick uses his maul and hits a %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!nanchor*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  set %dmhit $rand(0,4)
  if (%dmhit != 4) {
    set %dmhit $rand(0,35)
  }
  if (%dmhit == 4) {
    set %dmhit $rand(0,21)
  }
  msg $chan [DM] $nick uses his anchor and hits a %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!ndscim*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick [DM] There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick [DM] You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick [DM] It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick [DM] Please wait until your health meter shows up before doing an attack! | HALT }
  set %dmhit $rand(0,25)
  msg $chan [DM] $nick uses his dscim and hits a %dmhit $+ , and also regenerates an extra 5% special meter!
  inc %dmspec [ $+ [ $nick ] ] 5
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick [DM] You now have %dmspec [ $+ [ $nick ] ] special bar.
}
alias dmregen {
  inc %dmspec [ $+ [ $1 ] ] 5
  set %dmturn $2
  msg %chandm [DM] It is now $2 $+ 's turn!
  if (%dmturn != $me) {
    timer 01 02 msg %chandm [DM] Health: %dmnick1 $+ ( $+ %dmhealth [ $+ [ %dmnick1 ] ] $+ ) %dmnick2 $+ ( $+ %dmhealth [ $+ [ %dmnick2 ] ] $+ )
    timer 01 02 unset %dmwait
  }
  set %dmwait on
  dmcheck
}
alias dmcheck {
  if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) {
    msg %chandm %dmnick1 has fallen to the ground, while %dmnick2 celebrates a glorious win! %dmnick2 wins!
    inc %losedm [ $+ [ %dmnick1 ] ]
    inc %winsdm [ $+ [ %dmnick2 ] ]
    unset %dm*
    halt
  }
  if (%dmhealth [ $+ [ %dmnick2 ] ] < 1) {
    msg %chandm %dmnick2 has fallen to the ground, while %dmnick1 celebrates a glorious win! %dmnick1 wins!
    inc %losedm [ $+ [ %dmnick2 ] ]
    inc %winsdm [ $+ [ %dmnick1 ] ] 
    unset %dm*
    halt
  }
  dmaiturn
}
on *:load:{
  unset %dm*
  set %chandm $?="What channel do you want your DM script to be in? (Default: #chatdm)"
}
alias chandm {
  if ($1 == $null) {
    echo -a [DM] Setting (%chandm) [def channel for DM script] to $active
    set %chandm $active
    halt
  }
  echo -a [DM] Setting (%chandm) [def channel for DM script] to $1-
  set %chandm $1-
  halt
}
alias dmend {
  if (%dmnick2 == $null) {
    msg %chandm [DM] Nobody has replied to %dmnick1 $+ 's DM request within 20 seconds! I will face you!
    set %dmai on
    set %dmnick2 $me
    set %dm on
    set %dmrand $rand(1,2)
    if (%dmrand == 1) {
      set %dmturn %dmnick1
    }
    if (%dmrand == 2) {
      set %dmturn %dmnick2
    }
    msg %chandm [DM] DM started between %dmnick1 and %dmnick2 $+ !
    msg %chandm [DM] To see commands, type !dmcommands $+ !
    msg %chandm [DM] Random pick... %dmturn goes first!
    set %dmspec [ $+ [ %dmnick1 ] ] 100
    set %dmspec [ $+ [ %dmnick2 ] ] 100
    set %dmhealth [ $+ [ %dmnick1 ] ] 99
    set %dmhealth [ $+ [ %dmnick2 ] ] 99
    dmaiturn
  }
}
alias dmaiturn {
  if (%dmai == on) {
    if (%dmturn == $me) {
      if (%dmspec [ $+ [ $me ] ] > 59) {
        set %dmrand $rand(1,6)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec < 60) {
        set %dmrand $rand(1,4)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 49) && (%dmspec < 55) {
        set %dmrand $rand(1,3)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 24) && (%dmspec < 50) {
        set %dmrand $rand(1,2)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] < 25) {
        set %dmrand $rand(7,10)
        goto %dmrand
      }
      :10
      if (%dmrand == 10) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !ndscim
            set %dmhit $rand(0,25)
            msg %chandm [DM] $me uses her Dscim and hits a %dmhit $+ , and also regenerates an extra 5% special meter!
            inc %dmspec [ $+ [ $me ] ] 5
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :9
      if (%dmrand == 9) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !nanchor
            set %dmhit $rand(0,4)
            if (%dmhit != 4) {
              set %dmhit $rand(0,35)
            }
            if (%dmhit == 4) {
              set %dmhit $rand(0,21)
            }
            msg %chandm [DM] $me uses her Anchor and hits a %dmhit $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :8
      if (%dmrand == 8) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !nmaul
            set %dmhit $rand(0,4)
            if (%dmhit != 4) {
              set %dmhit $rand(0,25)
            }
            if (%dmhit == 4) {
              set %dmhit $rand(15,25)
            }
            msg %chandm [DM] $me uses her Maul and hits a %dmhit $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :7
      if (%dmrand == 7) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !nwhip
            set %dmhit $rand(0,30)
            msg %chandm [DM] $me uses her Whip and hits a %dmhit $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :6
      if (%dmrand == 6) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !daxe
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit $rand(1,10)
            if (%dmhit < 4) { set %dmhit 45 }
            if (%dmhit > 3) { set %dmhit 0 }
            msg %chandm [DM] $me uses her Daxe Special and hits a %dmhit $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :5
      if (%dmrand == 5) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dscim
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit $rand(0,35)
            set %dmrand1 $rand(1,20)
            if (%dmrand1 == 1) { set %dmscima yes }
            set %dmrand2 $rand(1,10)
            if (%dmrand2 == 1) { set %dmscimb yes }
            set %dmrand3 $rand(1,2)
            if (%dmrand3 == 1) { set %dmscimc yes }
            msg %chandm [DM] $me uses her DScim Special and hits a %dmhit $+ !
            if (%dmscima == yes) { msg %chandm [DM] $me Also gains an extra _100%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 100 }
            if (%dmscimb == yes) { msg %chandm [DM] $me Also gains an extra _40%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 40 }
            if (%dmscimc == yes) { msg %chandm [DM] $me Also STEALS _10%_ special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $me ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :4
      if (%dmrand == 4) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !whip
            dec %dmspec [ $+ [ $me ] ] 55
            set %dmhit $rand(0,35)
            if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 }
            if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 }
            if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 }
            msg %chandm [DM] $me uses her Whip Special and hits a %dmhit $+ , which includes a + $+ %dmwhip bonus!
            if (%dmwhip == 5) { msg %chandm [DM] $me Also steals _20%_ special meter from %dmotherperson $+ !
              inc %dmspec [ $+ [ $me ] ] 20
              dec %dmspec [ $+ [ %dmotherperson ] ] 20
            }
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :3
      if (%dmrand == 3) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !anchor
            dec %dmspec [ $+ [ $me ] ] 50
            set %dmhit $rand(0,35)
            if (%dmhit < 15) {
              set %dmhit $rand(0,40)
            }
            msg %chandm [DM] $me uses her Anchor Special and hits a %dmhit $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :2
      if (%dmrand == 2) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dmace
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit $rand(0,50)
            if (%dmhit > 25) {
              set %dmhit $rand(0,50)
            }
            msg %chandm [DM] $me uses her DMace Special and hits a %dmhit $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
      :1
      if (%dmrand == 1) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dds
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit1 $rand(0,23)
            set %dmhit2 $rand(0,23)
            msg %chandm [DM] $me uses her DDS Special and hits a %dmhit1 and %dmhit2 $+ !
            set %dmhit $calc( %dmhit1 + %dmhit2 )
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
    }
  }
}
on *:text:!dmcheck*:#:{
  if ($2 == $null) {
    if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 }
    if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 }
    notice $nick [DM] Wins: ( $+ %winsdm [ $+ [ $nick ] ] $+ )
    notice $nick [DM] Loses: ( $+ %losedm [ $+ [ $nick ] ] $+ )
    halt
  }
  if (%winsdm [ $+ [ $2 ] ] == $null) { set %winsdm [ $+ [ $2 ] ] 0 }
  if (%losedm [ $+ [ $2 ] ] == $null) { set %losedm [ $+ [ $2 ] ] 0 }
  notice $nick [DM] $2 $+ 's Wins: ( $+ %winsdm [ $+ [ $2 ] ] $+ )
  notice $nick [DM] $2 $+ 's Loses: ( $+ %losedm [ $+ [ $2 ] ] $+ )
  halt
}
on *:text:!dmstop*:#:{
  if (%dm != on) {
    notice $Nick [DM] No game is currently running!
    halt
  }
  if (%dmstopcount == $null) {
    set %dmstopcount 1
    msg %chandm [DM] There is now 1 vote to end the game!
    halt
  }
  if (%dmstopcount == 1) {
    msg %chandm [DM] Ending game!
    unset %dm*
    halt
  }
}
on *:text:!stopdm*:#:{
  if (%dm != on) {
    notice $Nick [DM] No game is currently running!
    halt
  }
  if (%dmstopcount == $null) {
    set %dmstopcount 1
    msg %chandm [DM] There is now 1 vote to end the game!
    halt
  }
  if (%dmstopcount == 1) {
    msg %chandm [DM] Ending game!
    unset %dm*
    halt
  }
}
on *:text:!dm*:#:{
  if ($chan == %chandm) {
    if (%dmfixing == yes) { msg %chandm [DM] DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
      halt
    }
  }
  if (%dmfixing == yes) { notice $nick [DM] DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
    halt
  }
  if ($1 == !dm) {
    if (%dm == on) {
      notice $Nick [DM] A dm is already running! Have 2 people type !dmstop to stop it!
      halt
    }
    if ($chan != %chandm) {
      notice $nick [DM] This is the wrong channel for DMing! Please goto %chandm to DM!
      halt
    }
    if (%dmstart == $null) {
      msg %chandm [DM] A DM request has been opened! One more person needs to type !DM to join!
      timer 01 20 dmend
      unset %dm*
      set %dmnick1 $nick
      set %dmstart yes
      halt
    }
    if (%dmstart == yes) {
      if (%dmnick1 != $nick) {
        set %dmnick2 $nick
        set %dm on
        msg %chandm [DM] DM started between %dmnick1 and %dmnick2 $+ !
        msg %chandm [DM] To see commands, type !dmcommands $+ !
        set %dmrand $rand(1,2)
        if (%dmrand == 1) {
          set %dmturn %dmnick1
        }
        if (%dmrand == 2) {
          set %dmturn %dmnick2
        }
        set %dmspec [ $+ [ %dmnick1 ] ] 100
        set %dmspec [ $+ [ %dmnick2 ] ] 100
        set %dmhealth [ $+ [ %dmnick1 ] ] 99
        set %dmhealth [ $+ [ %dmnick2 ] ] 99
        msg %chandm [DM] Random pick... %dmturn goes first!
      }
    }
  }
}