on *:TEXT:!dm:#:{ if ($chan != #gamechat-dm) { notice $nick Due to problems, you can only dm in #gamechat-dm, please go there to use the dm feature. }
else { if (%dm.) { notice $nick there is already a dm in progress, please wait for it to finish. | halt }
if (!%dm.p1) { set $+(%,dm.,p1) $nick | msg $chan $c2($nick) $c1(has initiated a death match! type) $c2(!dm) $c1(to accept it!) | set $+(%,dm.,hp,$nick) 99 | set $+(%,dm.,sharks,$nick) 20 }
elseif (%dm.p1) { set $+(%,dm.,p2) $nick | msg $chan $c2($nick) $c1(has accepted) $c2($($+(%,dm.,p1),2) $+ 's) $c1(request.) | set %dm. active | notice %dm.p1 You have 99hp and 20 sharks. type !dmcommands to see the dm commands. | notice %dm.p2 You have 99hp and 20 sharks. type !dmcommands to see the dm commands. | set $+(%,dm.,hp,%dm.p2) 99 | set $+(%,dm.,sharks,%dm.p2) 20
var %x = $rand(1,2) | if (%x == 1) { set %dm.turn %dm.p1 } | elseif (%x == 2) { set %dm.turn %dm.p2 }
msg $chan $c2(%dm.turn) $c1(gets to go first.)
set $+(%,dm.,spec,%dm.p1) 100
set $+(%,dm.,spec,%dm.p2) 100
set $+(%,dm.,runes,%dm.p1) 4
set $+(%,dm.,runes,%dm.p2) 4
msg $chan $c1(DM script V1.0 written by IshubarashI)
}
}
}
on *:TEXT:!whip:,#gamechat,#gamechat-dm,#click:{
if (!%dm.) { notice $nick there is no active dm. | halt }
if ($nick != %dm.p1) && ($nick != %dm.p2) { notice $nick you're not in this dm. | halt }
if ($nick != %dm.turn) { notice $nick it's not your turn! | halt }
if ($nick == %dm.turn) {
var %ini = $rand(1,20)
if (%ini isnum 1-3) { set %damage $rand(0,3) }
if (%ini isnum 4-6) { set %damage $rand(4,9) }
if (%ini isnum 7-9) { set %damage $rand(10,16) }
if (%ini isnum 10-12) { set %damage $rand(17,23) }
if (%ini isnum 13-15) { set %damage $rand(24,28) }
if (%ini isnum 17-19) { set %damage $rand(29,32) }
if (%ini == 20) { set %damage $rand(33,37) }
}
if (%dm.turn == %dm.p1) {
dec $+(%,dm.,hp,%dm.p2) %damage
if ($($+(%,dm.,hp,%dm.p2),2) >= 1) { msg $chan $c2(%dm.p1) $c1(lashes out at) $c2(%dm.p2) $c1(with his whip, dealing) $c2( %damage ) $c1(damage.) $c2(%dm.p2) $c1(now has) $c2($($+(%,dm.,hp,%dm.p2),2) ) $c1(HP left.) | set %dm.turn %dm.p2 | inc $+(%,dm.,spec,%dm.p1) $iif($($+(%,dm.,spec,%dm.p1),2) == 100,0,5) }
if ($($+(%,dm.,hp,%dm.p2),2) <= 0) { msg $chan $hp0(%dm.p1,%dm.p2)
unset %dm.*
}
}
elseif (%dm.turn == %dm.p2) {
dec $+(%,dm.,hp,%dm.p1) %damage
if ($($+(%,dm.,hp,%dm.p1),2) >= 1) { msg $chan $c2(%dm.p2) $c1(lashes out at) $c2(%dm.p1) $c1(with his whip, dealing) $c2(%damage) $c1(damage.) $c2(%dm.p1) $c1(now has) $c2($($+(%,dm.,hp,%dm.p1),2) ) $c1(HP left.) | set %dm.turn %dm.p1 | inc $+(%,dm.,spec,%dm.p2) $iif($($+(%,dm.,spec,%dm.p2),2) == 100,0,5) }
if ($($+(%,dm.,hp,%dm.p1),2) <= 0) { msg $chan $hp0(%dm.p2,%dm.p1)
unset %dm.*
}
}
}
on *:TEXT:!dds:,#gamechat,#gamechat-dm,#click:{
if (!%dm.) { notice $nick there is no active dm. | halt }
if ($nick != %dm.p1) && ($nick != %dm.p2) { notice $nick you're not in this dm. | halt }
if ($nick != %dm.turn) { notice $nick it's not your turn! | halt }
if ($nick == %dm.turn) {
if ($($+(%,dm.,spec,$nick),2) < 25) { notice $nick You don't have enough special left! current special energy: $iif($($+(%,dm.,spec,$nick),2),$($+(%,dm.,spec,$nick),2),0) $+ % | halt }
else {
var %ini = $rand(1,20)
if (%ini isnum 1-6) { set %ddsdamage $rand(0,3) }
if (%ini isnum 7-12) { set %ddsdamage $rand(4,9) }
if (%ini isnum 13-15) { set %ddsdamage $rand(10,16) }
if (%ini isnum 16-18) { set %ddsdamage $rand(17,21) }
if (%ini == 19) { set %ddsdamage $rand(22,25) }
if (%ini == 20) { set %ddsdamage $rand(26,34) }
var %ini2 = $rand(1,20)
if (%ini2 isnum 1-6) { set %ddsdamage2 $rand(0,3) }
if (%ini2 isnum 7-12) { set %ddsdamage2 $rand(4,9) }
if (%ini2 isnum 13-15) { set %ddsdamage2 $rand(10,16) }
if (%ini2 isnum 16-18) { set %ddsdamage2 $rand(17,21) }
if (%ini2 == 19) { set %ddsdamage2 $rand(22,25) }
if (%ini2 == 20) { set %ddsdamage2 $rand(26,34) }
}
if (%dm.turn == %dm.p1) {
dec $+(%,dm.,spec,%dm.p1) 25
dec $+(%,dm.,hp,%dm.p2) $calc(%ddsdamage + %ddsdamage2)
if ($($+(%,dm.,hp,%dm.p2),2) >= 1) { msg $chan $c2($nick) $c1(lunges at) $c2(%dm.p2) $c1(dealing) $c2(%ddsdamage + %ddsdamage2) $+ $c1(, leaving) $c2(%dm.p2) $c1(with) $c2($($+(%,dm.,hp,%dm.p2),2)) $c1(HP.) | set %dm.turn %dm.p2 | notice $nick you have $($+(%,dm.,spec,%dm.p1),2) $+ % special left }
if ($($+(%,dm.,hp,%dm.p2),2) <= 0) { msg $chan $dds0(%dm.p1,%dm.p2)
unset %dm.*
}
}
elseif (%dm.turn == %dm.p2) {
dec $+(%,dm.,spec,%dm.p2) 25
dec $+(%,dm.,hp,%dm.p1) $calc(%ddsdamage + %ddsdamage2)
if ($($+(%,dm.,hp,%dm.p1),2) >= 1) { msg $chan $c2($nick) $c1(lunges at) $c2(%dm.p1) $c1(dealing) $c2(%ddsdamage + %ddsdamage2) $+ $c1(, leaving) $c2(%dm.p1) $c1(with) $c2($($+(%,dm.,hp,%dm.p1),2)) $c1(HP.) | set %dm.turn %dm.p1 | notice $nick you have $($+(%,dm.,spec,%dm.p2),2) $+ % special left }
if ($($+(%,dm.,hp,%dm.p1),2) <= 0) { msg $chan $dds0(%dm.p2,%dm.p1)
unset %dm.*
}
}
}
}
on *:TEXT:!eat:#gamechat,#gamechat-dm,#click:{
if (!%dm.) { notice $nick there is no active dm. | halt }
if ($nick != %dm.p1) && ($nick != %dm.p2) { notice $nick you're not in this dm. | halt }
if ($nick != %dm.turn) { notice $nick it's not your turn! | halt }
if ($nick == %dm.turn) {
if (%dm.turn == %dm.p1) {
if ($($+(%,dm.,sharks,%dm.p1),2) == 0) { notice $nick you don't have any sharks left! | halt }
if ($($+(%,dm.,hp,%dm.p1),2) <= 79) {
inc $+(%,dm.,hp,%dm.p1) 20
dec $+(%,dm.,sharks,%dm.p1)
msg $chan $c2($nick) $c1(eats a shark and gains 20hp.) $c2($nick $+ 's) $c1(current HP:) $c2($($+(%,dm.,hp,%dm.p1),2)) | set %dm.turn %dm.p2 | inc $+(%,dm.,spec,%dm.p1) $iif($($+(%,dm.,spec,%dm.p1),2) == 100,0,5) }
else { inc $+(%,dm.,hp,%dm.p1) $calc(99 - $($+(%,dm.,hp,%dm.p1),2)) | dec $+(%,dm.,sharks,%dm.p1) | msg $chan $c2($nick) $c1(eats up to full hp) $c2((99HP)) $+ $c2(.) | set %dm.turn %dm.p2 | inc $+(%,dm.,spec,%dm.p1) $iif($($+(%,dm.,spec,%dm.p1),2) == 100,0,5) }
}
elseif (%dm.turn == %dm.p2) {
if ($($+(%,dm.,sharks,%dm.p2),2) == 0) { notice $nick you don't have any sharks left! | halt }
if ($($+(%,dm.,hp,%dm.p2),2) <= 79) {
inc $+(%,dm.,hp,%dm.p2) 20
dec $+(%,dm.,sharks,%dm.p2)
msg $chan $c2($nick) $c1(eats a shark and gains 20hp.) $c2($nick $+ 's) $c1(current HP:) $c2($($+(%,dm.,hp,%dm.p2),2)) | set %dm.turn %dm.p1 | inc $+(%,dm.,spec,%dm.p2) $iif($($+(%,dm.,spec,%dm.p2),2) == 100,0,5) }
else { inc $+(%,dm.,hp,%dm.p2) $calc(99 - $($+(%,dm.,hp,%dm.p2),2)) | dec $+(%,dm.,sharks,%dm.p2) | msg $chan $c2($nick) $c1(eats up to full hp) $c2((99HP)) $+ $c2(.) | set %dm.turn %dm.p1 | inc $+(%,dm.,spec,%dm.p2) $iif($($+(%,dm.,spec,%dm.p2),2) == 100,0,5) }
}
}
}
on $*:TEXT:/^!(stop|end)dm/Si:#gamechat,#gamechat-dm,#click:{
if (%dm.) {
if ($nick == %dm.p1) || ($nick == %dm.p2) {
unset %dm.*
msg $chan $c2($nick) $c1(has ended the dm.)
}
else { notice $nick This isn't your fight!
}
else { notice $nick There is no active dm.
}
}
}
on $*:TEXT:/^!(dh|gaxe)/Si:#gamechat-dm,#gamechat,#click:{
if (!%dm.) { notice $nick there is no active dm. | halt }
if ($nick != %dm.p1) && ($nick != %dm.p2) { notice $nick you're not in this dm. | halt }
if ($nick != %dm.turn) { notice $nick it's not your turn! | halt }
if ($nick == %dm.turn) {
var %hp = $($+(%,dm.,hp,$nick),2)
if (%hp isnum 90-99) { var %ini = $rand(1,20) }
if (%hp isnum 80-89) { var %ini = $rand(1,22) }
if (%hp isnum 70-79) { var %ini = $rand(1,24) }
if (%hp isnum 60-69) { var %ini = $rand(1,26) }
if (%hp isnum 50-59) { var %ini = $rand(1,28) }
if (%hp isnum 40-49) { var %ini = $rand(1,30) }
if (%hp isnum 30-39) { var %ini = $rand(1,32) }
if (%hp isnum 20-29) { var %ini = $rand(1,34) }
if (%hp isnum 10-19) { var %ini = $rand(1,36) }
if (%hp isnum 1-9) { var %ini = $rand(1,38) }
if (%ini isnum 1-10) { set %damage $rand(0,10) }
if (%ini isnum 11-14) { set %damage $rand(11,15) }
if (%ini isnum 15-19) { set %damage $rand(16,20) }
if (%ini isnum 20-24) { set %damage $rand(21,30) }
if (%ini isnum 25-30) { set %damage $rand(31,39) }
if (%ini isnum 31-32) { set %damage $rand(40,49) }
if (%ini isnum 33-34) { set %damage $rand(50,57) }
if (%ini isnum 35-36) { set %damage $rand(58,64) }
if (%ini == 37) { set %damage $rand(65,68) }
if (%ini == 38) { set %damage $rand(69,71) }
}
if (%dm.turn == %dm.p1) {
dec $+(%,dm.,hp,%dm.p2) %damage
if ($($+(%,dm.,hp,%dm.p2),2) >= 1) { msg $chan $c2($nick) $c1(brings down his axe on) $c2(%dm.p2) $+ $c1(, dealing) $c2( %damage ) $c1(to) $c2(%dm.p2) $+ $c1(.) $c2(%dm.p2) $c1(now has) $c2($($+(%,dm.,hp,%dm.p2),2)) $c1(HP left.) | set %dm.turn %dm.p2 | inc $+(%,dm.,spec,%dm.p1) $iif($($+(%,dm.,spec,%dm.p1),2) == 100,0,5) }
if ($($+(%,dm.,hp,%dm.p2),2) <= 0) { msg $chan $dhko(%dm.p1,%dm.p2)
unset %dm.*
}
}
elseif (%dm.turn == %dm.p2) {
dec $+(%,dm.,hp,%dm.p1) %damage
if ($($+(%,dm.,hp,%dm.p1),2) >= 1) { msg $chan $c2($nick) $c1(brings down his axe on) $c2(%dm.p1) $+ $c1(, dealing) $c2( %damage ) $c1(to) $c2(%dm.p1) $+ $c1(.) $c2(%dm.p1) $c1(now has) $c2($($+(%,dm.,hp,%dm.p1),2)) $c1(HP left.) | set %dm.turn %dm.p1 | inc $+(%,dm.,spec,%dm.p2) $iif($($+(%,dm.,spec,%dm.p2),2) == 100,0,5) }
if ($($+(%,dm.,hp,%dm.p1),2) <= 0) { msg $chan $dhko(%dm.p2,%dm.p1)
unset %dm.*
}
}
}
on $*:TEXT:/^!(ice|(ice)?Barrage)$/Si:#gamechat-dm,#gamechat,#click:{
if (!%dm.) { notice $nick there is no active dm. | halt }
if ($nick != %dm.p1) && ($nick != %dm.p2) { notice $nick you're not in this dm. | halt }
if ($nick != %dm.turn) { notice $nick it's not your turn! | halt }
if ($nick == %dm.turn) {
if ($($+(%,dm.,runes,$nick),2) == 0) { notice $nick you don't have enough runes to barrage with! | halt }
var %ini = $rand(1,20)
if (%ini isnum 1-5) { set %damage $rand(0,6) }
if (%ini isnum 6-9) { set %damage $rand(7,11) }
if (%ini isnum 10-13) { set %damage $rand(12,15) }
if (%ini isnum 14-15) { set %damage $rand(16,20) }
if (%ini isnum 16-17) { set %damage $rand(20,23) }
if (%ini isnum 18-19) { set %damage $rand(24,27) }
if (%ini == 20) { set %damage $rand(28,30) }
}
if (%dm.turn == %dm.p1) {
var %freeze = $rand(1,4)
if (%freeze == 4) { set $+(%,dm.,frozen.,%dm.p2) true }
dec $+(%,dm.,hp,%dm.p2) %damage
dec $+(%,dm.,runes,%dm.p1)
if ($($+(%,dm.,hp,%dm.p2),2) >= 1) { msg $chan $c2(%dm.p1) $c1(casts ice barrage upon) $c2(%dm.p2) $+ $c1(, dealing) $c2(%damage) $c1(damage.) $c2(%dm.p2) $c1(now has) $c2($($+(%,dm.,hp,%dm.p2),2)) $c1(HP left.) | set %dm.turn $iif($($+(%,frozen.,%dm.p2),2),%dm.p1,%dm.p2) | inc $+(%,dm.,spec,%dm.p1) $iif(%dm.spec. [ $+ [ %dm.p1 ] ] == 100,0,5) | notice $nick you have $($+(%,dm.,runes,%dm.p1),2) barrages left }
if ($($+(%,dm.,hp,%dm.p2),2) <= 0) { msg $chan $iceko(%dm.p1,%dm.p2) | unset %dm.* }
if ($($+(%,dm.,frozen.,%dm.p2),2)) { msg $chan %dm.p2 was frozen. %dm.p1 gets to go again. | unset %dm.frozen. [ $+ [ %dm.p2 ] ] }
}
elseif (%dm.turn == %dm.p2) {
var %freeze = $rand(1,4)
if (%freeze == 4) { set $+(%,dm.,frozen.,%dm.p1) true }
dec $+(%,dm.,hp,%dm.p1) %damage
dec $+(%,dm.,runes,%dm.p2)
if ($($+(%,dm.,hp,%dm.p1),2) >= 1) { msg $chan $c2(%dm.p2) $c1(casts ice barrage upon) $c2(%dm.p1) $+ $c1(, dealing) $c2(%damage) $c1(damage.) $c2(%dm.p1) $c1(now has) $c2($($+(%,dm.,hp,%dm.p1),2)) $c1(HP left.) | set %dm.turn $iif($($+(%,frozen.,%dm.p1),2),%dm.p2,%dm.p1) | inc $+(%,dm.,spec,%dm.p2) $iif(%dm.spec. [ $+ [ %dm.p2 ] ] == 100,0,5) | notice $nick you have $($+(%,dm.,runes,%dm.p2),2) barrages left }
if ($($+(%,dm.,hp,%dm.p1),2) <= 0) { msg $chan $iceko(%dm.p2,%dm.p1) | unset %dm.* }
if ($($+(%,dm.,frozen.,%dm.p1),2)) { msg $chan %dm.p1 was frozen. %dm.p2 gets to go again. | unset %dm.frozen. [ $+ [ %dm.p1 ] ] }
}
}
on *:TEXT:!dmcommands*:#gamechat-dm,#gamechat,#click:{
notice $nick $c1(The DM commands are:) $c2(!whip !dds !dh or !gaxe and !barrage)
}
on *:TEXT:FINISH HIM:#gamechat-dm,#gamechat,#click:{
if (%dm.) {
if ($nick == %dm.p1 || $nick == %dm.p2) {
if ($address($nick,2) == $address($me,2) || ($nick == _0lil_malik0)) {
set %damage $rand(115,999)
msg $chan $c2($nick) $c1(summons the almighty TzTok-Jad to finish the fight!) $c2(BAM %DAMAGE ON THAT BITCH) $c1($nick has officially owned his enemy.)
unset %dm.*
}
}
}
}
alias hp0 {
return $c2($1) $c1(has dealt) $c1( %damage ) $c1(to) $c2($2) $+ $c1($chr(44)) $c2(KOING) $c2($2) $c1(like the bitch) $c2($2) $c1(is!)
}
alias dds0 {
return $c2($1) $c1(KOES) $c2($2) $c1(visciously with a nasty) $c2(%ddsdamage + %ddsdamage2) $c1(spec.)
}
alias dhko {
return $c2($1) $c1(brings) $c1(down his Great Axe upon) $c2($2) $+ $c1(, dealing a mighty) $c2(%damage) $+ $c1(, KOING) $c2($2) $+ $c1(.)
}
alias iceko {
return $c2($1) $c1(casts ice barrage upon) $c1($2) $+ $c2(, dealing) $c1(%damage) $c2(causing) $c1($2) $c2(a painful icy death. KOED BITCH)
}
alias c1 { return $+($chr(3),10,$1-,$chr(3)) }
alias c2 { return $+($chr(3),04,$1-,$chr(3)) }