Game Bot 1.0 (Aucun50)

[chain]

Game Bot, Great for channels, Lots of Games

Games:
!Aim
!Blowup/!Defuse
!Pcall
!Number/Guess
!Slots
!8ball

To use copy and paste in your remotes (Alt + r under remotes paste)

Nothing Ripped! All made from scratch NO IDEAS looked at.
Special Thanks to PunkTured for help.

More version to come later on, please post ideas to thank you.

 

on *:TEXT:*:#: {
  if (!aim == $strip($1)) { 
    if ($2 ison $chan) {
      if ($me == $2) { msg $chan Not Me! | halt }
      msg $chan $nick aims at $2
      set %aim $rand(1,6)
      if (%aim == 1) msg $chan $nick goes to take the shot but the scope falls off
      elseif (%aim == 2) msg $chan $nick aims at $2 and slips, hits his head on a tree!
      elseif (%aim == 3) msg $chan $nick is just getting $2 in there scope and Leg shot!
      elseif (%aim == 4) msg $chan $nick jumps to shot and HS!
      elseif (%aim == 5) msg $chan $2 can see $nick and takes the shot before $nick
      elseif (%aim == 6) msg $chan $nick hits bush YES!
      unset %aim
    }
    elseif (!$2) { msg $chan No Nick in my scope }
    elseif ($2 !ison $chan) { msg $chan There not in range of this channel }
  }
  if (!Blowup == $strip($1)) {
    if ($2 ison $chan) {
      if ($me == $2) { msg $chan Not Me! | halt }
      set %bomb $2
      msg $chan $nick plants a time bomb on $2
      msg $chan You better Run!
      msg $chan Type !defuse to stop it
      .timer 1 200 unset %bomb
    }
    elseif (!$2) { msg $chan There not here }
    elseif ($2 !ison $chan) { msg $chan Can't hit them with c4 }   
  }
  if (!defuse == $strip($1)) {
    if ($nick == %bomb) {
      msg $chan Here it goes!
      set %defuse $rand(1,5) 
      if (%defuse == 1) msg $chan You did it *relief*
      elseif (%defuse == 2) msg $chan Wrong Wire Wrong Wire! NO! 
      elseif (%defuse == 3) msg $chan I don't know what you did but that worked
      elseif (%defuse == 4) msg $chan You Stupid *BOOM* 
      elseif (%defuse == 5) msg $chan $me whips it up in the air You Dumy
      unset %defuse
      unset %bomb
    }
    else { msg $chan You don't have a bomb on you | haltdef }
  }
  if (!pcall == $strip($1)) {
    if ($2 ison $chan) {
      if ($me == $2) { msg $chan Not Me! | halt }
      msg $chan Calling $2... 
      set %pcall $rand(1,5)
      if (%pcall == 1) .timer 1 5 msg $chan $2 is your refrigerator running? Then you better catch it!
      elseif (%pcall == 2) .timer 1 5 msg $chan $2 is there an I.P. Freely there?
      elseif (%pcall == 3) .timer 1 5 msg $chan $2 is there a john there? Then how do you goto the washroom?
      elseif (%pcall == 4) .timer 1 5 msg $chan 3 
      elseif (%pcall == 5) .timer 1 5 msg $chan 4
      unset %pcall
    }
    elseif (!$2) { msg $chan Who do i call? }
    elseif ($2 !ison $chan) { msg $chan I don't pay long distance }   
  }
  if (!number == $strip($1)) {
    if (!%num) {
      set -u60 %num $rand(1,100)
      msg $chan I have set a number, it is between 1 and 100.
      msg $chan To make a guess, type: !guess Number_Here
      msg $chan Start guessing now, you have one minute to guess the number.
    }
    else { msg $chan A game is currently in progress. }
  }
  if (!guess == $strip($1)) {
    if (!%num) { msg $chan There is no game in progress. }
    else {
      if ($2 < $($+(%,num),2)) { msg $chan Higher. }
      if ($2 > $($+(%,num),2)) { msg $chan Lower. }
      if ($2 == $($+(%,num),2)) { msg $chan Bingo. $nick guessed the right number %num $+ . }
    }
  }
  if (!slots == $strip($1)) {
    set -u20 %s1 $rand(1,3)
    if (%s1 == 1) msg $chan Fisrt one is OP
    elseif (%s1 == 2) msg $chan Fisrt is HOP 
    elseif (%s1 == 3) msg $chan First is VOP
    set -u20 %s2 $rand(1,3) 
    if (%s2 == 1) msg $chan Second one is OP
    elseif (%s2 == 2) msg $chan Second is HOP
    elseif (%s2 == 3) msg $chan Second is VOP
    set -u20 %s3 $rand(1,3)
    if (%s3 == 1) msg $chan Third one is OP
    elseif (%s3 == 2) msg $chan Third is HOP 
    elseif (%s3 == 3) msg $chan Third is VOP
    if (%s1 == 1) && (%s2 == 1) && (%s3 == 1) {
      msg $chan You won!
    }
    elseif (%s1 == 2) && (%s2 == 2) && (%s3 == 2) {
      msg $chan You won!
    }
    elseif (%s1 == 3) && (%s2 == 3) && (%s3 == 3) {
      msg $chan You won!  
    }
    else { msg $chan You lost }
  }
  if (!8ball == $strip($1)) {
    if ($me isin $2-) { msg $chan Not Me! | halt }
    set %8ball $rand(1,4)
    if (%8ball == 1) msg $chan Maybe..
    elseif (%8ball == 2) msg $chan YES
    elseif (%8ball == 3) msg $chan NO
    elseif (%8ball == 4) msg $chan Depends
    unset %8ball
  }
  else { haltdef }
}