The Great Brutus2D Oracle
' The Great Brutus2D Oracle is a quick example of an oracle game.
' It randomly picks from 10 answers.
randomize
dim question
dim answers(10)
dim randex
answers(1) = "It is possible."
answers(2) = "I think it certain."
answers(3) = "Yes."
answers(4) = "Maybe."
answers(5) = "The future is too cloudy to be sure."
answers(6) = "Ask me later. Much later."
answers(7) = "No."
answers(8) = "Only llamas know."
answers(9) = "Definitely not."
answers(10) = "There is no chance."
console.Initialize
console.WriteLine "I am The Great Brutus2D Oracle."
console.WriteLine "I can answer any question that has a yes or no answer."
system.Pause 2000
console.WriteLine "Please, ask your question now."
console.WriteLine
question = console.ReadLine
system.Pause 2000
console.WriteLine
console.WriteLine "Hmmm..."
system.Pause 2000
randex = int(rnd(1)*10)+1
console.WriteLine answers(randex)
console.WriteLine
console.WriteLine "The Great Brutus2D Oracle has Spoken!" & randex
console.Wait
console.Terminate
