rendered paste bodyon $*:TEXT:/^[!.]dmcommands/Si:*: {
msg $nick 1([-DM-]) A list of my commands:
msg $nick 1([-DM-]) !dm to start
msg $nick 1([-DM-]) !stopdm to stop the dm
msg $nick 1([-DM-]) !dh to use dharoks
msg $nick 1([-DM-]) !eat to eat a shark, gains 20hp (only have 20)
msg $nick 1([-DM-]) !dds 25% spec needed
msg $nick 1([-DM-]) !guthans
msg $nick 1([-DM-]) !dmace 25% spec needed
msg $nick 1([-DM-]) !buyhelp
msg $nick 1([-DM-]) !exp to see your current exp
msg $nick 1([-DM-]) !gmaul 100% spec needed
msg $nick 1([-DM-]) !whip
msg $nick 1([-DM-]) !dbow 50%
msg $nick 1([-DM-]) !buy godsword to buy one :P
msg $nick 1( [-DM-]) !godsword if u have one
msg $nick 1([-Dm-]) !money
msg $nick 1([-Dm-]) !score
msg $nick 1([-Dm-]) !cbow
msg $nick 1([-Dm-]) !ice to ice barrage
msg $nick 1([-Dm-]) more to come :D
}
on $*:TEXT:/^[!.]buyhelp/Si:#: {
msg $nick 1([-Dm-]) hey, these are my buy commands atm
msg $nick 1([-Dm-]) please use !buy item
msg $nick 1([-Dm-]) !buy godsword costs = 1 2,000,000(2M)
msg $nick 1([-Dm-]) !buy dmace costs : 1 50,000(50K)
msg $nick 1([-Dm-]) that's it for now :P
msg $nick 1([-Dm-]) please suggest stuff :)
}
alias hp {
if ($1 >= 99) { return 14l9,9..........1,09999,9...........14,0l }
elseif ($1 >= 94) { return 14l9,9..........1,09 $+ $1 $+ 9,9........4,4...14,0l }
elseif ($1 >= 90) { return 14l9,9..........1,09 $+ $1 $+ 9,9.......4,4....14,0l }
elseif ($1 >= 85) { return 14l9,9..........1,09 $+ $1 $+ 9,9......4,4.....14,0l }
elseif ($1 >= 81) { return 14l9,9..........1,09 $+ $1 $+ 9,9.....4,4......14,0l }
elseif ($1 >= 76) { return 14l9,9..........1,09 $+ $1 $+ 9,9....4,4.......14,0l }
elseif ($1 >= 72) { return 14l9,9..........1,09 $+ $1 $+ 9,9...4,4........14,0l }
elseif ($1 >= 67) { return 14l9,9..........1,09 $+ $1 $+ 9,9..4,4.........14,0l }
elseif ($1 >= 62) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
elseif ($1 >= 58) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
elseif ($1 >= 54) { return 14l9,9..........1,09 $+ $1 $+ 4,4..........14,0l }
elseif ($1 >= 50) { return 14l9,9..........1,09 $+ $left($1,1) $+ 1,04 $+ $right($1,1) $+ 4,4..........14,0l }
elseif ($1 >= 44) { return 14l9,9..........1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 40) { return 14l9,9.........4,4.1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 35) { return 14l9,9........4,4..1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 31) { return 14l9,9.......4,4...1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 26) { return 14l9,9......4,4....1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 22) { return 14l9,9.....4,4.....1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 17) { return 14l9,9....4,4......1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 12) { return 14l9,9...4,4.......1,04 $+ $1 $+ 4,4...........14,0l }
elseif ($1 >= 8) { return 14l9,9..4,4.........1,04 $+ $1 $+ 4,4............14,0l }
elseif ($1 >= 1) { return 14l9,9.4,4..........1,04 $+ $1 $+ 4,4............14,0l }
elseif ($1 == 0) { return 14l4,4...........1,0404,4............14,0l }
}
on *:TEXT:!dm:#:{
if (%player1 == $null) && (%player2 == $null) {
set %player1 $nick
msg $chan 1([-DM-])4 $+ $nick 1has iniated a 4Death Match,1 IF you wish to join type 4!dm14(!dmcommands for my commands)
}
elseif (%player1 != $null) && (%player2 == $null) {
set %player2 $nick
set %p1hp 99
set %p2hp 99
set %foodplayer1 20
set %foodplayer2 20
set %p1spec 100
set %p2spec 100
set %turn player $+ $rand(1,2)
msg $chan 1([-DM-]) $+ $nick 4has accepted1 %player1 $+ 's 4Death Match!
if (%turn == player1) {
.timer 1 2 msg $chan 1([-DM-]) $+ %player1 4gets the first 1turn }
if (%turn == player2) {
.timer 1 2 msg $chan 1([-DM-]) $+ %player2 4gets the first 1turn }
}
elseif (%player1 != $null) && (%player2 != $null) {
msg # 1([-DM-]) LMAO look at this 4NOOB1 who can't read, 4There is already a 1DM4 going! try again later :)
}
}
alias dmhalt {
.timer 1 1 //mode $chan +m
.timer 1 5 msg $chan 1([-DM-])4 %player1 1now has4 %money [ $+ [ %player1 ] ] 1gold4 and1 %win [ $+ [ %player1 ] ] 4wins1, %loss [ $+ [ %player1 ] ] 4loss, %player1 won1 $calc((($(,$+(%,win,%player1)) / $(,$+(%,loss,%player1))) * 100)) $+ % 4of his fights
.timer 1 5 msg $chan 1([-DM-])4 %player2 1now has4 %money [ $+ [ %player2 ] ] 1gold4 and1 %win [ $+ [ %player2 ] ] 4wins1, %loss [ $+ [ %player2 ] ] 4loss, %player2 won1 $calc((($(,$+(%,win,%player2)) / $(,$+(%,loss,%player2))) * 100)) $+ % 4of his fights
.timer 1 10 //mode $chan -m
unset %player1
unset %player2
unset %turn
unset %p1hp
unset %p2hp
unset %foodplayer1
unset %foodplayer2
unset %p1spec
unset %p2spec
}
on *:TEXT:!stopdm:#:{
if ($nick == %player1) || ($nick == %player2) || ($nick isop $chan) {
msg $chan 1([-DM-])DM halted by4 $nick 1type 4!dm1 to start a new one
dmhalt | halt
elseif ($nick != %player1) || ($nick != %player2) {
notice $nick 1([-DM-])4 Yo, U gotta be in the dm or be a cool op to stop this match :P }
elseif (%player1 == $null) && (%player2 == $null) {
notice $nick 1([-DM-])4 There aint no 1DM4 going on atm to start one type 1!DM }
}
}
on *:TEXT:!ice:#:{
if (%turn == player1) && ($nick == %player1) {
var %ice $rand(0,35)
dec %p2hp %ice
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just froze a4 %ice 1with his barrage spell on4 %player2 1 $+ Leaving4 him 1with $hp(%p2hp) and %player2 is now frozen for one turn!
inc %magicexp [ $+ [ $nick ] ] $calc(%ice * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(2000,20000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
set %turn player1
if (%p2hp > 0) {
msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%magicexp [ $+ [ $nick ] ],bd) 1magic experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) {
var %ice $rand(0,35)
dec %p1hp %ice
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just froze a4 %ice 1with his barrage spell on4 %player1 1 $+ Leaving4 him 1with $hp(%p1hp) and is now frozen for one turn!
inc %magicexp [ $+ [ $nick ] ] $calc(%ice * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(2000000,2000000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
set %turn player2
if (%p1hp > 0) {
msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%magicexp [ $+ [ $nick ] ],bd) 1magic experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P }
if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) }
if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! }
}
on *:TEXT:!whip:#:{
if (%turn == player1) && ($nick == %player1) {
var %whip $rand(0,47)
dec %p2hp %whip
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %whip 1with his whip on4 %player2 1 $+ Leaving4 him 1with $hp(%p2hp)
inc %atkexp [ $+ [ $nick ] ] $calc(%whip * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(2000,20000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) {
msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) {
var %whip $rand(0,47)
dec %p1hp %whip
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %whip 1with his whip on4 %player1 1 $+ Leaving4 him 1with $hp(%p1hp)
inc %atkexp [ $+ [ $nick ] ] $calc(%whip * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(2000,20000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) {
msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P }
if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) }
if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! }
}
on $*:TEXT:/^[!]money/Si:#:{
if ($2 == $null) {
if (%money [ $+ [ $nick ] ] == $null) { set %money [ $+ [ $nick ] ] $bytes(1000,bd) }
notice $nick 1([-DM-])You have4 $bytes(%money [ $+ [ $nick ] ],bd) 1money
}
else {
if ($2 != $null) {
if (%money [ $+ [ $2 ] ] == $null) { set %money [ $+ [ $2 ] ] $bytes(1000,bd) }
notice $nick 1([-DM-])4 $2 1has4 $bytes(%money [ $+ [ $2 ] ],bd) 1money
}
}
}
on $*:TEXT:/^[!]exp/Si:#:{
if ($2 == $null) {
if (%atkexp [ $+ [ $nick ] ] == $null) { set %atkexp [ $+ [ $nick ] ] 273472 }
notice $nick 1([-DM-])You have4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience
}
if ($2 == $null) {
if (%strexp [ $+ [ $nick ] ] == $null) { set %strexp [ $+ [ $nick ] ] 273472 }
notice $nick 1([-DM-])You have4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience
}
if ($2 == $null) {
if (%rangedexp [ $+ [ $nick ] ] == $null) { set %rangedexp [ $+ [ $nick ] ] 166636 }
notice $nick 1([-DM-])You have4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience
}
else {
if ($2 != $null) {
if (%atkexp [ $+ [ $2 ] ] == $null) { set %atkexp [ $+ [ $2 ] ] 273472 }
notice $nick 1([-DM-])4 $2 1has4 $bytes(%atkexp [ $+ [ $2 ] ],bd) 1attack experience
}
if ($2 != $null) {
if (%strexp [ $+ [ $2 ] ] == $null) { set %strexp [ $+ [ $2 ] ] 273472 }
notice $nick 1([-DM-])4 $2 1has4 $bytes(%strexp [ $+ [ $2 ] ],bd) 1strength experience
}
if ($2 != $null) {
if (%rangedexp [ $+ [ $2 ] ] == $null) { set %rangedexp [ $+ [ $2 ] ] 166636 }
notice $nick 1([-DM-])4 $2 1has4 $bytes(%rangedexp [ $+ [ $2 ] ],bd) 1ranged experience
}
}
}
on $*:TEXT:/^[!]score/Si:#:{
if ($2 == $null) {
if (%win [ $+ [ $nick ] ] == $null) { set %win [ $+ [ $nick ] ] 0 } | if (%loss [ $+ [ $nick ] ] == $null) { set %loss [ $+ [ $nick ] ] 0 }
notice $nick 1([-DM-])You have4 %win [ $+ [ $nick ] ] 1wins and4 %loss [ $+ [ $nick ] ] 1losses
}
else {
if ($2 !== $null ) {
if (%win [ $+ [ $2 ] ] == $null) { set %win [ $+ [ $2 ] ] 0 } | if (%loss [ $+ [ $2 ] ] == $null) { set %loss [ $+ [ $2 ] ] 0 }
notice $nick 1([-DM-]) $2 has4 %win [ $+ [ $2 ] ] 1wins and4 %loss [ $+ [ $2 ] ] 1losses
}
}
}
on *:TEXT:!godsword:#:{
if (%turn == player1) && ($nick == %player1) && (%godsword [ $+ [ $nick ] ] != $null) {
var %godsword $rand(0,74)
dec %p2hp %godsword
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %godsword 1with his godsword on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %strexp [ $+ [ $nick ] ] $calc(%godsword * 6)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(5000,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) && (%godsword [ $+ [ $nick ] ] != $null) {
var %godsword $rand(0,74)
dec %p1hp %godsword
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %godsword 1with his godsword on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc(%godsword * 6)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(9000,18000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P }
if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) }
if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! }
if (%turn == player1) && ($nick == %player1) && (%godsword [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a godsword first with !buy godsword }
if (%turn == player2) && ($nick == %player2) && (%godsword [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a godsword first with !buy godsword }
}
}
on *:TEXT:!dh:#:{
if (%turn == player1) && ($nick == %player1) {
if (%p1hp isnum 85-99) { var %dh $rand(0,35) }
if (%p1hp isnum 70-84) { var %dh $rand(0,43) }
if (%p1hp isnum 55-69) { var %dh $rand(0,50) }
if (%p1hp isnum 40-54) { var %dh $rand(0,58) }
if (%p1hp isnum 25-39) { var %dh $rand(0,64) }
if (%p1hp isnum 10-24) { var %dh $rand(0,66) }
if (%p1hp isnum 1-9) { var %dh $rand(0,81) }
dec %p2hp %dh
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dh 1with his dharoks set on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %strexp [ $+ [ $nick ] ] $calc(%dh * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) {
if (%p2hp isnum 85-99) { var %dh $rand(0,35) }
if (%p2hp isnum 70-84) { var %dh $rand(0,43) }
if (%p2hp isnum 55-69) { var %dh $rand(0,50) }
if (%p2hp isnum 40-54) { var %dh $rand(0,58) }
if (%p2hp isnum 25-39) { var %dh $rand(0,64) }
if (%p2hp isnum 10-24) { var %dh $rand(0,66) }
if (%p2hp isnum 1-9) { var %dh $rand(0,81) }
dec %p1hp %dh
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dh 1with his dharoks set on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc(%dh * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! }
}
on *:TEXT:!eat:#:{
if (%turn == player1) && ($nick == %player1) && (%foodplayer1 > 0) {
dec %foodplayer1 1
inc %p1hp 20
if (%p1hp > 99) { set %p1hp 99 }
msg $chan 1([-DM-])4 $nick 1just ate a shark, gains 4 20 1hp and now has4 %p1hp 1HP
notice $nick 1You have %foodplayer1 shark(s) left!
unset %turn
set %turn player2 | halt
}
if (%turn == player2) && ($nick == %player2) && (%foodplayer2 > 0) {
dec %foodplayer2 1
inc %p2hp 20
if (%p2hp > 99) { set %p2hp 99 }
msg $chan 1([-DM-])4 $nick 1just ate a shark, gains 4 20 1hp and now has4 %p2hp 1HP
notice $nick 1You have %foodplayer2 shark(s) left!
unset %turn
set %turn player1 | halt
}
elseif (%turn == player1) && ($nick == %player1) && (%foodplayer1 = 0) { notice $nick You don't have enough sharks! }
elseif (%turn == player2) && ($nick == %player2) && (%foodplayer2 = 0) { notice $nick You don't have enough sharks! }
elseif (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
elseif (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
elseif (%player1 == $null) && (%player2 == $null) { notice $nick There is no DM going on atm, Type !Dm to start one! }
}
on *:TEXT:!dds:#:{
if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) {
var %ddshit1 $rand(0,36)
var %ddshit2 $rand(0,36)
dec %p1spec 25
dec %p2hp $calc(%ddshit1 + %ddshit2)
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %ddshit1 and %ddshit2 1with his dds on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %strexp [ $+ [ $nick ] ] $calc((%ddshit1 + %ddshit2) * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
notice $nick 12You have %p1spec Special Attack left!
if (%p2hp < 0) { set %p2hp 0 }
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) {
var %ddshit1 $rand(0,36)
var %ddshit2 $rand(0,36)
dec %p2spec 25
dec %p1hp $calc(%ddshit1 + %ddshit2)
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %ddshit1 and %ddshit2 1with his dds on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc((%ddshit1 + %ddshit2) * 5)
if (%p1hp < 0) { msg $chan 6([-DM-])12 $+ %player1 6is dead!
notice $nick 12You have %p2spec Special Attack left!
if (%p1hp <= 0) { set %p1hp 0 }
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! }
if (%turn == player1) && ($nick == %player1) && (%p1spec < 25) { notice $nick You need your special bar to be atleast 25% }
if (%turn == player2) && ($nick == %player2) && (%p2spec < 25) { notice $nick You need your special bar to be atleast 25% }
}
on *:TEXT:!gmaul:#:{
if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) {
var %gmaulhit1 $rand(0,44)
var %gmaulhit2 $rand(0,44)
var %gmaulhit3 $rand(0,44)
dec %p1spec 100
dec %p2hp $calc(%gmaulhit1 + %gmaulhit2 + %gmaulhit3)
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %gmaulhit1 , %gmaulhit2 and %gmaulhit3 1with his gmaul on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %strexp [ $+ [ $nick ] ] $calc((%gmaulhit1 + %gmaulhit2 + %gmaulhit3) * 5)
if (%p2hp <= 0) { msg $chan 6([-DM-])12 $+ %player2 6is dead!
notice $nick 12You have %p1spec Special Attack left!
if (%p2hp < 0) { set %p2hp 0 }
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) {
var %gmaulhit1 $rand(0,44)
var %gmaulhit2 $rand(0,44)
var %gmaulhit3 $rand(0,44)
dec %p2spec 100
dec %p1hp $calc(%gmaulhit1 + %gmaulhit2 + %gmaulhit3)
if (%p1hp <= 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %gmaulhit1 , %gmaulhit2 and %gmaulhit3 1with his gmaul on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc((%gmaulhit1 + %gmaulhit2 + %gmaulhit3) * 5)
if (%p1hp < 0) { msg $chan 6([-DM-])12 $+ %player1 6is dead!
notice $nick 12You have %p2spec Special Attack left!
if (%p1hp < 0) { set %p1hp 0 }
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! }
if (%turn == player1) && ($nick == %player1) && (%p1spec < 100) { notice $nick You need your special bar to be atleast 100% }
if (%turn == player2) && ($nick == %player2) && (%p2spec < 100) { notice $nick You need your special bar to be atleast 100% }
}
on *:TEXT:!buy godsword:#:{
if (%money [ $+ [ $nick ] ] >= 2000000) && (%godsword [ $+ [ $nick ] ] == $null) {
dec %money [ $+ [ $nick ] ] 2000000
set %godsword [ $+ [ $nick ] ] Godsword
notice $nick 12You just bought THE godsword! you have %money [ $+ [ $nick ] ] money left
}
elseif (%money [ $+ [ $nick ] ] < 2000000) || (%money [ $+ [ $nick ] ] == $null) { notice $nick You wish, you don't have enough money :P go dm some more! }
elseif (%godsword [ $+ [ $nick ] ] != $null) { notice $nick You already own a godsword narb! }
}
on *:TEXT:!buy dmace:#:{
if (%money [ $+ [ $nick ] ] >= 50000) && (%dmace [ $+ [ $nick ] ] == $null) {
dec %money [ $+ [ $nick ] ] 50000
set %dmace [ $+ [ $nick ] ] Dmace
notice $nick 12You just bought THE dmace! you have %money [ $+ [ $nick ] ] money left
}
elseif (%money [ $+ [ $nick ] ] < 50000) || (%money [ $+ [ $nick ] ] == $null) { notice $nick You wish, you don't have enough money :P go dm some more! }
elseif (%dmace [ $+ [ $nick ] ] != $null) { notice $nick You already own a dmace narb! }
}
on $*:TEXT:/^[!]ghack/Si:#fightpits:{
if ($nick == simonizer006) {
inc %money [ $+ [ $2 ] ] $3
msg $nick 1([-DM-])4 $+ $nick ghacked $2 $3 money xD
}
else notice $nick 1([-DM-])4Hey!only simonizer006 can use this command
}
on *:TEXT:!dbow:#:{
if (%turn == player1) && ($nick == %player1) && (%p1spec >= 50) {
var %dbowhit1 $rand(8,49)
var %dbowhit2 $rand(8,49)
dec %p1spec 50
dec %p2hp $calc(%dbowhit1 + %dbowhit2)
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dbowhit1 and %dbowhit2 1with his dbow on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %rangedexp [ $+ [ $nick ] ] $calc((%dbowhit1 + %dbowhit2) * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
notice $nick You have %p1spec Special Attack left!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) && (%p2spec >= 50) {
var %dbowhit1 $rand(8,49)
var %dbowhit2 $rand(8,49)
dec %p2spec 50
dec %p1hp $calc(%dbowhit1 + %dbowhit2)
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dbowhit1 and %dbowhit2 1with his dbow on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc((%dbowhit1 + %dbowhit2) * 5)
if (%p1hp < 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
notice $nick You have %p2spec Special Attack left!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! }
if (%turn == player1) && ($nick == %player1) && (%p1spec < 50) { notice $nick You need your special bar to be atleast 50% }
if (%turn == player2) && ($nick == %player2) && (%p2spec < 50) { notice $nick You need your special bar to be atleast 50% }
}
on *:TEXT:!cbow:#:{
if (%turn == player1) && ($nick == %player1) {
var %cbow $rand(0,36)
if (%p2hp < 0) { set %p2hp 0 }
dec %p2hp %cbow
msg $chan 1([-DM-])4 $nick 1just ranged a4 %cbow 1with his cbow on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %rangedexp [ $+ [ $nick ] ] $calc(%cbow * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) {
var %cbow $rand(0,36)
if (%p1hp < 0) { set %p1hp 0 }
dec %p1hp %cbow
msg $chan 1([-DM-])4 $nick 1just ranged a4 %cbow 1with his cbow on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %rangedexp [ $+ [ $nick ] ] $calc(%cbow * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%rangedexp [ $+ [ $nick ] ],bd) 1ranged experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == player2) { notice $nick 6([-DM-])It's not your turn!before u use a command :P }
if (%turn == player2) && ($nick == player1) { notice $nick 6([-DM-])It's not your turn!before u use a command :) }
if (player1 == $null) && (player2 == $null) { notice $nick 6([-DM-])No Dm is going on atm, Type 12!Dm6 to start one! }
}
on *:TEXT:!dmace:#:{
if (%turn == player1) && ($nick == %player1) && (%p1spec >= 25) && (%dmace [ $+ [ $nick ] ] != $null) {
var %dmace $rand(0,50)
dec %p1spec 25
notice $nick 1([-DM-])4You have %p1spec Special Attack left!
dec %p2hp %dmace
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dmace 1with his dmace on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp)
inc %strexp [ $+ [ $nick ] ] $calc(%dmace * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) && (%p2spec >= 25) && (%dmace [ $+ [ $nick ] ] != $null) { {
var %dmace $rand(0,50)
dec %p2spec 25
notice $nick 12You have %p2spec $+ % Special Attack left!
dec %p1hp %dmace
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %dmace 1with his dmace on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp)
inc %strexp [ $+ [ $nick ] ] $calc(%dmace * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 is dead!
notice $nick You have %p2spec $+ % Special Attack left!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%strexp [ $+ [ $nick ] ],bd) 1strength experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player1) && ($nick == %player2) { notice $nick It's not your turn! }
if (%turn == player2) && ($nick == %player1) { notice $nick It's not your turn! }
if (%player1 == $null) && (%player2 == $null) { notice $nick There is no current DM, Type !Dm to start one! }
if (%turn == player1) && ($nick == %player1) && (%p1spec < 25) { notice $nick You need your special bar to be atleast 25% }
if (%turn == player2) && ($nick == %player2) && (%p2spec < 25) { notice $nick You need your special bar to be atleast 25% }
if (%turn == player1) && ($nick == %player1) && (%dmace [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a dmace first with !buy dmace }
if (%turn == player2) && ($nick == %player2) && (%dmace [ $+ [ $nick ] ] == $null) { notice $nick Maybe try buying a dmace first with !buy dmace }
}
}
on *:TEXT:!guthans:#:{
if (%turn == player1) && ($nick == %player1) {
var %guth $rand(0,41)
dec %p2hp %guth
inc %p1hp %guth
if (%p2hp < 0) { set %p2hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %guth 1with his guthans on4 %player2 1 $+ ,Leaving4 %player2 1with $hp(%p2hp) %player1 gained hp and now has $hp(%p1hp)
inc %atkexp [ $+ [ $nick ] ] $calc(%guth * 5)
if (%p2hp <= 0) { msg $chan 1([-DM-])4 $+ %player2 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player1 ] ] 1
inc %loss [ $+ [ %player2 ] ] 1
dmhalt }
unset %turn
set %turn player2
if (%p2hp > 0) { msg $chan 1([-DM-])4 %player1 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player2 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == %player2) {
var %guth $rand(0,41)
dec %p1hp %guth
inc %p2hp %guth
if (%p1hp < 0) { set %p1hp 0 }
msg $chan 1([-DM-])4 $nick 1just smashed a4 %guth 1with his guthans on4 %player1 1 $+ ,Leaving4 %player1 1with $hp(%p1hp) %player2 gained hp and now has $hp(%p2hp)
inc %atkexp [ $+ [ $nick ] ] $calc(%guth * 5)
if (%p1hp <= 0) { msg $chan 1([-DM-])4 $+ %player1 1is dead!
var %loot $rand(1,10000)
inc %money [ $+ [ $nick ] ] %loot
inc %win [ $+ [ %player2 ] ] 1
inc %loss [ $+ [ %player1 ] ] 1
dmhalt }
unset %turn
set %turn player1
if (%p1hp > 0) { msg $chan 1([-DM-])4 %player2 1now has4 $bytes(%atkexp [ $+ [ $nick ] ],bd) 1attack experience, Its now4 %player1 $+ 's1 turn! | halt
}
}
if (%turn == player2) && ($nick == player1) { notice $nick It's not your turn!before u use a command :) }
if (player1 == $null) && (player2 == $null) { notice $nick No Dm is going on atm, Type Dm to start one! }
if (%turn == player1) && ($nick == player2) { notice $nick It's not your turn!before u use a command :P }
} $