rendered paste body;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=========================;;
;;A Hang_um_High Production;;
;;=========================;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:!dm*:#: {
notice $nick please use ~dm
}
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: ~dm :: ~shark :: ~whip :: ~dds :: ~commands :: ~status :: ~pass :: ~gmaul :: ~gaxe :: ~credits :: ~darkbow
notice $nick For help on any command, type ~help (command). All commands were made by Hang_Um_High
}
alias cheatsoff {
echo You have just turned the cheats for this script off. To turn them on again type /cheatson
unset %cheatson
set %cheatson off
}
alias cheatson {
echo You have just turned the cheats for this script on. To turn them off type /cheatsoff
unset %cheatson
set %cheatson on
}
on *:TEXT:~dm*:#: {
unset %dm.chan
if (%dm.inprogress == true) { goto 4hole }
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 hang_um_high $me has loaded your dm script!
msg $chan 12 %dm.p1 has requested a dm! type 4 ~dm
unset %dm.p2hp2
goto p1wins
}
}
}
}
on *:TEXT:~dds*:#: {
if (%dm.on == active) {
if (%dm.g0dmode == ON) { goto pwnage }
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,8)
set %dm.ddsacc2 $rand(0,8)
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)
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) { msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 0 12 hp!
goto bemline1
}
msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 %dm.p2hp 12 hp!
:bemline1
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,8)
set %dm.ddsacc2 $rand(0,8)
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)
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) { 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!
goto bemline2
}
msg $chan 12 %dm.p2 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p1 with 9 %dm.p1hp 12 hp!
:bemline2
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!
}
if (1 == 2) {
:pwnage
unset %dm.g0dmode
if ($nick == %dm.p2) {
msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 with a DDS spec! This leaves %dm.p1 with 9 0 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - 297)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
goto p2wins
}
if ($nick == %dm.p1) {
msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 with a DDS spec! This leaves %dm.p2 with 9 0 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - 198)
unset %dm.p2hp
set %dm.p1hp %dm.p2hp2
unset %dm.p2hp2
goto p1wins
}
}
}
}
on *:TEXT:~credits*:#: {
notice $nick Script Made By Hang_um_High
notice $nick BETA Testers
notice $nick Mongolian_94
notice $nick I-Lilt-I
}
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) {
msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 99
goto skipppp
}
msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p1hp + 20)
:skipppp
if (%hpcheck1 > 99) {
set %dm.p1hp2 99
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
goto skippppp
}
set %dm.p1hp2 $calc(%dm.p1hp + 20)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
:skippppp
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) {
msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 99
goto skipp
}
msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p2hp + 20)
:skipp
if (%hpcheck2 > 99) {
set %dm.p2hp2 99
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
goto skippp
}
set %dm.p2hp2 $calc(%dm.p2hp + 20)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
:skippp
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.g0dmode == ON) { goto pwnage }
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 wayer2 }
}
msg $chan it is not your turn!
if (1 == 2) {
:p1
if ($nick === %dm.p1) {
if ($nick == %dm.p1) {
if (%dm.p1spec < 4) { goto nospec }
if (%dm.p1spec > 0) {
unset %dm.turn
: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 )
set %dm.p2hp2 $calc(%dm.p2hp - %dm.gmauldmg)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.p2hp2
if (%dm.p2hp < 1) { 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 0 12 hp!
goto bemline1
}
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 %dm.p2hp 12 hp!
:bemline1
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) {
:wayer2
if ($nick === %dm.p2) {
if ($nick == %dm.p2) {
if (%dm.p2spec < 4) { goto nospec }
if (%dm.p2spec > 0) {
unset %dm.turn
: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 )
set %dm.p1hp2 $calc(%dm.p1hp - %dm.gmauldmg)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
if (%dm.p2hp < 1) { 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 0 12 hp!
goto bemline2
}
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 %dm.p1hp 12 hp!
:bemline2
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!
}
if (1 == 2) {
:pwnage
unset %dm.g0dmode
if ($nick == %dm.p2) {
msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 - 4 99 12 with a Granite Maul! This leaves %dm.p1 with 9 0 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - 297)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
goto p2wins
}
if ($nick == %dm.p1) {
msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 - 4 99 12 with a Granite Maul! This leaves %dm.p2 with 9 0 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - 297)
unset %dm.p2hp
set %dm.p1hp %dm.p2hp2
unset %dm.p2hp2
goto p1wins
}
}
}
}
alias stopppping {
msg %dm.chan 12Stopping the dm.
unset %dm.*
}
on *:TEXT:~pass*:#: {
if (%dm.on == active) {
if ($nick == %dm.p1) {
msg $chan 12 $nick has chosen to pass this turn!
unset %dm.turn
set %dm.turn p2
}
if ($nick == %dm.p2) {
msg $chan 12 $nick has chosen to pass this turn!
unset %dm.turn
set %dm.turn p1
}
}
}
on *:TEXT:~moonwalk*:#: {
if (%dm.on == active) {
if (%cheatson == off) { goto cheatsoff }
if ($nick == %dm.p1) {
msg $chan 12 It is now %dm.p2 's turn!
unset %dm.p1hp
set %dm.p1hp 99
unset %dm.turn
set %dm.turn p2
}
if ($nick == %dm.p2) {
msg $chan 12 It is now %dm.p1 's turn!
unset %dm.p2hp
set %dm.p2hp 99
unset %dm.turn
set %dm.turn p1
}
if (1 == 2) {
:cheatsoff
notice $nick Cheats are currently off for this script.
}
}
}
on *:TEXT:~freestoof*:#: {
if (%dm.on == active) {
if (%cheatson == off) { goto cheatsoff }
if ($nick == %dm.p1) {
msg $chan 12 It is now %dm.p2 's turn!
unset %dm.p1spec
set %dm.p1spec 4
unset %dm.turn
set %dm.turn p2
}
if ($nick == %dm.p2) {
msg $chan 12 It is now %dm.p1 's turn!
unset %dm.p2spec
set %dm.p2spec 4
unset %dm.turn
set %dm.turn p1
}
if (1 == 2) {
:cheatsoff
notice $nick Cheats are currently off for this script.
}
}
}
on *:TEXT:~allyourbasearebelongtous*:#: {
if (%dm.on == active) {
if (%cheatson == off) { goto cheatsoff }
if ($nick == %dm.p1) {
msg $chan 12 It is now %dm.p2 's turn!
unset %dm.p1hp
set %dm.p1hp 1
unset %dm.turn
set %dm.turn p2
}
if ($nick == %dm.p2) {
msg $chan 12 It is now %dm.p1 's turn!
unset %dm.p2hp
set %dm.p2hp 1
unset %dm.turn
set %dm.turn p1
}
if (1 == 2) {
:cheatsoff
notice $nick Cheats are currently off for this script.
}
}
}
on *:TEXT:~godmode*:#: {
if (%dm.on == active) {
if (%cheatson == off) { goto cheatsoff }
set %dm.g0dmode on
msg $chan LULZ $nick HE IS GOD!!1
}
if (1 == 2) {
:cheatsoff
notice $nick Cheats are currently off for this script.
}
}
on *:TEXT:~stopdm*:#: {
if (%dm.on == active) {
if ($nick == %dm.p1) || ($nick == %dm.p2) {
stopppping
goto fail }
}
msg $chan 12only %dm.p1 or %dm.p2 can stop the dm!
:fail
}
on *:TEXT:~darkbow*:#: {
if (%dm.on == active) {
if (%dm.g0dmode == ON) { goto pwnage }
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 < 3) { goto nospec }
if (%dm.p1spec > 0) {
:retry1
unset %dm.dbs3
unset %dm.dbs4
unset %dm.dbsacc
unset %dm.dbsacc2
unset %dm.dbs
unset %dm.dbs1
unset %dm.dbs2
set %dm.dbs3 $rand(0,50)
set %dm.dbs4 $rand(0,50)
set %dm.dbsacc $rand(0,10)
set %dm.dbsacc2 $rand(0,10)
set %dm.dbs1 $calc(%dm.dbs3 - %dm.dbsacc)
set %dm.dbs2 $calc(%dm.dbs4 - %dm.dbsacc2)
if (%dm.dbs1 < 0) { goto retry1 }
if (%dm.dbs2 < 0) { goto retry1 }
set %dm.dbs $calc(%dm.dbs1 + %dm.dbs2)
set %dm.p2hp2 $calc(%dm.p2hp - %dm.dbs)
unset %dm.p2hp
set %dm.p2hp %dm.p2hp2
unset %dm.p2hp2
unset %dm.turn
if (%dm.p2hp < 1) { msg $chan 12 %dm.p1 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p2 with 9 0 12 hp!
goto bemline1
}
msg $chan 12 %dm.p1 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p2 with 9 %dm.p2hp 12 hp!
:bemline1
if (%dm.p2hp < 1) { goto p1wins }
set %dm.turn p2
dec %dm.p1spec 3
notice %dm.p1 You have %dm.p1spec specials left!
}
}
if (1 == 2) {
:p2
if (%dm.p2spec < 3) { goto nospec }
if (%dm.p2spec > 0) {
:retry2
unset %dm.dbs3
unset %dm.dbs4
unset %dm.dbsacc
unset %dm.dbsacc2
unset %dm.dbs
unset %dm.dbs1
unset %dm.dbs2
set %dm.dbs3 $rand(0,50)
set %dm.dbs4 $rand(0,50)
set %dm.dbsacc $rand(0,10)
set %dm.dbsacc2 $rand(0,10)
set %dm.dbs1 $calc(%dm.dbs3 - %dm.dbsacc)
set %dm.dbs2 $calc(%dm.dbs4 - %dm.dbsacc2)
if (%dm.dbs1 < 0) { goto retry2 }
if (%dm.dbs2 < 0) { goto retry2 }
set %dm.dbs $calc(%dm.dbs1 + %dm.dbs2)
set %dm.p1hp2 $calc(%dm.p1hp - %dm.dbs)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
unset %dm.turn
if (%dm.p1hp < 1) { msg $chan 12 %dm.p2 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.dbs) 12 hp!
goto bemline2
}
msg $chan 12 %dm.p2 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p1 with 9 %dm.p1hp 12 hp!
:bemline2
if (%dm.p1hp < 1) { goto p2wins }
set %dm.turn p1
dec %dm.p2spec 3
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!
}
if (1 == 2) {
:pwnage
unset %dm.g0dmode
if ($nick == %dm.p2) {
msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 with a darkbow spec! This leaves %dm.p1 with 9 0 12 hp!
set %dm.p1hp2 $calc(%dm.p1hp - 297)
unset %dm.p1hp
set %dm.p1hp %dm.p1hp2
unset %dm.p1hp2
goto p2wins
}
if ($nick == %dm.p1) {
msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 with a darkbow spec! This leaves %dm.p2 with 9 0 12 hp!
set %dm.p2hp2 $calc(%dm.p2hp - 198)
unset %dm.p2hp
set %dm.p1hp %dm.p2hp2
unset %dm.p2hp2
goto p1wins
}
}
}
}