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