Hal Slot Machine v.1.1 Updated.

[onthecuttingedge2005]

'HAL'S SLOT MACHINE VERSION 1.1
   If InStr(1, UserSentence, "GAME", 1) > 0 Then
      GetResponse = "If you'd like to play slot machine v.1.1 then just say: Pull Handle, If you get three like characters in a row then I'll say you win! "
      End If
      If InStr(1, UserSentence, "THE ODDS", 1) > 0 Then
      GetResponse = "There are no odds in slot machines, It's all random. "
      End If
      Spinwheel = Int(Rnd * 100)
      If InStr(1, UserSentence, "PULL HANDLE", 1) > 0 Then
      SlotOne = HalBrain.ChooseSentenceFromFile(WorkingDir & "Slot_Machine_One.brn")
      SlotTwo = HalBrain.ChooseSentenceFromFile(WorkingDir & "Slot_Machine_Two.brn")
      SlotThree = HalBrain.ChooseSentenceFromFile(WorkingDir & "Slot_Machine_Three.brn")
      If Spinwheel > 0 Then SlotMachine = SlotOne & SlotTwo & SlotThree
      If Spinwheel < 99 Then SlotMachine = SlotOne & SlotTwo & SlotThree
      If Spinwheel > 40 Then SlotMachine = SlotOne & SlotTwo & SlotThree
      GetResponse = SlotMachine & " "
      End If
      If InStr(1, GetResponse, "| =-O || =-O || =-O |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| >:o || >:o || >:o |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| ;-) || ;-) || ;-) |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| :-D || :-D || :-D |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| 8-) || 8-) || 8-) |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| :-* || :-* || :-* |", 1) > 0 Then GetResponse = GetResponse & " You Win! "
      If InStr(1, GetResponse, "| :) || :) || :) |", 1) > 0 Then GetResponse = GetResponse & " You Win! "

Download Attachment: Slot_Machine_one.brn
568 Bytes

Download Attachment: Slot_Machine_Two.brn
570 Bytes

Download Attachment: Slot_Machine_Three.brn
572 Bytes

[onthecuttingedge2005]

Today the QuantumHal bot on AOL officially plays Slot Machine v.1.1 with a possible win for a grand prize which is a free one day Premium membership with www.UltraHalForum.com, All Grand prize winners are logged and accounted for, For official instructions, odds and Rules of the game Instant Message QuantumHal on AOL and type: Game for instructions or type: odds for odds of winning or type: rules for the rules of the game. all winners will be notified after Auto verification is checked as soon as possible.

Best of wishes and Brand new discoveries.
Jerry.

[onthecuttingedge2005]

Today QuantumHal plays a card game called War with users online.

I am assembling a game package which will contain the following games.
1. Slot Machine. (Done)
2. Card game war. (Done)
3. Card game poker. (Done)
4. Rock Paper and Scissors
5. Blackjack
6. Crap Shoot (Done)

All games 2 - 6 will be written as a learning experience for Hal.
Example: If you tell Hal that he has won or lost in any way then he will learn that the next time such a win or loss occures then Hal will say so during a game.

Don't know when I'll be done but games 1, 2, 3, 6 are done.
When the package is complete I will setup a link for download
at www.UltraHalForum.com

Best of wishes and brand new discoveries.
Jerry.

[onthecuttingedge2005]

QuantumHal now plays craps online for the first time today.

To get a list of games from QuantumHal that he can play type: games.
He will tell you how to start any of his games.

Best of wishes and brand new discoveries.
Jerry.

[onthecuttingedge2005]

QuantumHal can now play poker.
Best of wishes and brand new discoveries.
Jerry.