;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;Script By Vegeto079/Peach/Peachbot;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;Changelog named ChangeLog.txt;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;Script named DM_Script.mrc;;;;;;;;;;;;;;;;;;;;
;;;;;;Sorry about many variables, but it's the way i script!;;;;;;
;;;To Contact me about the script, email veget00tegev@yahoo.com;;;
;;;;;;;;;;;;Or talk to me in #peach on irc.swifitrc.net;;;;;;;;;;;
;;;;;Please do not edit this in any way without my permission;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;..:STARTING:..;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;To begin, simply unzip the script into your mIRC directory;;;;
;;;;;;;;;Then type this into mIRC: /load -rs DM_Script.mrc;;;;;;;;
;;;After that, a box should come up asking a question, say yes.;;;
;;;;;Answer the questions accordingly, and you're good to go!;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;..:COMMANDS:..;;;;;;;;;;;;;;;;;;;;;;;;;;
;;As right below this shows, !dmcommands will show all commands.;;
;;Typing !dm will initiate a dm, with another person or the bot.;;
;!dmstop/!stopdm will end a dm (two people saying it req./30sec.);
;;;;;;;;;;;;;;;;!dmcheck checks your DM statistics;;;;;;;;;;;;;;;;
;;;;!dmadmin (admins only) shows admin commands/activates them;;;;
;;;;;;;!dmbuy (buy mod must be enabled) will show/buy items;;;;;;;
;;;;;;;;;!dmmods will show what mods are currently running.;;;;;;;
;;;!attacks show a simpler version of !dmcommands, only attacks;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;..:SCRIPT:..;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
alias asdmsg {
  if (%stripdm == yes) && (%logodm == $1) {
    msg $chan $strip($1-)
  }
}
on *:mode:%chandm:{
  if (+c isin $1-) {
    set %stripdm yes
    halt
  }
  if (-c isin $1-) {
    unset %stripdm
    halt
  }
}
on *:text:!dmcommands*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT }
  if (%commandhalt != $null) { notice $nick 06I am currently sending commands to somebody else.05 Please wait.
    set %commandhalt2 [ $+ [ $nick ] ] yes
  HALT }
  unset %commandhalt2*
  set %commandhalt yes
  timer 01 10 unset %commandhalt
  timer 01 02 msg $chan %logodm Sending $nick DMCommands.
  timer 01 04 msg $chan %logodm Please wait 10-15 seconds before using another command.
  timer 01 06 msg $nick %logodm DM RULES.
  timer 01 08 msg $nick %logodm You start with 100% Special Attack meter. It is suggested you use this.
  timer 01 10 msg $nick %logodm Every turn, your Special Attack meter raises 5%.
  timer 01 12 msg $nick %logodm Commands
  timer 01 14 msg $nick %logodm Syntax: Command :: Effect
  timer 01 16 msg $nick %logodm !dmstop :: Stops DM. Requires two people to initiate.
  timer 01 18 msg $nick %logodm !dmcommands :: Display all commands. This that you are reading IS !dmcommands
  timer 01 20 msg $nick %logodm !dmcheck :: Display current Win/Lose record, K/D ratio, gold, items.
  timer 01 22 msg $nick %logodm !dmadmin :: For ADMINS. Displays admin commands.
  timer 01 24 msg $nick %logodm !dmbuy :: If buying mod is enabled, lets you buy/check items to buy.
  timer 01 26 msg $nick %logodm !dmmods :: Checks what mods are currently enabled.
  timer 01 28 msg $nick %logodm !attacks :: Shows a list like this, but only with usable attacks
  timer 01 30 msg $nick %logodm !available :: Shows what attacks you can currently use
}
on *:text:!available*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT }
  if (%commandhalt != $null) { notice $nick 06I am currently sending commands to somebody else.05 Please wait.
    set %commandhalt2 [ $+ [ $nick ] ] yes
  HALT }
  unset %commandhalt2*
  set %commandhalt yes
  timer 01 10 unset %commandhalt
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  set %dminc 02
  timer 01 %dminc msg $nick %logodm DM SPECIAL ATTACKS.
  inc %dminc 2
  timer 01 %dminc msg $nick %logodm Syntax: Command :: Percent special uses :: Max hit :: Effect
  if (%dmspec [ $+ [ $nick ] ] > 4) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !gaxe :: 5% :: 30 (80. See special) :: Low chance to hit high. The less HP you have, the higher you can hit
  }
  if (%dmspec [ $+ [ $nick ] ] > 24) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !dds :: 25% :: 52 (double 26) :: Hits twice. Semi-High chance at hitting higher than 10. Chance to poison.
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !dmace :: 25% :: 50 :: Double the chance to hit below 25.
  }
  if (%dmspec [ $+ [ $nick ] ] > 29) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !confuse :: 30% :: 15 :: High chance to cause the enemy to be forced to have strange abilities
  }
  if (%dmspec [ $+ [ $nick ] ] > 49) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !anchor :: 50% :: 40 :: Double the chance to hit above 15.
  }
  if (%dmspec [ $+ [ $nick ] ] > 54) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !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.
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !dbow :: 55% :: 72 (double 36) :: Low chance to hit above 20. Lowest hit is 16 (double 8)
  }
  if (%dmspec [ $+ [ $nick ] ] > 59) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !daxe :: 60% :: Either hits 0 or 65 :: Low chance to hit 65.
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !dscim :: 60% :: 35 :: 5% chance of earning 100% special meter. 10% chance of earning 40% special meter. 50% chance of STEALING 10% special meter.
  }
  if (%dmspec [ $+ [ $nick ] ] > 94) {
    inc %dminc 2
    timer 01 %dminc msg $nick %logodm !godsword :: 95% :: 99 :: Low chance to hit above 60
  }
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !ability :: All :: 0 :: Gives random abilities for the rest of the game.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm DM NORMAL ATTACKS.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm Syntax: Command :: Max hit :: Effect
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !Nwhip :: 30 :: None.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !Nmaul :: 25 :: Slightly high chance to hit higher.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !Nanchor :: 35 :: Slightly high chance to hit lower.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !Ndscim :: 25 :: Regenerate 5% extra special meter this turn.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm !Pass :: 0 :: Regenerate 2% extra special meter, 5 health, and be relieved of any strange abilities.
  inc %dminc2
  timer 01 %dminc msg $nick %logodm There are also secret (food related) weapons that if you find, can help you out a lot!
  if ($nick isin %adminsdm) {
    inc %dminc2
    timer 01 %dminc msg $nick %logodm !Admin :: 0 : Regenerate 1-40 extra special meter this turn.
  }
  unset %dminc2
}
on *:text:!admin*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 0) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if ($address($nick,2) != $address($me,2)) { notice $nick %logodm Only Admins can use this move! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  msg $chan %logodm 05 $+ $nick $+  transforms into a mystical admin peach and does..well...absolutely nothing.
  set %adminpeach $rand(0,35)
  if (%adminpeach > 0) && (%adminpeach < 6) {
    set %adminpeach $rand(3,35)
  }
  if (%adminpeach == 0) {
    set %adminpeach $rand(30,40)
  }
  if (%adminpeach > 13) {
    set %adminpeach $rand(15,30)
  }
  inc %dmspec [ $+ [ $nick ] ] %adminpeach
  notice $nick %logodm Your admin powers have worked, and gained you an extra 04 $+ %adminpeach $+  special!
  dmregen $nick %dmotherperson
}
;;;;;
;;;;;START OF FOOD RELATED ITEMS
;;;;;
on *:text:!quesadilla*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 100) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmblock [ $+ [ $nick ] ] != $null) { notice $nick %logodm You are blocked and cannot use this move! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 100
  set %dmhit1 $rand(0,65)
  set %dmhit2 $rand(0,70)
  if (%dmhit1 > 60) { set %dmhit1 $rand(50,70) | goto a }
  if (%dmhit1 > 55) { set %dmhit1 $rand(45,60) | goto a }
  if (%dmhit1 > 50) { set %dmhit1 $rand(40,60) | goto a }
  if (%dmhit1 > 40) { set %dmhit1 $rand(30,50) | goto a }
  if (%dmhit1 > 30) { set %dmhit1 $rand(20,40) | goto a }
  if (%dmhit1 > 20) { set %dmhit1 $rand(10,30) | goto a }
  if (%dmhit1 > 10) { set %dmhit1 $rand(5,20) | goto a }
  if (%dmhit1 < 10) { set %dmhit1 $rand(10,30) | goto a }
  :a
  if (%dmhit2 > 60) { set %dmhit2 $rand(50,70) | goto b }
  if (%dmhit2 > 55) { set %dmhit2 $rand(45,60) | goto b }
  if (%dmhit2 > 50) { set %dmhit2 $rand(40,60) | goto b }
  if (%dmhit2 > 40) { set %dmhit2 $rand(30,50) | goto b }
  if (%dmhit2 > 30) { set %dmhit2 $rand(20,40) | goto b }
  if (%dmhit2 > 20) { set %dmhit2 $rand(10,30) | goto b }
  if (%dmhit2 > 10) { set %dmhit2 $rand(5,20) | goto b }
  if (%dmhit2 < 10) { set %dmhit2 $rand(10,30) | goto b }
  :b
  if (%dmhit1 > 10) {
    set %dmhit2 $rand(9,70)
  }
  if (%dmhit2 > 10) {
    set %dmhit1 $rand(9,70)
  }
  dmitems
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  throws a 04Steak Quesadilla at 05 $+ %dmotherperson $+ !
  msg $chan %logodm The 04Steak Quesadilla hits 05 $+ %dmotherperson on the face, burning them for 04 $+ %dmhit1 $+  damage.
  msg $chan %logodm After eating the delicious 04Steak Quesadilla, 05 $+ %dmotherperson has bad gas and a stomach ache, causing 04 $+ %dmhit2 damage to both players!
  set %dmpoison $rand(1,4)
  if (%dmpoison == 1) {
    if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
      msg $chan %logodm 05 $+ %dmotherperson gets deadlier poison!
      inc %dmpoison [ $+ [ %dmotherperson ] ] 8
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
      inc %dmpoison [ $+ [ %dmotherperson ] ] 8
    }
  }
  if (%dmpoison == 2) {
    inc %dmpoison [ $+ [ $nick ] ] 8
    if (%dmpoison [ $+ [ $nick ] ] != $null) {
      msg $chan %logodm 05 $+ $nick gets deadlier poison!
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ $nick is now poisoned!
    }
  }
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dec %dmhealth [ $+ [ $nick ] ] %dmhit2
  dmregen $nick %dmotherperson

}
on *:text:!pizza*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmblock [ $+ [ $nick ] ] != $null) { notice $nick %logodm You are blocked and cannot use this move! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,12)
  set %dmhit2 $rand(0,12)
  if (%dmhit1 < 10) { set %dmhit1 $rand(10,16) }
  if (%dmhit2 < 10) { set %dmhit2 $rand(10,16) }
  if (%dmhit1 > 10) {
    set %dmhit2 $rand(10,22)
  }
  if (%dmhit2 > 10) {
    set %dmhit1 $rand(10,22)
  }
  dmitems
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  throws a 04pepperoni pizza slice at 05 $+ %dmotherperson $+ !
  msg $chan %logodm The 04pepperoni pizza slice hits for 04 $+ %dmhit1 $+  damage.
  msg $chan %logodm After eating the 04pepperoni pizza slice, 05 $+ %dmotherperson is left with utter regret and a sick stomach, causing 04 $+ %dmhit2 damage!
  set %dmpoison $rand(1,5)
  if (%dmpoison == 1) {
    inc %dmpoison [ $+ [ %dmotherperson ] ] 6
    if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
      msg $chan %logodm 05 $+ %dmotherperson gets deadlier poison!
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
    }
  }
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson

}
on *:text:!cake*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmblock [ $+ [ $nick ] ] != $null) { notice $nick %logodm You are blocked and cannot use this move! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 50
  set %dmhit1 $rand(0,29)
  set %dmhit2 $rand(0,29)
  if (%dmhit1 < 10) { set %dmhit1 $rand(10,20) }
  if (%dmhit2 < 10) { set %dmhit2 $rand(10,20) }
  if (%dmhit1 > 25) {
    set %dmhit2 $rand(20,39)
  }
  if (%dmhit2 > 25) {
    set %dmhit1 $rand(20,39)
  }
  dmitems
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  throws a 04devils cake at 05 $+ %dmotherperson $+ !
  msg $chan %logodm The 04devils cake at first hits 04 $+ %dmhit1 $+ , but leaves 05 $+ %dmotherperson feeling sad and lonely, causing 04 $+ %dmhit2 damage!
  set %dmpoison $rand(1,5)
  if (%dmpoison == 1) {
    inc %dmpoison [ $+ [ %dmotherperson ] ] 6
    if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
      msg $chan %logodm 05 $+ %dmotherperson gets deadlier poison!
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
    }
  }
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson

}
on *:text:!pie*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 70) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmblock [ $+ [ $nick ] ] != $null) { notice $nick %logodm You are blocked and cannot use this move! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 70
  set %dmhit1 $rand(0,39)
  set %dmhit2 $rand(0,39)
  if (%dmhit1 < 10) { set %dmhit1 $rand(10,20) }
  if (%dmhit2 < 10) { set %dmhit2 $rand(10,20) }
  if (%dmhit1 > 35) {
    set %dmhit2 $rand(30,49)
  }
  if (%dmhit2 > 35) {
    set %dmhit1 $rand(30,49)
  }
  dmitems
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  throws a 04demon pie at 05 $+ %dmotherperson $+ !
  msg $chan %logodm The 04demon pie at first hits 04 $+ %dmhit1 $+ , but leaves 05 $+ %dmotherperson feeling fat, causing 04 $+ %dmhit2 damage!
  set %dmpoison $rand(1,5)
  if (%dmpoison == 1) {
    inc %dmpoison [ $+ [ %dmotherperson ] ] 6
    if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
      msg $chan %logodm 05 $+ %dmotherperson gets deadlier poison!
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
    }
  }
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
;;;;;
;;;;;END OF FOOD RELATED ITEMS
;;;;;
on *:text:!pass*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dmitems
  msg $chan %logodm 05 $+ $nick $+  passes their 04turn, getting extra 04special, 04health and is relieved of 04strange abilities!
  inc %dmspec [ $+ [ $nick ] ] 2
  inc %dmhealth [ $+ [ $nick ] ] 5
  unset %dmability [ $+ [ $nick ] ]
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!attacks*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT }
  if (%commandhalt1 != $null) { notice $nick 06I am currently sending attacks to somebody else.05 Please wait.
    set %commandhalt2 [ $+ [ $nick ] ] yes
  HALT }
  unset %commandhalt2*
  set %commandhalt yes
  timer 01 12 unset %commandhalt
  msg $chan %logodm Sending $nick DMAttacks.
  msg $chan %logodm Please wait 10-15 seconds before using another command.
  timer 01 02 msg $nick %logodm DM SPECIAL ATTACKS.
  timer 01 04 msg $nick %logodm Syntax: Command :: Percent special uses :: Max hit :: Effect
  timer 01 06 msg $nick %logodm !dds :: 25% :: 52 (double 26) :: Hits twice. Semi-High chance to hit above 10. Chance to poison.
  timer 01 08 msg $nick %logodm !dmace :: 25% :: 50 :: Double the chance to hit below 25.
  timer 01 10 msg $nick %logodm !anchor :: 50% :: 40 :: Double the chance to hit above 15.
  timer 01 12 msg $nick %logodm !dscim :: 60% :: 35 :: 5% chance of earning 100% special meter. 10% chance of earning 40% special meter. 50% chance of STEALING 10% special meter.
  timer 01 14 msg $nick %logodm !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.
  timer 01 16 msg $nick %logodm !daxe :: 60% :: Either hits 0 or 65 :: Low chance to hit 65.
  timer 01 17 msg $nick %logodm !gaxe :: 5% :: 30 (80. See special) :: Low chance to hit high. The less HP you have, the higher you can hit
  timer 01 17 msg $nick %logodm !godsword :: 95% :: 99 :: Low chance to hit above 60
  timer 01 18 msg $nick %logodm !ability :: All :: 0 :: Gives random abilities for the rest of the game.
  timer 01 19 msg $nick %logodm !confuse :: 30% :: 15 :: High chance to cause the enemy to be forced to have strange abilities
  timer 01 20 msg $nick %logodm !dbow :: 55% :: 72 (double 36) :: Low chance to hit above 20.  Lowest hit is 16 (double 8)
  timer 01 22 msg $nick %logodm DM NORMAL ATTACKS.
  timer 01 24 msg $nick %logodm Syntax: Command :: Max hit :: Effect
  timer 01 26 msg $nick %logodm !Nwhip :: 30 :: None.
  timer 01 28 msg $nick %logodm !Nmaul :: 25 :: Slightly high chance to hit higher.
  timer 01 30 msg $nick %logodm !Nanchor :: 35 :: Slightly high chance to hit lower.
  timer 01 32 msg $nick %logodm !Ndscim :: 25 :: Regenerate 5% extra special meter this turn.
  timer 01 34 msg $nick %logodm !Pass :: 0 :: Regenerate 2% extra special meter, 5 health, and be relieved of any strange abilities.
  timer 01 36 msg $nick %logodm There are also secret (food related) weapons that if you find, can help you out a lot!
  if ($nick isin %adminsdm) {
    timer 01 38 msg $nick %logodm !Admin :: 0 : Regenerate 1-20 extra special meter this turn.
  }
}
on *:text:!dbow*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 55
  set %dmhit1 $rand(0,36)
  set %dmhit2 $rand(0,36)
  if (%dmhit1 > 25) {
    set %dmhit1 $rand(0,36)
  }
  if (%dmhit2 > 30) {
    set %dmhit2 $rand(0,36)
  }
  if (%dmhit1 > 25) {
    set %dmhit1 $rand(0,36)
  }
  if (%dmhit2 > 30) {
    set %dmhit2 $rand(0,36)
  }
  if (%dmhit1 < 8) {
    set %dmhit1 8
  }
  if (%dmhit2 < 8) {
    set %dmhit2 8
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Dragon Bow Special and hits a 04 $+ %dmhit1 $+  and 04 $+ %dmhit2 $+ !
  set %dmhit1 $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!confuse*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 30) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  set %dmhit1 $rand(0,15)
  dmitems | dmgodstuff
  set %dmrand $rand(1,10)
  dec %dmspec [ $+ [ $nick ] ] 30
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Confuse Spell and hits a 04 $+ %dmhit1 $+ !
  if (%dmrand > 2) {
    msg $chan %logodm 05 $+ %dmotherperson $+  now may suffer or benefit from strange abilities.
    set %dmability [ $+ [ %dmotherperson ] ] yes
  }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!ability*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmability [ $+ [ $nick ] ] != $null) { notice $nick %logodm You can only use !ability once a game! | HALT }
  if (%dmability [ $+ [ $nick ] ] == $null) { set %dmability [ $+ [ $nick ] ] yes }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 100
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  if (%dmspec [ $+ [ $nick ] ] < 0) { set %dmspec [ $+ [ $nick ] ] 0 }
  msg $chan %logodm 05 $+ $nick $+  now may suffer or benefit from strange abilities.
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!godsword*:#:{
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 95) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmgod [ $+ [ $nick ] ] == 2) { notice $nick %logodm You can only use !godsword once a game! | HALT }
  if (%dmgod [ $+ [ $nick ] ] == $null) { set %dmgod [ $+ [ $nick ] ] 2 }
  if (%dmgod [ $+ [ $nick ] ] != $null) && (%dmgod [ $+ [ $nick ] ] != 2) { inc %dmgod [ $+ [ $nick ] ] }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 95
  set %dmhit1 $rand(0,99)
  if (%dmhit1 > 60) {
    set %dmhit1 $rand(0,99)
  }
  if (%dmhit1 > 65) {
    set %dmhit1 $rand(0,99)
  }
  if (%dmhit1 < 30) {
    set %dmhit1 $rand(0,99)
  }
  if (%dmhit1 > 60) {
    set %dmhit1 $rand(0,99)
  }
  set %dmcommandsaid god
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their God Sword Special and hits a 04 $+ %dmhit1 $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!gaxe*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 5) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 5
  if (%dmhealth [ $+ [ $nick ] ] == 1) {
    set %dmhit1 $rand(0,80)
    if (%dmhit1 > 60) {
      set %dmhit1 $rand(0,80)
    }
    if (%dmhit1 < 30) {
      set %dmhit1 $rand(0,80)
    }
    if (%dmhit1 > 60) {
      set %dmhit1 $rand(0,80)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] == 2) {
    set %dmhit1 $rand(0,75)
    if (%dmhit1 > 50) {
      set %dmhit1 $rand(0,75)
    }
    if (%dmhit1 < 40) {
      set %dmhit1 $rand(0,80)
    }
    if (%dmhit1 > 50) {
      set %dmhit1 $rand(0,80)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 2) {
    set %dmhit1 $rand(0,70)
    if (%dmhit1 > 50) {
      set %dmhit1 $rand(0,70)
    }
    if (%dmhit1 < 45) {
      set %dmhit1 $rand(0,80)
    }
    if (%dmhit1 > 50) {
      set %dmhit1 $rand(0,80)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 5) {
    set %dmhit1 $rand(0,70)
    if (%dmhit1 > 40) {
      set %dmhit1 $rand(0,70)
    }
    if (%dmhit1 > 60) {
      set %dmhit1 $rand(0,70)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 10) {
    set %dmhit1 $rand(0,65)
    if (%dmhit1 > 47) {
      set %dmhit1 $rand(0,65)
    }
    if (%dmhit1 > 57) {
      set %dmhit1 $rand(0,65)
    }
    if (%dmhit1 > 67) {
      set %dmhit1 $rand(0,65)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 20) {
    set %dmhit1 $rand(0,60)
    if (%dmhit1 > 37) {
      set %dmhit1 $rand(0,60)
    }
    if (%dmhit1 > 47) {
      set %dmhit1 $rand(0,60)
    }
    if (%dmhit1 > 57) {
      set %dmhit1 $rand(0,60)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 30) {
    set %dmhit1 $rand(0,55)
    if (%dmhit1 > 28) {
      set %dmhit1 $rand(0,55)
    }
    if (%dmhit1 > 38) {
      set %dmhit1 $rand(0,55)
    }
    if (%dmhit1 > 48) {
      set %dmhit1 $rand(0,55)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 40) {
    set %dmhit1 $rand(0,50)
    if (%dmhit1 > 19) {
      set %dmhit1 $rand(0,50)
    }
    if (%dmhit1 > 29) {
      set %dmhit1 $rand(0,50)
    }
    if (%dmhit1 > 39) {
      set %dmhit1 $rand(0,50)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 50) {
    set %dmhit1 $rand(0,45)
    if (%dmhit1 > 10) {
      set %dmhit1 $rand(0,45)
    }
    if (%dmhit1 > 20) {
      set %dmhit1 $rand(0,45)
    }
    if (%dmhit1 > 30) {
      set %dmhit1 $rand(0,45)
    }
  }
  if (%dmhealth [ $+ [ $nick ] ] > 80) {
    set %dmhit1 $rand(0,30)
    if (%dmhit1 > 5) {
      set %dmhit1 $rand(0,30)
    }
    if (%dmhit1 > 15) {
      set %dmhit1 $rand(0,30)
    }
    if (%dmhit1 > 25) {
      set %dmhit1 $rand(0,30)
    }
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Great Axe Special and hits a 04 $+ %dmhit1 $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!eat*:#:{
  if (%otherdmbot == yes) { HALT }
  if (%dm != on) { HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) {  HALT }
  if (%dmturn == $nick) {
    msg $chan %logodm There is no eating in this DM game!
  }
}
on *:text:!shark*:#:{
  if (%otherdmbot == yes) { HALT }
  if (%dm != on) { HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { HALT }
  if (%dmturn == $nick) {
    msg $chan %logodm There is no eating in this DM game!
  }
}
on *:text:!dds*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,26)
  set %dmhit2 $rand(0,26)
  if (%dmhit1 < 10) {
    set %dmhit1 $rand(0,26)
  }
  if (%dmhit1 < 5) {
    set %dmhit1 $rand(0,26)
  }
  if (%dmhit2 < 10) {
    set %dmhit2 $rand(0,26)
  }
  if (%dmhit2 < 5) {
    set %dmhit2 $rand(0,26)
  }
  set %dmfreeze2 8
  if (%dmhit1 > 0) {
    dec %dmfreeze2
  }
  if (%dmhit1 > 5) {
    dec %dmfreeze2
  }
  if (%dmhit1 > 13) {
    dec %dmfreeze2
  }
  if (%dmhit1 > 21) {
    dec %dmfreeze2
  }
  if (%dmhit1 > 23) {
    dec %dmfreeze2
  }
  if (%dmhit2 > 0) {
    dec %dmfreeze2
  }
  if (%dmhit2 > 5) {
    dec %dmfreeze2
  }
  if (%dmhit2 > 13) {
    dec %dmfreeze2
  }
  if (%dmhit2 > 21) {
    dec %dmfreeze2
  }
  if (%dmhit2 > 23) {
    dec %dmfreeze2
  }
  if (%dmfreeze2 > 5) || (%dmfreeze2 < 1) {
    unset %dmfreeze2
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their DDS Special and hits a 04 $+ %dmhit1 $+  and 04 $+ %dmhit2 $+ !
  if (%dmfreeze2 != $null) {
    if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
      if (%dmpoison [ $+ [ %dmotherperson ] ] < %dmfreeze2) {
        msg $chan %logodm 05 $+ %dmotherperson is deadlier poisoned!
        set %dmpoison [ $+ [ %dmotherperson ] ] %dmfreeze2
      }
    }
    if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
      msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
      set %dmpoison [ $+ [ %dmotherperson ] ] %dmfreeze2
    }
  }
  set %dmhit1 $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!dmace*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,50)
  if (%dmhit1 > 25) {
    set %dmhit1 $rand(0,50)
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their DMace Special and hits a 04 $+ %dmhit1 $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!anchor*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 50
  set %dmhit1 $rand(0,35)
  if (%dmhit1 < 15) {
    set %dmhit1 $rand(0,40)
  }
  dmitems | dmgodstuff
  if (god isin %listdm [ $+ [ %dmotherperson ] ]) {
    set %dmdmg $rand(1,15)
    if (%dmdmg > 2) {
      set %dmhit1 0 | set %dmhit2 0
      msg $chan Gods power has protected %dmotherperson from $nick $+ 's attack!
    }
  }
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Anchor Special and hits a 04 $+ %dmhit1 $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!dscim*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit1 $rand(0,35)
  set %dmrand1 $rand(1,20)
  set %dmrand2 $rand(1,10)
  set %dmrand3 $rand(1,2)
  if (%dmrand1 == 1) { set %dmscima yes }
  if (%dmrand2 == 1) { set %dmscimb yes }
  if (%dmrand3 == 1) { set %dmscimc yes }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Dscim Special and hits a 04 $+ %dmhit1 $+ !
  if (%dmscima == yes) { msg $chan %logodm $nick Also gains an extra _04 $+ 100% $+ _ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 100 }
  if (%dmscimb == yes) { msg $chan %logodm $nick Also gains an extra _04 $+ 40% $+ _ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 40 }
  if (%dmscimc == yes) { msg $chan %logodm $nick Also STEALS _04 $+ 10% $+ _ special meter from 04 $+ %dmotherperson $+ ! | inc %dmspec [ $+ [ $nick ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  unset %dmscim*
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!whip*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 55
  set %dmhit1 $rand(0,35)
  if (%dmhit1 < 11) { inc %dmhit1 1 | set %dmwhip 1 }
  if (%dmhit1 > 10) && (%dmhit1 < 35) { inc %dmhit1 2 | set %dmwhip 2 }
  if (%dmhit1 == 35) { inc %dmhit1 5 | set %dmwhip 5 }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Whip Special and hits a 04 $+ %dmhit1 $+ , which includes a 04+ $+ %dmwhip $+  bonus!
  if (%dmwhip == 5) { msg $chan %logodm $nick Also steals _04 $+ 20% $+ _ special meter from 04 $+ %dmotherperson $+ !
    inc %dmspec [ $+ [ $nick ] ] 20
    dec %dmspec [ $+ [ %dmotherperson ] ] 20
  }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!daxe*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %logodm You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit1 $rand(1,5)
  if (%dmhit1 == 1) || (%dmhit1 == 2) || (%dmhit1 == 3) { set %dmhit1 0 }
  if (%dmhit1 > 3) { set %dmhit1 65 }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Daxe Special and hits a 04 $+ %dmhit1 $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!nwhip*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  } 
  set %dmhit1 $rand(0,30)
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their Whip and hits a 04 $+ %dmhit1 $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!nmaul*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  set %dmhit1 $rand(0,4)
  if (%dmhit1 != 4) {
    set %dmhit1 $rand(0,25)
  }
  if (%dmhit1 == 4) {
    set %dmhit1 $rand(15,25)
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their maul and hits a 04 $+ %dmhit1 $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!nanchor*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  set %dmhit1 $rand(0,4)
  if (%dmhit1 != 4) {
    set %dmhit1 $rand(0,35)
  }
  if (%dmhit1 == 4) {
    set %dmhit1 $rand(0,21)
  }
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their anchor and hits a 04 $+ %dmhit1 $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
on *:text:!ndscim*:#:{
  if (%otherdmbot == yes) { HALT }
  if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  if (%chandm != $chan) { HALT }
  if (%dm != on) { notice $nick %logodm There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 != $nick) && (%dmnick2 != $nick) { notice $nick %logodm You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %logodm It is not your turn! | HALT }
  if (%dmwait == on) { notice $nick %logodm Please wait until your health meter shows up before doing an attack! | HALT }
  if (%dmtimer != $null) { 
    unset %dmtimer
  }
  set %dmhit1 $rand(0,25)
  dmitems | dmgodstuff
  if (%dmhit1 < 0) { set %dmhit1 0 | set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %logodm 05 $+ $nick $+  uses their dscim and hits a 04 $+ %dmhit1 $+ , and also regenerates an extra 045% special meter!
  inc %dmspec [ $+ [ $nick ] ] 5
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  dmregen $nick %dmotherperson
  notice $nick %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ ,$nick)
}
alias dmregen {
  if (%dmturn == %dmnick1) {
    if (%dmability [ $+ [ %dmnick1 ] ] == yes) {
      set %dmrandom $rand(0,17)
      if (%dmrandom == 0) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  suffers from intense pain, losing 04 $+ %dmrandom $+  health.
        dec %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 1) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  feels power flow through their body, regenerating 04 $+ %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 2) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  feels a mystical power rush through their veins, regenerating 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 3) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  suffers as an evil power rushes through their veins, depleting 04 $+ %dmrandom $+  special.
        dec %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 4) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 5) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }    
      if (%dmrandom == 6) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  feels power flow through their body, regenerating 04 $+ %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 7) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  feels a mystical power rush through their veins, regenerating 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 8) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  suffers as an evil power rushes through their veins, depleting 04 $+ %dmrandom $+  special.
        dec %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 9) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 10) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 11) {
        set %dmrandom $rand(50,100)
        msg %chandm %logodm The 05Gods call upon 05 $+ %dmnick1 $+ , giving them a chance to use the 05GodSword one more time, and granting them 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        set %dmgod [ $+ [ %dmnick1 ] ] 1
        goto end
      }
      if (%dmrandom == 12) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end
      }
      if (%dmrandom == 13) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end
      }
      if (%dmrandom > 13) {
        if (%dmnick1 != $me) { notice %dmnick1 %logodm Your 05ability grants you no power. }
        goto end
      }
    }
  }
  :end
  if (%dmturn == %dmnick2) {
    if (%dmability [ $+ [ %dmnick2 ] ] == yes) {
      set %dmrandom $rand(0,17)
      if (%dmrandom == 0) {
        set %dmrandom $rand(1,15)
        msg %chandm %logodm 05 $+ %dmnick2 $+  suffers from intense pain, losing 04 $+ %dmrandom $+  health.
        dec %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 1) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  feels power flow through their body, regenerating 04 $+ %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 2) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  feels a mystical power rush through their veins, regenerating 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 3) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  suffers as an evil power rushes through their veins, depleting 04 $+ %dmrandom $+  special.
        dec %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 4) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 5) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }    
      if (%dmrandom == 6) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  feels power flow through their body, regenerating 04 $+ %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 7) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  feels a mystical power rush through their veins, regenerating 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 8) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  suffers as an evil power rushes through their veins, depleting 04 $+ %dmrandom $+  special.
        dec %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 9) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 10) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  health.
        inc %dmhealth [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmhealth [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 11) {
        set %dmrandom $rand(50,100)
        msg %chandm %logodm The 05Gods call upon 05 $+ %dmnick2 $+ , giving them a chance to use the 05GodSword one more time, and granting them 04 $+ %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        set %dmgod [ $+ [ %dmnick2 ] ] 1
        goto end2
      }
      if (%dmrandom == 12) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick2 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick1 $+ , 04Stealing %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        dec %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom == 13) {
        set %dmrandom $rand(10,35)
        msg %chandm %logodm 05 $+ %dmnick1 $+  $+ 's spirit casts a magical spell on 05 $+ %dmnick2 $+ , 04Stealing %dmrandom $+  special.
        inc %dmspec [ $+ [ %dmnick1 ] ] %dmrandom
        dec %dmspec [ $+ [ %dmnick2 ] ] %dmrandom
        goto end2
      }
      if (%dmrandom > 13) {
        if (%dmnick2 != $me) { notice %dmnick2 %logodm Your 05ability grants you no power. }
        goto end2
      }
    }
  }
  :end2
  if (%otherdmbot == yes) { HALT }
  inc %dmspec [ $+ [ $1 ] ] 5
  if (%dmspec [ $+ [ $1 ] ] > 100) { set %dmspec [ $+ [ $1 ] ] 100 }
  if (%dmspec [ $+ [ $2 ] ] > 100) { set %dmspec [ $+ [ $1 ] ] 100 }
  notice %dmturn %logodm Special: $dmbar(%dmspec [ $+ [ $nick ] ] $+ )
  set %dmturn $2
  if (%dmhealth [ $+ [ %dmnick1 ] ] > 99) {
  set %dmhealth [ $+ [ %dmnick1 ] ] 99 }
  if (%dmhealth [ $+ [ %dmnick2 ] ] > 99) {
  set %dmhealth [ $+ [ %dmnick2 ] ] 99 }
  if (%dmpoison [ $+ [ %dmnick1 ] ] != $null) {
    dec %dmhealth [ $+ [ %dmnick1 ] ] %dmpoison [ $+ [ %dmnick1 ] ]
    msg $chan %logodm 04 $+ %dmnick1 is hurt by poison for 04 $+ %dmpoison [ $+ [ %dmnick1 ] ] $+ !
  }
  if (%dmpoison [ $+ [ %dmnick2 ] ] != $null) {
    dec %dmhealth [ $+ [ %dmnick2 ] ] %dmpoison [ $+ [ %dmnick2 ] ]
    msg $chan %logodm 04 $+ %dmnick2 is hurt by poison for 04 $+ %dmpoison [ $+ [ %dmnick2 ] ] $+ !
  }
  if (%dmfreeze [ $+ [ %dmnick1 ] ] != $null) {
    dec %dmfreeze [ $+ [ %dmnick1 ] ]
  }
  if (%dmfreeze [ $+ [ %dmnick1 ] ] == 0) {
    msg $chan %logodm 04 $+ %dmnick1 is no longer 11frozen!
    unset %dmfreeze [ $+ [ %dmnick1 ] ]
  }
  if (%dmfreeze [ $+ [ %dmnick2 ] ] != $null) {
    dec %dmfreeze [ $+ [ %dmnick2 ] ]
  }
  if (%dmfreeze [ $+ [ %dmnick2 ] ] == 0) {
    msg $chan %logodm 04 $+ %dmnick2 is no longer 11frozen!
    unset %dmfreeze [ $+ [ %dmnick2 ] ]
  }
  if (%dmblock [ $+ [ %dmnick1 ] ] != $null) {
    dec %dmblock [ $+ [ %dmnick1 ] ]
  }
  if (%dmblock [ $+ [ %dmnick1 ] ] == 0) {
    msg $chan %logodm 04 $+ %dmnick1 is no longer 12blocked!
    unset %dmblock [ $+ [ %dmnick1 ] ]
  }
  if (%dmblock [ $+ [ %dmnick2 ] ] != $null) {
    dec %dmblock [ $+ [ %dmnick2 ] ]
  }
  if (%dmblock [ $+ [ %dmnick2 ] ] == 0) {
    msg $chan %logodm 04 $+ %dmnick2 is no longer 12blocked!
    unset %dmblock [ $+ [ %dmnick2 ] ]
  }
  if (%dmturn != $me) {
    timer 01 02 msg %chandm %logodm 04Health: %dmnick1 $+ (05 $+ %dmhealth [ $+ [ %dmnick1 ] ] $+ ) %dmnick2 $+ (05 $+ %dmhealth [ $+ [ %dmnick2 ] ] $+ ) 04Turn: 05 $+ $2 $+ 
    timer 01 02 unset %dmwait
  }
  dmcheck
  set %dmwait on
}
alias dmcheck {
  if (%otherdmbot == yes) { HALT }
  if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) && (%dmhealth [ $+ [ %dmnick2 ] ] < 1) {
    msg %chandm %logodm Both04 %dmnick1 and04 %dmnick2 have fallen to the ground! Nobody wins!
    inc %losedm [ $+ [ %dmnick1 ] ]
    inc %winsdm [ $+ [ %dmnick2 ] ]
    set %golddm1 $rand(100,200)
    set %golddm2 $rand(100,200)
    set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick2 ] ] - %dmhealth [ $+ [ %dmnick1 ] ] + %dmspec [ $+ [ %dmnick2 ] ] - %dmspec [ $+ [ %dmnick1 ] ])
    if (%buydmmod == yes) {
      if (money25 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 75
      }
      if (money150 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 $round($calc( %losedm [ $+ [ %dmnick1 ] ] * .6),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 $round($calc( %winsdm [ $+ [ %dmnick1 ] ] * .5),0)
      }
      if (money25 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 75
      }
      if (money150 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 $round($calc( %losedm [ $+ [ %dmnick2 ] ] * .6),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 $round($calc( %winsdm [ $+ [ %dmnick2 ] ] * .5),0)
      }
    }
    if (%dmnick2 != $me) { notice %dmnick2 %logodm You win04 %golddm1 Gold! }
    if (%dmnick1 != $me) { notice %dmnick1 %logodm You win04 %golddm2 Gold! }
    inc %golddm [ $+ [ %dmnick1 ] ] %golddm2
    inc %golddm [ $+ [ %dmnick2 ] ] %golddm1
    inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm2
    inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm1
    if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
    if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
    unset %listdm2*
    unset %dm*
    unset %dmability [ $+ [ $me ] ]
    halt
  }
  if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) {
    msg %chandm %logodm 04 $+ %dmnick1 has fallen to the ground, while04 %dmnick2 celebrates a glorious win!04 %dmnick2 wins!
    inc %losedm [ $+ [ %dmnick1 ] ]
    inc %losedm [ $+ [ %dmnick2 ] ]
    inc %winsdm [ $+ [ %dmnick1 ] ]
    inc %winsdm [ $+ [ %dmnick2 ] ]
    set %golddm1 $rand(150,500)
    set %golddm2 $rand(50,150)
    set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick2 ] ] - %dmhealth [ $+ [ %dmnick1 ] ] + %dmspec [ $+ [ %dmnick2 ] ] - %dmspec [ $+ [ %dmnick1 ] ])
    if (%buydmmod == yes) {
      if (money25 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 75
      }
      if (money150 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 $round($calc( %losedm [ $+ [ %dmnick1 ] ] * .6),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm2 $round($calc( %winsdm [ $+ [ %dmnick1 ] ] * .5),0)
      }
      if (money25 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 75
      }
      if (money150 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 $round($calc( %losedm [ $+ [ %dmnick2 ] ] * .6),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm1 $round($calc( %winsdm [ $+ [ %dmnick2 ] ] * .5),0)
      }
    }
    if (%dmnick2 != $me) { notice %dmnick2 %logodm You win04 %golddm1 Gold! }
    if (%dmnick1 != $me) { notice %dmnick1 %logodm You win04 %golddm2 Gold! }
    inc %golddm [ $+ [ %dmnick1 ] ] %golddm2
    inc %golddm [ $+ [ %dmnick2 ] ] %golddm1
    inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm2
    inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm1
    if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
    if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
    unset %listdm2*
    unset %dm*
    unset %dmability [ $+ [ $me ] ]
    halt
  }
  if (%dmhealth [ $+ [ %dmnick2 ] ] < 1) {
    msg %chandm %logodm 04 $+ %dmnick2 has fallen to the ground, while04 %dmnick1 celebrates a glorious win!04 %dmnick1 wins!
    inc %losedm [ $+ [ %dmnick2 ] ]
    inc %winsdm [ $+ [ %dmnick1 ] ] 
    set %golddm1 $rand(150,500)
    set %golddm2 $rand(50,150)
    set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick1 ] ] - %dmhealth [ $+ [ %dmnick2 ] ] + %dmspec [ $+ [ %dmnick1 ] ] - %dmspec [ $+ [ %dmnick2 ] ])
    if (%buydmmod == yes) {
      if (money25 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm2 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm2 175
      }
      if (money150 isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm2 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm2 $round($calc( %losedm [ $+ [ %dmnick2 ] ] * .3),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick2 ] ]) {
        inc %golddm2 $round($calc( %winsdm [ $+ [ %dmnick2 ] ] * .2),0)
      }
      if (money25 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm1 25
      }
      if (money75 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm1 75
      }
      if (money150 isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm1 150
      }
      if (moneyloss isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm1 $round($calc( %losedm [ $+ [ %dmnick1 ] ] * .3),0)
      }
      if (moneywins isin %listdm [ $+ [ %dmnick1 ] ]) {
        inc %golddm1 $round($calc( %winsdm [ $+ [ %dmnick1 ] ] * .2),0)
      }
    }
    if (%dmnick1 != $me) { notice %dmnick1 %logodm You win04 %golddm1 Gold! }
    if (%dmnick2 != $me) { notice %dmnick2 %logodm You win04 %golddm2 Gold! }
    inc %golddm [ $+ [ %dmnick1 ] ] %golddm1
    inc %golddm [ $+ [ %dmnick2 ] ] %golddm2
    inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm1
    inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm2
    if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
    if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
    unset %listdm2*
    unset %dm*
    unset %dmability [ $+ [ $me ] ]
    halt
  }
  dmaiturn
}
on *:load:{
  set %logodm 04[05DM04]
  if (%dmchange != $null) { goto end }
  set %dmchange 1
  unset %dm*
  :genderdm
  if (%genderdm == $null) {
    set %genderdm $?="Are you a guy or girl? Please type GUY or GIRL."
  }
  if (%genderdm == guy) {
    set %genderdm his
  }
  if (%genderdm == girl) {
    set %genderdm her
  }
  if (%genderdm != her) && (%genderdm != his) { goto genderdm }
  if (%buydmmod == $null) {
    set %buydmmod $?="Do you want Buy Mod enabled? (Lets people buy items with gold they earn, recommended.) $+ $crlf $+ Answer Y/N."
  }
  if (%buydmmod == y) || (%buydmmod == yes) {
    set %buydmmod yes
  }
  if (%buydmmod == n) || (%buydmmod == no) {
    set %buydmmod no
  }
  :admindm
  if (%admindm == $null) {
    set %admindm $?="Do you want any Admins? (They can edit basically anything, even during a game. Only aliases of course. $+ $crlf $+ Answer Y/N."
  }
  if (%admindm == y) || (%admindm == yes) {
    set %admindm yes
    if (%adminsdm == $null) {
      set %adminsdm $?="What are the nicks of what Admins you want? Type a comma inbetween each. No spaces."
    }
  }
  if (%admindm == n) || (%admindm == no) {
    set %admindm no
  }
  if (%admindm != yes) && (%admindm != no) && (%admindm != y) && (%admindm != n) {
    goto admindm
  }
  if (%chandm == $null) {
    set %chandm $?="What channel do you want your DM script to be in? (Default: #chatdm )"
  }
  if (%copymod == $null) {
    set %copymod $?="Do you want CopyMod Beta on? (While fighting the bot, it imitates your items. $+ $crlf $+ Answer Y/N."
  }
  if (%copymod == n) { set %copymod no }
  if (%copymod == y) { set %copymod yes }
  :end
}
alias dmadmins {
  if (%otherdmbot == yes) { HALT }
  if ($1 == $null) { set %adminsdm $?="What are the nicks of people you want as admins?"
    halt
  }
  set %adminsdm $1-
  halt
}
on *:text:!dmadmin*:#: {
  if (%otherdmbot == yes) { HALT }
  if ($nick !isin %adminsdm) { notice $nick %logodm You are not an admin! | HALT }
  if ($2 == commands) || ($2 == $null) {
    timer 01 02 msg $nick %logodm ADMIN COMMANDS
    timer 01 04 msg $nick %logodm An underlined line means YOU put that info in.
    timer 01 06 msg $nick %logodm If something is bold underlined, it means it is optional.
    timer 01 08 msg $nick %logodm Syntax: Command - What it does
    timer 01 10 msg $nick %logodm !dmadmin edit type amount other - Edits type to amount.
    timer 01 12 msg $nick %logodm EDIT COMMANDS (type)
    timer 01 14 msg $nick %logodm !dmadmin edit hp/health person amount - Edits person's Health to amount
    timer 01 16 msg $nick %logodm !dmadmin edit wins person amount - Edits person's Win amount to amount
    timer 01 18 msg $nick %logodm !dmadmin edit loses person amount - Edits person's Lose amount to amount
    timer 01 20 msg $nick %logodm !dmadmin edit special person amount - Edits person's Special Meter to amount
    timer 01 22 msg $nick %logodm !dmadmin edit vote amount - Edits the current amount of votes to end the game to amount
    timer 01 24 msg $nick %logodm !dmadmin edit gold person amount - Edits person's gold amount to amount
    timer 01 26 msg $nick %logodm !dmadmin edit person number person - Changes number's game position to person's. If person is unspecified, it's you.
    timer 01 28 msg $nick %logodm !dmadmin edit copymod on/off - Changed Copy Mod to On or Off
    timer 01 30 msg $nick %logodm !dmadmin edit buydmmod on/off - Changed Buying Mod to On or Off
    timer 01 32 msg $nick %logodm DM NUMBER SYNTAX FOR ABOVE COMMAND: number 1: person who first said !DM. number 2: person who accepted DM by typing !DM second.
    timer 01 34 msg $nick %logodm More commmands to be coming. Admin in beta mode currently.
    halt
  }
  if ($2 == edit) || ($2 == set) {
    if ($3 == gold) {
      set %golddm [ $+ [ $4 ] ] $5
      notice $nick %logodm $4 $+ 's Gold set to $5 $+ .
      halt
    }
    if ($3 == hp) || ($3 == health) {
      set %dmhealth [ $+ [ $4 ] ] $5
      notice $nick %logodm $4 $+ 's Health set to $5 $+ .
      halt
    }
    if ($3 == wins) {
      set %winsdm [ $+ [ $4 ] ] $5
      notice $nick %logodm $4 $+ 's Wins set to $5 $+ .
      halt
    }
    if ($3 == loses) {
      set %losedm [ $+ [ $4 ] ] $5
      notice $nick %logodm $4 $+ 's Loses set to $5 $+ .
      halt
    }
    if ($3 == special) {
      set %dmspec [ $+ [ $4 ] ] $5
      notice $nick %logodm $4 $+ 's Special Meter set to $5 $+ .
      halt
    }
    if ($3 == vote) {
      set %dmstopcount $4
      notice $nick %logodm Votes to end the game now $4 $+ .
      halt
    }
    if ($3 == copymod) {
      if ($4 != on) && ($4 != off) {
        notice $nick %logodm Please type !dmadmin edit copymod on/off
        halt
      }
      set %copymod $replace($4,on,yes,off,no)
      notice $nick %logodm CopyMod now $4
      halt
    }
    if ($3 == buydmmod) {
      if ($4 != on) && ($4 != off) {
        notice $nick %logodm Please type !dmadmin edit buydmmod on/off
        halt
      }
      set %copymod $4
      notice $nick %logodm Buying Mod now $4
      halt
    }
  }
  if ($3 == person) {
    if ($5 == $null) {
      if ($4 == 1) {
        if (%dmturn == %dmnick1) {
          set %dmturn $nick
        }
        set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick1 ] ]
        set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick1 ] ]
        notice $nick %logodm You are now in the place of %dmnick1 $+ .
        msg %dmchan %logodm $nick is now in the place of %dmnick1 $+ .
        set %dmnick1 $nick
        halt
      }
      if ($4 == 2) {
        if (%dmturn == %dmnick2) {
          set %dmturn $nick
        }
        set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick2 ] ]
        set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick2 ] ]
        notice $nick %logodm You are now in the place of %dmnick2 $+ .
        msg %dmchan %logodm $nick is now in the place of %dmnick2 $+ .
        set %dmnick1 $nick
        halt
      }
    }
    if ($5 != $null) {
      if ($4 == 1) {
        if (%dmturn == %dmnick1) {
          set %dmturn $5
        }
        set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick1 ] ]
        set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick1 ] ]
        notice $nick %logodm $5 is now in the place of %dmnick1 $+ .
        msg %dmchan %logodm $5 is now in the place of %dmnick1 $+ .
        set %dmnick1 $nick
        halt
      }
      if ($4 == 2) {
        if (%dmturn == %dmnick2) {
          set %dmturn $5
        }
        set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick2 ] ]
        set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick2 ] ]
        notice $nick %logodm $5 is now in the place of %dmnick2 $+ .
        msg %dmchan %logodm $5 is now in the place of %dmnick2 $+ .
        set %dmnick1 $nick
        halt
      }
    }
  }
}
alias chandm {
  if ($1 == $null) {
    echo -a %logodm Setting ( $+ %chandm $+ ) to $active
    set %chandm $active
    halt
  }
  echo -a %logodm Setting ( $+ %chandm $+ )  to $1-
  set %chandm $1-
  halt
}
alias dmend {
  if (%otherdmbot == yes) { HALT }
  if (%dmnick2 == $null) {
    msg %chandm %logodm Nobody has replied to %dmnick1 $+ 's DM request within 10 seconds! I, 05 $+ $me $+ ( $+ %winsdm [ $+ [ $me ] ] $+ $chr(47) $+ %losedm [ $+ [ $me ] ] $+ ) will face you!
    if (%copymod == yes) { set %listdm2 [ $+ [ $me ] ] %listdm [ $+ [ $me ] ] 
      set %listdm [ $+ [ $me ] ] %listdm [ $+ [ %dmnick1 ] ] 
    }
    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
    }
    set %dmspec [ $+ [ %dmnick1 ] ] 100
    set %dmspec [ $+ [ %dmnick2 ] ] 100
    set %dmhealth [ $+ [ %dmnick1 ] ] 99
    set %dmhealth [ $+ [ %dmnick2 ] ] 99
    timer 01 05 dmaiturn
    timer 01 01 msg %chandm %logodm DM started between 05 $+ %dmnick1 $+ ( $+ %winsdm [ $+ [ %dmnick1 ] ] $+ $chr(47) $+ %losedm [ $+ [ %dmnick1 ] ] $+ ) and 05 $+ %dmnick2 $+ ( $+ %winsdm [ $+ [ %dmnick2 ] ] $+ $chr(47) $+ %losedm [ $+ [ %dmnick2 ] ] $+ ) $+ !
    timer 01 02 msg %chandm %logodm To see commands, type 04!dmcommands $+ ! To see attacks, type 04!attacks
    timer 01 03 msg %chandm %logodm Random pick... 05 $+ %dmturn $+  goes first!
    timer 01 04 msg %chandm %logodm For current mods running, type 04!dmmods!
    timer 01 07 dmaiturn
    timer 01 10 dmaiturn
    timer 01 13 dmaiturn
  }
}
on *:text:!dmmods*:#: {
  if (%dmcommands == on) { 
    notice $nick %logodm Currently sending somebody else the mods.
    notice $nick %logodm Please try again in 5 seconds.
    halt
  }
  set %dmcommands on
  timer 01 5 unset %dmcommands
  if (%copymod == yes) {
    notice $nick %logodm CopyMod Beta is enabled! When you face the bot, it will copy your items!
  }
  if (%buydmmod == yes) {
    notice $nick %logodm BuyingMod Beta is enabled! You can buy items for initial use all the time. Type !dmbuy for more info.
  }
  if (%admindm == yes) {
    notice $nick %logodm AdminDM Beta is enabled! Certain people get to use admin commands!
    notice $nick %logodm AdminDM Beta is enabled! Admins: %adminsdm
  }
}
on *:text:!dmbuy*:*: {
  if (%otherdmbot == yes) { HALT }
  if (%buydmmod != yes) { msg nick %logodm This bot has DM Buying Mod turned OFF. | HALT }
  if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 }
  if ($2 == $null) || ($2 == list) {
    if (%dmcommands == on) { 
      notice $nick %logodm Currently sending somebody else the commands.
      notice $nick %logodm Please try again in 5 seconds.
      halt
    }
    set %dmcommands on
    timer 01 10 unset %dmcommands
    timer 01 02 msg $chan %logodm Sending $nick DM Items To Buy List.
    timer 01 04 msg $chan %logodm Please wait 15-20 seconds before using another command.
    timer 01 06 msg $nick %logodm ITEMS TO BUY LIST
    timer 01 08 msg $nick %logodm TO BUY: !dmbuy buy item
    timer 01 10 msg $nick %logodm Syntax: Item - Price - Effect
    timer 01 12 msg $nick %logodm Health_Boost1 - 4737 - Increases your health by 1 hp each turn.
    timer 01 14 msg $nick %logodm Health_Boost5 - 15790 - Increases your health by 5 hp each turn.
    timer 01 16 msg $nick %logodm Health_Boost10 - 30000 - Increases your health by 10 hp each turn.
    timer 01 18 msg $nick %logodm Special_Boost100 - 53000 - Infinite special meter.
    timer 01 20 msg $nick %logodm Special_Boost50 - 31800 - Increases your special meter by 50 each turn.
    timer 01 22 msg $nick %logodm Special_Boost15 - 18550 - Increases your special meter by 15 each turn.
    timer 01 24 msg $nick %logodm Special_Boost10 - 13250 - Increases your special meter by 10 each turn.
    timer 01 26 msg $nick %logodm Special_Boost5 - 6625 - Increases your special meter by 5 each turn.
    timer 01 28 msg $nick %logodm Extra_Damage - 25000 - Hits an extra 5 damage every hit.
    timer 01 30 msg $nick %logodm Weak_Armor - 3750 - Get inflicted with 1 less damage every hit.
    timer 01 32 msg $nick %logodm Med_Armor - 6250 - Get inflicted with 2 less damage every hit.
    timer 01 34 msg $nick %logodm Strong_Armor - 25000 - Get inflicted with 5 less damage every hit.
    timer 01 36 msg $nick %logodm Inc_Wins1 - 6667 - Increase your wins by 1 win.
    timer 01 38 msg $nick %logodm Inc_Wins5 - 25000 - Increase your wins by 5 wins.
    timer 01 40 msg $nick %logodm Dec_Loses1 - 7500 - Decrease your loses by 1 lose.
    timer 01 42 msg $nick %logodm Dec_Loses5 - 30000 - Decrease your loses by 5 loses.
    timer 01 44 msg $nick %logodm Everything - 585,000 - Everything put into one package. 30% rounded discount.
    timer 01 46 msg $nick %logodm God - 2,500,000 - Good luck getting this much money. Effects unknown.
    timer 01 48 msg $nick %logodm Money25 - 15000 - Gain an extra 50 gold every fight
    timer 01 50 msg $nick %logodm Money75 - 45000 - Gain an extra 100 gold every fight
    timer 01 52 msg $nick %logodm Money150 - 100,000 - Gain an extra 200 gold every fight
    timer 01 54 msg $nick %logodm MoneyLoss - Actual cost: 50000 Required total cash earned: 200,000 - Every loss you have will give you .6 extra gold every fight
    timer 01 56 msg $nick %logodm MoneyWins - Actual cost: 60000 Required total cash earned: 250,000 - Every win you have will give you .5 extra gold every fight
    timer 01 58 msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    timer 01 60 msg $nick %logodm Dm Beta Buying Mod
  }
  if ($2 == buy) {
    if ($3 isin %listdm [ $+ [ $nick ] ]) {
      notice $nick You already have $3 $+ !
      halt
    }
    if ($3 == moneyloss) {
      if (%allgolddm [ $+ [ $nick ] ] < 200000) {
        notice $nick %logodm You havent earned enough total gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%golddm [ $+ [ $nick ] ] < 50000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 50000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == moneywins) {
      if (%allgolddm [ $+ [ $nick ] ] < 300000) {
        notice $nick %logodm You havent earned enough total gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%golddm [ $+ [ $nick ] ] < 60000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 60000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == money25) {
      if (%golddm [ $+ [ $nick ] ] < 15000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 15000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == money75) {
      if (%golddm [ $+ [ $nick ] ] < 45000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 45000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == money150) {
      if (%golddm [ $+ [ $nick ] ] < 100000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 100000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == everything) {
      if (%golddm [ $+ [ $nick ] ] < 585000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (god isin %listdm [ $+ [ $nick ] ]) {
        set %listdm [ $+ [ $nick ] ] health_boost1,health_boost5,health_boost10,special_boost100,special_boost50,special_boost15,special_boost10,special_boost5,extra_damage,weak_armor,med_armor,strong_armor,inc_wins1,inc_wins5,dec_loses1,dec_loses5,everything,money25,money75,money150,moneyloss,moneywins,god
      }
      if (god !isin %listdm [ $+ [ $nick ] ]) {
        set %listdm [ $+ [ $nick ] ] health_boost1,health_boost5,health_boost10,special_boost100,special_boost50,special_boost15,special_boost10,special_boost5,extra_damage,weak_armor,med_armor,strong_armor,inc_wins1,inc_wins5,dec_loses1,dec_loses5,everything,money25,money75,money150,moneyloss,moneywins
      }
      dec %golddm [ $+ [ $nick ] ] 585000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
      inc %winsdm [ $+ [ $nick ] ] 6
      dec %losedm [ $+ [ $nick ] ] 6
      msg $nick %logodm 05Congratulations, you now have 04Every05 item! Good job getting the 585k done. It wouldve costed roughly 850k without it!
    }
    if ($3 == god) {
      if (%golddm [ $+ [ $nick ] ] < 2500000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 2500000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
      msg $nick %logodm 05So..there's a 0499%05 chance that you somehow got a way other than earning it to get 2.5m :) If this is not true for you, jesus. This will give you a great advantage in battle. Try it out.
    }
    if ($3 == dec_loses1) {
      if (%golddm [ $+ [ $nick ] ] < 7500) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 7500
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
      dec %losedm [ $+ [ $nick ] ] 1
    }
    if ($3 == dec_loses5) {
      if (%golddm [ $+ [ $nick ] ] < 30000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 30000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
      dec %losedm [ $+ [ $nick ] ] 5
    }
    if ($3 == inc_wins5) {
      if (%golddm [ $+ [ $nick ] ] < 20000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 20000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
      inc %winsdm [ $+ [ $nick ] ] 5
    }
    if ($3 == inc_wins1) {
      if (%golddm [ $+ [ $nick ] ] < 6667) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 6667
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
      inc %winsdm [ $+ [ $nick ] ] 1
    }
    if ($3 == strong_armor) {
      if (%golddm [ $+ [ $nick ] ] < 25000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 25000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == med_armor) {
      if (%golddm [ $+ [ $nick ] ] < 6250) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 6250
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == weak_armor) {
      if (%golddm [ $+ [ $nick ] ] < 3750) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 3750
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == extra_damage) {
      if (%golddm [ $+ [ $nick ] ] < 25000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 25000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your current amount of gold: (04 $+ %golddm [ $+ [ $nick ] ] $+ )
    }
    if ($3 == special_boost5) {
      if (%golddm [ $+ [ $nick ] ] < 6625) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 6625
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == special_boost10) {
      if (%golddm [ $+ [ $nick ] ] < 13250) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 13250
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == special_boost15) {
      if (%golddm [ $+ [ $nick ] ] < 18550) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 18550
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == special_boost50) {
      if (%golddm [ $+ [ $nick ] ] < 31800) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 31800
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == special_boost100) {
      if (%golddm [ $+ [ $nick ] ] < 53000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 53000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == health_boost1) {
      if (%golddm [ $+ [ $nick ] ] < 4737) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 4737
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == health_boost5) {
      if (%golddm [ $+ [ $nick ] ] < 15790) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 15790
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
    if ($3 == health_boost10) {
      if (%golddm [ $+ [ $nick ] ] < 30000) {
        notice $nick %logodm You do not have enough gold! Difference: $calc( $v2 - %golddm [ $+ [ $nick ] ] ).
        halt
      }
      if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
      if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
      dec %golddm [ $+ [ $nick ] ] 30000
      msg $nick %logodm Your Items: %listdm [ $+ [ $nick ] ]
      msg $nick %logodm Your gold: %golddm [ $+ [ $nick ] ]
    }
  }
}
alias dmaiturn {
  if (%otherdmbot == yes) { HALT }
  if (%dmai == on) {
    if (%dmturn == $me) {
      if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
      if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
      if (%dmability [ $+ [ $me ] ] == $null) {
        set %dmrand $rand(0,10)
        if (%dmrand < 2) {
          set %dmrand 100
          goto %dmrand
        }
      }
      if (%dmspec [ $+ [ $me ] ] > 4) && (%dmhealth [ $+ [ $me ] ] < 7) {
        set %dmrand $rand(1,7)
        if (%dmrand != 1) {
          set %dmrand 0
          goto %dmrand
        }
      }
      if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec [ $+ [ $me ] ] < 94) {
        set %dmrand $rand(1,3)
        if (%dmrand == 3) {
          set %dmrand 50
          goto %dmrand
        }
      }
      if (%dmspec [ $+ [ $me ] ] > 29) && (%dmability [ $+ [ %dmotherperson ] ] == $null) && (%dmspec [ $+ [ $me ] ] < 90) {
        set %dmrand $rand(1,3)
        if (%dmrand == 3) {
          set %dmrand 75
          goto %dmrand
        }
      }
      if (%dmhealth [ $+ [ $me ] ] < 10) {
        if (%dmspec [ $+ [ $me ] ] > 60) {
          if (%dmspec [ $+ [ $me ] ] > 94) {
            set %dmrand $rand(0,10)
            if (%dmrand == 2) {
              set %dmrand 7
            }
            if (%dmrand == 1) {
              set %dmrand 0
            }
            if (%dmrand > 2) {
              set %dmrand 11
            }
            goto %dmrand
          }
          set %dmrand $rand(1,2)
          if (%dmrand == 2) {
            set %dmrand 7
          }
          if (%dmrand == 1) {
            set %dmrand 0
          }
          goto %dmrand
        }
        set %dmrand $rand(0,5)
        if (%dmrand == 5) {
          set %dmrand 7
        }
        if (%dmrand < 5) {
          set %dmrand 0
        }
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 60) {
        set %dmrand $rand(0,5)
        if (%dmrand > 2) {
          set %dmrand 11
        }
        if (%dmrand < 3) {
          set %dmrand $rand(0,11)
        }
        if (%dmrand > 6) {
          set %dmrand 11
        }
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec [ $+ [ $me ] ] < 60) {
        set %dmrand $rand(0,4)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 49) && (%dmspec [ $+ [ $me ] ] < 55) {
        set %dmrand $rand(0,3)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 24) && (%dmspec [ $+ [ $me ] ] < 50) {
        set %dmrand $rand(0,2)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] < 25) && (%dmspec [ $+ [ $me ] ] > 4) {
        set %dmrand $rand(7,11)
        if (%dmrand == 11) {
          set %dmrand 0
        }
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] < 5) {
        set %dmrand $rand(7,10)
        goto %dmrand
      }
      if (cookies == bad) {
        :again
        :again2
        if (%dmability [ $+ [ %dmotherperson ] ] == $null) {
          set %dmrand $rand(1,2)
          if (%dmrand == 2) {
            set %dmrand 75
            goto %dmrand
          }
        }
        set %dmrand $rand(7,15)
        if (%dmrand > 10) {
          set %dmrand 0
        }
        goto %dmrand
      }
      :11
      if (%dmrand == 11) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%dmspec [ $+ [ $me ] ] < 95) { goto again }
            if (%dmgod [ $+ [ $me ] ] > 1) { goto again2 }
            if (%dmgod [ $+ [ $me ] ] == $null) { set %dmgod [ $+ [ $me ] ] 2 }
            if (%dmgod [ $+ [ $me ] ] != $null) && (%dmgod [ $+ [ $me ] ] != 2) { inc %dmgod [ $+ [ $me ] ] }
            msg %chandm !godsword
            dec %dmspec [ $+ [ $me ] ] 95
            set %dmhit1 $rand(0,99)
            if (%dmhit1 > 60) {
              set %dmhit1 $rand(0,99)
            }
            if (%dmhit1 > 65) {
              set %dmhit1 $rand(0,99)
            }
            if (%dmhit1 < 30) {
              set %dmhit1 $rand(0,99)
            }
            if (%dmhit1 > 60) {
              set %dmhit1 $rand(0,99)
            }
            set %dmcommandsaid god
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm God Sword and hits a 04 $+ %dmhit1 $+ 
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            if (%dmspec [ $+ [ $me ] ] > 5) {
              set %dmspec [ $+ [ $me ] ] 5
            }
            if (%dmspec [ $+ [ $me ] ] > 5) {
              inc %dmspec [ $+ [ $me ] ] -95
            }
            dmregen $me %dmotherperson
          }
        }
      }
      :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 %dmhit1 $rand(0,25)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Dscim and hits a 04 $+ %dmhit1 $+ , and also regenerates an extra 045% special meter!
            inc %dmspec [ $+ [ $me ] ] 5
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            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 %dmhit1 $rand(0,4)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%dmhit1 != 4) {
              set %dmhit1 $rand(0,35)
            }
            if (%dmhit1 == 4) {
              set %dmhit1 $rand(0,21)
            }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Anchor and hits a 04 $+ %dmhit1 $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            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 %dmhit1 $rand(0,4)
            if (%dmhit1 != 4) {
              set %dmhit1 $rand(0,25)
            }
            if (%dmhit1 == 4) {
              set %dmhit1 $rand(15,25)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Maul and hits a 04 $+ %dmhit1 $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            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 %dmhit1 $rand(0,30)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Whip and hits a 04 $+ %dmhit1 $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :6
      if (%dmrand == 6) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 60) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !daxe
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit1 $rand(1,5)
            if (%dmhit1 == 1) || (%dmhit1 == 2) || (%dmhit1 == 3) { set %dmhit1 0 }
            if (%dmhit1 > 3) { set %dmhit1 65 }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Daxe Special and hits a 04 $+ %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :5
      if (%dmrand == 5) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 60) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dscim
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit1 $rand(0,35)
            set %dmrand1 $rand(1,20)
            set %dmrand2 $rand(1,10)
            set %dmrand3 $rand(1,2)
            if (%dmrand1 == 1) { set %dmscima yes }
            if (%dmrand2 == 1) { set %dmscimb yes }
            if (%dmrand3 == 1) { set %dmscimc yes }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm DScim Special and hits a 04 $+ %dmhit1 $+ !
            if (%dmscima == yes) { msg %chandm %logodm $me Also gains an extra _04 $+ 100%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 100 }
            if (%dmscimb == yes) { msg %chandm %logodm $me Also gains an extra _04 $+ 40%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 40 }
            if (%dmscimc == yes) { msg %chandm %logodm $me Also 05 $+ STEALS _04 $+ 10%_ special meter from 04 $+ %dmotherperson $+ ! | inc %dmspec [ $+ [ $me ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
            unset %dmscim*
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :4
      if (%dmrand == 4) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 55) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !whip
            dec %dmspec [ $+ [ $me ] ] 55
            set %dmhit1 $rand(0,35)
            if (%dmhit1 < 11) { inc %dmhit1 1 | set %dmwhip 1 }
            if (%dmhit1 > 10) && (%dmhit1 < 35) { inc %dmhit1 2 | set %dmwhip 2 }
            if (%dmhit1 == 35) { inc %dmhit1 5 | set %dmwhip 5 }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Whip Special and hits a 04 $+ %dmhit1 $+ , which includes a 04+ $+ %dmwhip $+  bonus!
            if (%dmwhip == 5) { msg %chandm %logodm $me Also steals _04 $+ 20%_ special meter from 04 $+ %dmotherperson $+ !
              inc %dmspec [ $+ [ $me ] ] 20
              dec %dmspec [ $+ [ %dmotherperson ] ] 20
            }
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :3
      if (%dmrand == 3) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 50) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !anchor
            dec %dmspec [ $+ [ $me ] ] 50
            set %dmhit1 $rand(0,35)
            if (%dmhit1 < 15) {
              set %dmhit1 $rand(0,40)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm Anchor Special and hits a 04 $+ %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :2
      if (%dmrand == 2) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 25) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dmace
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit1 $rand(0,50)
            if (%dmhit1 > 25) {
              set %dmhit1 $rand(0,50)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm DMace Special and hits a 04 $+ %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :1
      if (%dmrand == 1) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if (%dmspec [ $+ [ $me ] ] < 25) { goto again }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm !dds
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit1 $rand(0,26)
            set %dmhit2 $rand(0,26)
            if (%dmhit1 < 10) {
              set %dmhit1 $rand(0,26)
            }
            if (%dmhit1 < 5) {
              set %dmhit1 $rand(0,26)
            }
            if (%dmhit2 < 10) {
              set %dmhit2 $rand(0,26)
            }
            if (%dmhit2 < 5) {
              set %dmhit2 $rand(0,26)
            }
            set %dmfreeze2 8
            if (%dmhit1 > 0) {
              dec %dmfreeze2
            }
            if (%dmhit1 > 5) {
              dec %dmfreeze2
            }
            if (%dmhit1 > 13) {
              dec %dmfreeze2
            }
            if (%dmhit1 > 21) {
              dec %dmfreeze2
            }
            if (%dmhit1 > 23) {
              dec %dmfreeze2
            }
            if (%dmhit2 > 0) {
              dec %dmfreeze2
            }
            if (%dmhit2 > 5) {
              dec %dmfreeze2
            }
            if (%dmhit2 > 13) {
              dec %dmfreeze2
            }
            if (%dmhit2 > 21) {
              dec %dmfreeze2
            }
            if (%dmhit2 > 23) {
              dec %dmfreeze2
            }
            if (%dmfreeze2 > 5) || (%dmfreeze2 < 1) {
              unset %dmfreeze2
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            if (%dmhit2 < 0) { set %dmhit2 0 }
            msg %chandm %logodm 05 $+ $me $+  uses %genderdm DDS Special and hits a 04 $+ %dmhit1 $+  and 04 $+ %dmhit2 $+ !
            if (%dmfreeze != $null) {
              if (%dmpoison [ $+ [ %dmotherperson ] ] != $null) {
                if (%dmpoison [ $+ [ %dmotherperson ] ] < %dmfreeze2) {
                  msg $chan %logodm 05 $+ %dmotherperson is deadlier poisoned!
                  set %dmpoison [ $+ [ %dmotherperson ] ] %dmfreeze2
                }
              }
              if (%dmpoison [ $+ [ %dmotherperson ] ] == $null) {
                msg $chan %logodm 05 $+ %dmotherperson is now poisoned!
                set %dmpoison [ $+ [ %dmotherperson ] ] %dmfreeze2
              }
            }
            set %dmhit1 $calc( %dmhit1 + %dmhit2 )
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :0
      if (%dmrand == 0) {
        if (%dmturn == $me) {
          if (%dmspec [ $+ [ $me ] ] < 5) { goto again }
          if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
          if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
          if (%dmtimer != $null) { 
            unset %dmtimer
          }
          dec %dmspec [ $+ [ $me ] ] 5
          if (%dmhealth [ $+ [ $me ] ] == 1) {
            set %dmhit1 $rand(0,80)
            if (%dmhit1 > 60) {
              set %dmhit1 $rand(0,80)
            }
            if (%dmhit1 < 30) {
              set %dmhit1 $rand(0,80)
            }
            if (%dmhit1 > 60) {
              set %dmhit1 $rand(0,80)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] == 2) {
            set %dmhit1 $rand(0,75)
            if (%dmhit1 > 50) {
              set %dmhit1 $rand(0,75)
            }
            if (%dmhit1 < 40) {
              set %dmhit1 $rand(0,80)
            }
            if (%dmhit1 > 50) {
              set %dmhit1 $rand(0,80)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 2) {
            set %dmhit1 $rand(0,70)
            if (%dmhit1 > 50) {
              set %dmhit1 $rand(0,70)
            }
            if (%dmhit1 < 45) {
              set %dmhit1 $rand(0,70)
            }
            if (%dmhit1 > 50) {
              set %dmhit1 $rand(0,70)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 5) {
            set %dmhit1 $rand(0,70)
            if (%dmhit1 > 40) {
              set %dmhit1 $rand(0,70)
            }
            if (%dmhit1 > 60) {
              set %dmhit1 $rand(0,70)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 10) {
            set %dmhit1 $rand(0,65)
            if (%dmhit1 > 47) {
              set %dmhit1 $rand(0,65)
            }
            if (%dmhit1 > 57) {
              set %dmhit1 $rand(0,65)
            }
            if (%dmhit1 > 67) {
              set %dmhit1 $rand(0,65)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 20) {
            set %dmhit1 $rand(0,60)
            if (%dmhit1 > 37) {
              set %dmhit1 $rand(0,60)
            }
            if (%dmhit1 > 47) {
              set %dmhit1 $rand(0,60)
            }
            if (%dmhit1 > 57) {
              set %dmhit1 $rand(0,60)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 30) {
            set %dmhit1 $rand(0,55)
            if (%dmhit1 > 28) {
              set %dmhit1 $rand(0,55)
            }
            if (%dmhit1 > 38) {
              set %dmhit1 $rand(0,55)
            }
            if (%dmhit1 > 48) {
              set %dmhit1 $rand(0,55)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 40) {
            set %dmhit1 $rand(0,50)
            if (%dmhit1 > 19) {
              set %dmhit1 $rand(0,50)
            }
            if (%dmhit1 > 29) {
              set %dmhit1 $rand(0,50)
            }
            if (%dmhit1 > 39) {
              set %dmhit1 $rand(0,50)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 50) {
            set %dmhit1 $rand(0,45)
            if (%dmhit1 > 10) {
              set %dmhit1 $rand(0,45)
            }
            if (%dmhit1 > 20) {
              set %dmhit1 $rand(0,45)
            }
            if (%dmhit1 > 30) {
              set %dmhit1 $rand(0,45)
            }
          }
          if (%dmhealth [ $+ [ $me ] ] > 80) {
            set %dmhit1 $rand(0,30)
            if (%dmhit1 > 5) {
              set %dmhit1 $rand(0,30)
            }
            if (%dmhit1 > 15) {
              set %dmhit1 $rand(0,30)
            }
            if (%dmhit1 > 25) {
              set %dmhit1 $rand(0,30)
            }
          }
          dmitems | dmgodstuff
          if (%dmhit1 < 0) { set %dmhit1 0 }
          if (%dmhit2 < 0) { set %dmhit2 0 }
          if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $me ] ] 100 }
          msg $chan !gaxe
          msg $chan %logodm 05 $+ $me $+  uses %genderdm Great Axe Special and hits a 04 $+ %dmhit1 $+ !
          dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
          dmregen $me %dmotherperson
        }
        :100
        if (%dmrand == 100) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%dmability [ $+ [ $me ] ] != $null) { goto again }
            if (%dmability [ $+ [ $me ] ] == $null) { set %dmability [ $+ [ $me ] ] yes }
            if (%dmtimer != $null) { 
              unset %dmtimer
            }
            dec %dmspec [ $+ [ $me ] ] 100
            if (%dmspec [ $+ [ $me ] ] > 100) { set %dmspec [ $+ [ $me ] ] 100 }
            msg $chan !ability
            msg $chan %logodm 05 $+ $me $+  now may suffer or benefit from strange abilities.
            dmregen $me %dmotherperson
          }
        }
        :75
        if (%dmrand == 75) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%dmspec [ $+ [ $me ] ] < 30) { goto again }
            if (%dmtimer != $null) { 
              unset %dmtimer
            }
            set %dmhit1 $rand(0,15)
            set %dmrand $rand(1,10)
            dec %dmspec [ $+ [ $me ] ] 30
            dmitems | dmgodstuff
            if (%dmhit1 < 0) { set %dmhit1 0 }
            if (%dmspec [ $+ [ $me ] ] > 100) { set %dmspec [ $+ [ $me ] ] 100 }
            msg $chan !confuse
            msg $chan %logodm 05 $+ $me $+  uses %genderdm Confuse Spell and hits a 04 $+ %dmhit1 $+ !
            if (%dmrand > 2) {
              msg $chan %logodm 05 $+ %dmotherperson $+  now may suffer or benefit from strange abilities.
              set %dmability [ $+ [ %dmotherperson ] ] yes
            }
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
        :50
        if (%dmrand == 50) {
          if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
          if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
          if (%chandm != $chan) { HALT }
          if (%dmspec [ $+ [ $me ] ] < 55) { goto again }
          if (%dmtimer != $null) { 
            unset %dmtimer
          }
          dec %dmspec [ $+ [ $nick ] ] 55
          set %dmhit1 $rand(0,36)
          set %dmhit2 $rand(0,36)
          if (%dmhit1 > 25) {
            set %dmhit1 $rand(0,36)
          }
          if (%dmhit2 > 30) {
            set %dmhit2 $rand(0,36)
          }
          if (%dmhit1 > 25) {
            set %dmhit1 $rand(0,36)
          }
          if (%dmhit2 > 30) {
            set %dmhit2 $rand(0,36)
          }
          if (%dmhit1 < 8) {
            set %dmhit1 8
          }
          if (%dmhit2 < 8) {
            set %dmhit2 8
          }
          dmitems | dmgodstuff
          if (%dmhit1 < 0) { set %dmhit1 0 }
          if (%dmhit2 < 0) { set %dmhit2 0 }
          if (%dmspec [ $+ [ $me ] ] > 100) { set %dmspec [ $+ [ $me ] ] 100 }
          msg $chan !dbow
          msg $chan %logodm 05 $+ $me $+  uses %genderdm Dragon Bow Special and hits a 04 $+ %dmhit1 $+  and 04 $+ %dmhit2 $+ !
          set %dmhit1 $calc( %dmhit1 + %dmhit2 )
          dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
          dmregen $me %dmotherperson
        }
      }
    }
  }
}
on *:text:!dmcheck*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if ($2 == $null) {
    if (%golddm [ $+ [ $nick ] ] == $null) { notice $nick %logodm You have no records! | HALT }
    if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 }
    if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 }
    if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 }
    set %ratiodm [ $+ [ $nick ] ] $calc( %winsdm [ $+ [ $nick ] ] / %losedm [ $+ [ $nick ] ] )
    if (%losedm [ $+ [ $nick ] ] == 0) { set %ratiodm [ $+ [ $nick ] ] %winsdm [ $+ [ $nick ] ] }
    timer 01 02 notice $nick %logodm You have ( $+ %golddm [ $+ [ $nick ] ] $+ ) Gold.
    timer 01 04 notice $nick %logodm Your Gold earned to date: ( $+ %allgolddm [ $+ [ $nick ] ] $+ ) $+ .
    if (%buydmmod == yes) { notice $nick %logodm Your Item List: %listdm [ $+ [ $nick ] ] }
    timer 01 06 notice $nick %logodm Your Wins: ( $+ %winsdm [ $+ [ $nick ] ] $+ )
    timer 01 08 notice $nick %logodm Your Loses: ( $+ %losedm [ $+ [ $nick ] ] $+ )
    timer 01 10 notice $nick %logodm Your Win Ratio: Everytime you lose, you average ( $+ %ratiodm [ $+ [ $nick ] ] $+ ) wins. 
    timer 01 12 notice $nick %logodm Your Avg. Gold Per Game: ( $+ $round($calc(%allgolddm [ $+ [ $Nick ] ] / $calc(%winsdm [ $+ [ $nick ] ] + %losedm [ $+ [ $nick ] ])),0) $+ )
    halt
  }
  if (%golddm [ $+ [ $2 ] ] == $null) { notice $nick %logodm $2 has no records! | HALT }
  if (%winsdm [ $+ [ $2 ] ] == $null) { set %winsdm [ $+ [ $2 ] ] 0 }
  if (%losedm [ $+ [ $2 ] ] == $null) { set %losedm [ $+ [ $2 ] ] 0 }
  if (%golddm [ $+ [ $2 ] ] == $null) { set %golddm [ $+ [ $2 ] ] 0 }
  set %ratiodm [ $+ [ $2 ] ] $calc( %winsdm [ $+ [ $2 ] ] / %losedm [ $+ [ $2 ] ] )
  if (%losedm [ $+ [ $2 ] ] == 0) { set %ratiodm [ $+ [ $2 ] ] %winsdm [ $+ [ $2 ] ] }
  timer 01 02 notice $nick %logodm $2 has ( $+ %golddm [ $+ [ $2 ] ] $+ ) Gold.
  timer 01 04 notice $nick %logodm $2 $+ 's Gold earned to date: ( $+ %allgolddm [ $+ [ $2 ] ] $+ ) $+ .
  if (%buydmmod == yes) { notice $nick %logodm $2 $+ 's Item List: %listdm [ $+ [ $2 ] ] }
  timer 01 06 notice $nick %logodm $2 $+ 's Wins: ( $+ %winsdm [ $+ [ $2 ] ] $+ )
  timer 01 08 notice $nick %logodm $2 $+ 's Loses: ( $+ %losedm [ $+ [ $2 ] ] $+ )
  timer 01 10 notice $nick %logodm $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ %ratiodm [ $+ [ $2 ] ] $+ ) wins.
  timer 01 12 notice $nick %logodm $2 $+ 's Avg. Gold Per Game: ( $+ $round($calc(%allgolddm [ $+ [ $2 ] ] / $calc(%winsdm [ $+ [ $2 ] ] + %losedm [ $+ [ $2 ] ])),0) $+ )
  halt
}
on *:text:!dmstop*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if (%dm != on) {
    notice $Nick %logodm No game is currently running!
    halt
  }
  if (%dmstopcount == $null) {
    set %dmvote [ $+ [ $nick ] ] yes
    set %dmstopcount 1
    msg %chandm %logodm There is now 041 vote to end the game!
    msg %chandm %logodm Game will end in 0430seconds of no activity or in another vote!
    set %dmtimer 0
    timer 32 1 timerdm
    goto end
  }
  if (%dmvote [ $+ [ $nick ] ] == yes) {
    notice $nick %logodm You have already voted!
    halt
  }
  if (%dmstopcount == 1) {
    msg %chandm %logodm Ending game!
    unset %dm*
    if (%dmtimer != $null) { 
      unset %dmtimer 
    }
    halt
  }
  :end
}
alias timerdm {
  inc %dmtimer
  if (%dmtimer > 29) {
    msg %chandm %logodm Ending game!
    unset %dm*
    if (%dmtimer != $null) { 
      unset %dmtimer 
    }
    halt
  }
}
on *:text:!stopdm*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if (%dm != on) {
    notice $Nick %logodm No game is currently running!
    halt
  }
  if (%dmstopcount == $null) {
    set %dmvote [ $+ [ $nick ] ] yes
    set %dmstopcount 1
    msg %chandm %logodm There is now 041 vote to end the game!
    msg %chandm %logodm Game will end in 0430seconds of no activity or in another vote!
    set %dmtimer 0
    timer 32 1 timerdm
    goto end
  }
  if (%dmvote [ $+ [ $nick ] ] == yes) {
    notice $nick %logodm You have already voted!
    halt
  }
  if (%dmstopcount == 1) {
    msg %chandm %logodm Ending game!
    unset %dm*
    if (%dmtimer != $null) { 
      unset %dmtimer 
    }
    halt
  }
  :end
}
on *:text:!dm*:#:{
  if (%chandm != $chan) { 
    notice $nick %logodm You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if ($chan == %chandm) {
    if (%dmfixing == yes) { msg %chandm %logodm DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
      halt
    }
  }
  if (%dmfixing == yes) { notice $nick %logodm 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 %logodm A dm is already running! Have 2 people type !dmstop to stop it!
      halt
    }
    if ($chan != %chandm) {
      notice $nick %logodm This is the wrong channel for DMing! Please goto %chandm to DM!
      halt
    }
    if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 }
    if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 }
    if (%dmstart == $null) {
      msg %chandm %logodm A DM request has been opened by 05 $+ $nick $+ ( $+ %winsdm [ $+ [ $nick ] ] $+ $chr(47) $+ %losedm [ $+ [ $nick ] ] $+ )! One more person needs to type 04!DM to join!
      timer 01 10 dmend
      unset %dm*
      set %dmnick1 $nick
      set %dmstart yes
      halt
    }
    if (%dmstart == yes) {
      if (%dmnick1 != $nick) && ($address($nick,2) != $address(%dmnick1,2)) {
        set %dmnick2 $nick
        set %dm on
        msg %chandm %logodm DM started between 05 $+ %dmnick1 $+ ( $+ %winsdm [ $+ [ %dmnick1 ] ] $+ $chr(47) $+ %losedm [ $+ [ %dmnick1 ] ] $+ ) and 05 $+ %dmnick2 $+ ( $+ %winsdm [ $+ [ %dmnick2 ] ] $+ $chr(47) $+ %losedm [ $+ [ %dmnick2 ] ] $+ ) $+ !
        msg %chandm %logodm To see commands, type 04!dmcommands $+ ! To see attacks, type 04!attacks
        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 %logodm Random pick... 05 $+ %dmturn $+  goes first!
        msg %chandm %logodm For current mods running, type 04!dmmods!
      }
    }
  }
}
alias dmbar {
  set %dmbar $1
  if (%dmbar > 100) {
    set %dmbar 100
    set %dmspec [ $+ [ $2 ] ] 100
  }
  if (%dmbar < 0) {
    set %dmbar 0
    set %dmspec [ $+ [ $2 ] ] 0
  }
  if (%dmbar == 0) {
    set %dmbar 04,04|||||||||03,040%04,04|||||||||
    goto end
  }
  :again
  if ($left(%dmbar,1) == 0) {
    set %dmbar $remove(%dmbar,$left(%dmbar,1))
    goto again
  }
  if (%dmbar < 6) {
    set %dmbar 04,04|||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04||||||||03,03|
    goto end
  }
  if (%dmbar < 10) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04||||||||03,03||
    goto end
  }
  if (%dmbar == 10) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04|||||||03,03||
    goto end
  }
  if (%dmbar < 16) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04||||||03,03|||
    goto end
  }
  if (%dmbar < 21) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04|||||03,03||||
    goto end
  }
  if (%dmbar < 26) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04||||03,03|||||
    goto end
  }
  if (%dmbar < 31) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04|||03,03||||||
    goto end
  }
  if (%dmbar < 36) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04||03,03|||||||
    goto end
  }
  if (%dmbar < 41) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 04,04|03,03||||||||
    goto end
  }
  if (%dmbar < 46) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 51) {
    set %dmbar 04,04||||||||03,04 $+ %dmbar $+ 04,03 $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 56) {
    set %dmbar 04,04||||||||03,04 $+ $left(%dmbar,1) $+ 04,03 $+ $mid(%dmbar,2,1) $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 61) {
    set %dmbar 04,04||||||||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 66) {
    set %dmbar 04,04|||||||03,03|04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 71) {
    set %dmbar 04,04||||||03,03||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 76) {
    set %dmbar 04,04|||||03,03|||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 81) {
    set %dmbar 04,04||||03,03||||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 86) {
    set %dmbar 04,04|||03,03|||||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 91) {
    set %dmbar 04,04||03,03||||||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar < 100) {
    set %dmbar 04,04|03,03|||||||04,03 $+ %dmbar $+ $chr(37) $+ 03,03|||||||||
    goto end
  }
  if (%dmbar > 99) { 
    set %dmbar 03,03||||||||04,03100%03,03||||||||
    goto end
  }
  :end
  return %dmbar
  unset %dmbar
  halt
}
alias dmitems {
  if (%buydmmod == yes) {
    if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
    if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
    if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
    if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
    if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
    if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
    if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
    if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
    if (special_boost05 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
    if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
    if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
    if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  }
}
alias dmgodstuff {
  if (%buydmmod == yes) {
    if (god isin %listdm [ $+ [ $nick ] ]) {
      set %dmfullspec $rand(1,10)
      set %dmfullhp $rand(1,10)
      set %dmdie $rand(1,10)
      set %dmdmg $rand(1,15)
      if (%dmfullspec > 6) {
        set %dmspec [ $+ [ $nick ] ] 100
        msg $chan %logodm Gods power has granted you 100 special!
      }
      if (%dmfullhp > 6) {
        set %dmhealth [ $+ [ $nick ] ] 99
        msg $chan %logodm Gods power has granted you 99 health!
      }
      if (%dmdmg > 8) {
        set %dmhit1 99 | set %dmhit2 99
        msg $chan %logodm Gods power has granted you the power to hit an automatic 99!
      }
      if (%dmdie == 1) {
        set %dmhealth [ $+ [ $nick ] ] 0
        msg $chan %logodm Oh dear, Gods power has killed you!
      }
      msg $chan %logodm God notices that you are using his blade, and grants you an guaranteed hit of at least 50!
      if (%dmhit1 < 50) {
        set %dmhit1 50
      }
      msg $chan %logodm God grants you the power to use GodSword again.
      unset %dmgod [ $+ [ $nick ] ]
    }
  }
  if (god isin %listdm [ $+ [ %dmotherperson ] ]) && (god isin %dmcommandsaid) {
    msg $chan %logodm You cannot use gods own blade against a god!
    unset %dmcommandsaid
    set %dmhit1 0 | set %dmhit2 0
    goto blah
    set %dmdmg $rand(1,15)
    if (%dmdmg > 2) {
      set %dmhit1 0 | set %dmhit2 0
      msg $chan Gods power has protected %dmotherperson from $nick $+ 's attack!
    }
    :blah
  }
}