rendered paste bodyon *:TEXT:!dm:#duel:{
if (%dmstart) && (!%dmrun) {
if ($nick == %dmp1) {
.notice $nick 14You may not fight yourself.
/halt
}
/unset %dmstart
.msg $chan 14*** 9[ 14Dm9 ]14 $nick Has joined The dm against %dmp1
/set %dmp2 $nick
.msg $chan 14*** 9[ 14Dm9 ]14 The fighters in this DM are %dmp1 and %dmp2
.msg $chan 14Both fighters will recieve 920 14sharks which heal 920 14and start with the maximum of 399 14HP
/unset %dmstart
/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 %firstp $rand(1,2)
if (%firstp == 1) {
/set %turn %dmp1
.msg $chan 14 %dmp1 gets the first attack!
/unset %firstp
}
if (%firstp == 2) {
/set %turn %dmp2
.msg $chan 14 %dmp2 gets the first attack!
/unset %firstp
}
}
elseif (!%dmrun) {
.msg $chan 14*** 9[ 14Dm9 ]14 $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 14Sorry, there is already a Dm running, please wait for that one to end.
}
if (%dmrun) {
/.timerdm off
}
}
on *:TEXT:!stopdm:#duel:{
if ($nick == %dmp1) || ($nick == %dmp2) || ($nick isop %dmchan) || ($nick == Sarah) || ($nick == Ferrari27) {
if (%dmstart) {
.msg $chan 14*** 9[ 14Dm9 ]14 The Dm invitation has been closed by $nick $+ .
}
elseif (%dmrun) {
.msg $chan 14*** 9[ 14Dm9 ]14 The Dm between %dmp1 and %dmp2 has been ended by $nick $+ .
}
else {
.msg $chan 14*** 9[ 14Dm9 ]14 There is no Dm to stop.
}
/timerdm off
/unset %dmstart
/unset %dmrun
/unset %hp*
/unset %food*
/unset %spec*
/unset %dmp*
/unset %dhp*
/unset %whp*
/unset %ghp*
/unset %turn
/unset %dmchan
/unset %hax*
}
}
on *:TEXT:!dmcommands:#duel:{
.notice $nick 14!Whip Will attack your opponent with your whip. It will also decrease your Special Energy by 25%. The max hit is 35.
.notice $nick 14!Dds Will attack your opponent twice with a dds. It will also decrease your Special Energy by 25%. The max hit on each of the attacks is 25.
.notice $nick 14!Gmaul Will attack your opponent three times with a granite maul. The max hit on each of the attacks is 20.
.notice $nick 14!Eat Will eat a shark and increase your health by 100%.
.notice $nick 14!Spec Will check your special energy bar.
.notice $nick 14!Food Will check the amount of food you have left.
.notice $nick 14!Stopdm will stop the Dm if you are a deathmatch player or an op in the channel.
}
on *:TEXT:!spec*:#duel:{
if ($nick == %dmp1) {
.notice $nick 14You have %spec [ $+ [ %dmp1 ] ] $+ % special energy left.
}
elseif ($nick == %dmp2) {
.notice $nick 14You have %spec [ $+ [ %dmp2 ] ] $+ % special energy left.
}
else {
.notice $nick 14You are not fighting in this Dm.
}
}
on *:TEXT:!food*:#duel:{
if ($nick == %dmp1) {
.notice $nick 14You have %food [ $+ [ %dmp1 ] ] sharks left.
}
elseif ($nick == %dmp2) {
.notice $nick 14You have %food [ $+ [ %dmp2 ] ] sharks left.
}
else {
.notice $nick 14You are not fighting in this Dm.
}
}
on *:TEXT:!eat*:#duel:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 14You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 14It is not your turn.
}
else {
if ($nick == %dmp1) {
if (%food [ $+ [ %dmp1 ] ] > 0) {
/set %hp [ $+ [ %dmp1 ] ] $calc(%hp [ $+ [ %dmp1 ] ] + 20)
if (%hp [ $+ [ %dmp1 ] ] > 99) {
/set %hp [ $+ [ %dmp1 ] ] 99
}
/dec %food [ $+ [ %dmp1 ] ] 1
if (%spec [ $+ [ %dmp1 ] ] < 100) {
/inc %spec [ $+ [ %dmp1 ] ] 5
}
.msg $chan 14 $nick has eaten a shark. You now have 3 $+ %hp [ $+ [ %dmp1 ] ] 14hp.
.notice $nick 14You have %food [ $+ [ %dmp1 ] ] sharks left.
.msg $chan 14It is now %dmp2 $+ 's turn.
/set %turn %dmp2
}
else {
.notice $nick 14Sorry, you have no food left to eat.
/set %turn %dmp2
.msg $chan 14It is now %dmp2 $+ 's turn.
}
}
if ($nick == %dmp2) {
if (%food [ $+ [ %dmp2 ] ] > 0) {
/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 14 $nick has eaten a shark. You now have 3 $+ %hp [ $+ [ %dmp2 ] ] 14hp.
.notice $nick 14You have %food [ $+ [ %dmp2 ] ] sharks left.
.msg $chan 14It is now %dmp1 $+ 's turn.
/set %turn %dmp1
}
else {
.notice $nick 14Sorry, you have no food left to eat.
/set %turn %dmp1
.msg $chan 14It is now %dmp1 $+ 's turn.
}
}
}
}
}
}
on *:TEXT:!whip*:#duel:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 14You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 14It is not your turn.
}
else {
if ($nick == %dmp1) {
/set %whp2 $rand(0,35)
if (%whp2 < %hp [ $+ [ %dmp2 ] ]) {
/dec %hp [ $+ [ %dmp2 ] ] %whp2
.msg $chan 14 %dmp1 has hit %dmp2 with their whip and has done4 %whp2 14damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 14hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
/inc %spec [ $+ [ %dmp1 ] ] 5
}
.msg $chan 14It 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 14 %dmp1 has hit a4 %whp2 14with their whip leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 14hp. Congratulations %dmp1 $+ , you won the Dm!
stopdm
/Halt
}
}
if ($nick == %dmp2) {
/set %whp1 $rand(0,35)
if (%whp1 < %hp [ $+ [ %dmp1 ] ]) {
/dec %hp [ $+ [ %dmp1 ] ] %whp1
.msg $chan 14 %dmp2 has hit %dmp1 with their whip and has done 4 $+ %whp1 14damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 14hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
/inc %spec [ $+ [ %dmp2 ] ] 5
}
.msg $chan 14 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 14 %dmp2 has hit a4 %whp1 14with their whip leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 14hp. Congratulations %dmp2 $+ , you won the Dm!
stopdm
/Halt
}
}
}
}
}
else {
.notice $nick 14A DM is not running and thus you may not attack your opponent.
}
}
on *:TEXT:!dds*:#duel:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 14You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 14It is not your turn.
}
else {
if ($nick == %dmp1) {
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 14You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
.msg $chan 14 %dmp1 has hit %dmp2 with their dds and has done 4 %dhp1p2 14and 4 %dhp2p2 14damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 14hp left.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
/inc %spec [ $+ [ %dmp1 ] ] 5
}
.msg $chan 14It 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 14 %dmp1 has hit a4 %dhp1p2 14and4 %dhp2p2 14on %dmp2 leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 14hp. Congratulations %dmp1 $+ , you won the Dm!
stopdm
/Halt
}
}
else {
.notice $nick 14You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
.msg $chan 14It is now %dmp2 $+ 's turn.
/set %turn %dmp2
}
}
if ($nick == %dmp2) {
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 14You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
.msg $chan 14 %dmp2 has hit %dmp1 with their dds and has done 4 $+ %dhp1p1 14 and 4 %dhp2p1 14damage. %dmp1 has 3 $+ %hp [ $+ [ %dmp1 ] ] 14hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
/inc %spec [ $+ [ %dmp2 ] ] 5
}
.msg $chan 14It 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 14 %dmp2 has hit a4 %dhp1p1 and4 %dhp2p1 14on %dmp1 leaving %dmp1 with3 %hp [ $+ [ %dmp1 ] ] 14hp. Congratulations %dmp2 $+ , you won the Dm!
stopdm
/Halt
}
}
else {
.notice $nick 14You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
.msg $chan 14It is now %dmp1 $+ 's turn.
/set %turn %dmp1
}
}
}
}
}
else {
.notice $nick 14A DM is not running and thus you may not attack your opponent.
}
}
on *:TEXT:!gmaul*:#duel:{
if (%dmrun) {
if ($nick != %dmp1) && ($nick != %dmp2) {
.notice $nick 14You are not fighting in this Dm.
}
else {
if ($nick != %turn) {
.notice $nick 14It is not your turn.
}
else {
if ($nick == %dmp1) {
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 14You now have %spec [ $+ [ %dmp1 ] ] $+ % of your spec bar left.
.msg $chan 14 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 14 and4 %ghp3p2 14damage leaving %dmp2 with3 %hp [ $+ [ %dmp2 ] ] 14hp.
if (%spec [ $+ [ %dmp1 ] ] < 100) {
/inc %spec [ $+ [ %dmp1 ] ] 5
}
.msg $chan 14It is now %dmp2 $+ 's turn.
/set %turn %dmp2
/unset %ghp1p2
/unset %ghp2p2
/unset %ghp3p2
/halt
}
if ($calc(%ghp1p2 + %ghp2p2 + %ghp3p2) >= %hp [ $+ [ %dmp2 ] ]) {
/set %ghpcv1 $rand(1,3)
if (%ghpcv1 = 1) {
/set %ghp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp3p2 0
}
if (%ghpcv1 = 2) {
/set %ghp1p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp3p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp2p2 0
}
if (%ghpcv1 = 3) {
/set %ghp3p2 $floor($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp2p2 $ceil($calc($($+(%,hp,$(%dmp2,2)),2)/2))
/set %ghp1p2 0
}
/dec %hp [ $+ [ %dmp2 ] ] %ghp3p2
/dec %hp [ $+ [ %dmp2 ] ] %ghp2p2
/dec %hp [ $+ [ %dmp2 ] ] %ghp1p2
.msg $chan 14 %dmp1 has hit %dmp2 with their granite maul and has done4 %ghp1p2 $+ , 4 %ghp2p2 14 and4 %ghp3p2 14damage. %dmp2 has3 %hp [ $+ [ %dmp2 ] ] 14hp left. Congratulations %dmp1 $+ , you won the Dm!
stopdm
/Halt
}
}
else {
.notice $nick 14You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp1 ] ] $+ % of your spec energy left.
.msg $chan 14It is now %dmp2 $+ 's turn.
/set %turn %dmp2
}
}
if ($nick == %dmp2) {
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 14You now have %spec [ $+ [ %dmp2 ] ] $+ % of your spec bar left.
.msg $chan 14 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1 and4 %ghp3p1 14damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 14hp left.
if (%spec [ $+ [ %dmp2 ] ] < 100) {
/inc %spec [ $+ [ %dmp2 ] ] 5
}
.msg $chan 14It is now %dmp1 $+ 's turn.
/set %turn %dmp1
/unset %ghp1p1
/unset %ghp2p1
/unset %ghp3p1
/halt
}
if ($calc(%ghp1p1 + %ghp2p1 + %ghp3p1) >= %hp [ $+ [ %dmp1 ] ]) {
/set %ghpcv2 $rand(1,3)
if (%ghpcv2 = 1) {
/set %ghp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp3p1 0
}
if (%ghpcv2 = 2) {
/set %ghp1p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp3p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp2p1 0
}
if (%ghpcv2 = 3) {
/set %ghp3p1 $floor($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp2p1 $ceil($calc($($+(%,hp,$(%dmp1,2)),2)/2))
/set %ghp1p1 0
}
/dec %hp [ $+ [ %dmp1 ] ] %ghp3p1
/dec %hp [ $+ [ %dmp1 ] ] %ghp2p1
/dec %hp [ $+ [ %dmp1 ] ] %ghp1p1
.msg $chan 14 %dmp2 has hit %dmp1 with their granite maul and has done4 %ghp1p1 $+ , 4 %ghp2p1 and4 %ghp3p1 14damage. %dmp1 has3 %hp [ $+ [ %dmp1 ] ] 14hp left. Congratulations %dmp2 $+ , you won the Dm!
stopdm
/Halt
}
}
else {
.notice $nick 14You do not have enough spec energy to do that. You have %spec [ $+ [ %dmp2 ] ] $+ % of your spec energy left.
.msg $chan 14It is now %dmp1 $+ 's turn.
/set %turn %dmp1
}
}
}
}
}
else {
.notice $nick 14A DM is not running and thus you may not attack your opponent.
}
}