[RS] dm script (With godswords)

+ 0 likes

Please Register to submit score.

Average Score	4.3
Scores Submitted	6
Date Added	Apr 11, 2008
Last Updated	Apr 11, 2008
Tags	criminal deathmatch dm fight fireworm999 godsword rs runescape script

Introduction

*** NOTE: This script is actually from: Blknbluyoshi
*** NOTE: And can be found on: http://www.hawkee.com/snippet/3052/
*** NOTE: but he made too much mistakes so I stole his idea but
*** NOTE: remade the script to my style.

OK.
the ' [RS] dm script ' is a script created for runescape players or for others who want to fight an other player.
To start a dm type: !dm and wait till an other player accepts.
To end a dm type: !enddm ( need to be one of the players or h+ )
Commands are:
!whip
!specwhip
!dds
!specdds
!ags
!specags
!bgs
!specbgs
!dbow
!specdbow
!cbow
!dharok
!eat
!tele

*** NOTE: Yes, you can play over 2 channels, please do not try it
*** NOTE: if you don't want any problems.. If someone plays over 2
*** NOTE: channels please type !enddm.
-------------------------------------------------------------------
*** NOTE: I'm not pretty sure the ' on *:QUIT: ' works.
-------------------------------------------------------------------
*** NOTE: If you find anything what doesn't work please subbmit a
*** NOTE: comment. Thank you
===================================================================
*** UPDATED:11-4-08: !enddm wasnt working as it should. Now it does
-------------------------------------------------------------------
*** UPDATED:11-4-08: some messages in !dharok were incorrect.

Grab the Code

;*~*~*~*~*~*~*~*~*~*~*~**~*~*~*~*~*~*~*~*~*~*~*~*~*
; -------------- Read This First -------------- *~* 
; How to get:                                   *~*
; Copy the code ( Block it and press Ctrl+C )   *~*
; Open your mIRC screen and press Alt+R         *~*
; File - New (Options in the left above corner) *~* 
; Click on Remote.                              *~*
; And press Ctrl+V in the screen.               *~*
; You now have successfully copied this code.   *~*
; -------------- Read This First -------------- *~*  
;*~*~*~*~*~*~*~*~*~*~*~**~*~*~*~*~*~*~*~*~*~*~*~*~*

on $*:TEXT:/^[!.@]dmcommands/si:#: {
  msg $nick 04� 1D14m 4[ 5!specwhip -- !whip 4]
  msg $nick 04� 1D14m 4[ 5!specags -- !ags  4]
  msg $nick 04� 1D14m 4[ 5!specbgs -- !bgs 4]
  msg $nick 04� 1D14m 4[ 5!specdds -- !dds 4]
  msg $nick 04� 1D14m 4[ 5!specdbow -- !dbow 4]
  msg $nick 04� 1D14m 4[ 5!cbow 4]
  msg $nick 04� 1D14m 4[ 5!dh 4]
  msg $nick 04� 1D14m 4[ 5!tele 4]
  msg $nick 04� 1D14m 4[ 5!stopdm 4]
  msg $nick 04� 1D14m 4[ 5!eat 4]
}

on $*:TEXT:/^[!.@]dm/si:#: {
  if (%duel2 == active) {
    msg $chan 04� 1D14m 4[ 5Sorry 4][14 A dm is already active between3 %player1 14and3 %player2 4]
    msg $chan 04� 1D14m 4[ 14Please wait for it to end. 4]
    halt
  }
  if (%duel == active) {
    if ($nick == %player1) { notice $nick You are already part of a DM... | halt }
    set %player2 $nick
    set %duel2 active
    set %HPplayer1 99
    set %HPplayer2 99
    set %specPLAYER1 0
    set %specPLAYER2 0
    set %foodPLAYER1 0
    set %foodPLAYER2 0
    set %turn 1
    msg $chan 04� 1D14m 4[14 The match is set! 4]
    msg $chan 04� 1D14m 4[3 %player1 7vs3 %player2 4]
  }
  else {
    set %duel active
    set %player1 $nick
    msg $chan 04� 1D14m 4[3 $nick 14has started a 4DM14! 4]
  }
}

on $*:TEXT:/^[!.@]eat/si:#: {
  if (%turn == 1) {
    if (%HPplayer1 == 99) {
      .notice $nick Sorry $nick $+ , you have 99 hp left.. There is no reason to eat a shark. Please choose another command.
      .halt
    }
    elseif ($nick == %player1) {
      if (%foodPLAYER1 == 20) { notice $nick You are out of food! please choose another command. | halt }
      if (%foodPLAYER1 < 20) {
        .inc %foodPLAYER1 
        .set %turn 2 
        .inc %HPplayer1 20
        .msg $chan 04� 1D14m 4[3 %player1 14eats a shark. 4]
        .msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4]
        if (%foodPLAYER1 == 1) { timer 1 0.5 notice $nick you have 19 sharks remaining. }
        if (%foodPLAYER1 == 2) { timer 1 0.5 notice $nick you have 18 sharks remaining. }
        if (%foodPLAYER1 == 3) { timer 1 0.5 notice $nick you have 17 sharks remaining. }
        if (%foodPLAYER1 == 4) { timer 1 0.5 notice $nick you have 16 sharks remaining. }
        if (%foodPLAYER1 == 5) { timer 1 0.5 notice $nick you have 15 sharks remaining. }
        if (%foodPLAYER1 == 6) { timer 1 0.5 notice $nick you have 14 sharks remaining. }
        if (%foodPLAYER1 == 7) { timer 1 0.5 notice $nick you have 13 sharks remaining. }
        if (%foodPLAYER1 == 8) { timer 1 0.5 notice $nick you have 12 sharks remaining. }
        if (%foodPLAYER1 == 9) { timer 1 0.5 notice $nick you have 11 sharks remaining. }
        if (%foodPLAYER1 == 10) { timer 1 0.5 notice $nick you have 10 sharks remaining. }
        if (%foodPLAYER1 == 11) { timer 1 0.5 notice $nick you have 9 sharks remaining. }
        if (%foodPLAYER1 == 12) { timer 1 0.5 notice $nick you have 8 sharks remaining. }
        if (%foodPLAYER1 == 13) { timer 1 0.5 notice $nick you have 7 sharks remaining. }
        if (%foodPLAYER1 == 14) { timer 1 0.5 notice $nick you have 6 sharks remaining. }
        if (%foodPLAYER1 == 15) { timer 1 0.5 notice $nick you have 5 sharks remaining. }
        if (%foodPLAYER1 == 16) { timer 1 0.5 notice $nick you have 4 sharks remaining. }
        if (%foodPLAYER1 == 17) { timer 1 0.5 notice $nick you have 3 sharks remaining. }
        if (%foodPLAYER1 == 18) { timer 1 0.5 notice $nick you have 2 sharks remaining. }
        if (%foodPLAYER1 == 19) { timer 1 0.5 notice $nick you have 1 sharks remaining. }
        if (%foodPLAYER1 == 20) { timer 1 0.5 notice $nick that was your last shark! }
      }
    }
  }
  elseif (%turn == 2) {
    if (%HPplayer2 == 99) {
      .notice $nick Sorry $nick $+ , you have 99 hp left.. There is no reason to eat a shark. Please choose another command.
      .halt
    }
    elseif ($nick == %player2) {
      if (%foodPLAYER2 == 20) { notice $nick You are out of food! Please choose another command. | halt }
      if (%foodPLAYER2 < 20) {
        .inc %foodPLAYER2
        .set %turn 1
        .inc %HPplayer2 20
        .msg $chan 04� 1D14m 4[3 %player2 14eats a shark. 4]
        .msg $chan 04� 1D14m 4[3 %player2 14 has7 %HPplayer2 14hp left. 4]
        if (%foodPLAYER2 == 1) { timer 1 0.5 notice $nick you have 19 sharks remaining. }
        if (%foodPLAYER2 == 2) { timer 1 0.5 notice $nick you have 18 sharks remaining. }
        if (%foodPLAYER2 == 3) { timer 1 0.5 notice $nick you have 17 sharks remaining. }
        if (%foodPLAYER2 == 4) { timer 1 0.5 notice $nick you have 16 sharks remaining. }
        if (%foodPLAYER2 == 5) { timer 1 0.5 notice $nick you have 15 sharks remaining. }
        if (%foodPLAYER2 == 6) { timer 1 0.5 notice $nick you have 14 sharks remaining. }
        if (%foodPLAYER2 == 7) { timer 1 0.5 notice $nick you have 13 sharks remaining. }
        if (%foodPLAYER2 == 8) { timer 1 0.5 notice $nick you have 12 sharks remaining. }
        if (%foodPLAYER2 == 9) { timer 1 0.5 notice $nick you have 11 sharks remaining. }
        if (%foodPLAYER2 == 10) { timer 1 0.5 notice $nick you have 10 sharks remaining. }
        if (%foodPLAYER2 == 11) { timer 1 0.5 notice $nick you have 9 sharks remaining. }
        if (%foodPLAYER2 == 12) { timer 1 0.5 notice $nick you have 8 sharks remaining. }
        if (%foodPLAYER2 == 13) { timer 1 0.5 notice $nick you have 7 sharks remaining. }
        if (%foodPLAYER2 == 14) { timer 1 0.5 notice $nick you have 6 sharks remaining. }
        if (%foodPLAYER2 == 15) { timer 1 0.5 notice $nick you have 5 sharks remaining. }
        if (%foodPLAYER2 == 16) { timer 1 0.5 notice $nick you have 4 sharks remaining. }
        if (%foodPLAYER2 == 17) { timer 1 0.5 notice $nick you have 3 sharks remaining. }
        if (%foodPLAYER2 == 18) { timer 1 0.5 notice $nick you have 2 sharks remaining. }
        if (%foodPLAYER2 == 19) { timer 1 0.5 notice $nick you have 1 sharks remaining. }
        if (%foodPLAYER2 == 20) { timer 1 0.5 notice $nick that was your last shark! }  
      }
    }
  }
}

on $*:TEXT:/^[!.@]ddsspec/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%specPLAYER1 < 4) {
        .set %hit1 $rand(0,28)
        .set %hit2 $rand(0,28)
        .dec %HPplayer2 %hit1
        .dec %HPplayer2 %hit2
        .inc %specPLAYER1
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %hit1 14and7 %hit2 4]
        .set %turn 2
        if (%specPLAYER1 == 1) { timer 1 0.5 .notice $nick you have 3/4 special attacks remaining. }
        if (%specPLAYER1 == 2) { timer 1 0.5 .notice $nick you have 2/4 special attacks remaining. }
        if (%specPLAYER1 == 3) { timer 1 0.5 .notice $nick you have 1/4 special attack remaining. }
        if (%specPLAYER1 == 4) { timer 1 0.5 .notice $nick that was your last special attack! }
        if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      } 
      elseif (%specPLAYER1 >= 4) {
        .notice $nick You are out of special attacks.
        .halt
      }
    } 
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%specPLAYER2 < 4) {
        .set %hit1 $rand(0,28)
        .set %hit2 $rand(0,28)
        .inc %specPLAYER2
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %hit1 14and7 %hit2 4]
        .dec %HPplayer1 %hit1
        .dec %HPplayer1 %hit2 
        .set %turn 1
        if (%specPLAYER2 == 1) { timer 1 0.5 .notice $nick you have 3/4 special attacks remaining. }
        if (%specPLAYER2 == 2) { timer 1 0.5 .notice $nick you have 2/4 special attacks remaining. }
        if (%specPLAYER2 == 3) { timer 1 0.5 .notice $nick you have 1/4 special attack remaining. }
        if (%specPLAYER2 == 4) { timer 1 0.5 .notice $nick that was your last special attack! }
        if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left.4 ] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4] 
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .halt
          .timer? off
        }
      }
      elseif (%specPLAYER2 >= 4) {
        .notice $nick You are out of special attacks.
        .halt
      }
    }
  }
}

on $*:TEXT:/^[!.@]dds/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %hit $rand(0,20)  
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %hit 4]
      .dec %HPplayer2 %hit 
      .set %turn 2
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %hit $rand(0,20) 
      .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %hit 4]
      .dec %HPplayer1 %hit
      .set %turn 1
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player2 4]
        .describe $chan hands over a trohpee too %player2 $+ !
        .unsetall
        .timer? off
      }
    }
  }
}

on $*:TEXT:/^[!.@]dharok/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%HPplayer1 >= 50) {
        .set %dharokhit $rand(0,45) 
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %dharokhit 4]
        .dec %HPplayer2 %dharokhit 
        .set %turn 2
        if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }
      if (%HPplayer1 <= 50) {
        .set %dharokunder $rand(0,70) 
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %dharokunder 4]
        .dec %HPplayer2 %dharokunder
        .set %turn 2
        if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }        
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%HPplayer2 >= 50) {
        .set %spelertweedharok $rand(0,45) 
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %spelertweedharok 4]
        .dec %HPplayer1 %spelertweedharok 
        .set %turn 1
        if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .timer? off
        }
      }
      if (%HPplayer2 <= 50) {
        .set %dharokunder2 $rand(0,70) 
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %dharokunder2 4]
        .dec %HPplayer1 %dharokunder2
        .set %turn 1
        if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall 
          .timer? off
        }
      }
    }
  }
}

on $*:TEXT:/^[!.@]agsspec/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%specPLAYER1 < 3) {
        .set %armaspechit $rand(10,65)
        .dec %HPplayer2 %armaspechit
        .inc %specPLAYER1 
        .inc %specPLAYER1 
        .set %turn 2
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %armaspechit 4]
        if (%specPLAYER1 == 2) { timer 1 0.5 notice $nick you have 2/4 special attacks remaining! }
        if (%specPLAYER1 == 3) { timer 1 0.5 notice $nick you have 1/4 special attacks remaining! }
        if (%specPLAYER1 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }
      elseif (%specPLAYER1 == 3) {
        .notice $nick You have 1/4 special attacks remaining, you need atleast 2 for agsspec!
        .halt
      }
      elseif (%specPLAYER1 == 4) {
        .notice $nick You are out of special attacks!
        .halt
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%specPLAYER2 < 3) {
        .set %speler2armaspechit $rand(10,65)
        .dec %HPplayer1 %speler2armaspechit
        .inc %specPLAYER2
        .inc %specPLAYER2 
        .set %turn 1
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %speler2armaspechit 4]
        if (%specPLAYER2 == 2) { timer 1 0.5 notice $nick you have 2/4 special attacks remaining! }
        if (%specPLAYER2 == 3) { timer 1 0.5 notice $nick you have 1/4 special attacks remaining! }
        if (%specPLAYER2 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer1 > 0) { .msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .timer? off
        }
      }
      elseif (%specPLAYER2 == 3) {
        .notice $nick You have 1/4 special attacks remaining, you need atleast 2 for agsspec!
        .halt
      }
      elseif (%specPLAYER2 == 4) {
        .notice $nick You are out of special attacks!
        .halt
      }
    }
  }
}

on $*:TEXT:/^[!.@]ags/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %agshit $rand(10,50)
      .dec %HPplayer2 %agshit
      .set %turn 2 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %agshit 4]
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %player2agshit $rand(10,50)
      .dec %HPplayer1 %player2agshit
      .set %turn 1 
      .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %player2agshit 4]
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .timer? off
      }
    } 
  }
}

on $*:TEXT:/^[!.@]bgsspec/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%specPLAYER1 == 0) {
        .set %bandospechit $rand(0,70)
        .dec %HPplayer2 %bandospechit
        .inc %specPLAYER1 
        .inc %specPLAYER1 
        .inc %specPLAYER1
        .inc %specPLAYER1
        .set %turn 2
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %bandospechit 4]
        if (%specPLAYER1 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }
      if (%specPLAYER1 == 3) {
        notice $nick You have 1/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 2) {
        notice $nick You have 2/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 1) {
        notice $nick You have 3/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 4) {
        notice $nick You are out of special attacks!
        .halt
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%specPLAYER2 = 0) {
        .set %speler2bandospechit $rand(0,70)
        .dec %HPplayer1 %speler2bandospechit
        .inc %specPLAYER2
        .inc %specPLAYER2 
        .inc %specPLAYER2
        .inc %specPLAYER2
        .set %turn 1
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %speler2bandospechit 4]
        if (%specPLAYER2 == 2) { timer 1 0.5 notice $nick you have 2/4 special attacks remaining! }
        if (%specPLAYER2 == 3) { timer 1 0.5 notice $nick you have 1/4 special attacks remaining! }
        if (%specPLAYER2 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer1 > 0) { .msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .timer? off
        }
      }
      if (%specPLAYER1 == 3) {
        notice $nick You have 1/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 2) {
        notice $nick You have 2/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 1) {
        notice $nick You have 3/4 special attacks remaining, you need atleast 4 for bgsspec!
        .halt
      }
      if (%specPLAYER1 == 4) {
        notice $nick You are out of special attacks!
        .halt
      }
    }
  }
}

on $*:TEXT:/^[!.@]bgs/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %bgshit $rand(0,50)
      .dec %HPplayer2 %bgshit
      .set %turn 2 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %bgshit 4]
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %player2agshit $rand(10,50) 
      .dec %HPplayer1 %player2agshit
      .set %turn 1 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %player2agshit 4]
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .timer? off
      }
    }
  }
}

on $*:TEXT:/^[!.@]whipspec/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%specPLAYER1 < 3) {
        .set %whipspechit $rand(5,40)
        .dec %HPplayer2 %whipspechit
        .inc %specPLAYER1 
        .inc %specPLAYER1 
        .set %turn 2
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %whipspechit 4]
        if (%specPLAYER1 == 2) { timer 1 0.5 notice $nick you have 2/4 special attacks remaining! }
        if (%specPLAYER1 == 3) { timer 1 0.5 notice $nick you have 1/4 special attacks remaining! }
        if (%specPLAYER1 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }
      elseif (%specPLAYER1 == 3) {
        .notice $nick You have 1/4 special attacks remaining, you need atleast 2 for whipspec!
        .halt
      }
      elseif (%specPLAYER1 == 4) {
        .notice $nick You are out of special attacks!
        .halt
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%specPLAYER2 < 3) {
        .set %speler2whipspechit $rand(5,40)
        .dec %HPplayer1 %speler2whipspechit
        .inc %specPLAYER2
        .inc %specPLAYER2 
        .set %turn 1
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %speler2whipspechit 4]
        if (%specPLAYER2 == 2) { timer 1 0.5 notice $nick you have 2/4 special attacks remaining! }
        if (%specPLAYER2 == 3) { timer 1 0.5 notice $nick you have 1/4 special attacks remaining! }
        if (%specPLAYER2 == 4) { timer 1 0.5 notice $nick that was your last special attack! }
        if (%HPplayer1 > 0) { .msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .timer? off
        }
      }
      elseif (%specPLAYER2 == 3) {
        .notice $nick You have 1/4 special attacks remaining, you need atleast 2 for whipspec!
        .halt
      }
      elseif (%specPLAYER2 == 4) {
        .notice $nick You are out of special attacks!
        .halt
      }
    }
  }
}

on $*:TEXT:/^[!.@]whip/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %whiphit $rand(0,35)
      .dec %HPplayer2 %whiphit
      .set %turn 2 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %whiphit 4]
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %player2whiphit $rand(0,30)
      .dec %HPplayer1 %player2whiphit
      .set %turn 1 
      .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %player2whiphit 4]
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .timer? off
      }
    } 
  }
}

on $*:TEXT:/^[!.@]cbow/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %chit $rand(0,27)
      .dec %HPplayer2 %chit
      .set %turn 2 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %chit 4]
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %player2chit $rand(0,27)
      .dec %HPplayer1 %player2chit
      .set %turn 1 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %player2chit 4]
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .timer? off
      }
    } 
  }
}

on $*:TEXT:/^[!.@]dbowspec/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%specPLAYER1 < 3) {
        .set %dhit1 $rand(0,28)
        .set %dhit2 $rand(0,28)
        .dec %HPplayer2 %dhit1
        .dec %HPplayer2 %dhit2
        .inc %specPLAYER1 
        .inc %specPLAYER1
        .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %dhit1 14and7 %dhit2 4]
        .set %turn 2
        if (%specPLAYER1 == 2) { timer 1 0.5 .notice $nick you have 2/4 special attacks remaining. }
        if (%specPLAYER1 == 3) { timer 1 0.5 .notice $nick you have 1/4 special attack remaining. }
        if (%specPLAYER1 == 4) { timer 1 0.5 .notice $nick that was your last special attack! }
        if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
        if (%HPplayer2 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
          .describe $chan hands over a trophee too %player1 $+ !
          .unsetall
          .timer? off
        }
      }
      elseif (%specPLAYER1 == 3) { 
        .notice $nick You have 1/4 special attacks remaining. You need atleast 2 for dbowspec!
        .halt
      }
      elseif (%specPLAYER1 >= 4) {
        .notice $nick You are out of special attacks.
        .halt
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      if (%specPLAYER2 < 3) {
        .set %whit1 $rand(0,28)
        .set %whit2 $rand(0,28)
        .inc %specPLAYER2
        .inc %specPLAYER2
        .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %whit1 14and7 %whit2 4]
        .dec %HPplayer1 %whit1
        .dec %HPplayer1 %whit2 
        .set %turn 1
        if (%specPLAYER2 == 2) { timer 1 0.5 .notice $nick you have 2/4 special attacks remaining. }
        if (%specPLAYER2 == 3) { timer 1 0.5 .notice $nick you have 1/4 special attack remaining. }
        if (%specPLAYER2 == 4) { timer 1 0.5 .notice $nick that was your last special attack! }
        if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left.4 ] | halt }
        if (%HPplayer1 <= 0) {
          .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4] 
          .describe $chan hands over a trophee too %player2 $+ !
          .unsetall
          .halt
          .timer? off
        }
      }
      elseif (%specPLAYER2 == 3) { 
        .notice $nick You have 1/4 special attacks remaining. You need atleast 2 for dbowspec!
        .halt
      }
      elseif (%specPLAYER2 >= 4) {
        .notice $nick You are out of special attacks.
        .halt
      }
    }
  }
}

on $*:TEXT:/^[!.@]dbow/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %dhit $rand(0,25)
      .set %dhit3 $rand(0,25)
      .dec %HPplayer2 %dhit
      .dec %HPplayer2 %dhit3
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %dhit 14and7 %dhit3 4]
      .set %turn 2
      if (%HPplayer2 > 0) { .msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %whit $rand(0,25)
      .set %whit3 $rand(0,25)
      .msg $chan 04� 1D14m 4[3 %player2 14has hit7 %whit 14and7 %whit3 4]
      .dec %HPplayer1 %whit
      .dec %HPplayer1 %whit3 
      .set %turn 1
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left.4 ] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4] 
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .halt
        .timer? off
      }
    }
  }
}

on $*:TEXT:/^[!.@]barrage/si:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      .set %bhit $rand(0,30)
      .dec %HPplayer2 %bhit
      .set %turn 2 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %bhit 4]
      if (%HPplayer2 > 0) { msg $chan 04� 1D14m 4[3 %player2 14has7 %HPplayer2 14hp left. 4] | halt }
      if (%HPplayer2 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player1 4DEFEATED3 %player2 4]  
        .describe $chan hands over a trophee too %player1 $+ !
        .unsetall
        .timer? off
      }
    }
  }
  elseif (%turn == 2) {
    if ($nick == %player2) {
      .set %player2bhit $rand(0,30)
      .dec %HPplayer1 %player2bhit
      .set %turn 1 
      .msg $chan 04� 1D14m 4[3 %player1 14has hit7 %player2bhit 4]
      if (%HPplayer1 > 0) { msg $chan 04� 1D14m 4[3 %player1 14has7 %HPplayer1 14hp left. 4] | halt }
      if (%HPplayer1 <= 0) {
        .msg $chan 04� 1D14m 4[3 %player2 4DEFEATED3 %player1 4]  
        .describe $chan hands over a trophee too %player2 $+ !
        .unsetall
        .timer? off
      }
    } 
  }
}

on $*:TEXT:/^[!.@]tele|teleport/si:#: {
  if (%duel2 == active) {
    if ($nick == %player1) { msg $chan 04� 1D14m 4[3 %player1 14teleported away! 4] | msg $chan 04� 1D14m 4[3 %player2 14is the winner! 4] | unsetall | timer? off }
    if ($nick == %player2) { msg $chan 04� 1D14m 4[3 %player2 14teleported away! 4] | msg $chan 04� 1D14m 4[3 %player1 14is the winner! 4] | unsetall | timer? off }
  }
  else {
    notice $nick There is no one fighting.
  }
}

on 1:QUIT: {
  if (%duel2 == active) {
    if ($nick == %player1) {
      msg $chan 04� 1D14m 4[3 %player2 14is the winner! 4]
      unsetall
      timer? off
    }
    elseif ($nick == %player2) {
      msg $chan 04� 1D14m 4[3 %player1 14is the winner! 4]
      unsetall
      timer? off
    }
  } 
  elseif (%duel == active) {
    msg $chan 04� 1D14m 4[14 Halted3 %player1 $+ 's 14request. 4]
    unsetall
    timer? off
  }
}

on $*:TEXT:/^[!.@]enddm|stopdm|haltdm/si:#: {
  if (%duel2 == active) { 
    if ($nick isop $chan) { msg $chan 04� 1D14m 4[3 Ended The Fight 4][14 There was no winner. 4] | unsetall | timer? off | halt}
    if ($nick ishop $chan) { msg $chan 04� 1D14m 4[3 Ended The Fight 4][14 There was no winner. 4] | unsetall | timer? off | halt }
    if ($nick == %player1) { msg $chan 04� 1D14m 4[3 Ended The Fight 4][3 %player2 14is the winner! 4] | unsetall | timer? off | halt }
    if ($nick == %player2) { msg $chan 04� 1D14m 4[3 Ended The Fight 4][3 %player1 14is the winner! 4] | unsetall | timer? off | halt }
  }
  if (%duel == active) {
    if ($nick isop $chan) { msg $chan 04� 1D14m 4[14 Halted3 %player1 $+ 's 14request 4] | unsetall | timer? off | halt }
    if ($nick ishop $chan) { msg $chan 04� 1D14m 4[14 Halted3 %player1 $+ 's 14request 4] | unsetall | timer? off | halt }
    if ($nick == %player1) { msg $chan 04� 1D14m 4[14 Halted your request,3 %player1 4] | unsetall | timer? off | halt}
  }
  if (%duel2 != active) { 
    notice $nick There is no one fighting! 
    halt
  }
  if (%duel != active) {
    notice $nick There is no one requesting a fight!
    halt
  }
}

on *:KICK:#: {
  if (%duel2 == active) {
    if ($knick == %player1) {
      msg $chan 04� 1D14m 4[3 %player1 14got kicked! 4][14 There is no winner 4]
      unsetall
      timer? off
    }
    elseif ($knick == %player2) {
      msg $chan 04� 1D14m 4[3 %player2 14got kicked! 4][14 There is no winner 4]
      unsetall
      timer? off
    }
  }
  if (%duel == active) {
    if ($nick == %player1) {
      msg $chan 04� 1D14m 4[3 %player1 14got kicked! 4][14 Halted he's request. 4]
      unsetall
      timer? off
    }
  }
}

on 1:start: {
  echo ..:: 7Thanks for using this script! 12::.. 
  echo ..:: 7Thanks for using this script! 12::.. 
  echo 12 ..:: 7The following commands can be used while dm-ing 12::..
  echo 12 ..:: 3!ddsspec - !dds 12::..
  echo 12 ..:: 3!whipspec - !whip 12::.. 
  echo 12 ..:: 3!agsspec - !ags 12::..
  echo 12 ..:: 3!bgsspec - !bgs 12::..
  echo 12 ..:: 3!dbowspec - !dbow 12::..
  echo 12 ..:: 3!cbow 12::..
  echo 12 ..:: 3!barrage 12::..
  echo 12 ..:: 3!guthan 12::..
  echo 12 ..:: 3!tele 12::..
  echo 12 ..:: 3!enddm 12::..
  echo 12 ..:: 3!dharok 12::..
  echo 12 ..:: 3!eat 12::..
  echo 12 ..:: 7 That's all 12::..
}

on *:PART:#: {
  if (%duel2 == active) {
    if ($nick == %player1) {
      msg $chan 04� 1D14m 4[3 Ended The Fight 4][3 %player2 14is the winner! 4]
      unsetall 
      timer? off
    }
    elseif ($nick == %player2) {
      msg $chan 04� 1D14m 4[3 Ended The Fight 4][3 %player1 14is the winner! 4]
      unsetall
      timer? off
    }
  }
  elseif (%duel == active) {
    if ($nick == %player1) {
      msg $chan 04� 1D14m 4[14 halted3 %player1 $+ 's 14request. 4]  4]
      unsetall
      timer? off
    }
  }
}

on *:DISCONNECT: {
  unsetall
  timer? off
}

; Thank you for checking/using this script. If you found an error
; please post it on: http://www.hawkee.com/snippet/4274/  
; � Criminal AKA Fireworm999

Comments

(7) RSS

Go to Bottom

napa182

Comments: 953

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 11, 2008 1:54 pm

you have a ton of timer flood\'s ... it\'s funny you silence almost everything but the timers =/
and with a comment like this ..
criminal said:

Quote:

Nice 1 rating, hater.
^ <- if you are one of those haters, Fck Off.

you are just asking for a score of 1 =/

Comments: 1,155

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 11, 2008 3:08 pm

Quote:

Ok so you \'\'borrowed\'\' another coder\'s code.SAy he made to many mistakes then proceeded to edit his script to your liking then post it as your own? ..Why not do like most of the \'\'Helpfull\'\' coders to here an post the fixed or edited code in a comment so the original author can post it or use it to help them selves an learn?..

P.S: Thanks for sighting your source tho :P

criminal

Comments: 122

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 11, 2008 3:34 pm

Quote:

Quote:

*** NOTE: This script is actually from: Blknbluyoshi
*** NOTE: And can be found on: http://www.hawkee.com/snippet/3052/
*** NOTE: but he made too much mistakes so I stole his idea but
*** NOTE: remade the script to my style.

Ok so you \'\'borrowed\'\' another coder\'s code.SAy he made to many mistakes then proceeded to edit his script to your liking then post it as your own? ..Why not do like most of the \'\'Helpfull\'\' coders to here an post the fixed or edited code in a comment so the original author can post it or use it to help them selves an learn?..

P.S: Thanks for sighting your source tho :P

I did, click the link and you\'ll see
but I think he doesnt check it anymore because he doesnt answer :o
ah well >.<

criminal

Comments: 122

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 13, 2008 1:00 pm

Quote:

you have a ton of timer flood\'s ... it\'s funny you silence almost everything but the timers =/
and with a comment like this ..
criminal said:
Quote:
Nice 1 rating, hater.
^ <- if you are one of those haters, Fck Off.

you are just asking for a score of 1 =/

you\'re right..
atleast the script works..

Xpl0reR

Comments: 78

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 13, 2008 8:22 pm

Stealing Others Scripts is lame, you stole someone\'s code to redo it.. soo

Your Lame..

criminal

Comments: 122

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 14, 2008 10:30 am

Quote:

Stealing Others Scripts is lame, you stole someone\'s code to redo it.. soo

Your Lame..

http://www.hawkee.com/snippet/4274/ ( mine )
http://www.hawkee.com/snippet/3052/ ( Blknbluyoshi\'s )
Compare.

Hawkee

Comments: 464

mIRC Snippet: [RS] dm script (With godswords)
Posted on Apr 15, 2008 11:52 am

Xpl0reR, in the world of open source it\'s perfectly fine to modify an existing work as long as the original work is cited.

[RS] dm script (With godswords)

Introduction

Grab the Code

Comments

criminal

My Snippet Tags

Contact

Friends (3)

Sponsors


Last seen: Jul 08, 2008 Profile Friends (3) Snippets (6) Images (3) Comments Received (60) Comments Submitted (122) Forum Posts (25)