Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

EightBall ( Question )

Ask the Eightball a Question and Get An Answer

  Average rating: 4.7 (27 votes) Log in to vote

Chris Kubica Application Architects, LLC http://www.applicationarch.com

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Case( 0<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<6;"As I see it, yes"; 6<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<11;"Ask again later"; 11<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<16;"Better not tell you now"; 16<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<21;"Cannot predict now"; 21<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<26;"Concentrate and ask again"; 26<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<31;"Don't count on it"; 31<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<36;"It is certain"; 36<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<41;"It is decidedly so"; 41<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<46;"Most likely"; 46<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<51;"My sources say no"; 51<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<56;"No"; 56<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<61;"Outlook good"; 61<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<66;"Outlook not so good"; 66<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<71;"Reply hazy-- try again"; 71<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<76;"Signs point to yes"; 76<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<81;"Very doubtful"; 81<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<86;"Without a doubt"; 86<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<91;"Yes"; 91<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<96;"Yes definitely"; 96<Right ( Length(Question) * Random;2 ) and Right ( Length(Question) * Random;2 )<101;"You may rely on it" ) Click to copy

This is my not-so-elegant take on the classic Eight Ball. Enter any question at all and get a random answer, just like the actual Eight Ball novelty ofyesteryear. Enjoy. If you have a more elegant way to do this, I'm all ears.

 

Comments

		Khurshid Khan, Ranchi, Jh, India Feb 14, 2011
What does this function actually working? I anybody understand this, please let me know?

		Barry, Hilversum, Netherlands Aug 20, 2014
Magic 8 ball

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: