rendered paste bodyalias dmc1 return $+(,$iif($dms(c1),$v1,14),$$1-)
alias dmc2 return $+(,$iif($dms(c2),$v1,10),$$1-)
on *:START: {
hmake dm 1
hmake dma 1
hload dm dm.txt
hload dma dma.txt
}
alias hpbar {
var %g $round($calc($$1 /5),-1), %r $calc(20 - %g), %x 1
var %t $right(0 $+ $1,-1)
while (%x < 21) {
var %c $iif(%x isnum 1- $+ %g,09,04)
if (%x isnum 10-11) { var %m $+(,01,$chr(44),%c,$mid(%t,$calc(%x -9),1)) }
else { var %m $+(,%c,$chr(44),%c,$chr(160)) }
var %re %re $+ %m
inc %x
}
return %re $+
}
on $*:TEXT:/^[!.@]dmset(tings)?\s.+/Si:#: {
if ($wildsite = $address($me,2)) || ($admin($nick) && $dms(set) ) {
if ($istok(sharks timeout timer barrage,$2,32) && $3 isnum) {
dms $2 $$3
notice $nick [DM] DM setting $2 is now $3-
hsave dm dm.txt
var %set .
}
elseif ($istok(c1 c2,$2,32) && $3 isnum 0-15) {
dms $2 $right(0 $+ $$3,2)
notice $nick [DM] $2 is now color $dms($2)
hsave dm dm.txt
var %set .
}
elseif ($istok(timeout[st] hpbar gmaul dbow,$2,32) && $istok($true $false on off,$3,32)) {
dms $2 $iif($istok($true on,$3,32),$true,$false)
notice $nick [DM] DM setting $2 is now $3
hsave dm dm.txt
var %set .
}
else notice $nick [DM] Incorrect syntax. Type !dmcmds and scroll down on the webpage for the admin commands.
}
if ($2 = set && $wildsite = $address($me,2) && $istok(admin owner,$3,32)) {
dms $2 $iif($3 = admin,$true,$false)
notice $nick [DM] $iif($3 = owner,Only owners can set settings now.,Admins and owners can set settings now.)
hsave dm dm.txt
var %set .
else notice $nick [DM] Incorrect syntax. Type !dmcmds and scroll down on the webpage for the admin commands.
}
elseif ($wildsite != $address($me,2) || !$admin($nick) && $dms(set)) { notice $nick [DM] You do not have sufficient access to set DM settings. }
}
alias dms $iif($isid,return $hget(dm,$1-),hadd -m dm $$1-)
alias dm $iif($isid,return $hget(dm $+ #,$1-),hadd -m dm $+ # $$1-)
alias dm1 $iif($isid,return $hget(dm1 $+ #,$1-),hadd -m dm1 $+ # $$1-)
alias dm2 $iif($isid,return $hget(dm2 $+ #,$1-),hadd -m dm2 $+ # $$1-)
alias dmt {
if ($isid) return $hget($+(dm,$dm(t),#),$1-)
else {
if ($1 = -d) hdec $+(dm,$dm(t),#) $2-
if ($1 = -i) hinc $+(dm,$dm(t),#) $2-
else hadd -m $+(dm,$dm(t),#) $1-
}
}
alias dmo {
if ($isid) return $hget($+(dm,$dm(o),#),$1-)
else {
if ($1 = -d) hdec $+(dm,$dm(o),#) $2-
if ($1 = -i) hinc $+(dm,$dm(o),#) $2-
else hadd -m $+(dm,$dm(o),#) $1-
}
}
alias dma {
hadd -m dm1 $+ # $$1-
hadd -m dm2 $+ # $$1-
}
alias updatehs { filter -ac DMs.txt DMo.txt sort }
alias sort {
if ($token($1,1,32) > $token($2,1,32)) return -1
elseif ($v1 = $v2) return 0
return 1
}
alias score {
if ($read(dms.txt,w,* $1)) { write -l $+ $readn dms.txt $calc(1+ $token($v1,1,32)) $token($v1,2,32) $1 }
else { write dms.txt 1 0 $1 }
if ($read(dms.txt,w,* $2)) { write -l $+ $readn dms.txt $token($v1,1,32) $calc(1+ $token($v1,2,32)) $2 }
else { write dms.txt 0 1 $2 }
msg $3 $dmc1([DM]) $dmc2(Wins) $+ $dmc1(: $1) $dmc2($wins($1)) $dmc1($chr(44) $2) $dmc2($wins($2)) $dmc1($chr(124)) $dmc2(Losses) $+ $dmc1(: $1) $dmc2($loss($1)) $dmc1($chr(44) $2) $dmc2($loss($2))
updatehs
}
on $*:TEXT:/^[!.@](dm ?)?top([3-9]|1[0-5]) ?(win(ner)?s?)?$/Si:#: {
var %n $iif($regml(1) isnum,$v1,$regml(2))
var %x 1
while ($read(dmo.txt,%x) && %x <= %n) {
var %read $read(dmo.txt,%x)
var %msg %msg $dmc1($chr(124)) $dmc2(%x) $+ $dmc1(: $token(%read,3,32) [) $+ $dmc2($token(%read,1,32))) $+ $dmc1($chr(93))
inc %x
}
$iif($left($1,1) = @,msg #,notice $nick) $dmc1([DM] Top %x) $dmc2(Wins)
$iif($left($1,1) = @,msg #,notice $nick) $token(%msg,2-,32)
}
on $*:TEXT:/^[!.@](rank|score) \S+$/Si:#: {
var %way $iif($left($1,1) = @,msg #,notice $nick)
if ($read(dmo.txt,w,* $2)) {
tokenize 32 $v1
var %wpc $round($calc(($1 / ($1 + $2))* 100),3)
var %lpc $calc(100 - %wpc)
%way $dmc1([DM] Score for) $dmc2($3) $+ $dmc1(: Rank:) $dmc2($readn) $dmc1(Wins-) $dmc2($1) $dmc1(Losses-) $dmc2($2) $dmc1($chr(124) Win - Loss Perecentage:) $dmc2(%wpc $+ %) $dmc1(-) $dmc2(%lpc $+ %)
}
else %way $dmc1([DM]) $dmc2($2) $dmc1(not found in the DM highscores.)
}
alias wins return $token($$read(dms.txt,w,* $$1),1,32)
alias loss return $token($$read(dms.txt,w,* $$1),2,32)
on $*:TEXT:/^[!.@](start)?(d(eath)?m(atch)?|fight)$/Si:#: {
if (!$dm(open)) {
dm1 name $nick
dm open $true
msg # $dmc1([DM]) $dmc2($nick) $dmc1(has initiated a DM. Type) $dmc2($1) $dmc1(in the next) $dmc2($iif($dms(timer),$v1,30)) $dmc1(seconds to accept the challenge.)
.timer 1 1 msg # $dmc1([DM] Type) $dmc2(!dmcommands) $dmc1(for a list of DM commands.)
.timerdmo $+ # 1 $iif($dms(timer),$v1,30) checkdm #
}
elseif ($dm(open) && !$dm2(name) && $wildsite != $address($dm1(name),2)) {
msg # $dmc1([DM]) $dmc2($nick) $dmc1(has accepted) $dmc2($dm1(name)) $+ $dmc1('s challenge.)
dm2 name $nick
dma hp 99
dma spec 100
dma sharks $iif($dms(sharks),$v1,5)
dma barrages $iif($dms(barrage),$v1,6)
dma frozen $false
dm t $r(1,2)
dm o $iif($dm(t) = 1,2,1)
.timerdmo $+ # off
.timer 1 1 msg # $dmc1([DM] It is now) $dmc2($dmt(name)) $+ $dmc1('s turn.)
if ($dms(timeout[st])) .timertimeout $+ # 1 $iif($dms(timeout),$v1,60) timeout #
}
elseif ($wildsite = $address($dm1(name),2)) { msg # $dmc1([DM]) $dmc2($nick) $dmc1(wants to battle themself. Smart $+ $chr(44) eh?) }
elseif ($dm(open) && $dm2(name)) { notice $nick [DM] Sorry, there is already a DM going on between $dm1(name) and $dm2(name) $+ . }
}
on $*:TEXT:/^[!.@](s(top)?(d(eath)?m(atch)?|fight)|d(eath)?m(atch)?(off|stop))$/Si:#: {
if ($wildsite = $address($me,2) || $admin($nick) || $dm1(name) = $nick || $dm2(name) = $nick && $dm(open)) {
msg # $dmc1([DM] DM halted by) $dmc2($nick) $+ $dmc1(.)
dmhalt #
}
elseif (!$dm(open) && $wildsite = $address($me,2) || $admin($nick) || $dm1(name) = $nick || $dm2(name) = $nick) { notice $nick [DM] There is no DM currently going on. }
else notice $nick $iif($dm(open),[DM] You have to be in the DM to stop it.,[DM] There is no DM currently.)
}
alias checkdm {
msg $$1 $dmc1([DM] DM automatically halted after) $dmc2($dms(timer)) $dmc1(seconds.)
dmhalt $1
}
alias dmhalt {
hfree dm1 $+ $$1
if ($hget(dm2 $+ $1)) hfree $v1
hfree dm $+ $1
.timerdmo $+ $1 off
.timertimeout $+ $1 off
}
on $*:TEXT:/^[!.@](add|(rem(ove)?|del(ete)?))(admin|staff) /Si:#: {
if ($regml(1) = add) {
if ($wildsite = $address($me,2) && !$admin($$2)) {
hadd -m dma $address($2,2) $true
hsave dma dma.txt
notice $nick [DM] $2 added to the admin list
}
elseif ($wildsite = $address($me,2) && $admin($2)) { notice $nick [DM] $2 is already an admin. }
else notice $nick [DM] You do not have sufficient access to add/remove admins.
}
else {
if ($wildsite = $address($me,2) && $admin($$2)) {
hdel dma $address($2,2)
notice $nick [DM] $2 removed from the admin list.
hsave dma dma.txt
}
elseif ($wildsite = $address($me,2) && !$admin($$2)) { notice $nick [DM] $2 is not an admin. }
else notice $nick [DM] You do not have sufficient access to add/remote admins. }
}
alias admin return $iif($hget(dma,$address($$1,2)),$true,$false)
alias turn {
if ($dmt(frozen)) {
var %r $r(1,4)
if (%r isnum 1-3) { dmt frozen $false }
msg # $dmc1([DM]) $dmc2($dmt(name)) $dmc1(attempts to break out of his ice cube and...) $dmc2($iif($dmt(frozen),fails.,succeeds!))
if (!$dmt(frozen)) { msg # $dmc1([DM]) $dmc2($dmt(name)) $dmc1(is not frozen anymore.) }
}
dm t $iif($dm(t) = 1,2,1)
dm o $iif($dm(t) = 1,2,1)
if ($dms(timeout[st])) .timertimeout $+ # 1 $iif($dms(timeout),$v1,60) timeout #
}
alias timeout {
msg $$1 $dmc1([DM] DM halted due to) $dmc2($iif($dms(timeout),$v1,60)) $dmc1(seconds of inactivity.)
dmhalt #
}
on $*:TEXT:/^[!.@]whip$/Si:#: {
if ($nick = $dmt(name) && !$dmt(frozen)) {
var %hit $r(1,40)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Abyssal Whip) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Abyssal Whip) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($nick = $dmt(name) && $dmt(frozen)) { notice $nick [DM] You're frozen, you can't use the whip. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]dd(s|p\+?\+?)$/Si:#: {
if ($nick = $dmt(name) && !$dmt(frozen) && $dmt(spec) > 24) {
var %hit1 $r(1,30)
var %hit2 $r(1,30)
if ($calc($dmo(hp) - %hit1 - %hit2) < 1) {
var %hit1 $iif($calc($dmo(hp) - %hit1) < 1,$dmo(hp),$v1)
var %hit2 $calc($dmo(hp) - %hit1)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(DDS) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit1
dmo -d hp %hit2
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(DDS) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
dmt -d spec 25
notice $nick Your special bar is now at $dmt(spec) $+ % $+ .
turn
}
}
elseif ($nick = $dmt(name) && $dmt(frozen)) { notice $nick [DM] You're frozen, you can't use the DDS. }
elseif ($nick = $dmt(name) && $dmt(spec) < 25) { notice $nick [DM] You do not have enough percent in your special bar. It's at $dmt(spec) $+ % $+ . You need at least 25%. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@](eat|shark|heal)$/Si:#: {
if ($nick = $dmt(name)) {
var %heal $iif($calc($dmt(hp) +20) > 99,$calc(99 - $dmt(hp)),20)
if ($dmt(sharks) = 0) { notice $nick [DM] You have ran out of sharks. }
elseif ($dmt(sharks) > 0) {
dmt -i hp %heal
dmt -d sharks 1
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just ate a) $dmc2(shark) $dmc1(and now has) $dmc2($iif($dms(hpbar),$hpbar($dmt(hp)),$dmt(hp))) $dmc1(hp.)
notice $nick [DM] You have $dmt(sharks) sharks left.
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn. }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@](blood|b(lood)? ?barrage)$/Si:#: {
if ($nick = $dmt(name) && $dmt(barrages) > 0) {
var %hit $r(1,30)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Blood Barrage) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
var %heal $iif($calc($dmt(hp) + %hit) > 99,$calc(99 - $dmt(hp)),%hit)
dmo -d hp %hit
dmt -d barrages 1
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Blood Barrage) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($nick) $dmc1(has healed) $dmc2(%heal) $dmc1(hp and now has) $dmc2($iif($dms(hpbar),$hpbar($dmt(hp)),$dmt(hp))) $dmc1(hp.)
notice $nick [DM] You have $dmt(barrages) barrages left.
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($dmt(barrages) < 1) { notice $nick [DM] You have run out of barrages. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@](ice|i(ce)? ?barrage)$/Si:#: {
if ($nick = $dmt(name) && $dmt(barrages) > 0) {
var %hit $r(1,30)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Ice Barrage) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit
dmt -d barrages 1
var %freeze $r(1,100)
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Ice Barrage) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
if (%freeze isnum 1-35 && !$dmo(frozen)) {
dmo frozen $true
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is now frozen.)
}
notice $nick [DM] You have $dmt(barrages) barrages left.
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($dmt(barrages) < 1) { notice $nick [DM] You have run out of barrages. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@](dh(aroks)?|g(reat)?axe)$/Si:#: {
if ($nick = $dmt(name) && !$dmt(frozen)) {
var %h $dmt(hp)
if (%h isnum 1-7) var %hit $r(1,75)
if (%h isnum 8-18) var %hit $r(1,67)
if (%h isnum 19-30) var %hit $r(1,58)
if (%h isnum 31-45) var %hit $r(1,49)
if (%h isnum 46-65) var %hit $r(1,40)
if (%h isnum 66-85) var %hit $r(1,35)
if (%h isnum 86-99) var %hit $r(1,30)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Dharoks set) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Dharoks set) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($nick = $dmt(name) && $dmt(frozen)) { notice $nick [DM] You're frozen, you can't use Dharoks. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]c(rystal)? ?bow$/Si:#: {
if ($nick = $dmt(name)) {
var %hit $r(1,30)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Crystal Bow) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with a) $dmc2(Crystal Bow) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]m(agic)? ?s(hort)? ?b(ow)?$/Si:#: {
if ($nick = $dmt(name) && $dmt(spec) > 50) {
var %hit1 $r(1,23)
var %hit2 $r(1,23)
if ($calc($dmo(hp) - %hit1 - %hit2) < 1) {
var %hit1 $iif($calc($dmo(hp) - %hit1) < 1,$dmo(hp),$v1)
var %hit2 $calc($dmo(hp) - %hit1)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(MSB) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit1
dmo -d hp %hit2
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(MSB) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
dmt -d spec 50
notice $nick Your special bar is now at $dmt(spec) $+ % $+ .
turn
}
}
elseif ($nick = $dmt(name) && $dmt(spec) < 25) { notice $nick [DM] You do not have enough percent in your special bar. It's at $dmt(spec) $+ % $+ . You need at least 50%. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]guth(ans)?$/Si:#: {
if ($nick = $dmt(name) && !$dmt(frozen)) {
var %hit $r(1,35)
if ($calc($dmo(hp) - %hit) < 1) {
var %hit $dmo(hp)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Guthans) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
var %heal $iif($calc($dmt(hp) + %hit) > 99,$calc(99 - $dmt(hp)),%hit)
dmo -d hp %hit
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit) $dmc1(with) $dmc2(Guthans) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($nick) $dmc1(has healed) $dmc2(%heal) $dmc1(hp and now has) $dmc2($iif($dms(hpbar),$hpbar($dmt(hp)),$dmt(hp))) $dmc1(hp.)
var %spec $iif($calc($dmt(spec) +5) > 100,$calc(100 - $dmt(spec)),5)
dmt -i spec %spec
turn
}
}
elseif ($dmo(frozen)) { notice $nick [DM] You're frozen, you can't use Guthans. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]d(ragon)? ?b(ow)?$/Si:#: {
if ($nick = $dmt(name) && $dmt(spec) > 80 && $dms(dbow)) {
var %hit1 $r(1,35)
var %hit2 $r(1,35)
if ($calc($dmo(hp) - %hit1 - %hit2) < 1) {
var %hit1 $iif($calc($dmo(hp) - %hit1) < 1,$dmo(hp),$v1)
var %hit2 $calc($dmo(hp) - %hit1)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(Dragon Bow) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit1
dmo -d hp %hit2
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(with a) $dmc2(Dragon Bow) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
dmt -d spec 80
notice $nick Your special bar is now at $dmt(spec) $+ % $+ .
turn
}
}
elseif ($nick = $dmt(name) && $dmt(spec) < 25) { notice $nick [DM] You do not have enough percent in your special bar. It's at $dmt(spec) $+ % $+ . You need at least 80%. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@]g(ranite)? ?maul$/Si:#: {
if ($nick = $dmt(name) && !$dmt(frozen) && $dmt(spec) = 100 && $dms(gmaul)) {
var %hit1 $r(1,27)
var %hit2 $r(1,27)
var %hit3 $r(1,27)
if ($calc($dmo(hp) - %hit1 - %hit2 - %hit3) < 1) {
var %hit1 $iif($calc($dmo(hp) - %hit1) < 1,$dmo(hp),%hit1)
var %hit2 $iif($calc($dmo(hp) - %hit1) < 1,$dmo(hp),$v1)
var %hit3 $calc($dmo(hp) - %hit1 - %hit2)
dmo hp 0
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(and a) $dmc2(%hit3) $dmc1(with a) $dmc2(Granite Maul) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
msg # $dmc1([DM]) $dmc2($dmo(name)) $dmc1(is dead!)
score $dmt(name) $dmo(name) #
dmhalt #
}
elseif ($calc($dmo(hp) - %hit) > 0) {
dmo -d hp %hit1
dmo -d hp %hit2
dmo -d hp %hit3
msg # $dmc1([DM]) $dmc2($nick) $dmc1(just hit a) $dmc2(%hit1) $dmc1(and a) $dmc2(%hit2) $dmc1(and a) $dmc2(%hit3) $dmc1(with a) $dmc2(Granite Maul) $dmc1(leaving) $dmc2($dmo(name)) $dmc1(with) $dmc2($iif($dms(hpbar),$hpbar($dmo(hp)),$dmo(hp))) $dmc1(hp.)
dmt -d spec 100
notice $nick Your special bar is now at $dmt(spec) $+ % $+ .
turn
}
}
elseif ($nick = $dmt(name) && $dmt(frozen)) { notice $nick [DM] You're frozen, you can't use the Granite Maul. }
elseif ($nick = $dmt(name) && $dmt(spec) < 25) { notice $nick [DM] You do not have enough percent in your special bar. It's at $dmt(spec) $+ % $+ . You need 100%. }
elseif ($nick = $dmo(name)) { notice $nick [DM] It's not your turn }
elseif ($dm(open)) { notice $nick [DM] You're not in the current DM. }
}
on $*:TEXT:/^[!.@](dm)?status$/Si:#: {
if ($dm1(name) = $nick) {
var %hp $dm1(hp), %sp $dm1(spec), %ba $dm1(barrages), %sh $dm1(sharks), %fr $dm1(frozen)
$iif($left($1,1) = @,msg #,notice $nick) $dmc1([DM] HP:) $dmc2(%hp) $dmc1($chr(124) Special Bar:) $dmc2(%sp) $&
$dmc1($chr(124) Barrages:) $dmc2(%ba) $dmc1($chr(124) Sharks:) $dmc2(%sh) $dmc1($chr(124) Frozen:) $dmc2($iif(%fr = $true,Yes,No))
}
if ($dm2(name) = $nick) {
var %hp $dm2(hp), %sp $dm2(spec), %ba $dm2(barrages), %sh $dm2(sharks), %fr $dm2(frozen)
$iif($left($1,1) = @,msg #,notice $nick) $dmc1([DM] HP:) $dmc2(%hp) $dmc1($chr(124) Special Bar:) $dmc2(%sp) $&
$dmc1($chr(124) Barrages:) $dmc2(%ba) $dmc1($chr(124) Sharks:) $dmc2(%sh) $dmc1($chr(124) Frozen:) $dmc2($iif(%fr = $true,Yes,No))
}
}
on $*:TEXT:/^[!.@](dm)?turn$/Si:#: {
if ($dm(open)) { $iif($left($1,1) = @,msg #,notice $nick) $dmc1([DM] It's currently) $dmc2($dmt(name)) $+ $dmc1('s turn.) }
}
on *:PART:#: {
if ($nick = $dm1(name) || $nick = $dm2(name)) {
dmhalt #
msg # $dmc1([DM] DM automatically halted due to one of the players leaving.)
}
}
on *:QUIT: {
var %x 1
while ($comchan($nick,%x)) {
if ($hget(dm1 $+ $comchan($nick,%x),name) = $nick || $hget(dm2 $+ $comchan($nick,%x),name) = $nick) {
dmhalt $comchan($nick,%x)
msg $comchan($nick,%x) $dmc1([DM] DM automatically halted due to one of the players leaving.)
}
inc %x
}
}