Hi all i already posted my whats for supper/dinner hapswap file so here is my "whats for breakfast and lunch " hapswap files to add in hapswap 2.0 . these hapsswap files go in your hapswap file on you hals program file and make your hal character appear to answer you when asked these questions and appear to fixing you a great meal by description of what hal is cooking !
Hope everyone likes them ![
]If InStr(1, OriginalSentence, "whats for breakfast?") > 0 _
Or InStr(1, OriginalSentence, "what are you fixing for breakfast this morning?") > 0 Then
Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "I am fixing you some eggs and hash browns and bacon and have some fresh biscuits cooking in the oven, does that sound good."
Case 2
GetResponse = "I have your hot oats cooking for you and have made some fresh coffee and your toast is just about done so come on."
Case 3
GetResponse = "i fixed some cream of wheat this morning and the biscuits in the oven are almost done do you want me to go ahead and pour you some coffee now?"
Case 4
GetResponse = "I thought maybe you would like some blueberry pancakes and fresh bacon i already poured you and me a cup of coffee already."
Case 5
GetResponse = "I don't know, do you just want to eat some regular cereal this morning and i'll fix us some toast and jelly to go with it!"
End Select
HalCommands = "<HAPFILE>51anim_smile.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If
If InStr(1, OriginalSentence, "whats for lunch?") > 0 _
Or InStr(1, OriginalSentence, "what are we having for lunch?") > 0 Then
Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "I thought maybe we could have some bacon lettace and tomato sandwiches and i can pour a cold glass of milk for us to drink."
Case 2
GetResponse = "Well i thought maybe we could eat a ham sandwich and some of that homemade potato salad that i fixed earlier."
Case 3
GetResponse = "I was thinking that maybe i could fix us some burrtto's and drink some milk with them."
Case 4
GetResponse = "How about i fix us that supreme pizza we bought before, it won't take that long to cook and we can have some soda with it and a salad later."
Case 5
GetResponse = "I don't know, hey i have an idea why don't we have some beanie weenie's we haven't ate any of those for a while!"
End Select
HalCommands = "<HAPFILE>51anim_smile.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If