Top

Kombat Game


mIRC Code
+ 0 likes
Please Register to submit score.
Average Score  4.0
Scores Submitted  4
Date Added  Aug 15, 2007
Last Updated  Aug 15, 2007
Tags  combat  game  kombat 
  Bookmark and Share

Introduction

This is just a combat game. I changed it to Kombat, because many people have cmb and stat scripts that would interfere with the commands. Paste this into your remotes section. Type !kombat to begin. For help, type !kombatcmds.

Grab the Code

Comments

  (20)  RSS
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 3:58 pm
Theres a glitch in the game when i type !skick i hit my self then koed my self.. got to fix that other then that it's pretty kool, well done :)
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:08 pm
umm ive been playin this close 2 a week b4 i posted and ive never hit myself =/ Thank you tho
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:12 pm
You must have been playin against yourself, where this game is meant for two people =p
Firedog150
Comments: 11
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:18 pm
Code:
on *:text:!kombat*:#: {
  if (%fight2 == active) {
    msg $chan 4,0 a Match is already underway! Wait your turn!
  }
  if (%fight == active) {
    set %player2 $nick
    if (%player2 = %player1) { halt }
    msg $chan 4,0 the match is set! 0,4 %player1 4,0 vs 0,4 %player2


NICE JOB!!
Firedog150
Comments: 11
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:19 pm
Sorry forgot to say that should stop you from playing yourself
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:26 pm
I was not playing by my self i was playing with wishmaker i had unlimited turns oddly and he only got to hit my once i hit him once then i started hitting my self where can i find you Monky i'll show you what i mean.
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:29 pm
#menion =p
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:33 pm
TY Fire
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:36 pm
What server monky lols.
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:39 pm
#menion on mirc
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:41 pm
What network lols like irc.axpi2.net or irc.dejatoons.net
Firedog150
Comments: 11
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:43 pm
its is irc.swiftirc.net
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:43 pm
-.- r u usin mirc? if so just type /join #menion -.-
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:44 pm
Yeah im using mirc and i did type /join #menion and no one was there ask someone what network you're on.
Monky
Comments: 52
 
mIRC Snippet:  Kombat Game
Posted on Aug 15, 2007 4:47 pm
the 1 fire said =p
Dramakus
Comments: 3
 
mIRC Snippet:  Kombat Game
Posted on Nov 11, 2007 8:04 pm
The color scheme on this is...
The game was ok but the script posted here has many errors that require the person who wants it to correct them.
1: The endurance if your not going to have it enabled whats the point in having more than 1 move...
2: some of the player variables were backwards on the commands.
3: you could have easily implemented a experience/level system.
4: the colors are just awful.
Anti
Comments: 305
 
mIRC Snippet:  Kombat Game
Posted on Nov 12, 2007 10:40 am
Colors are much of a problem in scripting i think monky is just learning to script dont want to get it to hard for him experience level system i guess if you want to help him through it go ahead.

But serously i hit myself playing against reddawg i think it's not something i would use personaly
Dramakus
Comments: 3
 
mIRC Snippet:  Kombat Game
Posted on Nov 12, 2007 8:06 pm
Heres a rough fix of the code posted above.
1. I enabled the endurance.
2. Added a !rest command to be able to recover endurance at the cost of a turn
3. Adjusted some of the damage and the endurance costs for the moves.
4. Added a color choice.
5. Added an on PART/QUIT check.


Code:

on *:LOAD: {
  /echo Kombat script loaded.
  /echo Colors: 0,1 $+ 0=White 1 $+ 1=Black 2 $+ 2=Dark Blue 3 $+ 3=Green 4 $+ 4=Red 5 $+ 5=Dark Red 6 $+ 6=Dark Purple 7 $+ 7=Orange 8 $+ 8= Yellow 9 $+ 9=Bright Green 10 $+ 10=Teal 11 $+ 11=Light Blue 12 $+ 12=Blue 13 $+ 13=Purple 14 $+ 14=Dark Gray 15 $+ 15=Gray
  /set %txt1 $?="What text color # did you want to use?"
  /set %bg1 $?="What Background color # did you want to use?"
  /set %KCol  $+ %txt1 $+ , $+ %bg1
}

on $*:text:!kombatcmds:*:{
  notice $nick %KCol $+ ~ Attacks ~
  notice $nick !upper cut
  notice $nick !dbl punch
  notice $nick !jab
  notice $nick !skick
  notice $nick %KCol $+ ~ Others ~
  notice $nick !rest
  notice $nick !flee
  notice $nick !kombat
  notice $nick !stopkmb
}

on *:text:!kombat*:#: {
  if (%fight2 == active) {
    msg $chan %KCola $+ Match is already underway! Wait your turn!
  }
  if (%fight == active) {
    set %player2 $nick
    if (%player2 = %player1) { halt }
    msg $chan %KCol $+ the match is set! %player1 vs %player2
    notice %player1 Type "!kombatcmds" for the commands list.
    notice %player2 Type "!kombatcmds" for the commands list.
    set %fight2 active
    set %p1hp 99
    set %p2hp 99
    set %stamina1 0
    set %stamina2 0
    set %turn 1

  }
  else {
    set %fight active
    set %player1 $nick
    msg $chan %KCol $+ $nick has declared a challenge type !kombat to fight them
  }
}

on *:text:!dbl punch*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%stamina2 < 10) {
        set %hit1 $rand(0,15)
        set %hit2 $rand(0,15)
        inc %stamina1 2
        msg $chan %KCol $+ %player1 has hit %hit1 and %hit2
        dec %p2hp %hit1
        dec %p2hp %hit2
        msg $chan %KCol $+ %player2 has %p2hp hp left
        notice $nick %KCol $+ %player1 you have $calc(10 - %stamina1) stamina left.
        set %turn 2
      }
      if (%p2hp <= 0) {
        msg $chan %KCol $+ %player1 has koed %player2
        unset %fight
        unset %player1
        unset %player2
        unset %fight2
        unset %p1hp
        unset %p2hp
        unset %stamina1
        unset %stamina2
        unset %turn
        unset %hit1
        unset %hit2
      }
      else {
      }
    }
    else if (%stamina1 >= 10) {
      notice %player1 you are out of stamina
    }
  }
  else {
    if (%turn == 2) {
      if ($nick == %player2) {
        if (%stamina2 < 10) {
          set %hit1 $rand(0,15)
          set %hit2 $rand(0,15)
          inc %stamina2 2
          msg $chan %KCol $+ %player2 has hit %hit1 and %hit2
          dec %p1hp %hit1
          dec %p1hp %hit2
          msg $chan %KCol $+ %player1 has %p1hp hp left
          notice $nick %KCol $+ %player2 you have $calc(10 - %stamina2) stamina left.
          set %turn 1
          if (%p1hp <= 0) {
            msg $chan %KCol $+ %player2 has koed %player1
            unset %fight
            unset %player1
            unset %player2
            unset %fight2
            unset %p1hp
            unset %p2hp
            unset %stamina1
            unset %stamina2
            unset %turn
            unset %hit1
            unset %hit2
          }
          else {
          }
        }
        else if (%stamina2 >= 10) {
          notice %player2 you are out of stamina
        }
      }
    }
  }
}

on *:text:!skick*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%stamina1 < 10) {
        set %hit1 $rand(1,20)
        set %hit2 $rand(1,20)
        inc %stamina1 4
        msg $chan %KCol $+ %player1 has hit %hit1 and %hit2
        dec %p2hp %hit1
        dec %p2hp %hit2
        msg $chan %KCol $+ %player2 has %p2hp hp left
        notice $nick %KCol $+ %player1 you have $calc(10 - %stamina1) stamina left.
        set %turn 2
        if (%p2hp <= 0) {
          msg $chan %KCol $+ %player1 has koed %player2
          unset %fight
          unset %player1
          unset %player2
          unset %fight2
          unset %p1hp
          unset %p2hp
          unset %stamina1
          unset %stamina2
          unset %turn
          unset %hit1
          unset %hit2
        }
        else {
        }
      }
      else if (%stamina1 >= 10) {
        notice %player1 %KCol $+ you are out of stamina
      }
    }
  }
  else {
    if (%turn == 2) {
      if ($nick == %player2) {
        if (%stamina2 < 10) {
          set %hit1 $rand(1,20)
          set %hit2 $rand(1,20)
          inc %stamina2 4
          msg $chan %KCol $+ %player2 has hit %hit1 and %hit2
          dec %p1hp %hit1
          dec %p1hp %hit2
          msg $chan %KCol $+ %player1 has %p1hp hp left
          notice $nick %KCol $+ %player2 you have $calc(10 - %stamina2) stamina left.
          set %turn 1
          if (%p1hp <= 0) {
            msg $chan %KCol $+ %player2 has koed %player1
            unset %fight
            unset %player1
            unset %player2
            unset %fight2
            unset %p1hp
            unset %p2hp
            unset %stamina1
            unset %stamina2
            unset %turn
            unset %hit1
            unset %hit2
          }
          else {
          }
        }
        else if (%stamina2 >= 10) {
          notice %player2 %KCol $+ you are out of stamina
        }
      }
    }
  }
}

on *:text:!jab*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      set %turn 2
      set %hit $rand(0,10)
      msg $chan %KCol $+ %player1 has hit a %hit
      dec %p2hp %hit
      msg $chan %KCol $+ %player2 has %p2hp hp left
      notice $nick %KCol $+ %player1 you have $calc(10 - %stamina1) stamina left.
      if (%p2hp <= 0) {
        msg $chan %KCol $+ %player1 has koed %player2
        unset %fight
        unset %player1
        unset %player2
        unset %fight2
        unset %p1hp
        unset %p2hp
        unset %stamina1
        unset %stamina2
        unset %turn
        unset %hit1
        unset %hit2
      }
      else {
      }
    }
  }
  else if (%turn == 2) {
    if ($nick == %player2) {
      set %turn 1
      set %hit $rand(0,10)
      msg $chan %KCol $+ %player2 has hit a %hit
      dec %p1hp %hit
      msg $chan %KCol $+ %player1 has %p1hp hp left
      notice $nick %KCol $+ %player2 you have $calc(10 - %stamina2) stamina left.
      if (%p1hp <= 0) {
        msg $chan %KCol $+ %player2 has koed %player1
        unset %fight
        unset %player1
        unset %player2
        unset %fight2
        unset %p1hp
        unset %p2hp
        unset %stamina1
        unset %stamina2
        unset %turn
        unset %hit1
        unset %hit2
      }
      else {
      }
    }
  }
}

on *:text:!upper cut*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      if (%stamina1 < 10) {
        set %turn 2
        set %hit $rand(10,26)
        inc %stamina1 6
        msg $chan %KCol $+ %player1 has hit a %hit
        dec %p2hp %hit
        msg $chan %KCol $+ %player2 has %p2hp hp left
        notice $nick %KCol $+ %player1 you have $calc(10 - %stamina1) stamina left.
        if (%p2hp <= 0) {
          msg $chan %KCol $+ %player1 has koed %player2
          unset %fight
          unset %player1
          unset %player2
          unset %fight2
          unset %p1hp
          unset %p2hp
          unset %stamina1
          unset %stamina2
          unset %turn
          unset %hit1
          unset %hit2
        }
      }
      else if (%stamina1 >= 10) {
        notice %player1 %KCol $+ you are out of stamina
      }
    }
  }
  if (%turn == 2) {
    if ($nick == %player2) {
      if (%stamina2 < 10) {
        set %turn 1
        set %hit $rand(10,26)
        inc %stamina2 6
        msg $chan %KCol $+ %player2 has hit a %hit
        dec %p1hp %hit
        msg $chan %KCol $+ %player1 has %p1hp hp left
        notice $nick %KCol $+ %player2 you have $calc(10 - %stamina2) stamina left.
        if (%p1hp <= 0) {
          msg $chan %KCol $+ %player2 has koed %player1
          unset %fight
          unset %player1
          unset %player2
          unset %fight2
          unset %p1hp
          unset %p2hp
          unset %stamina1
          unset %stamina2
          unset %turn
          unset %hit1
          unset %hit2
        }
      }
      else if (%stamina2 >= 10) {
        notice %player2 %KCol $+ you are out of stamina
      }
    }
  }
}

on *:text:!rest*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      dec %stamina1 4
      set %turn 2
      msg $chan %KCol $+ %player1 rested.
      notice %player1 %KCol $+ %player1 you have $calc(10 - %stamina1) stamina left.
    }
  }
  if (%turn == 2) {
    if ($nick == %player2) {
      dec %stamina2 4
      set %turn 1
      msg $chan %KCol $+ %player2 rested.
      notice %player2 %KCol $+ %player2 you have $calc(10 - %stamina2) stamina left.
    }
  }
}

on *:text:!flee*:#: {
  if (%turn == 1) {
    if ($nick == %player1) {
      msg $chan msg $chan %KCol $+ %player2 has won the match by default
      unset %fight
      unset %player1
      unset %player2
      unset %fight2
      unset %p1hp
      unset %p2hp
      unset %stamina1
      unset %stamina2
      unset %turn
      unset %hit1
      unset %hit2
    }
    else{
  }
  if (%turn == 2) {
    if ($nick == %player2) {
      msg $chan %KCol $+ %player1 has won the match by default
      unset %fight
      unset %player1
      unset %player2
      unset %fight2
      unset %p1hp
      unset %p2hp
      unset %stamina1
      unset %stamina2
      unset %turn
      unset %hit1
      unset %hit2
    }
  }
}
on *:text:!stopkmb*:#: {
  if ($nick isop $chan) {
    msg $chan %KCol $+ KOMBAT STOPPED
    unset %fight
    unset %player1
    unset %player2
    unset %fight2
    unset %p1hp
    unset %p2hp
    unset %stamina1
    unset %stamina2
    unset %turn
    unset %hit1
    unset %hit2
  }
}

on *:PART:#: {
    if ($nick == %player1) || ($nick == %player2) {
      msg $chan %KCol $+ $nick has forfeited the match by leaving the channel.
      unset %fight
      unset %player1
      unset %player2
      unset %fight2
      unset %p1hp
      unset %p2hp
      unset %stamina1
      unset %stamina2
      unset %turn
      unset %hit1
      unset %hit2
    }
}

on *:QUIT: {
    if ($nick == %player1) || ($nick == %player2) {
      msg $chan %KCol $+ $nick has forfeited the match by quiting IRC.
      unset %fight
      unset %player1
      unset %player2
      unset %fight2
      unset %p1hp
      unset %p2hp
      unset %stamina1
      unset %stamina2
      unset %turn
      unset %hit1
      unset %hit2
    }
}
Dramakus
Comments: 3
 
mIRC Snippet:  Kombat Game
Posted on Nov 12, 2007 8:14 pm
Fixed the color examples

Code:

on *:LOAD: {
  /echo Kombat script loaded.
  /echo Colors: 0,1 0=White 1 1=Black 2 2=Dark Blue 3 3=Green 4 4=Red 5 5=Dark Red 6 6=Dark Purple 7 7=Orange 8 8= Yellow 9 9=Bright Green 10 10=Teal 11 11=Light Blue 12 12=Blue 13 13=Purple 14 14=Dark Gray 15 15=Gray
  /set %txt1 $?="What text color # did you want to use?"
  /set %bg1 $?="What Background color # did you want to use?"
  /set %KCol  $+ %txt1 $+ , $+ %bg1
}
mountaindew
Comments: 1,636
 
mIRC Snippet:  Kombat Game
Posted on Nov 12, 2007 8:30 pm
Code:
on $*:text:!kombatcmds:*:{

why r u doing on $ when u dont do regex?
Code:

        unset %fight
        unset %player1
        unset %player2
        unset %fight2
        unset %p1hp
        unset %p2hp
        unset %stamina1
        unset %stamina2
        unset %turn
        unset %hit1
        unset %hit2

just do
Code:

unset %fight %player1 %player2 %fight2 %p1hp %p2hp %stamina1 %stamina2 %turn %hit1 %hit2


Please Register or Login to start posting comments.
Bottom