Stuff

on *:text:!dmcommands*:#:{
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%chandm != $chan) { 
    HALT
  }
  mode $chan +m
  msg $chan 12 Dm'ing Is Being HALTED For4 3 12Seconds Wait For4 -m. 
  if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT }
  if (%commandhalt != $null) { notice $nick 12I 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
  msg $nick 4DM SPECIAL COMMANDS. 12These Require Special Type N First For Some Of These 7:: 12!Gmaul 7::4 100% Spec 7::12 !Dds 7::4 25% Spec 7:: 12!Mbow 7::4 20% Spec 7:: 12!ND2h 7::4 50% Spec 7::12 !Dmace 7::4 25% Spec 7:: 12!Nanchor 7::4 50% Spec 7:: 12!Ndscim 7::4 60% Spec 7:: 12!Nwhip 7::4 55% Spec 7:: 12!Ndaxe 7::4 60% Spec 7::
  msg $nick 12These Require No Special 7:: 12!Guth 7::4 Max 25 7::4 1/5 Chance To Heal 7::12 !Whip 7::4 Max 30 7:: 12!Anchor 7::4 Max 35 7:: 12!Dscim 7::4 Max 25 7:: 12!Maul 7::4 Max 27 7:: 12!Barrage 7::4 Max 20 7:: 12!DHally 7::4 Max 25 7::12 !Maul 7::4 Max 20 7::12 !Cbow 7::4 Max 31 7:: 12!Xbow 7::4 Max 25 7::12 !D2h 7:: 4Max 33 7:: 12!Eat 7:: 4Heals 20 7::
  mode $chan -m
}
on *:text:!dmhelp*:#:{ msg $nick 2OTHER COMMANDS. 7:: 12!Dmstop 7::4 Stops DM. Requires two people to initiate. 7:: 12!Dmcheck 7::4 Display current Win/Lose record, K/D ratio, gold, items. 7:: 2!Dmbuy 7::4 Displays information to buy Rsgp. 7:: 12!Dmmods 7::4 Tells You What Game Moderators On Online For Help. }
on *:text:!gmaul*:#:{ 
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 100) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 100
  set %dmhit1 $rand(0,25)
  set %dmhit2 $rand(0,25)
  set %dmhit3 $rand(0,25)
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmhit3 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Granite Maul Special and hits a4 %dmhit1 $+ , %dmhit2 12and4 %dmhit3 $+ !
  set %dmhit $calc( %dmhit1 + %dmhit2 + %dmhit3 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!dbow*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,21)
  set %dmhit2 $rand(0,21)
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Dragon Bow Special and hits a4 %dmhit1 12and4 %dmhit2 $+ !
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit1 $rand(0,23)
  set %dmhit2 $rand(0,23)
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his DDS Special and hits a4 %dmhit1 12and4 %dmhit2 $+ !
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!nd2h*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit $rand(0,45)
  if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 }
  if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 }
  if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 }
  if (%buydmmod == yes) { }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Dragon Two Hander special and hits a4 %dmhit $+ !    
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 55
  set %dmhit $rand(0,30)
  if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 }
  if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 }
  if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 }
  if (%buydmmod == yes) { }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Whip Special and hits a4 %dmhit $+ , 12which includes a + $+ 4 %dmwhip 12bonus!
  if (%dmwhip == 5) { msg $chan %dmlogo 4 $nick 12Also steals 20% special meter from4 %dmotherperson $+ !
    inc %dmspec [ $+ [ $nick ] ] 20
    dec %dmspec [ $+ [ %dmotherperson ] ] 20
  }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!cbow*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,30)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Crystal Bow and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!eat*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  if (%dmfood [ $+ [ $nick ] ] < 1) { notice $nick %dmlogo 12 You Ran Out Of Sharks! | HALT }
  dec %dmfood [ $+ [ $nick ] ] 1
  inc %dmhealth [ $+ [ $nick ] ] 20
  msg $chan %dmlogo 4 $nick 12Eats a shark and heals 4 2012 hp!  
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmfood [ $+ [ $nick ] ] sharks left.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 25
  set %dmhit $rand(0,20)
  if (%dmhit > 20) {
    set %dmhit $rand(0,20)
  }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his DMace Special and hits a4 %dmhit $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 50
  set %dmhit $rand(0,30)
  if (%dmhit < 15) {
    set %dmhit $rand(0,45)
  }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Anchor Special and hits a4 %dmhit $+ !
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!guth*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,30)
  set %dmrand1 $rand(1,3)
  if (%dmrand1 == 1) { set %dmguth yes }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Guthans  and hits a4 %dmhit $+ !
  if (%dmguth == yes) { msg $chan %dmlogo 4 $nick 12Activated his Guthans Special And Heals4 %dmhit 12Hp! | inc %dmhealth [ $+ [ $nick ] ] %dmhit }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  unset %dmguth
  dmregen $nick %dmotherperson
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit $rand(0,25)
  set %dmrand1 $rand(1,20)
  if (%dmrand1 == 1) { set %dmscima yes }
  set %dmrand2 $rand(1,10)
  if (%dmrand2 == 1) { set %dmscimb yes }
  set %dmrand3 $rand(1,2)
  if (%dmrand3 == 1) { set %dmscimc yes }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Dscim Special and hits a4 %dmhit $+ !
  if (%dmscima == yes) { msg $chan %dmlogo 4 $nick 12Also gains an extra4 100% 12worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 100 }
  if (%dmscimb == yes) { msg $chan %dmlogo 4 $nick 12Also gains an extra4 40% 12worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 40 }
  if (%dmscimc == yes) { msg $chan %dmlogo 4 $nick 12Also STEALS4 10% 12special meter from4 %dmotherperson $+ ! | inc %dmspec [ $+ [ $nick ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 60
  set %dmhit $rand(1,5)
  if (%dmhit < 2) { set %dmhit 0 }
  if (%dmhit > 3) { set %dmhit 60 }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Daxe Special and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,29)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Whip and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!boo*:#: {
  if (%otherdmbot == yes) { HALT }
  if ($nick !isin %adminsdm) { notice $nick %dmlogo You are not an admin! | HALT }
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(99,99)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12Shows [ %dmotherperson ]  A Mirror And Watches Him Faint! 
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!ak-47*:#: {
  if (%otherdmbot == yes) { HALT }
  if ($nick !isin %adminsdm) { notice $nick %dmlogo You are not an admin! | HALT }
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(45,99)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12Aims Her Ak-47 At Her Oponnent, And..POW! Hits A %dmhit
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!mbow*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  dec %dmspec [ $+ [ $nick ] ] 20
  set %dmhit1 $rand(0,13)
  set %dmhit2 $rand(0,13)
  if (%dmhit1 < 0) { set %dmhit1 0 }
  if (%dmhit2 < 0) { set %dmhit2 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Mage Bow Special and hits a4 %dmhit1 12and4 %dmhit2 $+ !
  set %dmhit $calc( %dmhit1 + %dmhit2 )
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
  notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
}
on *:text:!xbow*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,25)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his X Bow and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!barrage*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,25)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses a Ice Barrage and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!d2h*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,35)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Dragon Two Hander and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!dhally*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,27)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his Dragon Hallaberd and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
on *:text:!maul*:#:{
  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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,8)
  if (%dmhit != 4) {
    set %dmhit $rand(0,35)
  }
  if (%dmhit == 4) {
    set %dmhit $rand(12,20)
  }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his maul and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,4)
  if (%dmhit != 4) {
    set %dmhit $rand(0,22)
  }
  if (%dmhit == 4) {
    set %dmhit $rand(0,21)
  }
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his anchor and hits a4 %dmhit $+ .
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
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 %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  set %dmhit $rand(0,20)
  if (%dmhit < 0) { set %dmhit 0 }
  if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  msg $chan %dmlogo 4 $nick 12uses his dscim and hits a4 %dmhit $+ , 12and also regenerates an extra 4 5% 12special meter!
  inc %dmspec [ $+ [ $nick ] ] 5
  dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  dmregen $nick %dmotherperson
}
alias dmregen {
  if (%otherdmbot == yes) { HALT }
  inc %dmspec [ $+ [ $1 ] ] 5
  if (%dmspec [ $+ [ $1 ] ] > 100) { set %dmspec [ $+ [ $1 ] ] 100 }
  set %dmturn $2
  msg %chandm %dmlogo 4It is now12 $2 $+ 4's turn!
  if (%dmhealth [ $+ [ %dmnick1 ] ] > 99) {
  set %dmhealth [ $+ [ %dmnick1 ] ] 99 }
  if (%dmhealth [ $+ [ %dmnick2 ] ] > 99) {
  set %dmhealth [ $+ [ %dmnick2 ] ] 99 }  
  if (%dmturn != $me) {
    msg %chandm %dmlogo 12Health:4 %dmnick1 $+ (05 $+ %dmhealth [ $+ [ %dmnick1 ] ] $+ ) $+ 4 %dmnick2 $+ (05 $+ %dmhealth [ $+ [ %dmnick2 ] ] $+ ) 
    unset %dmwait
  }
  set %dmwait on
  dmcheck
}
alias dmcheck {
  if (%otherdmbot == yes) { HALT }
  if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) {
    mode $chan +m
    msg %chandm %dmlogo 4 %dmnick1 12has fallen to the ground, while4 %dmnick2 12celebrates a glorious win!4 %dmnick2 12wins!
    inc %losedm [ $+ [ %dmnick1 ] ]
    inc %winsdm [ $+ [ %dmnick2 ] ]
    set %golddm1 $rand(350,500)
    set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick2 ] ] - %dmhealth [ $+ [ %dmnick1 ] ] + %dmspec [ $+ [ %dmnick2 ] ] - %dmspec [ $+ [ %dmnick1 ] ])
    if (%dmnick2 != $me) { notice %dmnick2 12You win04 %golddm1 12Dm Gold! }
    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 ] ] }
    timer 1 8 /mode $chan -m
    unset %listdm2*
    unset %dm*
    halt
  }
  if (%dmhealth [ $+ [ %dmnick2 ] ] < 1) {
    mode $chan +m
    msg %chandm %dmlogo 4 %dmnick2 12has fallen to the ground, while4 %dmnick1 12celebrates a glorious win!4 %dmnick1 12wins!
    inc %losedm [ $+ [ %dmnick2 ] ]
    inc %winsdm [ $+ [ %dmnick1 ] ] 
    set %golddm1 $rand(350,500)
    set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick1 ] ] - %dmhealth [ $+ [ %dmnick2 ] ] + %dmspec [ $+ [ %dmnick1 ] ] - %dmspec [ $+ [ %dmnick2 ] ])
    if (%dmnick1 != $me) { notice %dmnick1 12You win04 %golddm1 12Dm Gold! }
    inc %golddm [ $+ [ %dmnick1 ] ] %golddm1
    inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm1
    if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
    if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
    timer 1 8 /mode $chan -m 
    unset %listdm2*
    unset %dm*
    halt
  }
  dmaiturn
}
on *:load:{
  set %dmlogo 04[05DM04]
  unset %dm*
  :genderdm
  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 }
  set %buydmmod $?="Do you want Buy Mod enabled? (Lets people buy items with gold they earn, recommended.) $+ $crlf $+ Answer Y/N."
  if (%admindm == y) || (%admindm == yes) {
    set %buydmmod yes
  }
  if (%admindm == n) || (%admindm == no) {
    set %buydmmod no
  }
  :admindm
  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
    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
  }
  set %chandm $?="What channel do you want your DM script to be in? (Default: #chatdm )"
  set %copymod $?="Do you want CopyMod Beta on? (While fighting the bot, it imitates your items. (YES/NO, Y/N)"
  if (%copymod == n) { set %copymod no }
  if (%copymod == y) { set %copymod yes }
}
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 ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%otherdmbot == yes) { HALT }
  if ($nick !isin %adminsdm) { notice $nick %dmlogo You are not an admin! | HALT }
  if ($2 == commands) || ($2 == $null) {
    msg $nick %dmlogo 4ADMIN COMMANDS
    msg $nick %dmlogo 4An 2underlined 4line means YOU put that info in.
    msg $nick %dmlogo 4If something is2 bold underlined, 4it means it is optional.
    msg $nick %dmlogo 7:: 4!Dmadmin Edit 2type amount other 7- 4Edits2 type 4to2 amount.
    msg $nick %dmlogo 7:: 4EDIT COMMANDS2 (type)
    msg $nick %dmlogo 7:: 4!Dmadmin Edit hp2 amount person 7- 4Edits person's Health to amount 7::4!Dmadmin edit wins 2amount person 7- 4Edits person's Win amount to amount 7:: 4!Dmadmin Edit loses 2amount person 7- 4Edits person's Lose amount to amount 7:: 4!Dmadmin Edit special 2amount person 7- 4Edits person's Special Meter to amount 7:: 
  msg $nick %dmlogo 4!Dmadmin Edit vote 2amount 7- 4Edits the current amount of votes to end the game to amount 7:: 4!Dmadmin Edit gold 2amount person 7- 4Edits person's gold amount to amount 7:: 4!Dmadmin Edit person2 number person 7- 4Changes number's game position to person's. 2If person is unspecified, it's you. 7:: 4!Dmadmin Edit copymod on/off 7- 2Changed Copy Mod to On or Off 7::  }
  msg $nick %dmlogo 7:: 4DM NUMBER SYNTAX FOR ABOVE COMMAND7: 4number 7: 4person who first said 4!DM. number 27: 4person who accepted DM by typing !DM second.
  halt
}
if ($2 == edit) {
  if ($3 == gold) {
    set %golddm [ $+ [ $5 ] ] $4
    notice $nick %dmlogo $5 $+ 's Gold set to $4 $+ .
    halt
  }
  if ($3 == hp) {
    set %dmhealth [ $+ [ $5 ] ] $4
    notice $nick %dmlogo $5 $+ 's Health set to $4 $+ .
    halt
  }
  if ($3 == wins) {
    set %winsdm [ $+ [ $5 ] ] $4
    notice $nick %dmlogo $5 $+ 's Wins set to $4 $+ .
    halt
  }
  if ($3 == loses) {
    set %losedm [ $+ [ $5 ] ] $4
    notice $nick %dmlogo $5 $+ 's Loses set to $4 $+ .
    halt
  }
  if ($3 == special) {
    set %dmspec [ $+ [ $5 ] ] $4
    notice $nick %dmlogo $5 $+ 's Special Meter set to $4 $+ .
    halt
  }
  if ($3 == vote) {
    set %dmstopcount $4
    notice $nick %dmlogo Votes to end the game now $4 $+ .
    halt
  }
  if ($3 == copymod) {
    if ($4 != on) && ($4 != off) {
      notice $nick %dmlogo Please type !dmadmin edit copymod on/off
      halt
    }
    set %copymod $4
    notice $nick %dmlogo CopyMod now $4
    halt
  }
  if ($3 == buydmmod) {
    if ($4 != on) && ($4 != off) {
      notice $nick %dmlogo Please type !dmadmin edit buydmmod on/off
      halt
    }
    set %copymod $4
    notice $nick %dmlogo 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 %dmlogo You are now in the place of %dmnick1 $+ .
        msg %dmchan %dmlogo 4 $nick 12is now in the place of4 %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 %dmlogo You are now in the place of %dmnick2 $+ .
        msg %dmchan %dmlogo 4 $nick 12is now in the place of4 %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 %dmlogo $5 is now in the place of %dmnick1 $+ .
        msg %dmchan %dmlogo 4 $5 12is now in the place of4 %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 %dmlogo $5 is now in the place of %dmnick2 $+ .
        msg %dmchan %dmlogo 4 $5 12is now in the place of4 %dmnick2 $+ .
        set %dmnick1 $nick
        halt
      }
    }
  }
}
alias chandm {
  if ($1 == $null) {
    echo -a %dmlogo Setting ( $+ %chandm $+ ) to $active
    set %chandm $active
    halt
  }
  echo -a %dmlogo Setting ( $+ %chandm $+ )  to $1-
  set %chandm $1-
  halt
}
alias dmend {
  if (%otherdmbot == yes) { HALT }
  if (%dmnick2 == $null) {
    msg %chandm %dmlogo 12Nobody has replied to4 %dmnick1 $+ 's 12DM request within 15 seconds! I 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
    }
    msg %chandm %dmlogo 12DM started between4 %dmnick1 12and4 %dmnick2 $+ !
    msg %chandm %dmlogo 12To see commands, type 4!DmCommands $+ 
    msg %chandm %dmlogo 12Random pick...4 %dmturn 12goes first!
    set %dmspec [ $+ [ %dmnick1 ] ] 100
    set %dmspec [ $+ [ %dmnick2 ] ] 100
    set %dmhealth [ $+ [ %dmnick1 ] ] 99
    set %dmhealth [ $+ [ %dmnick2 ] ] 99
    set %dmfood [ $+ [ %dmnick1 ] ] 10
    set %dmfood [ $+ [ %dmnick2 ] ] 10
    dmaiturn
  }
}
on *:text:!mygold*:#: { 
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  notice $nick 2You Currently Have4 %golddm [ $+ [ $nick ] ] 2Gold.
}
on *:text:!dmmods*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%dmcommands == on) { 
    notice $nick %dmlogo 12Currently sending somebody else the mods.
    notice $nick %dmlogo 4Please try again in 10 seconds.
    halt
  }
  set %dmcommands on
  timer 01 3 unset %dmcommands
  if (%admindm == yes) {
    notice $nick %dmlogo 2AdminDM Beta is enabled! Admins:4 %adminsdm
  }
}

on *:text:!dmbuy*:#: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%otherdmbot == yes) { HALT }
  if (%buydmmod != yes) { msg $nick %dmlogo 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 %dmlogo 4Currently sending somebody else the commands.
      notice $nick %dmlogo 12Please try again in 15 seconds.
      halt
    }
    set %dmcommands on
    timer 01 20 unset %dmcommands
    mode $chan +m
    msg $chan 12Sending4 $nick 12DM Items To Buy List. 
    msg $nick 12ITEMS TO BUY LIST 7- 12To Buy Something, Type:4 !Dmbuy Buy Item 7- 12EXAMPLE: 4!DmBuy Buy 30k Or !DmBuy Buy Voice
    msg $nick 12RSGP TO BUY 7- 4May Take A While To Recieve. 7-12 30k 7-4 7,500 Dm Gold. 7::12 60k 7-4 15,000 Dm Gold. 7::12 120k 7-4 30,000 Dm Gold 7::12 200k 7-4 45,000 Dm Gold 7::
    msg $nick 12You Can Also Buy Channel Access!!!! 4(Your Nick Must Be Registered Or You Might Lose Your Money) 7:: 12Voice 7-4 30,000 Dm Gold 7::
    msg $nick 12You Currently Have4 %golddm [ $+ [ $nick ] ] 12Gold.
    mode $chan -m

  }
  if ($3 == 30k) {
    if (%golddm [ $+ [ $nick ] ] < 7500) {
      notice $nick %dmlogo 12You do not have enough gold! You have4 %golddm [ $+ [ $nick ] ] 2gold!
      halt
    }
    dec %golddm [ $+ [ $nick ] ] 7500
    msg $nick %dmlogo 12You Have Just Purchased 4 30k! 12Please Stay Online With This Nick: $nick Or You May Not Recieve Your Order.
    ms send |Ashley| $nick Has Just Purchased 30k, Please Hurry!
    dec %losedm [ $+ [ $nick ] ] 1
  }
  if ($3 == 60k) {
    if (%golddm [ $+ [ $nick ] ] < 15000) {
      notice $nick %dmlogo 12You do not have enough gold! You have4 %golddm [ $+ [ $nick ] ] 2Gold!
      halt
    }
    dec %golddm [ $+ [ $nick ] ] 15000
    msg $nick %dmlogo 12You Have Just Purchased 4 60k! 12Please Stay Online With This Nick: $nick Or You May Not Recieve Your Order.
    ms send |Ashley| $nick Has Just Purchased 60k, Please Hurry!
    dec %losedm [ $+ [ $nick ] ] 5
  }
  if ($3 == 120k) {
    if (%golddm [ $+ [ $nick ] ] < 30000) {
      notice $nick %dmlogo 12You do not have enough gold! You have4 %golddm [ $+ [ $nick ] ] 2Gold!
      halt
    }
    dec %golddm [ $+ [ $nick ] ] 30000
    msg $nick %dmlogo 12You Have Just Purchased 4 120k! 12Please Stay Online With This Nick: $nick Or You May Not Recieve Your Order.
    ms send |Ashley| $nick Has Just Purchased 120k, Please Hurry!
    inc %winsdm [ $+ [ $nick ] ] 1
  }
  if ($3 == 200k) {
    if (%golddm [ $+ [ $nick ] ] < 45000) {
      notice $nick %dmlogo 12You do not have enough gold! You have4 %golddm [ $+ [ $nick ] ] 2Gold!
      halt
    }
    dec %golddm [ $+ [ $nick ] ] 45000
    msg $nick %dmlogo 12You Have Just Purchased 4 200k! 12Please Stay Online With This Nick: $nick Or You May Not Recieve Your Order.
    ms send |Ashley| $nick Has Just Purchased 200k, Please Hurry!
    inc %winsdm [ $+ [ $nick ] ] 1
  }
  if ($3 == voice) {
    if (%golddm [ $+ [ $nick ] ] < 30000) {
      notice $nick %dmlogo 12You do not have enough gold! You have4 %golddm [ $+ [ $nick ] ] 12Gold!
      halt
    }
    dec %golddm [ $+ [ $nick ] ] 30000
    msg $nick %dmlogo 12You Have Just Purchased A Channel 4Voice! 12Please Be Sure That Your Nick Is Registered, Otherwise You're Skrewed! Now Please Type /Ns Update
    ms send |Ashley| $nick Has Just Purchased A Voice, Check %dmchan Access.
    cs access $chan Add $nick 3
  }
}
alias dmaiturn {
  if (%otherdmbot == yes) { HALT }
  if (%dmai == on) {
    if (%dmturn == $me) {
      if (%dmspec [ $+ [ $me ] ] > 59) {
        set %dmrand $rand(1,6)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec < 60) {
        set %dmrand $rand(1,4)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 49) && (%dmspec < 55) {
        set %dmrand $rand(1,3)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] > 24) && (%dmspec < 50) {
        set %dmrand $rand(1,2)
        goto %dmrand
      }
      if (%dmspec [ $+ [ $me ] ] < 25) {
        set %dmrand $rand(7,10)
        goto %dmrand
      }
      :10
      if (%dmrand == 10) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!Dscim
            set %dmhit1 $rand(0,25)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Dscim and hits a4 %dmhit1 $+ , 12and also regenerates an extra4 5% 12special 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 12!Anchor
            set %dmhit1 $rand(0,4)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%dmhit1 != 4) {
              set %dmhit1 $rand(0,30)
            }
            if (%dmhit1 == 4) {
              set %dmhit1 $rand(0,21)
            }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Anchor and hits a4 %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 12!Maul
            set %dmhit1 $rand(0,6)
            if (%dmhit1 != 4) {
              set %dmhit1 $rand(0,35)
            }
            if (%dmhit1 == 4) {
              set %dmhit1 $rand(15,25)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Maul and hits a4 %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 12!Whip
            set %dmhit1 $rand(0,35)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Whip and hits a4 %dmhit1 $+ .
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :6
      if (%dmrand == 6) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!Daxe
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit1 $rand(1,7)
            if (%dmhit < 2) { set %dmhit 0 }
            if (%dmhit > 3) { set %dmhit 45 }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Daxe Special and hits a4 %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :5
      if (%dmrand == 5) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!NDscim
            dec %dmspec [ $+ [ $me ] ] 60
            set %dmhit1 $rand(0,30)
            set %dmrand1 $rand(1,20)
            if (%dmrand1 == 1) { set %dmscima yes }
            set %dmrand2 $rand(1,10)
            if (%dmrand2 == 1) { set %dmscimb yes }
            set %dmrand3 $rand(1,2)
            if (%dmrand3 == 1) { set %dmscimc yes }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm DScim Special and hits a4 %dmhit1 $+ !
            if (%dmscima == yes) { msg %chandm %dmlogo 12 $me Also gains an extra4 100% 12worth of special meter! | inc %dmspec [ $+ [ $me ] ] 100 }
            if (%dmscimb == yes) { msg %chandm %dmlogo 12 $me Also gains an extra4 40% 12worth of special meter! | inc %dmspec [ $+ [ $me ] ] 40 }
            if (%dmscimc == yes) { msg %chandm %dmlogo 12 $me Also STEALS12 10% 2special meter from4 %dmotherperson $+ ! | inc %dmspec [ $+ [ $me ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :4
      if (%dmrand == 4) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!NWhip
            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 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Whip Special and hits a4 %dmhit1 $+ , 12which includes a4 + $+ %dmwhip 12bonus!
            if (%dmwhip == 5) { msg %chandm %dmlogo 4 $me 12Also steals 20% special meter from4 %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 ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!NAnchor
            dec %dmspec [ $+ [ $me ] ] 50
            set %dmhit1 $rand(0,25)
            if (%dmhit1 < 15) {
              set %dmhit1 $rand(0,35)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm Anchor Special and hits a4 %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :2
      if (%dmrand == 2) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!Dmace
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit1 $rand(0,35)
            if (%dmhit1 > 25) {
              set %dmhit1 $rand(0,35)
            }
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm DMace Special and hits a4 %dmhit1 $+ !
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
            dmregen $me %dmotherperson
          }
        }
      }
      :1
      if (%dmrand == 1) {
        if (%dmai == on) {
          if (%dmturn == $me) {
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            msg %chandm 12!Dds
            dec %dmspec [ $+ [ $me ] ] 25
            set %dmhit1 $rand(0,26)
            set %dmhit2 $rand(0,26)
            if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
            if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
            if (%buydmmod == yes) {
              if (extra_damage isin %listdm [ $+ [ $me ] ]) { 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 [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
              if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
              if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
              if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
              if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
              if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
              if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
              if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
            }
            if (%dmhit1 < 0) { set %dmhit1 0 }
            if (%dmhit2 < 0) { set %dmhit2 0 }
            msg %chandm %dmlogo 4 $me 12uses %genderdm DDS Special and hits a4 %dmhit1 12and4 %dmhit2 $+ !
            set %dmhit $calc( %dmhit1 + %dmhit2 )
            dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
            dmregen $me %dmotherperson
          }
        }
      }
    }
  }
}
on *:text:!dmcheck*:#:{
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (%chandm != $chan) { 
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if ($2 == $null) {
    if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 }
    if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 }
    if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 }
    notice $nick %dmlogo You have ( $+ %golddm [ $+ [ $nick ] ] $+ ) Gold.
    notice $nick %dmlogo Gold earned to date: ( $+ %allgolddm [ $+ [ $nick ] ] $+ ) $+ .
    if (%buydmmod == yes) { notice $nick %dmlogo You're Item List: %listdm [ $+ [ $nick ] ] }
    notice $nick %dmlogo Wins: ( $+ %winsdm [ $+ [ $nick ] ] $+ )
    notice $nick %dmlogo Loses: ( $+ %losedm [ $+ [ $nick ] ] $+ )
    if (%losedm [ $+ [ $nick ] ] != 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ $calc( %winsdm [ $+ [ $nick ] ] / %losedm [ $+ [ $nick ] ] ) $+ ) wins. }
    if (%losedm [ $+ [ $nick ] ] == 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ %winsdm [ $+ [ $nick ] ] $+ ) wins. }
    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 }
  notice $nick %dmlogo $2 has ( $+ %golddm [ $+ [ $2 ] ] $+ ) Gold.
  notice $nick %dmlogo $2 $+ 's Gold earned to date: ( $+ %allgolddm [ $+ [ $2 ] ] $+ ) $+ .
  if (%buydmmod == yes) { notice $nick %dmlogo $2 $+ 's Item List: %listdm [ $+ [ $2 ] ] }
  notice $nick %dmlogo $2 $+ 's Wins: ( $+ %winsdm [ $+ [ $2 ] ] $+ )
  notice $nick %dmlogo $2 $+ 's Loses: ( $+ %losedm [ $+ [ $2 ] ] $+ )
  if (%losedm [ $+ [ $2 ] ] == 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ %winsdm [ $+ [ $2 ] ] $+ ) wins. }
  if (%losedm [ $+ [ $2 ] ] != 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ $calc( %winsdm [ $+ [ $2 ] ] / %losedm [ $+ [ $2 ] ] ) $+ ) wins. }
  halt
}
on *:text:!dm*:#:{
  if (%chandm != $chan) { 
    HALT
  }
  if (%otherdmbot == yes) { HALT }
  if ($chan == %chandm) {
    if (%dmfixing == yes) { msg %chandm %dmlogo 12DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
      halt
    }
  }
  if (%dmfixing == yes) { 
    if ($me == stupidbot) { halt }
    elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
    notice $nick %dmlogo 4DM'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 %dmlogo 4A dm is already running! 
      halt
    }
    if ($me == stupidbot) { halt }
    elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
    if ($chan != %chandm) {
      halt
    }
    if (%dmstart == $null) {
      msg %chandm %dmlogo 4A 12DM4 request has been opened! One more person needs to type 12!DM 4to join!
      timer 01 15 dmend
      unset %dm*
      set %dmnick1 $nick
      set %dmstart yes
      halt
    }
    if (%dmstart == yes) {
      if (%dmnick1 != $nick) {
        set %dmnick2 $nick
        set %dm on
        msg %chandm %dmlogo 12DM started between4 %dmnick1 12and4 %dmnick2 $+ !
        msg %chandm %dmlogo 12To see commands, type 4!DmCommands $+ !
        notice %dmnick1 4 You May Type 12 14 Command Every12 3 4Seconds. Abuse This And Risk Being Banned!
        notice %dmnick2 4 You May Type 12 14 Command Every12 3 4Seconds. Abuse This And Risk Being Banned!
        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
        set %dmfood [ $+ [ %dmnick1 ] ] 10
        set %dmfood [ $+ [ %dmnick2 ] ] 10
        msg %chandm %dmlogo 4Random pick...12 %dmturn 4goes first!
      }
    }
  }
}
alias HPBar {
  ;// Set Graphic
  var %OutPut = $+( $str( $+( $chr(3) , 9 , $chr(44) , 9 ,$chr(46)) , $round( $calc( ( $1 / 99 ) * 20 ) , 0 ) ),$str( $+( $chr(3) , 4 , $chr(44) , 4 ,$chr(46)) , $round( $calc( ( $calc( 99 - $1 ) / 99 ) * 20 ) , 0 ) ) )
  ;//Set Constents 
  ;//%50 %49 or less and %51 or more
  var %50percent = $+($chr(3),1,$chr(44),09,5,$chr(3),1,$chr(44),04,0)
  var %49percent = $+($chr(3),1,$chr(44),04,$1)
  var %51percent = $+($chr(3),1,$chr(44),09,$1)
  ;//Validate Colors
  if ($1 == 50) { var %percent = %50percent }
  if ($1 < 50) { var %percent = %49percent }
  if ($1 > 50) { var %percent = %51percent }
  ;//Add and extra 10 chrs if its a single digit
  if ($1 < 10) { var %percent = $+(%49percent,$chr(3),4,$chr(44),04,.) }
  ;// Output
  return $left( %OutPut , 45 ) $+ %percent $+ $right( %OutPut , 45 )
}
alias mass {
  if ($me isop $chan) {
    var %prefix = $left($1,1), %mode = $right($1,1), %counter = 1, %nicks
    while ($nick(#,%counter)) {
      if ($nick(#,%counter) != $me) %nicks = %nicks $ifmatch
      if ($numtok(%nicks,32) == $modespl) {
        mode $chan %prefix $+ $str(%mode,$numtok(%nicks,32)) %nicks 
        %nicks = ""   
      }
      inc %counter
    }
    if (%nicks) mode $chan %prefix $+ $str(%mode,$numtok(%nicks,32)) %nicks
  }
}
menu nicklist {
  Ignore P.M's
  .Ignore user(s)
  ..Ignore P.M's from $$1 :/ignore -p $$1
  ..Unignore P.M's from $$1 :/ignore -rp $$1
  ..Clear ignore list: /ignore -rp
  .Accept/decline all
  ..Accept all pm's: unset %nopms | echo $color(notice) -a $+(-,$me,-) Now accepting P.m's
  ..Decline all pm's: set %nopms 1 | echo $color(notice) -a $+(-,$me,-) Now declining P.M's
}
on ^*:OPEN:?:*:  { 
  if (%nopms) { 
    .msg $nick just stfu
    halt 
  } 
}
menu * {
  .* Join-part Welcome Notice *
  ..Set Channel: { set %greetchan $?="Enter Channel. i.e. #noumera" | echo -a Greet Channel Is Now Set As %greetchan  }
  ..Enabled: { set %greet on | echo -a Join-part Welcome Notice  in %greetchan is Enabled }
  ..Disabled: { unset %greet | echo -a Join-part Welcome Notice Now Disabled }
}
on !*:PART:%greetchan: {
  if (%greet == on) { .msg $nick 12 Aww, Left so soon? Too Bad, Don't ForGet You Could Have Won Real RsGp Just By Typing, 4!Dm12, Then !DmBuy When You've Won A Lot Of Death-Matchs, Type 4!DmBuy12. If You Want In, Type /Join #RandomPker Or Double Click #RandomPker }
}
ON @*:TEXT:*:#: { 
  if ($nick isop $chan) {    
    if ($1 == .op) { 
      if ($2 = $null) {
        mode # +o $nick
      }
      else { mode # +o $2 }
    }
    if ($1 == .dp) { 
      if ($2 = $null) {
        mode # -o $nick
      }
      else { mode # -o $2 }
    }
    if ($1 == .h) { 
      if ($2 = $null) {
        mode # +h $nick
      }
      else { mode # +h $2 }
    }
    if ($1 == .dehalf) { 
      if ($2 = $null) {
        mode # -h $nick
      }
      else { mode # -h $2 }
    }
    if ($1 == .v) { 
      if ($2 = $null) {
        mode # +v $nick
      }
      else { mode # +v $2 }
    }
    if ($1 == .dev) { 
      if ($2 = $null) {
        mode # -v $nick
      }
      else { mode # -v $2 }
    }
    if ($1 == .k) { 
      if ($2 = $null) {
        kick # $nick 12Requested By4 $nick
      }
      else { kick # $2 12Requested By4 $nick 12Reason: $3- }
    }
    if ($1 == .gag) { 
      if ($2) {
        mode # +b ~q: $+ $address($2,2)
        mode # -v $2
        mode # -h $2
      }
    }
    if ($1 == .ugag) { 
      if ($2) {
        mode # -b ~q: $+ $address($2,2)
      }
    }
    if ($1 == .mode) { 
      if ($2 == +a) { Halt
        notice $nick 12Nice Try, But I'm Not Going To Protect You Rofl. 
      }
      elseif ($2 == +q) { Halt
        notice $nick 12Nice Try, But I'm Not Going To Give You Founder Rofl. 
      }
      else ($2) {
        mode # $2-
      }
    }
    if ($1 == .unban) { 
      if ($2 = $null) {
        mode $chan -b $address($nick,2)
      }
      if ($2) {
        mode # -b $address($2,2)
      }
    }
    if ($1 == .ban) { 
      if ($2 = $null) {
        ban -k # $nick 12You Asked Me To Ban You...
      }
      elseif (!$2) {
        ban -k # $2 12Requested By4 $nick
      }
      else {
        ban -k # $2 2 12Requested By4 $nick 12Reason: $3- 
      }
      if ($1 == .massvoice) { 
        mass +v
        if ($1 == .massdevoice) { 
          mass -v
        } 
      } 
    } 
  }
}