on *:TEXT:!dm*:#theblackdragons: {
if (%p == $nick || %p2 == $nick) { notice $nick you are already in a dm! | HALT }
if (%duel == on) { notice $nick there is already a dm running!
HALT }
else if (%duel2 == off) {
msg $chan $nick has initiated a dm!
set %p $nick
set %duel2 on
}
else if (%duel2 == on) {
set %dds 100
set %dds2 100
set %hp 99
set %hp2 99
set %duel on
set %p2 $nick
set %shark 10
set %shark2 10
set %duel2 off
set %duel on
msg $chan %p2 has joined the dm against %p
set %starter $rand(1,2)
if (%starter == 1) { set %phit on | msg $chan %p may deal the first hit | unset %starter }
if (%starter == 2) { set %p2hit on | msg $chan %p2 may deal the first hit | unset %starter }
}
}
on *:TEXT:!unsetdm:#theblackdragons: {
if ($nick isop $chan) { msg $chan $nick has ended the dm!
unset %p
unset %p2
set %duel off }
}
on $*:TEXT:/^[!@](flick|whip|flickeroo)/si:#theblackdragons: {
if ($nick == %p && %phit == on) {
set %phit off
set %hit $rand(0,30)
dec %hp2 %hit
if (%dds < 100) { inc %dds 5 }
if (%hp2 <= 0) { goto dead2 }
msg $chan %p has hit a %hit $+ ! %p2 has4 %hp2 left
notice $nick you have %dds $+ % special left
set %p2hit on
HALT
:dead2
msg $chan $nick has hit a %hit $+ ! %p2 has %hp2 left, 4 %p has won the dm
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
}
else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
else if ($nick == %p2 && %p2hit == on) {
set %p2hit off
set %hit $rand(0,30)
dec %hp %hit
if (%dds2 < 100) { inc %dds2 5 }
if (%hp <= 0) { goto dead }
msg $chan %p2 has hit a %hit $+ ! %p has4 %hp left
notice $nick you have %dds2 $+ % special left
set %phit on
HALT
:dead
msg $chan $nick has hit a %hit $+ ! %p has3 %hp left, 4 %p2 has won the dm
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
}
else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
}
on $*:TEXT:/^[!@](ddp|dds|dd)/si:#theblackdragons: {
if ($nick == %p && %phit == on) {
if (%dds < 25) { goto ddsfail }
set %phit off
dec %dds 25
set %hit $rand(0,25)
set %hit2 $rand(0,25)
dec %hp2 %hit
dec %hp2 %hit2
inc %dds 5
if (%hp2 <= 0) { goto dead }
msg $chan %p has hit a %hit and a %hit2 with his dragon dagger $+ ! %p2 has4 %hp2 hp left
notice $nick you have %dds $+ % special left
set %p2hit on
HALT
:dead
msg $chan %p has hit a %hit and a %hit2 with his dragon dagger $+ ! %p2 has %hp2 left! %p has won the duel!
unset %p
unset %p2
unset %p2hit
set %duel off
HALT
:ddsfail
notice $nick you don't have enough special left!
inc %dds 5
msg $chan %p tries to dds special %p2 but doesn't have enough special left, it is now %p2 $+ 's turn
set %phit off
set %p2hit on
}
else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
else if ($nick == %p2 && %p2hit == on) {
if (%dds2 < 25) { goto ddsfail2 }
set %p2hit off
dec %dds2 25
set %hit $rand(0,25)
set %hit2 $rand(0,25)
dec %hp %hit
dec %hp %hit2
inc %dds2 5
if (%hp <= 0) { goto dead2 }
msg $chan %p2 has hit a %hit and a %hit2 with his dragon dagger $+ ! %p has4 %hp hp left
notice $nick you have %dds2 $+ % special left
set %phit on
HALT
:dead2
msg $chan %p2 has hit a %hit and a %hit2 with his dragon dagger $+ ! %p has %hp left! %p2 has won the duel!
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
HALT
:ddsfail2
notice $nick you don't have enough special left!
inc %dds2 5
msg $chan %p2 tries to dds special %p but doesn't have enough special left, it is now %p $+ 's turn
set %p2hit off
set %phit on
}
else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
}
on $*:TEXT:/^[!@](shark|eat)/si:#theblackdragons: {
if ($nick == %p && %phit == on) {
set %phit off
set %p2hit on
inc %hp 20
dec %shark 1
if (%dds < 100) { inc %dds 5 }
msg $chan $nick has eaten a shark! $nick has %hp hp left!
notice $nick you have %dds $+ % special left
}
else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
else if ($nick == %p2 && %p2hit == on) {
set %phit on
set %p2hit off
inc %hp2 20
dec %shark2 1
if (%dds2 < 100) { inc %dds2 5 }
msg $chan $nick has eaten a shark! $nick has %hp2 hp left!
notice $nick you have %dds2 $+ % special left
}
else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
}
on *:TEXT:!barrage*:#theblackdragons: {
if ($nick == %p && %phit == on) {
set %hit $rand(0,30)
set %frozechance $rand(1,4)
if (%hit =< 10) { msg $chan the barrage splashes | goto splash }
dec %hp2 %hit
if (%hp2 <= 0) { goto dead }
if (%frozechance == 1) { goto frozen }
inc %dds 5
msg $chan %p barrages %p2 and hits a %hit $+ ! %p2 has %hp2 hp left
notice $nick you have %dds $+ % special left.
set %phit off
set %p2hit on
HALT
:frozen
msg $chan $nick casts ice barrage on %p2 and hits a %hit $+ , and %p2 has been frozen! $nick can do an other hit
inc %dds 5
notice $nick you have %dds $+ % special left.
HALT
:splash
if (%hp2 <= 0) { goto dead }
msg $chan $nick casts ice barrage on %p2 $+ .....and it splashes! %p2 has %hp2 left!
set %phit off
set %p2hit on
inc %dds 5
notice $nick you have %dds $+ % special left
HALT
:dead
msg $chan $nick casts ice barrage on %p2 $+ ...and hits a %hit $+ ! %p2 has %hp2 left, $nick has won the duel
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
}
else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
else if ($nick == %p2 && %p2hit == on) {
set %hit $rand(0,30)
set %frozechance $rand(1,4)
if (%hit =< 10) { goto splash2 }
dec %hp %hit
if (%hp <= 0) { goto dead2 }
if (%frozechance == 1) { goto frozen2 }
inc %dds2 5
msg $chan %p2 barrages %p and hits a %hit $+ ! %p has %hp hp left
notice $nick you have %dds2 $+ % special left.
set %p2hit off
set %phit on
HALT
:frozen2
msg $chan $nick casts ice barrage on %p and hits a %hit $+ , and %p has been frozen! $nick can do an other hit!
inc %dds2 5
notice $nick you have %dds2 $+ % special left.
HALT
:splash2
if (%hp <= 0) { goto dead2 }
msg $chan $nick casts ice barrage on %p $+ .....and it splashes! %p has4 %hp left!
set %p2hit off
set %phit on
inc %dds2 5
notice $nick you have %dds2 $+ % special left
else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
HALT
:dead2
msg $chan $nick casts ice barrage on %p $+ .....and hits a %hit $+ ! %p has %hp hp left, $nick has won the duel
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
}
}
on $*:TEXT:/^[!@.](maul|gmaul)/si:#theblackdragons: {
if ($nick == %p && %phit == on) {
set %phit off
if (%dds < 100) { goto maulfail }
dec %dds 100
set %hit $rand(0,20)
set %hit2 $rand(0,20)
set %hit3 $rand(0,20)
dec %hp2 %hit
dec %hp2 %hit2
dec %hp2 %hit3
if (%dds < 100) { inc %dds 5 }
if (%hp2 <= 0) { goto dead }
msg $chan $nick uses his granite maul and hits a12 %hit $+ , %hit2 and a %hit3 $+ , %p2 has4 %hp2 $+ hp left
notice $nick you have %dds $+ % special left.
set %p2hit on
unset %hit3
HALT
:dead
msg $chan $nick uses his granite maul and hits a12 %hit $+ , %hit2 and a %hit3 $+ , %p2 has4 %hp2 left, $nick has won the duel :D
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
unset %hit3
HALT
:maulfail
msg $chan $nick attempts to use his granite maul...but has no special left! it is now4 %p2 $+ 's turn!
set %p2hit on
HALT
}
else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
else if ($nick == %p2 && %p2hit == on) {
set %p2hit off
if (%dds2 < 100) { goto maulfail }
dec %dds2 100
set %hit $rand(0,20)
set %hit2 $rand(0,20)
set %hit3 $rand(0,20)
dec %hp %hit
dec %hp %hit2
dec %hp %hit3
if (%dds2 < 100) { inc %dds 5 }
if (%hp2 <= 0) { goto dead }
msg $chan $nick uses his granite maul and hits a12 %hit $+ , %hit2 and a %hit3 $+ , %p has4 %hp $+ hp left
notice $nick you have %dds2 $+ % special left.
set %phit on
unset %hit3
HALT
:dead
msg $chan $nick uses his granite maul and hits a12 %hit $+ , %hit2 and a %hit3 $+ , %p has4 %hp left, $nick has won the duel :D
unset %p
unset %p2
unset %phit
unset %p2hit
set %duel off
unset %hit3
HALT
:maulfail
msg $chan $nick attempts to use his granite maul...but has no special left! it is now4 %p $+ 's turn!
set %phit on
HALT
}
else if (%p2hit == off && $nick == %p2) { notice $nick it is %p $+ 's turn! | HALT }
}