'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
