Another 8 ball

Please Register to submit score.

Average Score	5.0
Scores Submitted	2
Date Added	Feb 23, 2008
Last Updated	Feb 23, 2008
Tags	ball eight magic mirc

Introduction

Everyone else was doing one, so I figured I would get in on it.

/eball toggles it on|off

The answers I used are the official answers that come on the actual Magic Eight ball from Mattel

edited to make it announce to channel when its enabled/disabled

Grab the Code

;Magic Eight Ball
;2-23-08
;Redrocco
;Answers copyright Mattel
;============================================================================
alias eball {
  if ($group(#8ball) == on) { disable #8ball | say $gfx has been put away | halt }
  if ($group(#8ball) == off) { enable #8ball | say $gfx is now on. type ^8ball question to ask? to consult the all-knowing $gfx | halt }
}
alias gfx return  Magic (8) Ball 
#8ball off
on *:text:^8ball*:*: {
  if ($right($1-,1) == ?) {
    var %i $rand(1,20)
    msg # $gfx says : $eightball(%i)
  }
}
#8ball end
alias -l eightball {
  if ($1 == 1) { return As I see it, yes. }
  if ($1 == 2) { return Ask again later. }
  if ($1 == 3) { return Better not tell you now. }
  if ($1 == 4) { return Cannot predict now. }
  if ($1 == 5) { return Concentrate and ask again. }
  if ($1 == 6) { return Don't count on it. }
  if ($1 == 7) { return It is certain. }
  if ($1 == 8) { return It is decidedly so. }
  if ($1 == 9) { return Most likely. }
  if ($1 == 10) { return My reply is no. }
  if ($1 == 11) { return My sources say no. }
  if ($1 == 12) { return Outlook good. }
  if ($1 == 13) { return Outlook not so good. }
  if ($1 == 14) { return Reply hazy, try again. }
  if ($1 == 15) { return Signs point to yes. }
  if ($1 == 16) { return Very doubtful. }
  if ($1 == 17) { return Without a doubt. }
  if ($1 == 18) { return Yes. }
  if ($1 == 19) { return Yes - definitely. }
  if ($1 == 20) { return You may rely on it. }
}

Comments

(5) RSS

Go to Bottom

Redrocco

Comments: 6

mIRC Snippet: Another 8 ball
Posted on Feb 23, 2008 5:00 pm

No one ever comments :/

Comments: 801

mIRC Snippet: Another 8 ball
Posted on Feb 23, 2008 6:28 pm

Well i like it,it works well.I also liked the fact you must put a "?" in yourquestion or it will not trigger,most ppl over looked that little detail.Also like the fact you used the actual 8ball responces from Mattel.I do have a few fast little suggestion.Maybe have it only respond in one channel(note im using my Chat Server bot to test its in like 16 channels),Also maybe use a Text file for those responces not that it matters to much not like its a million responces,Also add user additions,Just made quick Truth or Dare game for my ladies on my Chat server and its totally customizable,but you are infact stayin true to the actual game so that may not be somthing you ll consider.Ahh and flooding is an issues here should add a var to lock teh game up for so long to stop floods in your channel.it's been done a million times wish you would have not jumped on the band wagon an went with something more original but its a very good code an it works so its good.Good work."Rate it or Hate it?"...7/10.`-.-�

napa182

Comments: 735

mIRC Snippet: Another 8 ball
Posted on Feb 23, 2008 8:30 pm

or set this part like this then you can get rid of all the if ($1 ==??)

Code:

on *:text:^8ball*:*: {
if ($right($1-,1) == ?) {
var %i As I see it, yes.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.It is certain.It is decidedly so.Most likely.My sources say no.Outlook good.Outlook not so good.Reply hazy, try again.Signs point to yes.Very doubtful.Without a doubt.Yes.Yes - definitely.You may rely on it
msg # $gfx says : $gettok(%i,$r(1,20),46)
}
}

Comments: 801

mIRC Snippet: Another 8 ball
Posted on Feb 23, 2008 8:37 pm

LOl Good idea Napa forget about that way i dont use $gettok as much as i should most cause of the amount of data.But yeah it works that way to.

P.S: Napa182,Hope your doin alright i wont get into detail on hawkee but i know your ircD server is down.If you want you can come hang on mine,Nyx is there,She didnt wana ask ya but i figured you d be having CODE withdrawls so i figured i d ask lol its chatspace but im sure that wont hurt much as far as codes are involved.IRC is /SERVER 75.125.228.235 7032 -j #Chascape

napa182

Comments: 735

mIRC Snippet: Another 8 ball
Posted on Feb 23, 2008 9:03 pm

lol thanks EL sounds good.. im on my way....

Another 8 ball

Introduction

Grab the Code

Comments

Redrocco

My Snippet Tags

Contact

Sponsors


Last seen: May 20, 2008 Profile Snippets (3) Images (1) Comments Received (11) Comments Submitted (6) Forum Posts (4)