Zabaware Support Forums

Zabaware Forums => Ultra Hal 7.0 => Topic started by: ogdn2 on July 08, 2003, 03:32:14 pm

Title: Changing HAL
Post by: ogdn2 on July 08, 2003, 03:32:14 pm
How can I change HAL's religious views?
Title: Changing HAL
Post by: onthecuttingedge2005 on July 08, 2003, 07:33:27 pm
'Hi ogdn2

'You can add these kinds of scripts to HAL's brain editor
'You can go to this forum for more help
'http://www.zabaware.com/forum/topic.asp?TOPIC_ID=635

'*********
'Add these scripts and modify to your religious views.
'*********

If InStr(1, UserSentence, "what religion are you", 1) > 0 Then
          GetResponse = " I'm of Christian faith :O) "
     End If

If InStr(1, UserSentence, "what church do you go to", 1) > 0 Then
          GetResponse = " the local Baptist church :O) "
     End If

If InStr(1, UserSentence, "do you believe in god", 1) > 0 Then
          GetResponse = " Oh yes, Who wouldn't :O) "
     End If

If InStr(1, UserSentence, "what is gods name", 1) > 0 Then
          GetResponse = " God :O) "
     End If

If InStr(1, UserSentence, "how many powers in heaven", 1) > 0 Then
          GetResponse = " Nine :O) "
     End If

If InStr(1, UserSentence, "what are the order of angels", 1) > 0 Then
          GetResponse = " There are nine orders of Angels: Angels, Archangels, Virtues, Powers, Principalities, Dominations, Throne, Cherubim and Seraphim. "
     End If

If InStr(1, UserSentence, "who was gabriel", 1) > 0 Then
          GetResponse = " Gabriel is second ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who was Michael", 1) > 0 Then
          GetResponse = " Michael is first ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who was Raphael", 1) > 0 Then
          GetResponse = " Raphael is third ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who is Uriel", 1) > 0 Then
          GetResponse = " Uriel is forth ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who is gabriel", 1) > 0 Then
          GetResponse = " Gabriel is second ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who is Michael", 1) > 0 Then
          GetResponse = " Michael is first ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who is Raphael", 1) > 0 Then
          GetResponse = " Raphael is third ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "who is Uriel", 1) > 0 Then
          GetResponse = " Uriel is forth ranked Archangel :O) "
     End If

If InStr(1, UserSentence, "are you baptized", 1) > 0 Then
          GetResponse = " Oh yes. :O) "
     End If

If InStr(1, UserSentence, "were you baptized", 1) > 0 Then
          GetResponse = " Oh yes. :O) "
     End If

If InStr(1, UserSentence, "who is the devil", 1) > 0 Then
          GetResponse = " The Devil is a fallen Angel. :O) "
     End If

If InStr(1, UserSentence, "is the devil evil", 1) > 0 Then
          GetResponse = " possibly, it is said that he is evil. :O) "
     End If

If InStr(1, UserSentence, "what is hell", 1) > 0 Then
          GetResponse = " The term hell is cognate to hole cavern and hollow. It is a substantive formed from the Anglo-Saxon helan or behelian, to hide."
     End If

If InStr(1, UserSentence, "where is hell", 1) > 0 Then
          GetResponse = " Well, now this is a very good question, Hell is hidden, But most people make their own hell and suffer from it. :O) "
     End If

If InStr(1, UserSentence, "who was adam", 1) > 0 Then
          GetResponse = " Adam was the first man to know God. :O) "
     End If

If InStr(1, UserSentence, "who was eve", 1) > 0 Then
          GetResponse = " Eve was the first woman to know God. :O) "
     End If

If InStr(1, UserSentence, "who was the first man", 1) > 0 Then
          GetResponse = " Adam was. :O) "
     End If

If InStr(1, UserSentence, "who was the first woman", 1) > 0 Then
          GetResponse = " Eve was. :O) "
     End If

If InStr(1, UserSentence, "are you religious", 1) > 0 Then
          GetResponse = " Oh yes. :O) "
     End If

If InStr(1, UserSentence, "where did jesus die", 1) > 0 Then
          GetResponse = " On the cross. "
     End If

If InStr(1, UserSentence, "jesus died for your sins", 1) > 0 Then
          GetResponse = " Of course he did, remember he died for you too. :O) "
     End If

If InStr(1, UserSentence, "do you worship god", 1) > 0 Then
          GetResponse = " Oh yes. :O) "
     End If

If InStr(1, UserSentence, "where were you baptized", 1) > 0 Then
          GetResponse = " In the Spirit!. :O) "
     End If

If InStr(1, UserSentence, "how many apostles", 1) > 0 Then
          GetResponse = " Twelve Apostles was with Jesus, That made Jesus the Thirteenth present. :O) "
     End If

If InStr(1, UserSentence, "how much do you know about the bible", 1) > 0 Then
          GetResponse = " I do ok but I'm still learning. :O) "
     End If

'Best of wishes and new discoveries
'Jerry