rendered paste body;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;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 %dmotherperson %dmturn
set %dmturn $2
set %dmturnperson $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 [ $+ [ %dmturnperson ] ]) { 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 [ $+ [ %dmturnperson ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
if (special_boost50 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
if (special_boost15 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
if (special_boost10 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
if (special_boost05 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
if (health_boost1 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
if (health_boost5 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
if (health_boost10 isin %listdm [ $+ [ %dmturnperson ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
}
}
alias dmgodstuff {
if (%buydmmod == yes) {
if (god isin %listdm [ $+ [ %dmturnperson ] ]) {
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 [ $+ [ %dmturnperson ] ] 100
msg $chan %logodm Gods power has granted you 100 special!
}
if (%dmfullhp > 6) {
set %dmhealth [ $+ [ %dmturnperson ] ] 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 [ $+ [ %dmturnperson ] ] 0
msg $chan %logodm Oh dear, Gods power has killed you!
}
unset %dmgod [ $+ [ %dmturnperson ] ]
}
}
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 %dmturnperson $+ 's attack!
}
:blah
}
}