By maso0n on Feb 23, 2008A Dm script.. as it says and it has a hp bar!
;NOW WITH A HP BAR!; lol
!gmaul a bit overpowered so is turned off, if u want to use it change off to on.
Still updating.
5 barrages
1 strength pot lasting 5 turns
20 sharks healing 20hp
5 barrages which do freeze opponent for 1 turn.
EnJoY!
on *:TEXT:!dmcommands*:#: {
if (%dm.1 == $nick ) || (%dm.2 == $nick ) {
msg $nick Either !whip, !dds, !dh, !gmaul, !barrage, !dbow, !eat, !strpot, !tele or !pass.
}
}
on *:TEXT:!dm*:#: {
if (%match == on ) {
notice $nick Sorry $nick $+ , a DM is already taking place.
halt
}
if (%dm.1 == $nick ) {
msg $chan Your already part of a 4,1Death Match, please wait.
}
elseif (%dm.1 == $null ) {
set %dm.1 $nick
msg $chan $nick has started a 4,1Death Match. You have 60 seconds to join. Type !dm to join.
halt
}
elseif (%dm.1 ison $chan ) && (%match == $null ) {
set %dm.2 $nick
set %match on
set %dmchan $chan
msg $chan The match is set! %dm.1 vs %dm.2
set %dmturn [ %dm. [ $+ [ $rand(1,2) ] ] ]
set %hp.1 99
set %hp.2 99
set %spec.1 100
set %spec.2 100
set %shark.1 20
set %shark.2 20
set %strpot.1 1
set %strpot.2 1
set %barrage1 5
set %barrage2 5
set %length 5
msg $chan Ok, here we go, %dmturn goes first.
notice %dm.1 Type !dmcommands for the DM-commands.
notice %dm.2 Type !dmcommands for the DM-commands.
halt
}
}
on *:TEXT:!dds*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%dmturn == %dm.1 ) && (%spec.1 <= 0 ) {
notice $nick You're out of specials!
halt
}
elseif (%dmturn == %dm.2 ) && (%spec.2 <= 0 ) {
notice $nick You're out of specials!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%freeze1 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%freeze2 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%str.1 == 15% ) && (%dmchan == $chan ) {
set %x 1
set %hit1 $rand(0,27)
set %hit2 $rand(0,27)
set %dmturn %dm.2
set %spec.1 $calc(%spec.1 - 25)
set %hp.2 $calc(%hp.2 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 1 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%str.2 == 15% ) && (%dmchan == $chan ) {
set %x 2
set %hit1 $rand(0,27)
set %hit2 $rand(0,27)
set %dmturn %dm.1
set %spec.2 $calc(%spec.2 - 25)
set %hp.1 $calc(%hp.1 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 2 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
set %x 3
set %hit1 $rand(0,23)
set %hit2 $rand(0,23)
set %dmturn %dm.2
set %spec.1 $calc(%spec.1 - 25)
set %hp.2 $calc(%hp.2 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 3 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
set %x 4
set %hit1 $rand(0,23)
set %hit2 $rand(0,23)
set %spec.2 $calc(%spec.2 - 25)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 4 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
}
}
}
}
on *:TEXT:!whip*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%freeze1 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%freeze2 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%str.1 == 15% ) && (%dmchan == $chan ) {
set %x 1
set %hit $rand(0,46)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 1 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%str.2 == 15% ) && (%dmchan == $chan ) {
set %x 2
set %hit $rand(0,46)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 2 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unset %dmchan
unsetall
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
set %x 3
set %hit $rand(0,40)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 3 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
set %x 4
set %hit $rand(0,40)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 4 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
}
}
}
on *:TEXT:!barrage*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%barrage1 <= 0 ) {
notice $nick You have no barrages left!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%barrage2 <= 0 ) {
notice $nick You have no barrages left!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%barrage1 >= 1 ) {
unset %freeze1
set %barrage1 $calc(%barrage1 - 1)
set %hit3 $rand(0,30)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit3)
notice $nick You have %barrage1 barrages left.
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
}
if (%hp.2 >= 1 ) && ($nick == %dm.1 ) && (%hit3 >= 0 ) {
msg $chan $nick has hit a %hit3 $+ !
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
unset %hit
}
if (%hp.2 <= 0 ) {
msg $chan $nick has hit a %hit3 $+ !
msg $chan %dm.2 is now on 0 hp! 4,4 $+ $str(.,24)
msg $chan %dm.1 is the winner!!!
unsetall
}
if (%hit3 >= 20 ) && (%freeze2 == $null ) {
msg $chan %dm.2 is now frozen!
set %freeze2 frozen
unset %hit3
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) {
inc %turn.1 1
}
if (%turn.1 >= 5 ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%barrage2 >= 1 ) {
unset %freeze2
set %barrage2 $calc(%barrage2 - 1)
set %hit4 $rand(0,30)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit4)
notice $nick You have %barrage2 barrages left.
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
}
if (%hp.1 >= 1 ) && ($nick == %dm.2 ) && (%hit4 >= 0 ) {
msg $chan $nick has hit a %hit4 $+ !
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%hp.1 <= 0 ) {
msg $chan $nick has hit a %hit4 $+ !
msg $chan %dm.1 is now on 0 hp! 4,4 $+ $str(.,24)
msg $chan %dm.2 is the winner!!!
unsetall
}
if (%hit4 >= 20 ) && (%freeze1 == $null ) {
msg $chan %dm.1 is now frozen!
set %freeze1 frozen
unset %hit4
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) {
inc %turn.2 1
}
if (%turn.2 >= 5 ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
halt
}
}
}
on *:TEXT:!dbow*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%spec.1 <= 75 ) {
notice $nick You don't have enough special left!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%spec.2 <= 75 ) {
notice $nick You don't have enough special left!
halt
}
else {
if (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
unset %freeze1
set %hit1 $rand(0,30)
set %hit2 $rand(0,30)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
set %spec.1 0
notice $nick You have no more special left.
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) {
inc %turn.1 1
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
unset %freeze2
set %hit1 $rand(0,30)
set %hit2 $rand(0,30)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - (%hit1 + %hit2))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
set %spec.2 0
notice $nick You have no more special left.
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) {
inc %turn.2 1
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
}
}
}
on *:TEXT:!dh*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%freeze1 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%freeze2 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%str.1 == 15% ) && (%hp.1 <= 10 ) && (%dmchan == $chan ) {
set %x 1
set %hit $rand(0,90)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 1 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%str.2 == 15% ) && (%hp.2 <= 10 ) && (%dmchan == $chan ) {
set %x 2
set %hit $rand(0,90)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 2 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%str.1 == 15% ) && (%dmchan == $chan ) {
set %x 3
set %hit $rand(0,65)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 3 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%str.2 == 15% ) && (%dmchan == $chan ) {
set %x 4
set %hit $rand(0,65)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 4 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
set %x 5
set %hit $rand(0,42)
set %dmturn %dm.2
set %hp.2 $calc(%hp.2 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 5 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
set %x 6
set %hit $rand(0,42)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - %hit)
msg $chan $nick has hit a %hit $+ !
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp. %hpbar.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 6 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
}
}
}
}
on *:TEXT:!eat*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
if (%shark.1 <= 0 ) && ($nick == %dm.1 ) {
notice $nick You have no sharks left!
halt
}
if (%hp.1 >= 99 ) && ($nick == %dm.1 ) {
notice $nick You're already on 99 hp, theres no reason to eat a shark.
halt
}
if (%shark.2 <= 0 ) && ($nick == %dm.2 ) {
notice %nick You have no sharks left!
halt
}
if (%hp.2 >= 99 ) && ($nick == %dm.2 ) {
notice $nick You're already on 99 hp, theres no reason to eat a shark.
halt
}
else {
if (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%shark.1 >= 1 ) && (%dmchan == $chan ) {
msg $chan %dm.1 has eaten a shark.
inc %hp.1 20
dec %shark.1 1
unset %freeze1
notice $nick You have %shark.1 sharks left.
set %dmturn %dm.2
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) {
inc %turn.1 1
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.1 <= 99 ) && ($nick == %dm.1 ) {
msg $chan %dm.1 is now on %hp.1 hp %hpbar.1
set %dmturn %dm.2
}
if (%hp.1 >= 100 ) && ($nick == %dm.1 ) {
set %hp.1 99
set %hpbar.11 $int($calc((99-%hp.1)/4))
set %hpbar.12 $int($calc(%hp.1 / 4))
set %hpbar.1 9,9 $+ $str(.,%hpbar.12) $+ 4,4 $+ $str(.,%hpbar.11)
msg $chan %dm.1 is now on %hp.1 hp %hpbar.1
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%shark.2 >= 1 ) && (%dmchan == $chan ) {
msg $chan $nick has eaten a shark.
inc %hp.2 20
dec %shark.2 1
unset %freeze2
notice $nick You have %shark.2 sharks left.
set %dmturn %dm.1
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) {
inc %turn.2 1
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.2 <= 99 ) && ($nick == %dm.2 ) {
msg $chan %dm.2 is now on %hp.2 hp %hpbar.2
}
if (%hp.2 >= 100 ) && ($nick == %dm.2 ) {
set %hp.2 99
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp %hpbar.2
halt
}
}
}
}
on *:TEXT:!strpot*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
else {
if (%strpot.1 <= 0 ) && ($nick == %dm.1 ) {
notice $nick You have no strength pots left!
halt
}
if (%str.1 >= 15% ) && ($nick == %dm.1 ) {
notice $nick You're already super-str potted!
halt
}
if (%strpot.2 <= 0 ) && ($nick == %dm.2 ) {
notice $nick You have no strength pots left!
halt
}
if (%str.2 >= 15% ) && ($nick == %dm.2 ) {
notice $nick You're already super-str potted!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%strpot.1 >= 1 ) && (%dmchan == $chan ) {
set %str.1 15%
msg $chan $nick has just super potted!
msg $chan Its now %dm.2 $+ 's turn.
set %strpot.1 0
set %dmturn %dm.2
unset %freeze1
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%strpot.2 >= 1 ) && (%dmchan == $chan ) {
set %str.2 15%
msg $chan $nick has just super potted!
msg $chan Its now %dm.1 $+ 's turn.
set %strpot.2 0
set %dmturn %dm.1
unset %freeze2
halt
}
}
}
on *:TEXT:!tele*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
msg $chan %dm.1 has teleported from the duel.
msg $chan %dm.2 is the winner!
unsetall
halt
}
elseif ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
msg $chan %dm.2 has teleported from the duel.
msg $chan %dm.1 is the winner!
unsetall
halt
}
}
on *:TEXT:!pass*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%dmchan == $chan ) {
msg $chan $nick has passed his turn.
msg $chan Its now %dm.2 $+ 's turn.
set %dmturn %dm.2
unset %freeze1
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) {
inc %turn.1 1
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
halt
}
else {
if ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%dmchan == $chan ) {
msg $chan $nick has passed his turn.
msg $chan Its now %dm.1 $+ 's turn.
set %dmturn %dm.1
unset %freeze2
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) {
inc %turn.2 1
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
halt
}
}
}
on 1:PART: {
if ($nick == %dm.1 ) {
msg $chan $nick has left the channel.
msg $chan Dm Cancled. %dm.2 is the winner by defult!
unsetall
halt
}
elseif ($nick == %dm.2 ) {
msg $chan $nick has left the channel.
msg $chan Dm Cancled. %dm.1 is the winner by defult!
unsetall
halt
}
}
on 1:QUIT: {
if ($nick == %dm.1 ) {
msg $chan $nick has left the channel.
msg $chan Dm Cancled. %dm.2 is the winner by defult!
unsetall
halt
}
elseif ($nick == %dm.2 ) {
msg $chan $nick has left the channel.
msg $chan Dm Cancled. %dm.1 is the winner by defult!
unsetall
halt
}
}
on *:TEXT:!enddm*:#: {
if ($nick == %dm.1 ) || ($nick == %dm.2 ) {
unsetall
msg # DM Ended.
}
}
on *:INPUT:#: {
if ($1 == !enddm ) || ($1 == .enddm ) {
unsetall
msg # Dm Ended.
}
}
off *:TEXT:!gmaul*:#: {
if ($nick == %dm.2 ) && (%dmturn == %dm.1 ) {
notice $nick It's not your turn.
halt
}
elseif ($nick == %dm.1 ) && (%dmturn == %dm.2 ) {
notice $nick It's not your turn.
halt
}
elseif (%dmturn == %dm.1 ) && (%spec.1 <= 75 ) {
notice $nick You dont have enough special meter!
halt
}
elseif (%dmturn == %dm.2 ) && (%spec.2 <= 75 ) {
notice $nick You dont have enough special meter!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%freeze1 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%freeze2 == frozen ) {
notice $nick Your frozen!
halt
}
elseif (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%str.1 == 15% ) && (%spec.1 == 100 ) && (%dmchan == $chan ) {
set %x 1
set %hit1 $rand(0,33)
set %hit2 $rand(0,33)
set %hit3 $rand(0,33)
set %dmturn %dm.2
set %spec.1 $calc(%spec.1 - 100)
set %hp.2 $calc(%hp.2 - (%hit1 + %hit2 + %hit3))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ , %hit3 $+!
msg $chan %dm.2 is now on %hp.2 hp.
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 1 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%str.2 == 15% ) && (%spec.2 == 100 ) && (%dmchan == $chan ) {
set %x 2
set %hit1 $rand(0,33)
set %hit2 $rand(0,33)
set %hit3 $rand(0,33)
set %dmturn %dm.1
set %spec.2 $calc(%spec.2 - 100)
set %hp.1 $calc(%hp.1 - (%hit1 + %hit2 + %hit3))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ , %hit3 $+ !
msg $chan %dm.1 is now on %hp.1 hp.
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 2 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.1 ) && (%dmturn == %dm.1 ) && (%spec.1 == 100 ) && (%dmchan == $chan ) {
set %x 3
set %hit1 $rand(0,28)
set %hit2 $rand(0,28)
set %hit3 $rand(0,28)
set %dmturn %dm.2
set %spec.1 $calc(%spec.1 - 100)
set %hp.2 $calc(%hp.2 - (%hit1 + %hit2 + %hit3))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ , %hit3 $+ !
msg $chan %dm.2 is now on %hp.2 hp.
}
if (%str.1 == 15% ) && ($nick == %dm.1 ) && (%x == 3 ) {
inc %turn.1 1
unset %x
}
if (%turn.1 >= %length ) && (%str.1 == 15% ) {
unset %str.1
notice %dm.1 Your strength is now back to normal.
unset %turn.1
}
if (%hp.2 <= 0 ) {
msg $chan %dm.1 is the winner!!!
unsetall
halt
}
else {
if (%match == on ) && ($nick == %dm.2 ) && (%dmturn == %dm.2 ) && (%spec.2 == 100 ) && (%dmchan == $chan ) {
set %x 4
set %hit1 $rand(0,28)
set %hit2 $rand(0,28)
set %hit3 $rand(0,28)
set %spec.2 $calc(%spec.2 - 100)
set %dmturn %dm.1
set %hp.1 $calc(%hp.1 - (%hit1 + %hit2 + %hit3))
msg $chan $nick has hit %hit1 $+ , %hit2 $+ , %hit3 $+ !
msg $chan %dm.1 is now on %hp.1 hp.
}
if (%str.2 == 15% ) && ($nick == %dm.2 ) && (%x == 4 ) {
inc %turn.2 1
unset %x
}
if (%turn.2 >= %length ) && (%str.2 == 15% ) {
unset %str.2
notice %dm.2 Your strength is now back to normal.
unset %turn.2
}
if (%hp.1 <= 0 ) {
msg $chan %dm.2 is the winner!!!
unsetall
halt
}
}
}
}
}
Nice 1, only bit low on commands.
And as always i was bored so i improoved the script a bit.
I added: Gp + item drop on win, ags(spec), sgs(spec with heal), zgs(spec with freeze),bgs(spec), dscim, cbow, guthan (with random heal) and ima try to somekind of armour shop in.
Not leeching it, just improoving :)(not using it 2)
edit: if you think gmaul is overpowerd then just lower the max hit :)
My old hp bar script use to look like this:
if (%hp.1 >= 99 ) {
set %hpbar.1 9,9 $+ $str(-,20)
}
etc all the way down to 0 hp. (IT WAS 63 LINES!)
Now my new hp is like this:
set %hpbar.21 $int($calc((99-%hp.2)/4))
set %hpbar.22 $int($calc(%hp.2 / 4))
set %hpbar.2 9,9 $+ $str(.,%hpbar.22) $+ 4,4 $+ $str(.,%hpbar.21)
msg $chan %dm.2 is now on %hp.2 hp. %hpbar.2
From 63 lines to 4 lines. I give permission for people to steal this if they want. You may need to change some of the %vars.