rendered paste bodyalias unsetdm {
msg %dmchan 2Nobody 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 2 $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 $+ $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:!dm:#:{
if ($chan == #[tdw]) [halt]
elseif (!%dmoff) {
if (%dmstart) && (!%dmrun) {
if ($nick == %dmp1) {
.notice $nick 2You may not fight yourself.
halt
}
if ($nick ison %dmchan) {
unset %dmstart
msg $chan 2 $nick Has joined The dm against %dmp1 $+ .
set %dmp2 $nick
msg $chan 2The fighters in this DM are %dmp1 and %dmp2 $+ .
msg $chan 2Both fighters will recieve 220 2sharks which heal 20 and start with the maximum of 399 2HP.
.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 %firstp $rand(1,2)
if (%firstp == 1) {
set %turn %dmp1
msg $chan 2 %dmp1 gets the first attack!
unset %firstp
}
if (%firstp == 2) {
set %turn %dmp2
msg $chan 2 %dmp2 gets the first attack!
unset %firstp
}
}
else {
.notice $nick Sorry, a DM invitation has already been extended in %dmchan $+ , please wait for that DM to finish before initiating yours.
}
}
elseif (!%dmrun) {
msg $chan 2 $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 2Sorry, there is already a Dm running, please wait for that one to end.
}
if (%dmrun) {
.timerdm off
}
}
}
on $*:TEXT:/^[!@](stop|end)dm/Si:#:{
if ($nick == %dmp1) || ($nick == %dmp2) || ($nick isop %dmchan) || ($address($nick,4) == $address($me,4)) {
if (%dmstart) {
msg $chan 2The Dm invitation has been closed by $nick $+ .
}
elseif (%dmrun) {
msg $chan 2The Dm between %dmp1 and %dmp2 has been ended by $nick $+ .
}
else {
.notice $nick 2There is no Dm to stop.
halt
}
.timerdm off
stopdm
}
}
on $*:TEXT:/^[!@]dm(commands|cmds|help)/Si:#:{
var %dmcmds = $iif($left($1,1) == !,.msg $nick,msg $nick)
if ($right($1,-3) == help) {
if (!$2) {
%dmcmds 2!dmhelp <command> Will give you a description of the command.
}
else {
goto $right($2,-1)
}
}
else {
:whip
%dmcmds 2!Whip Will attack your opponent with your whip. The max hit is 35.
$iif($right($1,-3) == help,halt)
:dds
%dmcmds 2!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 2!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 2!Cbow Will attack your opponent with your crystal bow. The max hit is 30.
$iif($right($1,-3) == help,halt)
:msb
%dmcmds 2!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 2!Eat Will eat a shark and increase your health by 20.
$iif($right($1,-3) == help,halt)
:spec
%dmcmds 2!Spec Will check your special energy bar.
$iif($right($1,-3) == help,halt)
:food
%dmcmds 2!Food Will check the amount of food you have left.
$iif($right($1,-3) == help,halt)
:stopdm
%dmcmds 2!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 2!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 2!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(off|on)/Si:#:{
if ($address($nick,4) == $address($me,4)) {
$iif($right($1,2) == on,unset, set) %dmoff True
.notice $nick 2Death Matches are now $iif(%dmoff,off,on) $+ .
amsg 2Death Matches have been turned $iif(%dmoff,off,on) by my owner, Pm $nick too lodge any complaints.
stopdm
}
}
on *:TEXT:!froze*:#:{
if ($nick == %dmp1) {
if (%froze [ $+ [ %dmp1 ] ]) {
.notice $Nick 2You are frozen for %froze [ $+ [ %dmp1 ] ] more turns.
}
else {
.notice $nick 2You are not frozen.
}
}
elseif ($nick == %dmp2) {
if (%froze [ $+ [ %dmp2 ] ]) {
.notice $nick 2You are frozen for %froze [ $+ [ %dmp2 ] ] more turns.
}
else {
.notice $nick 2You are not frozen.
}
}
else {
.notice $nick 2You are not fighting in this Dm.
}
}
on *:TEXT:!spec*:#:{
if ($nick == %dmp1) {
.notice $nick 2You have %spec [ $+ [ %dmp1 ] ] $+ % special energy left.
}
elseif ($nick == %dmp2) {
.notice $nick 2You have %spec [ $+ [ %dmp2 ] ] $+ % special energy left.
}
else {
.notice $nick 2You are not fighting in this Dm.
}
}
on *:TEXT:!food*:#:{
if ($nick == %dmp1) {
.notice $nick 2You have %food [ $+ [ %dmp1 ] ] sharks left.
}
elseif ($nick == %dmp2) {
.notice $nick 2You have %food [ $+ [ %dmp2 ] ] sharks left.
}
else {
.notice $nick 2You are not fighting in this Dm.
}
}
on $*:TEXT:/^[!@](eat|shark)/Si:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2 $nick has eaten a shark. You now have 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp.
.notice $nick 2You have %food [ $+ [ %dmp1 ] ] sharks left.
msg $chan 2It is now %dmp2 $+ 's turn.
set %turn %dmp2
}
else {
.notice $nick 2Sorry, 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 2 $nick has eaten a shark. You now have 3 $+ %hp [ $+ [ %dmp2 ] ] 2hp.
.notice $nick 2You have %food [ $+ [ %dmp2 ] ] sharks left.
msg $chan 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
else {
.notice $nick 2Sorry, you have no food left to eat.
set %turn %dmp1
msg $chan 2It is now %dmp1 $+ 's turn.
}
}
}
}
}
}
on *:TEXT:!whip*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2It is now %dmp2 $+ 's turn.
.notice $nick 2You 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 2 %dmp1 has hit %dmp2 with their whip and has done4 %whp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has hit a4 %whp2 2with their whip leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. 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 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
else {
set %whp1 $rand(0,35)
if (%whp1 < %hp [ $+ [ %dmp1 ] ]) {
dec %hp [ $+ [ %dmp1 ] ] %whp1
msg $chan 2 %dmp2 has hit %dmp1 with their whip and has done 4 $+ %whp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2 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 2 %dmp2 has hit a4 %whp1 2with their whip leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
}
}
}
}
}
on *:TEXT:!dds*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2It is now %dmp2 $+ 's turn.
.notice $nick 2You 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 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp1 has hit %dmp2 with their dds and has done 4 %dhp1p2 2and 4 %dhp2p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has hit a4 %dhp1p2 and4 %dhp2p2 2on %dmp2 leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
dmwinner %dmp2 %dmp1
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
msg $chan 2It 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 2It is now %dmp1 $+ 's turn.
.notice $nick 2You 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 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp2 has hit %dmp1 with their dds and has done 4 $+ %dhp1p1 2 and 4 %dhp2p1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2It 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 2 %dmp2 has hit a4 %dhp1p1 and4 %dhp2p1 2on %dmp1 leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
msg $chan 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
}
}
}
}
}
}
on *:TEXT:!gmaul*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2It is now %dmp2 $+ 's turn.
.notice $nick 2You 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 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 2 and4 %ghp3p2 2damage leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 2 and4 %ghp3p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left. Congratulations %dmp1 $+ , you won the Dm!
dmwinner %dmp2 %dmp1
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
msg $chan 2It 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 2It is now %dmp1 $+ 's turn.
.notice $nick 2You 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 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1 and4 %ghp3p1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2It 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 2 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1 and4 %ghp3p1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
msg $chan 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
}
}
}
}
}
}
on *:TEXT:!cbow*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It is not your turn.
}
else {
if ($nick == %dmp1) {
.timerdmlimit off
.timerdmlimit 1 60 switchturn %dmp2 %dmp1
set %cbp2 $rand(0,30)
dec %froze [ $+ [ %dmp1 ] ] 1
$iif(%froze [ $+ [ %dmp1 ] ] <= 0, unset %froze [ $+ [ %dmp1 ] ])
if (%cbp2 < %hp [ $+ [ %dmp2 ] ]) {
dec %hp [ $+ [ %dmp2 ] ] %cbp2
msg $chan 2 %dmp1 has hit %dmp2 with their crystal bow and has done4 %cbp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has hit a4 %cbp2 2with their crystal bow leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. 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 2 %dmp2 has hit %dmp1 with their crystal bow and has done 4 $+ %cbp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2 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 2 %dmp2 has hit a4 %cbp1 2with their crystal bow leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
}
}
}
}
on *:TEXT:!msb*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp1 has hit %dmp2 with their mage short bow and has done 4 %msp1p2 2and 4 %msp2p2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has hit a4 %msp1p2 and4 %msp2p2 2on %dmp2 leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
dmwinner %dmp2 %dmp1
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
msg $chan 2It 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 2You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
msg $chan 2 %dmp2 has hit %dmp1 with their mage short bow and has done 4 $+ %msp1p1 2 and 4 %msp2p1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2It 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 2 %dmp2 has hit a4 %msp1p1 and4 %msp2p1 2on %dmp1 leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
else {
.notice $nick 2You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
msg $chan 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
}
}
}
}
}
on *:TEXT:!ancient*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It is not your turn.
}
else {
if (!$2) || (!$3) {
.notice $nick 2Please specify a valid command.
halt
}
else {
if ($3 != blitz) && ($3 != burst) {
.notice $nick 2Please specify a valid command.
halt
}
if ($2 != blood) && ($2 != ice) {
.notice $nick 2Please specify a valid command.
halt
}
else {
if ($nick == %dmp1) {
if (%runes [ $+ [ %dmp1 ] ] < 1) {
.notice $nick 2You do not have any runes left.
set %turn %dmp2
msg $chan 2It 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 2You 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 2You 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 2You 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 2You 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 2You now have %hp [ $+ [ %dmp1 ] ] hp.
}
}
if (%ahp2 < %hp [ $+ [ %dmp2 ] ]) {
dec %hp [ $+ [ %dmp2 ] ] %ahp2
msg %dmchan 2 %dmp1 has cast an ancient attack on %dmp2 and has done4 %ahp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
.notice $nick 2You have %runes [ $+ [ %dmp1 ] ] casts left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp1 has cast an ancient attack on %dmp2 and has done4 %ahp2 2damage leaving %dmp2 with 3 %hp [ $+ [ %dmp2 ] ] 2hp. Congratulations %dmp1 $+ , you won the Dm!
dmwinner %dmp2 %dmp1
stopdm
halt
}
}
if ($nick == %dmp2) {
if (%runes [ $+ [ %dmp2 ] ] < 1) {
.notice $nick 2You do not have any runes left.
set %turn %dmp2
msg $chan 2It 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 2You 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 2You 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 2You 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 2You 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 2You now have %hp [ $+ [ %dmp2 ] ] hp.
}
}
if (%ahp1 < %hp [ $+ [ %dmp1 ] ]) {
dec %hp [ $+ [ %dmp1 ] ] %ahp1
msg %dmchan 2 %dmp2 has cast an ancient attack on %dmp1 and has done4 %ahp1 2damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 2hp left.
.notice $nick 2You have %runes [ $+ [ %dmp2 ] ] casts left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It 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 2 %dmp2 has cast an ancient attack on %dmp1 and has done4 %ahp1 2damage leaving %dmp1 with 3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp2 %dmp1
stopdm
halt
}
}
}
}
}
}
}
}
on *:TEXT:!dh*:#:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 2You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 2It 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 2It is now %dmp2 $+ 's turn.
.notice $nick 2You have been frozen and may not attack with your dharoks.
set %turn %dmp2
halt
}
else {
if (%dhu [ $+ [ %dmp1 ] ] != $Null) {
msg $chan 2It is now %dmp2 $+ 's turn.
.notice $nick 2You 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(.5,3))))
if (%dhp2 < %hp [ $+ [ %dmp2 ] ]) {
dec %hp [ $+ [ %dmp2 ] ] %dhp2
msg $chan 2 %dmp1 has hit %dmp2 with their dharoks and has done4 %dhp2 2damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 2hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
inc %spec [ $+ [ %dmp1 ] ] 5
}
msg $chan 2It is now %dmp2 $+ 's turn.
set %turn %dmp2
set %dhu [ $+ [ %dmp1 ] ]
unset %dhp2
halt
}
if (%dhp2 >= %hp [ $+ [ %dmp2 ] ]) {
set %dhp2 %hp [ $+ [ %dmp2 ] ]
dec %hp [ $+ [ %dmp2 ] ] %dhp2
msg $chan 2 %dmp1 has hit a4 %dhp2 2with their dharoks leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 2hp. 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 2You have been frozen and may not attack with your dharoks.
msg $chan 2It is now %dmp1 $+ 's turn.
set %turn %dmp1
}
else {
if (%dhu [ $+ [ %dmp2 ] ]) {
msg $chan 2It is now %dmp1 $+ 's turn.
.notice $nick 2You 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(.5,3))))
if (%dhp1 < %hp [ $+ [ %dmp1 ] ]) {
dec %hp [ $+ [ %dmp1 ] ] %dhp1
msg $chan 2 %dmp2 has hit %dmp1 with their dharoks and has done 4 $+ %dhp1 2damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 2hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
inc %spec [ $+ [ %dmp2 ] ] 5
}
msg $chan 2 It is now %dmp1 $+ 's turn.
set %turn %dmp1
set %dhu [ $+ [ %dmp2 ] ]
unset %dhp1
halt
}
if (%dhp1 >= %hp [ $+ [ %dmp1 ] ]) {
set %dhp1 %hp [ $+ [ %dmp1 ] ]
dec %hp [ $+ [ %dmp1 ] ] %dhp1
msg $chan 2 %dmp2 has hit a4 %dhp1 2with their dharoks leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 2hp. Congratulations %dmp2 $+ , you won the Dm!
dmwinner %dmp1 %dmp2
stopdm
Halt
}
}
}
}
}
}
}