;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=========================;;
;;A Hang_um_High Production;;
;;=========================;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:LOAD: echo 12 -a $+($chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(32),$chr(77),$chr(97),$chr(100),$chr(101),$chr(32),$chr(98),$chr(121),$chr(32),$chr(72),$chr(97),$chr(110),$chr(103),$chr(32),$chr(117),$chr(109),$chr(32),$chr(72),$chr(105),$chr(103),$chr(104))
on *:TEXT:~commands*:#: {
notice $nick DM Commands :
notice $nick ~dm Starts the DM. Will accept it if your the second player.
notice $nick ~shark Uses a shark. You start with 20.
notice $nick ~whip Attacks with whip. The most this can hit is 45.
notice $nick ~dds Attacks with a DDS special. You start out with 4 special attacks, use them wiseley. The most this can hit is 30-30.
notice $nick ~commands Shows the current command list.
notice $nick ~status Shows your current hp, your opponets hp, how many sharks you have, and your special attack bar.
notice $nick ~pass Will pass your turn onto the other player.
notice $nick ~gmaul Uses 3 Granite Maul Special Attacks. This will use your full special attack bar.
}
on *:TEXT:~dm*:#: {
unset %dm.chan
if (%dm.inprogress == true) { goto ahole }
set %dm.chan $chan
if (%dm.init == 1) { goto player2 }
unset %dm.init
set %dm.init 0
if (%dm.init == 0) {
set %dm.p1 $nick
set %dm.on active
inc %dm.init 1
msg $chan 12 %dm.p1 has requested a dm! type 4 ~dm 12 within 20 seconds to fight him!
timer1 1 20 stopppping
}
if (1 == 2) {
:player2
if ($nick == %dm.p1) { goto owned }
set %dm.p2 $nick
msg $chan 12 %dm.p2 has accepted %dm.p1 request for a deathmatch!
/timer1 off
begindm
set %dm.inprogress true
}
if (2 == 1) {
:owned
msg $chan 12You can not fight yourself!
}
if (2 == 1) {
:ahole
notice $nick There is a dm already in progress!
}
}
alias begindm {
set %dm.p1hp 99
set %dm.p2hp 99
set %dm.p1spec 4
set %dm.p2spec 4
set %dm.p1food 20
set %dm.p2food 20
msg %dm.chan 12Now randomly choosing who will go first! for DM commands type 4~commands
set %chooseplayer $rand(1,2)
if (%chooseplayer == 1) { goto p1starts }
if (%chooseplayer == 2) { goto p2starts }
if (1 == 2) {
:p1starts
msg $chan 4 %dm.p1 12 will go first!
unset %dm.turn
set %dm.turn p1
}
if (1 == 2) {
:p2starts
msg $chan 4 %dm.p2 12 will go first!
unset %dm.turn
set %dm.turn p2
}
}
on *:TEXT:~status*:#: {
if (%dm.on == active) {
if ($nick == %dm.p1) { goto p1stats }
if ($nick == %dm.p2) { goto p2stats }
notice $nick you are not in the dm!
if {1 == 2) {
:p1stats
notice $nick ~stats for the current dm ~
notice $nick Your health is %dm.p1hp
notice $nick Your opponets health is %dm.p2hp
notice $nick You have %dm.p1spec special attacks left
notice $nick You have %dm.p1food sharks left.
}
if {1 == 2) {
:p2stats
notice $nick ~stats for the current dm ~
notice $nick Your health is %dm.p2hp
notice $nick Your opponets health is %dm.p1hp
notice $nick You have %dm.p2spec special attacks left
notice $nick You have %dm.p2food sharks left.
}
}
}
on *:TEXT:~whip*:#: {
if (%dm.on == active) {
if (%dm.p1hp < 1) { goto p2wins }
if (%dm.p2hp < 1) { goto p1wins }
if ($nick == %dm.p1) {
if (%dm.turn == p1) { goto p1
}
}
if ($nick == %dm.p2) {
if (%dm.turn == p2) { goto p2
}
}
msg $chan it is not your turn!
if (1 == 2) {
:p1
:retrywhip
unset %dm.whip1
unset %dm.whipacc
unset %dm.whip
set %dm.whipacc $rand(0,15)
set %dm.whip1 $rand(0,45)
set %dm.whip $calc(%dm.whip1 - %dm.whipacc)
if (%dm.whip < 0) { goto retrywhip }
msg $chan 12 %dm.p1 hits a 4 %dm.whip 12with whip! This leaves %dm.p2 with 9 $calc(%dm.p2hp - %dm.whip) 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - %dm.whip)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.p2hp2
unset %dm.turn
if (%dm.p2hp < 1) { goto p1wins }
set %dm.turn p2
}
if (1 == 2) {
:p2
:retrywhip2
unset %dm.whip1
unset %dm.whipacc
unset %dm.whip
set %dm.whipacc $rand(0,15)
set %dm.whip1 $rand(0,45)
set %dm.whip $calc(%dm.whip1 - %dm.whipacc)
if (%dm.whip < 0) { goto retrywhip2 }
msg $chan 12 %dm.p2 hits a 4 %dm.whip 12with whip! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.whip) 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - %dm.whip)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
unset %dm.turn
if (%dm.p1hp < 1) { goto p2wins }
set %dm.turn p1
}
if (1 == 2) {
:p2wins
msg $chan 4 %dm.p2 12 has beat4 %dm.p1
unset %dm.*
}
if (1 ==2) {
:p1wins
msg $chan 4 %dm.p1 12 has beat4 %dm.p2
unset %dm.*
}
}
}
on *:TEXT:~dds*:#: {
if (%dm.on == active) {
if (%dm.p1hp < 1) { goto p2wins }
if (%dm.p2hp < 1) { goto p1wins }
if ($nick == %dm.p1) {
if (%dm.turn == p1) { goto p1
}
}
if ($nick == %dm.p2) {
if (%dm.turn == p2) { goto p2
}
}
msg $chan it is not your turn!
if (1 == 2) {
:p1
if (%dm.p1spec < 1) { goto nospec }
if (%dm.p1spec > 0) {
:retry1
unset %dm.dds3
unset %dm.dds4
unset %dm.ddsacc
unset %dm.ddsacc2
unset %dm.dds
unset %dm.dds1
unset %dm.dds2
set %dm.dds3 $rand(0,30)
set %dm.dds4 $rand(0,30)
set %dm.ddsacc $rand(0,15)
set %dm.ddsacc2 $rand(0,15)
set %dm.dds1 $calc(%dm.dds3 - %dm.ddsacc)
set %dm.dds2 $calc(%dm.dds4 - %dm.ddsacc2)
if (%dm.dds1 < 0) { goto retry1 }
if (%dm.dds2 < 0) { goto retry1 }
set %dm.dds $calc(%dm.dds1 + %dm.dds2)
msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 $calc(%dm.p2hp - %dm.dds) 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - %dm.dds)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.p2hp2
unset %dm.turn
if (%dm.p2hp < 1) { goto p1wins }
set %dm.turn p2
dec %dm.p1spec 1
notice %dm.p1 You have %dm.p1spec specials left!
}
}
if (1 == 2) {
:p2
if (%dm.p2spec < 1) { goto nospec }
if (%dm.p2spec > 0) {
:retry2
unset %dm.dds3
unset %dm.dds4
unset %dm.ddsacc
unset %dm.ddsacc2
unset %dm.dds
unset %dm.dds1
unset %dm.dds2
set %dm.dds3 $rand(0,30)
set %dm.dds4 $rand(0,30)
set %dm.ddsacc $rand(0,15)
set %dm.ddsacc2 $rand(0,15)
set %dm.dds1 $calc(%dm.dds3 - %dm.ddsacc)
set %dm.dds2 $calc(%dm.dds4 - %dm.ddsacc2)
if (%dm.dds1 < 0) { goto retry2 }
if (%dm.dds2 < 0) { goto retry2 }
set %dm.dds $calc(%dm.dds1 + %dm.dds2)
msg $chan 12 %dm.p2 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.dds) 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - %dm.dds)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
unset %dm.turn
if (%dm.p1hp < 1) { goto p2wins }
set %dm.turn p1
dec %dm.p2spec 1
notice %dm.p2 You have %dm.p2spec specials left!
}
}
if (1 == 2) {
:p2wins
msg $chan 4 %dm.p2 12 has beat4 %dm.p1
unset %dm.*
}
if (1 == 2) {
:p1wins
msg $chan 4 %dm.p1 12 has beat4 %dm.p2
unset %dm.*
}
if (1 == 2) {
:nospec
notice $nick You do not have enough special attack to do this!
}
}
}
on *:TEXT:~shark*:#: {
if (%dm.on == active) {
if ($nick == %dm.p1) {
if (%dm.turn == p1) { goto p1
}
}
if ($nick == %dm.p2) {
if (%dm.turn == p2) { goto p2
}
}
msg $chan 12It is not your turn!
if (1 == 2) {
:p1
if (%dm.p1food < 1) { goto nofood }
unset %hpcheck1
set %hpcheck1 $calc(%dm.p1hp + 20)
if (%hpcheck1 > 99) { goto toomuch }
msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p1hp + 20)
set %dm.p1hp2 $calc(%dm.p1hp + 20)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.turn
set %dm.turn p2
dec %dm.p1food 1
notice $nick You have %dm.p1food sharks left!
}
if (1 == 2) {
:p2
if (%dm.p2food < 1) { goto nofood }
unset %hpcheck2
set %hpcheck2 $calc(%dm.p2hp + 20)
if (%hpcheck2 > 99) { goto toomuch }
msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p2hp + 20)
set %dm.p2hp2 $calc(%dm.p2hp + 20)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.turn
set %dm.turn p1
dec %dm.p2food 1
notice $nick You have %dm.p2food sharks left!
}
if (1 == 2) {
:nofood
notice $nick You are out of food!
}
if (1 == 2) {
:toomuch
notice $nick You cannot eat past 99 health!
}
}
}
on *:TEXT:~gmaul*:#: {
if (%dm.on == active) {
if (%dm.p1hp < 1) { goto p2wins }
if (%dm.p2hp < 1) { goto p1wins }
if ($nick == %dm.p1) {
if (%dm.turn == p1) { goto p1
}
}
if ($nick == %dm.p2) {
if (%dm.turn == p2) { goto p2
}
}
msg $chan it is not your turn!
if (1 == 2) {
:p1
if (%dm.p1spec < 1) { goto nospec }
if (%dm.p1spec > 0) {
:gmaulretry
unset %dm.gmaul1
unset %dm.gmaul2
unset %dm.gmaul3
unset %dm.gmaulacc1
unset %dm.gmaulacc2
unset %dm.gmaulacc3
unset %dm.gmaulspec1
unset %dm.gmaulspec2
unset %dm.gmaulspec3
set %dm.gmaul1 $rand(0,30)
set %dm.gmaul2 $rand(0,30)
set %dm.gmaul3 $rand(0,30)
set %dm.gmaulacc1 $rand(0,10)
set %dm.gmaulacc2 $rand(0,10)
set %dm.gmaulacc3 $rand(0,10)
set %dm.gmaulspec1 $calc(%dm.gmaul1 - %dm.gmaulacc1)
set %dm.gmaulspec2 $calc(%dm.gmaul2 - %dm.gmaulacc2)
set %dm.gmaulspec3 $calc(%dm.gmaul3 - %dm.gmaulacc3)
if (%dm.gmaulspec1 < 0) { goto gmaulretry }
if (%dm.gmaulspec2 < 0) { goto gmaulretry }
if (%dm.gmaulspec3 < 0) { goto gmaulretry }
set %dm.gmauldmg $calc( %dm.gmaulspec1 + %dm.gmaulspec2 + %dm.gmaulspec3 )
msg $chan 12 %dm.p1 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p2 with 9 $calc(%dm.p2hp - %dm.gmauldmg) 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - %dm.gmauldmg)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.p2hp2
unset %dm.turn
if (%dm.p2hp < 1) { goto p1wins }
set %dm.turn p2
dec %dm.p1spec 4
notice %dm.p1 You have %dm.p1spec specials left!
}
}
if (1 == 2) {
:p2
if (%dm.p2spec < 1) { goto nospec }
if (%dm.p2spec > 0) {
:gmaulretry2
unset %dm.gmaul1
unset %dm.gmaul2
unset %dm.gmaul3
unset %dm.gmaulacc1
unset %dm.gmaulacc2
unset %dm.gmaulacc3
unset %dm.gmaulspec1
unset %dm.gmaulspec2
unset %dm.gmaulspec3
set %dm.gmaul1 $rand(0,30)
set %dm.gmaul2 $rand(0,30)
set %dm.gmaul3 $rand(0,30)
set %dm.gmaulacc1 $rand(0,10)
set %dm.gmaulacc2 $rand(0,10)
set %dm.gmaulacc3 $rand(0,10)
set %dm.gmaulspec1 $calc(%dm.gmaul1 - %dm.gmaulacc1)
set %dm.gmaulspec2 $calc(%dm.gmaul2 - %dm.gmaulacc2)
set %dm.gmaulspec3 $calc(%dm.gmaul3 - %dm.gmaulacc3)
if (%dm.gmaulspec1 < 0) { goto gmaulretry }
if (%dm.gmaulspec2 < 0) { goto gmaulretry }
if (%dm.gmaulspec3 < 0) { goto gmaulretry }
set %dm.gmauldmg $calc( %dm.gmaulspec1 + %dm.gmaulspec2 + %dm.gmaulspec3 )
msg $chan 12 %dm.p2 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.gmauldmg) 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - %dm.gmauldmg)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
unset %dm.turn
if (%dm.p1hp < 1) { goto p2wins }
set %dm.turn p1
dec %dm.p2spec 4
notice %dm.p2 You have %dm.p2spec specials left!
}
}
if (1 == 2) {
:p2wins
msg $chan 4 %dm.p2 12 has beat4 %dm.p1
unset %dm.*
}
if (1 == 2) {
:p1wins
msg $chan 4 %dm.p1 12 has beat4 %dm.p2
unset %dm.*
}
if (1 == 2) {
:nospec
notice $nick You do not have enough special attack to do this!
}
}
}
alias stopppping {
msg $chan 12Stopping the dm.
unset %dm.*
}
on *:TEXT:~pass*:#: {
if ($nick == %dm.p1) { goto pass1 }
if {$nick == %dm.p2) { goto pass2 }
if (1 == 2) {
:pass1
msg $chan 12 $nick has chosen to pass this turn!
unset %dm.turn
set %dm.turn p2
}
if (1 == 2) {
:pass2
msg $chan 12 $nick has chosen to pass this turn!
unset %dm.turn
set %dm.turn p1
}
}
on *:TEXT:~stopdm*:#: {
if (%dm.on == active) {
if ($nick == %dm.p1) {
stopppping
goto fail }
if {$nick == %dm.p2) {
stopppping
goto fail }
msg $chan 12only %dm.p1 can stop the dm!
:fail
}
}