Game Bot

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	3
Date Added	Dec 03, 2007
Last Updated	Dec 05, 2007
Tags	arcade bot fun gamble game games kill paper rock scissors

Introduction

A game bot i made, designed for use with channel where the bot has control. Load into remotes and join the channel with a nick. The bot will explain everything. Make sure bot has OP powers.

Set %gamechannel as the channel you want the bot to have the games on

Registered bot users get halfop on join

Non registered bot users het voice on join

Games:

Rock, Paper, Scissors

Gambling

Murder (not really a game)

Grab the Code

ON *:TEXT:*:#: {
  if ($1 = !rock) || ($1 = !paper) || ($1 = !scissors) {
    if (%register [ $+ [ $nick ] ] != ON) { msg $chan you must register first, please type !register }
    else {
      set %rps.count [ $+ [ $nick ] ] $calc(%rps.count [ $+ [ $nick ] ] + 1)
      set %rps $rand(1,3)
      if (%rps = 1) { set %rps.game 9Rock }
      elseif (%rps = 2) { set %rps.game 9paper }
      elseif (%rps = 3) { set %rps.game 9scissors } 
      if (%rps.game = 9rock) && ($1 = !rock) { msg $chan 14You chose: 9 Rock  14and i chose: %rps.game $+ 14. We Tied. }
      elseif (%rps.game = 9paper) && ($1 = !Paper) { msg $chan 14You chose: 9 Paper  14and i chose: %rps.game $+ 14. We Tied. }
      elseif (%rps.game = 9scissors) && ($1 = !scissors) { msg $chan 14You chose: 9 Scissors  14and i chose: %rps.game $+ 14. We Tied }
      elseif (%rps.game = 9rock) && ($1 = !scissors) { 
        msg $chan 14You chose: 9 Scissors  14and i chose: %rps.game $+ 14. I win!
        msg $chan You have lost 1 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] - 1)
      }
      elseif (%rps.game = 9paper) && ($1 = !Rock) { 
        msg $chan 14You chose: 9 Rock  14and i chose: %rps.game $+ 14. I win!
        msg $chan You have lost 1 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] - 1)
      }
      elseif (%rps.game = 9scissors) && ($1 = !paper) { 
        msg $chan 14You chose: 9 Paper  14and i chose: %rps.game $+ 14. I win! 
        msg $chan You have lost 1 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] - 1)
      }
      elseif (%rps.game = 9rock) && ($1 = !Paper) { 
        msg $chan 14You chose: 9 Paper  14and i chose:  %rps.game $+ 14. You won.
        msg $chan You have gained 2 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] + 2) 
      }
      elseif (%rps.game = 9paper) && ($1 = !scissors) { 
        msg $chan 14You chose: 9 Scissors  14and i chose: %rps.game $+ 14. You won.
        msg $chan You have gained 2 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] + 2) 
      }
      elseif (%rps.game = 9scissors) && ($1 = !Rock) { 
        msg $chan 14You chose: 9 Rock  14and i chose: %rps.game $+ 14. You won.
        msg $chan You have gained 2 points
        set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] + 2) 
      }
    }
  }
  elseif ($1 = !kill) && ($2 ison $chan) {
    set %kill.count [ $+ [ $nick ] ] $calc(%kill.count [ $+ [ $nick ] ] + 1)
    set %kill $rand(1,10)
    if ($2 != $me) {
      describe $chan walks up to $2 and...
      if (%kill = 1) { describe $chan slits $2 $+ 's neck with a pocket knife }
      elseif (%kill = 2) { describe $chan gouges $2 $+ 's eyeballs out. }
      elseif (%kill = 3) { describe $chan Shoves a soldering iron into $2 $+ 's stomach. }
      elseif (%kill = 4) { describe $chan Knocks $2 out, takes $2 to a nearby butcher farm and has him butchered up for Cow Food. }
      elseif (%kill = 5) { describe $chan Kills $2 for $nick $+ . }
      elseif (%kill = 6) { describe $chan Hits $2 over the head with a bat. $2 does not survive. }
      elseif (%kill = 7) { describe $chan Gets shot in the head by $2 $+ 's bodyguard... things dont always workout $nick }
      elseif (%kill = 8) { describe $chan Grabs a chainsaw and cuts $2 $+ 's leg off. $2 bleeds to death within $rand(2,6) mins. }
      elseif (%kill = 9) { describe $chan slips deadly pills into $2 $+ 's drink... $2 slowly dies a painful death in the hospital within $rand(2,7) days. }
      elseif (%kill = 10) { describe $chan decides that $2 deserves to live }
    } 
    elseif ($2 = $me) { describe $chan Shoots $nick in the face with a shotgun and yells "YOU THINK IM AN IDIOT!!!" }
  }
  elseif ($1 = !register) {
    set %register.count [ $+ [ $nick ] ] $calc(%register.count [ $+ [ $nick ] ] + 1)
    if (%register.count [ $+ [ $nick ] ] > 1) { notice $nick Register Failed: You are already registered }
    else {
      set %register [ $+ [ $nick ] ] ON
      set %money [ $+ [ $nick ] ] 100
      set %kill.count [ $+ [ $nick ] ] 0
      set %rps.count [ $+ [ $nick ] ] 0
      set %gamble.count [ $+ [ $nick ] ] 0
      mode $chan h $nick
      notice $nick Congrats, you are now registered, type !get commands
      notice $nick You now have %money [ $+ [ $nick ] ] point, think of this as your score.  
      notice $nick when you gamble these points you gain points for winning, lose points for losing.
    }
  }
  elseif ($1 = !gamble) && ($2 ison $chan) && ($3) {
    if (%register [ $+ [ $nick ] ] != ON) { msg $chan you must register first, please type !register }
    else {
      set %gamble.amount $3 
      if ($2 = $me) { msg $chan $2 wins!!! $2 now has %money [ $+ [ $2 ] ] dollars }
      if (%gamble.amount > %money [ $+ [ $nick ] ]) { msg $chan $nick you dont have enough money }
      elseif (%gamble.amount <= %money [ $+ [ $nick ] ]) { 
        if ($2 = $me) { halt }
        else { 
          notice $2 you have been challenged into a game of Gambling by $nick $+ , if you accept type !accept, if you decline type !decline. You have 45 seconds to respond 
          set %5 [ $+ [ $2 ] ] ON
          set %gamble.count [ $+ [ $nick ] ] $calc(%gamble.count [ $+ [ $nick ] ] + 1)
          set %challenger $nick
          timer 1 45 unset %5 [ $+ [ $2 ] ]
        }
      }
    }
  }
  elseif ($1 = !accept) {
    if (%5 [ $+ [ $nick ] ] = ON) {
      unset %5 [ $+ [ $nick ] ]
      set %gamble.count [ $+ [ $nick ] ] $calc(%gamble.count [ $+ [ $nick ] ] + 1)
      if (%gamble.amount > %money [ $+ [ $nick ] ]) { msg $chan $nick you dont have enough money }
      elseif (%gamble.amount <= %money [ $+ [ $nick ] ]) {
        set %adice $rand(1,6)
        set %bdice $rand(1,6)
        /msg $chan $nick rols his dice and gets a %adice
        /msg $chan %challenger rolls his dice and gets a %bdice
        if (%adice > %bdice) { 
          msg $chan $nick wins
          set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] + %gamble.amount)
          set %money [ $+ [ %challenger ] ] $calc(%money [ $+ [ %challenger ] ] - %gamble.amount)
          timer 1 1 msg $chan 4 $nick now has %money [ $+ [ $nick ] ] Dollars and 12 %challenger now has %money [ $+ [ %challenger ] ] Dollars
          unset %adice
          unset %bdice
        }
        elseif (%adice < %bdice) { 
          msg $chan %challenger wins 
          set %money [ $+ [ $nick ] ] $calc(%money [ $+ [ $nick ] ] - %gamble.amount)
          set %money [ $+ [ %challenger ] ] $calc(%money [ $+ [ %challenger ] ] + %gamble.amount)
          timer 1 1 msg $chan 4 $nick now has %money [ $+ [ $nick ] ] Dollars and 12 %challenger now has %money [ $+ [ %challenger ] ] Dollars 
          unset %adice
          unset %bdice    
        }
        elseif (%adice = %bdice) { msg $chan Draw! 
        }
      }
    }
  }
  elseif ($1 = !decline) {
    if (%5 [ $+ [ $nick ] ] = ON) { 
      msg $chan $nick has declined your offer %challenger 
    }
    else { halt }
  }
  elseif ($1 = !get) && ($2 = commands) {
    if (%register [ $+ [ $nick ] ] != ON) { msg $chan you must register first, please type !register }
    else {
      notice $nick 3!stats - Displays your current stats or the stats of a registered nick
      notice $nick 12Game Commands:
      notice $nick 4.:Rock, Paper, Scissors:.
      notice $nick !rock - chooses rock
      notice $nick !scissors - chooses scissors
      notice $nick !paper - chooses paper
      notice $nick 4.: Kill Commands :.
      notice $nick !kill <nick> - kills the specified nick in a random way.
      notice $nick 4.: Gamble :.
      notice $nick !gamble <nick> <amount> - Gambles <nick> (penalties for losing and advantages for winning)
    }
  }
  elseif ($1 = !join) { join $2 $3- }
  elseif ($1 = !stats) {
    if (%register [ $+ [ $nick ] ] != ON) { msg $chan you must register first, please type !register }
    else { 
      if ($2 = $null) {
        msg $chan you have killed %kill.count [ $+ [ $nick ] ] person(s)
        msg $chan You have played rock, paper scissors %rps.count [ $+ [ $nick ] ] time(s)
        msg $chan You have gambled %gamble.count [ $+ [ $nick ] ] time(s)
        msg $chan You have %money [ $+ [ $nick ] ] Point(s)
      }
      elseif ($2 = $me) {
        msg $chan $2 has killed %kill.count [ $+ [ $2 ] ] person(s)
        msg $chan $2 has played rock, paper scissors %rps.count [ $+ [ $2 ] ] time(s)
        msg $chan $2 has gambled %gamble.count [ $+ [ $2 ] ] time(s)
        msg $chan $2 has %money [ $+ [ $2 ] ] Point(s)
        msg $chan $2 Created you!!!
      }
      else {
        if (%register [ $+ [ $2 ] ] != ON) { msg $chan $2 isnt a registered user }
        else {
          msg $chan $2 has killed %kill.count [ $+ [ $2 ] ] person(s)
          msg $chan $2 has played rock, paper scissors %rps.count [ $+ [ $2 ] ] time(s)
          msg $chan $2 has gambled %gamble.count [ $+ [ $2 ] ] time(s)
          msg $chan $2 has %money [ $+ [ $2 ] ] Point(s)
        }
      }
    }
  }
}
ON *:JOIN:*: {
  if ($nick = $me) { halt }
  else {
    msg $chan 14Welcome 9  $+ $nick $+ 14 $+ ! Type: 9 $+ !Register (only if you havent before) $+ 14. Want me in your channel? Type 9!join <channel>. 14Forgot the commands? Type 9!get commands.
    if ($chan = %botchannel) && (%register [ $+ [ $nick ] ] = ON) { mode $chan h $nick }
    else { mode $chan v $nick }
  }
}

Comments

(4) RSS

Go to Bottom

jub369

Comments: 52

mIRC Snippet: Game Bot
Posted on Jan 20, 2008 5:17 pm

this works great

pokemaster23

Comments: 55

mIRC Snippet: Game Bot
Posted on Feb 17, 2008 8:16 pm

xd funny , good job. but you should make it so if you have it in a bot and they use !kill [yournick] or !gamble [yournick] it will say you can not kill my owner! and for !gamble make you auti win.

Azla`

Comments: 8

mIRC Snippet: Game Bot
Posted on Mar 26, 2008 8:48 pm

Okay so like... It doesn't work for me... The bot won't register people.. give commands or anything I'm kinda new at this who mirc script snipplet bot stuff So It may be something I'm doing but it won't work.. It also goes off everywhere... I have it op.. it didn't work.. I gave the people op who tryed to play and still nothing It was a good idea though and I see it works for other people so jg =]

Azla`

Comments: 8

mIRC Snippet: Game Bot
Posted on Mar 26, 2008 8:49 pm

Gah *gj* Typo..>>

Game Bot

Introduction

Grab the Code

Comments

Pepsi_Man0077

My Snippet Tags

Contact

Friends (3)

Sponsors


Last seen: Oct 05, 2008 Profile Friends (3) Snippets (13) Images (1) Comments Received (91) Comments Submitted (33)