Dm script with HP bar.

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	Feb 23, 2008
Last Updated	Oct 01, 2008
Tags	bar basic death dm hp match remote

Introduction

A Dm script.. as it says and it has a hp bar!

;NOW WITH A HP BAR!; lol

---Functions---
!whip
!dds
!dh
!gmaul
!barrage
!dbow
!eat
!strpot
!tele
!pass
------

!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!

Grab the Code

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
        }
      }
    }
  }
}

Comments

(6) RSS

Go to Bottom

maso0n

Comments: 1

mIRC Snippet: Dm script with HP bar.
Posted on Jul 27, 2008 6:33 am

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.

olidata

Comments: 1

mIRC Snippet: Dm script with HP bar.
Posted on Aug 23, 2008 5:48 am

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 :)

Escape-From-Hell

Comments: 5

mIRC Snippet: Dm script with HP bar.
Posted on Sep 22, 2008 5:24 pm

Hey, nice script. I was wondering, how could i make this so that there can be multiple DMs going on at the same time in different chans. Any help would be much appreciated

Newton3788

Comments: 1

mIRC Snippet: Dm script with HP bar.
Posted on Oct 1, 2008 10:08 pm

YOUR !@#$ SCRIPT UNSET ALL OF MY !@#$ VARIABLES, HORRIBLE SCRIPT!

Gummo

Comments: 137

mIRC Snippet: Dm script with HP bar.
Posted on Oct 1, 2008 10:11 pm

Code:

unsetall

LOL. Use unset %genericsomething.* or something like that, giving all your script's variables a constant as the start to prevent this.

Escape-From-Hell

Comments: 5

mIRC Snippet: Dm script with HP bar.
Posted on Oct 2, 2008 5:46 pm

Haha, that happened to me aswell :( but soon changed it

Dm script with HP bar.

Introduction

Grab the Code

Comments

maso0n

My Snippet Tags

Contact

Sponsors