Dramakus

Dramakus

Joined
Nov 11, 2007

Activity Stream

All
Threads
Snippets
Dramakus commented on a Page, Advanced Google Eggdrop Script  -  May 30, 2012

thanks man :)

 Respond  
Dramakus commented on a Page, Youtube URL Checker  -  May 30, 2012

Can anyone tell me how to include youtu.be/VIDEOID in the search as well? I am having people bypass this script using those urls. I just need to know where I should add in a or statement for it

 Respond  
Dramakus commented on a Page, Advanced Google Eggdrop Script  -  May 30, 2012

Could anyone tell me how to make this command only usable by voiced or above?

 Respond  
Dramakus created a Page  -  Jul 12, 2008
887 
Bar Script v0.5

Here is a quick bar script I made. I know its sloppy feel free to clean it up. I just made this on a whim when some1 started handing out pretend beers in the channel.

  1 Thread   mIRC  
Dramakus commented on a Page, Kombat Game  -  Nov 12, 2007

Fixed the color examples

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
}
 Respond  
Dramakus commented on a Page, Kombat Game  -  Nov 12, 2007

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.
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 
    }
}
 Respond  
Dramakus commented on a Page, Kombat Game  -  Nov 11, 2007

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.

 Respond  
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.