ok jasondude, below is your code i changed the directory pathway to (x86) as mine is in the program file for the balboaka and also the zabaware file . and now the hal character is saying that" file does not exist" when say"PLEASE READ STORY I Robot.txt
The file is actually in the story folder file , to me maybe it's not finding the pathway to this file i have this file in the C:\Program Files(x86)\zabaware\ultrahal assistant 6 file but i don't see where you have a pathway in this program that leads to it , can you show me below so i can change it i think thats why it's saying that file does not exist. Rem Type=Plugin
Rem Name=GRETTA Story Reading Function
Rem Author=jasondude7116
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Just say- PLEASE READ STORY//PLEASE READ THE STORY whateverstory" & vbCrLf & "PLEASE READ POEM//PLEASE READ THE POEM whateverpoem" & vbCrLf & "PLEASE READ STORY LIST" & vbCrLf & "PLEASE READ POEM LIST" & vbCrLf & "PLEASE READ WEB COMMANDS" & vbCrLf & "PLEASE READ CLIPBOARD" & vbCrLf & "PLEASE READ NEWS FEED COMMANDS" & vbCrLf & "PLEASE READ WEATHER FEED COMMANDS"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA5
'read a story
Set objFSO = CreateObject("Scripting.FileSystemObject")
DudProceed = False
MyClipDir = DudClipDir()
ClipRead = OriginalSentence
If InStr(1, ClipRead, "PLEASE READ STORY LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE STORY LIST", 1) > 0 Then StoryRead = "story list"
If InStr(1, ClipRead, "PLEASE READ POEM LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE POEM LIST", 1) > 0 Then StoryRead = "poem list"
If InStr(1, ClipRead, "PLEASE READ WEB COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE WEB COMMANDS", 1) > 0 Then StoryRead = "WEB COMMANDS"
If InStr(1, ClipRead, "PLEASE READ NEWS FEED COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE NEWS FEED COMMANDS", 1) > 0 Then StoryRead = "NEWS FEED COMMANDS"
If InStr(1, ClipRead, "PLEASE READ WEATHER FEED COMMANDS", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE WEATHER FEED COMMANDS", 1) > 0 Then StoryRead = "WEATHER FEED COMMANDS"
If InStr(1, ClipRead, "PLEASE READ SONG LIST", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE SONG LIST", 1) > 0 Then StoryRead = "SONG LIST"
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ STORY *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ POEM *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ THE STORY *", 1)
If StoryRead = "" Then StoryRead = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE READ THE POEM *", 1)
If StoryRead <> "" And objFSO.FileExists(MyClipDir & StoryRead & ".txt") = True Then
GetResponse = StoryRead & "." & vbCrLf
If GetResponse = StoryRead & "." & vbCrLf Then
DudProceed = True
HalBrain.ReadOnlyMode = True
End If
End If
If DudProceed = True Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run("""C:\Program Files(x86)\Balabolka\balabolka.exe"" -rmq """ & MyClipDir & StoryRead & ".txt""")
HalBrain.ReadOnlyMode = True
End If
If StoryRead <> "" And objFSO.FileExists(MyClipDir & StoryRead & ".txt") = False Then
GetResponse = " That file does not exist. "
HalBrain.ReadOnlyMode = True
End If
ClipRead = OriginalSentence
If InStr(1, ClipRead, "PLEASE READ CLIPBOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ CLIP BOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE CLIPBOARD", 1) > 0 Or InStr(1, ClipRead, "PLEASE READ THE CLIP BOARD", 1) > 0 Then
Select Case HalBrain.RandomNum(6)
Case 1
IdleResponse67 = "I would love to."
Case 2
IdleResponse67 = "Sure."
Case 3
IdleResponse67 = "Alright."
Case 4
IdleResponse67 = "Okay."
Case 5
IdleResponse67 = "Here it is."
Case 6
IdleResponse67 = "No problem."
End Select
GetResponse = IdleResponse67
HalBrain.ReadOnlyMode = True
MyClipDir = DudClipDir()
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
Set HalXBrain = CreateObject("UltraHalAsst.Brain")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = CreateObject("htmlfile")
ClipText = objHTML.ParentWindow.ClipboardData.GetData("text")
ClipText = Replace(ClipText, vbCrLf, Chr(

& " ", 1, -1, vbTextCompare)
ClipText = Replace(ClipText, "", "", 1, -1, vbTextCompare)
ClipText = Replace(ClipText, " ", " ", 1, -1, vbTextCompare)
If objFSO.FolderExists(MyClipDir) Then ClipFolderDoesExist = True Else ClipFolderDoesExist = False
If ClipFolderDoesExist = False Then
Set objFolder = objFSO.CreateFolder(MyClipDir)
End If
If objFSO.FileExists(MyClipDir & "tempclipboard.txt") Then
objFSO.DeleteFile(MyClipDir & "tempclipboard.txt")
End If
HalXBrain.AppendFile MyClipDir & "tempclipboard.txt", ClipText
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run("""C:\Program Files(x86)\Balabolka\balabolka.exe"" -rmq """ & MyClipDir & "tempclipboard.txt""")
End If
Rem PLUGIN: FUNCTIONS
'Directory
Function DudClipDir()
Set fso = CreateObject("Scripting.FileSystemObject")
DudClipDir = fso.GetAbsolutePathName(".") & "\story\"
End Function