on *:TEXT:!whip:#:{
if (%dm !== on) {
notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
elseif (%dm == on) {
if ($nick !== %dmp1) && ($nick !== %dmp2) {
notice $nick $s2(You are not involved in this Death Match!) }
elseif ($nick == %dmp1) {
if (%player !== %dmp1) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp1) {
set %hit $rand(0,45)
timer 1 1 msg $chan $s2(%dmp1 throws a mighty swing at %dmp1 hitting a... ) $s1(%hit $+ !)
set %dmhp2 $calc( %dmhp2 - %hit)
if (%dmhp2 < 0) {
msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp2 > 0) {
msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
set %player %dmp2
notice %dmp2 $s1(It's your turn!) } } }
elseif ($nick == %dmp2) {
if (%player !== %dmp2) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp2) {
set %hit $rand(0,45)
msg $chan $s2(%dmp2 throws a mighty swing at %dmp1 hitting a...) $s1(%hit $+ !)
set %dmhp1 $calc( %dmhp1 - %hit)
if (%dmhp1 < 0) {
msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp1 > 0) {
msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
set %player %dmp1
notice %dmp1 $s1(It's your turn!) }
}
}
}
}
on *:TEXT:!cbow:#:{
if (%dm !== on) {
notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
elseif (%dm == on) {
if ($nick !== %dmp1) && ($nick !== %dmp2) {
notice $nick $s2(You are not involved in this Death Match!) }
elseif ($nick == %dmp1) {
if (%player !== %dmp1) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp1) {
set %hit $rand(0,25)
msg $chan $s2(%dmp1 realsed the crystal arrow hitting a...) $s1(%hit $+ !)
set %dmhp2 $calc( %dmhp2 - %hit)
if (%dmhp2 < 0) {
msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp2 > 0) {
msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
set %player %dmp2
notice %dmp2 $s1(It's your turn!) } } }
elseif ($nick == %dmp2) {
if (%player !== %dmp2) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp2) {
set %hit $rand(0,25)
msg $chan $s2(%dmp2 realses the crystal arrow hitting a...) $s1(%hit $+ !)
set %dmhp1 $calc( %dmhp1 - %hit)
if (%dmhp1 < 0) {
msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp1 > 0) {
msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
set %player %dmp1
notice %dmp1 $s1(It's your turn!) }
}
}
}
}
on *:TEXT:!eat:#:{
if (%dm !== on) {
notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
elseif (%dm == on) {
if ($nick !== %dmp1) && ($nick !== %dmp2) {
notice $nick $s2(You are not involved in this Death Match!) }
elseif ($nick == %dmp1) {
if (%player !== %dmp1) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp1) {
if (%sharks1 !== 0) {
if (%dmhp1 == 99) {
notice $nick $s5(Fool, why eat at full hp?) $s1(I give you chance to use another command.) }
elseif (%dmhp1 !== 99) {
set %dmhp1 $calc( %dmhp1 + 20)
msg $chan $s2(%dmp1) $s1(has eaten a shark)
if (%dmhp1 > 99) {
set %dmhp1 99
msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
set %player %dmp2
set %sharks1 $calc( %sharks1 - 1)
notice %dmp2 $s1(It's your turn!)
notice %dmp1 $s2(You now have) $s1(%sharks1) $s2(sharks left) }
elseif (%dmhp1 < 99) {
msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
set %player %dmp2
set %sharks1 $calc( %sharks1 - 1)
notice %dmp2 $s1(It's your turn!)
notice %dmp1 $s2(You now have) $s1(%sharks1) $s2(sharks left) }
elseif (%sharks1 == 0) {
notice $nick $s1(You don't have any sharks left!) $s3(Use another command) | Halt } } } } }
elseif ($nick == %dmp2) {
if (%player !== %dmp2) {
notice $nick $s2(It's not your turn!) }
elseif ($nick == %dmp2) {
if (%player !== %dmp2) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp2) {
if (%sharks2 !== 0) {
if (%dmhp2 == 99) {
notice $nick $s5(Fool, why eat at full hp?) $s1(I give you chance to use another command.) }
elseif (%dmhp2 !== 99) {
set %dmhp2 $calc( %dmhp2 + 20)
msg $chan $s2(%dmp2) $s1(has eaten a shark)
if (%dmhp2 > 99) {
set %dmhp2 99
msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
set %player %dmp1
set %sharks2 $calc( %sharks2 - 1)
notice %dmp1 $s1(It's your turn!)
notice %dmp2 $s2(You now have) $s1(%sharks2) $s2(sharks left) }
elseif (%dmhp2 < 99) {
msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
set %player %dmp1
set %sharks2 $calc( %sharks2 - 1)
notice %dmp1 $s1(It's your turn!)
notice %dmp2 $s2(You now have) $s1(%sharks2) $s2(sharks left) }
elseif (%sharks2 == 0) {
notice $nick $s1(You don't have any sharks left!) $s3(Use another command) | Halt } } } } }
}
}
}
on *:TEXT:!stopdm:#:{
if (%dm == on) {
if ($nick isop $chan) {
msg $chan $s2(DM stopped by Channel OP -) $s1($nick)
unset %dmp1
unset %dmp2
set %dm off }
elseif ($nick == %dmp1) || ($nick == %dmp2) {
msg $chna $s2(DM stopped by DM contender -) $s1($nick)
unset %dmp1
unset %dmp2
set %dm off }
elseif ($nick !== %dmp1) && ($nick !== %dmp2) && ($nick !isop $chan) {
notice $nick $s2(You do not have the power to stop the DM) }
}
elseif (%dm !== on) {
msg $chan $s1(No Death Match is currently set -) $s2(To start type !dm)
}
}
on *:TEXT:!dm:#:{
if (%dmp1 == $null) && (%dmp2 == $null) {
msg $chan $s2($Nick would like a DM!) $s1(Please type) $s5(!dm) $s1(to accept his request)
set %dmp1 $nick }
elseif (%dm == on) {
msg $chan $s2(Sorry $nick -) $s1(A DM is already in progress - Get a Channel Op to stop it by typing !stopdm) }
elseif (%dmp1 !== $null) && (%dmp2 == $null) {
if ($nick == %dmp1) {
msg $chan $s1(Stupid $nick $+ !) $s2(You cannot accept your own request!) | halt }
elseif ($nick !== %dmp1) {
msg $chan $s2($nick) $s1(has accpeted %dmp1 $+ 's request!)
msg $chan $s2(Both players have 99HP and a total of 7 sharks)
msg $chan $s3(%dmp1 shall start)
notice %dmp1 $s1(It's your turn!) $s4(To view the commands type !dmcommands)
set %dm on
set %dmp2 $nick
set %dmhp1 99
set %dmhp2 99
set %dmspec1 100
set %dmspec2 100
set %sharks1 7
set %sharks2 7
set %spec1 100
set %spec2 100
set %player %dmp1 }
}
}
on *:TEXT:!dds:#:{
if (%dm !== on) {
notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
elseif (%dm == on) {
if ($nick !== %dmp1) && ($nick !== %dmp2) {
notice $nick $s2(You are not involved in this Death Match!) }
elseif ($nick == %dmp1) {
if (%player !== %dmp1) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp1) {
if (%player == %dmp1) {
if (%spec1 > 24) {
set %spec1 $calc( %spec1 - 25 )
set %hit1 $rand(0,30)
set %hit2 $rand(0,30)
msg $chan $s2(%dmp1 flings his arm is a mighty special hitting) $s5(%hit1) $s2(&) $s5(%hit2)
set %dmhp2 $calc( %dmhp2 - %hit1 - %hit2 )
if (%dmhp2 < 0) {
msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp2 > 0) {
msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
set %player %dmp2
notice %dmp1 $s2(You now have %spec1 $+ % of your special bar left.)
notice %dmp2 $s1(It's your turn!) } }
elseif (%spec1 < 24) {
notice %dmp1 $s2(You don't have enough special left use your dragon dagger!) } } } }
elseif ($nick == %dmp2) {
if (%player !== %dmp2) {
notice $nick $s2(It's not your turn!) }
elseif (%player == %dmp2) {
if (%player == %dmp2) {
if (%spec2 > 24) {
set %spec2 $calc( %spec2 - 25 )
set %hit1 $rand(0,30)
set %hit2 $rand(0,30)
msg $chan $s2(%dmp2 flings his arm in a mighty special hitting) $s5(%hit1) $s2(&) $s5(%hit2)
set %dmhp1 $calc( %dmhp1 - %hit1 - %hit2 )
if (%dmhp1 < 0) {
msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2)
set %dm off
unset %dmp1
unset %dmp2 }
elseif (%dmhp1 > 0) {
msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
set %player %dmp1
notice %dmp2 $s2(You now have %spec2 $+ % of your special bar left.)
notice %dmp1 $s1(It's your turn!) }
elseif (%spec1 < 24) {
notice %dmp2 $s3(You don't have enough special left yo use your dragon dagger! }
}
}
}
}
}
}