Mortal Kombat

By Zeppelin382 on Apr 27, 2009

Well, when I first started scripting a long time ago I had gotten this Dm script. I learned a lot from it but I didn't make it. I butchered it, made it a Mortal Kombat Dm script. It sucked, even before I edited it.

I got bored a week or so ago and thought what the hell, I'll make a new one. (The old one was lost 6 months ago) This one is 100% made by me though :D

So here we are!

Attacks:
!Scorpion
!Goro
!Reptile
!Cage
!Sheeva
!SubZero
!Cyrax
!Saibot
!Sonya
!raiden

To regenerate your health and strength, !regen.

Play it, it's really fun. :)

on *:text:*:#:{
  if ($1 == !commands ) { notice $nick Attacks: !Scorpion, !Goro, !Reptile, !Cage, !Sheeva, !SubZero, !Cyrax, !Saibot, !Sonya, and !raiden. To regenerate your health and strength, !regen. | halt }
  elseif ($1 == !mk ) {
    if (%mk == off ) || (%mk == $null ) { 
      set %mk on | set %mk1 $nick
      msg # 6 $+ $nick 14wishes to challenge one of you to a 4Mortal Kombat14! To accept his challenge, type:7 !mk
      .timer 1 60 /msg # 14No one wishes to fight6 $nick $+ 14. 4Mortal Kombat 14ended. 
      .timer 1 60 /set %mk off $chr(124) unset %mk1
    }
    elseif (%mk == on ) {
      if ($nick == %mk1 ) { notice $nick You cannot fight yourself! | halt }
      set %mk2 $nick | set %hp. [ $+ [ %mk1 ] ] 100 | set %str. [ $+ [ $nick ] ] 50  | set %str. [ $+ [ %mk1 ] ] 50  | set %hp. [ $+ [ $nick ] ] 100
      set %turn %mk1 | set %turn# 1 | set %mk playing | set %mkchan $chan
      timer1 off
      timer2 off
      msg # 6 $+ $nick 14has accepted6 %mk1 $+ 14's challenge! Blood shall spill.
      else { notice $nick 14Sorry, a Mortal Kombat match is already occuring, please wait. | halt }
    }
  }
  elseif (%mk == playing ) {
    if ($1 == !Scorpion ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |  set %str. [ $+ [ $nick ] ] 0 | inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(5,15) )/ $r(30,40) + $r(1,5)))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] $r(1,5)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        msg # 1,4GET OVER HERE!6 $nick 14uses Scorpion's Blood Spear, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn $+ 14, 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !raiden ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | dec %hp. [ $+ [ %turn ] ] %hit
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(37,60) + $r(1,5))) | var %hit2 $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(37,60) + $r(1,5)))
        dec %hp. [ $+ [ %turn ] ] $calc( %hit + %hit2 ) | dec %str. [ $+ [ $nick ] ] $r(1,8)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        msg # 1,8RAJJIIIIIIN!6 $nick 14uses Raiden's lightning ball, inflicting7 %hit 14&7 %hit2 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn $+ 14, 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !Cage ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(20,30) + $r(1,5) ))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] $r(3,8)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        msg # 1,12YOU JUST GOT CAGED!6 $nick 14uses Johnny Cage's Shadow Kick, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !Goro ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(30,45))) | var %hit2 $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(30,45))) | var %hit3 $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(30,40))) | var %hit4 $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(30,40)))
        dec %hp. [ $+ [ %turn ] ] $calc( %hit + %hit2 + %hit3 + %hit4 ) | dec %str. [ $+ [ $nick ] ] $r(23,35)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        msg # 1,7SHOKAN!6 $nick 14uses Goro's Spinning Slaps, doing a total of7 $calc( %hit + %hit2 + %hit3 + %hit4 ) 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !reptile ) {
      if (%turn == $nick ) {
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $r(5,15)
        dec %hp. [ $+ [ %turn ] ] %hit
        msg # 1,3Serpent Suprisssse!6 $nick 14uses Reptile's Acid Spit, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !Sheeva ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(3,12) )/ 24 + $r(1,5)))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] $r(7,13)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        msg # 1,7SHOKAN!6 $nick 14uses Sheeva's Death From Above, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !subzero ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,10) )/ 30 + $r(1,5) ))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] $r(1,12)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        var %freeze $r(1,10)
        if (%freeze isnum 1-9 ) {
          msg # 12,1COLD SHOULDER!6 $nick 14uses SubZero's Deep Freeze, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        }
        elseif (%freeze == 10 ) {
          inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] 
          msg # 12,1COLD SHOULDER!6 $nick 14uses SubZero's Deep Freeze, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp anf frozen!6 $nick 14goes again.
        }
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !Sonya ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(( %str. [ $+ [ $nick ] ] * $r(1,15) )/ $r(45,55)))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] $r(1,7)
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        var %kod $r(1,2)
        if (%kod == 1 ) {
          msg # 1,13SPECIAL FORCES, UNITED STATES!6 $nick 14uses Sonya's Kiss of Death, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        }
        elseif (%kod == 2 ) { 
          msg # 1,13SPECIAL FORCES, UNITED STATES!6 $nick 14uses Sonya's Kiss of Death, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp and paralyzing6 %turn $+ 14.
          inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        }
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !Saibot ) {
      if (%turn == $nick ) {
        if (%sai. [ $+ [ $nick ] ] >= 1 ) { notice $nick You may only use this attck once... | halt }
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $r(1,$r(2,80))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] 30
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        set %sai. [ $+ [ $nick ] ] 1
        msg # 1,7SHOKAN!6 $nick 14uses Noob Saibot's Black Hole, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !cyrax ) {
      if (%turn == $nick ) {
        if (%str. [ $+ [ $nick ] ] < 1 ) { msg # 6 $+ $nick 14is too weak to do anything.. |   set %str. [ $+ [ $nick ] ] 0 |    inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ] | halt }
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hit $ceil($calc(($r(10,30) * $r(1,15) )/ %str. [ $+ [ $nick ] ] ))
        dec %hp. [ $+ [ %turn ] ] %hit | dec %str. [ $+ [ $nick ] ] 30
        if (%str. [ $+ [ $nick ] ] < 1 ) { set %str. [ $+ [ $nick ] ] 0 }
        set %sai. [ $+ [ $nick ] ] 1
        msg # 1,4CYRAXXX!6 $nick 14uses Cyrax's Detonator, inflicting7 %hit 14damage onto6 %turn $+ 14, leaving them with4 %hp. [ $+ [ %turn ] ] 14Hp and destroying himself in the process.
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14and himself in 4MORTAL KOMBAT | endmk | halt }
        if (%hp. [ $+ [ %turn ] ] > 1 ) { msg # 6 $+ $nick 14has been defeated by6 %turn 14and himself in 4MORTAL KOMBAT | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
    elseif ($1 == !regen ) {
      if (%turn == $nick ) {
        if (%regen. [ $+ [ $nick ] ] > 14 ) { notice $nick You may only use 15 regens. | halt }
        inc %regen. [ $+ [ $nick ] ] 1
        inc %turn# 1 | if (%turn# > 2 ) { set %turn# 1 } | set %turn %mk [ $+ [ %turn# ] ]
        var %hpi $r(0,20) | var %stri $r(0,10)
        inc %hp. [ $+ [ $nick ] ] %hpi | inc %str. [ $+ [ $nick ] ] %stri
        msg # 6 $+ $nick 14is regenerating... +04 $+ %hpi 14Hp and +04 $+ %stri 14Strength
        if (%hp. [ $+ [ %turn ] ] < 1 ) { msg # 6 $+ $nick 14has defeated6 %turn 14in 4MORTAL KOMBAT! | endmk | halt }
        notice $nick You have %hp. [ $+ [ $nick ] ] Hp left and %str. [ $+ [ $nick ] ] Strength left.
      }
      else { notice $nick It isn't your turn. | halt }
    }
  }
}
alias endmk {
  set %mk off
  unset %turn#
  unset %turn
  unset %mk*
  unset %hp.*
  unset %str.*
  unset %mkchan
  unset %sai.*
  unset %regen*
}
on *:part:#:{
  if ($nick == %mk1 ) {
    msg # 6 $+ $nick has fled the battle.6 %mk2 is the winner.
    endmk
  } 
  elseif ($nick == %mk2 ) {
    msg # 6 $+ $nick has fled the battle.6 %mk1 is the winner.
    endmk
  } 
}
on *:quit:{
  if ($nick == %mk1 ) {
    msg %mkchan 6 $+ $nick has fled the battle.6 %mk2 is the winner.
    endmk
  } 
  elseif ($nick == %mk2 ) {
    msg %mkchan 6 $+ $nick has fled the battle.6 %mk1 is the winner.
    endmk
  } 
}

Zeppelin382

Like Page Follow Author

Comments

Sign in to comment.
Shadowless   -  Aug 24, 2014

hello.. i`m looking for mirc script MORTAK KOMBAT, as i remember author is SUBZERO or ^SmOke^ e, Red_Alert

 Respond  
ES   -  Jul 11, 2009

nice script
its hella fun

 Respond  
}{exer   -  Jun 04, 2009

Good Work !

Thank You

 Respond  
mr_president   -  Jun 04, 2009

Same here Aucun50

 Respond  
Aucun50   -  Apr 27, 2009

Looks good and fun, i look forward to testing it later when i have sometime.

  1 Response  
Shadowless  -  Aug 24, 2014

;

Sign in to comment

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.