Sorry your browser is not supported!

Private Sub Command1_Click()
Dim wrd As String
Dim wrdlngth As Integer
Dim wrdcntr As Integer
Dim strpiece As String
Dim filter As String
wrd = Text1.Text
wrdlngth = Len(wrd)
wrd = LCase$(wrd)
For wrdcntr = 1 To wrdlngth
strpiece = Mid(wrd, wrdcntr, 1)
Next wrdcntr
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
Input #1, filter
If filter = "Base Word" Then
Input #1, filter
If filter = wrd Then
Input #1, filter
Text2.Text = Text2.Text & " " & filter
End If
End If
Loop
Close #1
End Sub

'form1 *main
Public Wrd As String
Public Wrdlngth As Integer
Public Wrdcntr As Integer
Public Strpiece As String
Public Comppiece As String
Public Filter As String
Public Specwrd As String
Public Prtofwrd As Integer
Public Whlwrd As String
Public Cont As Integer
Public Opnfl As Integer

Private Sub Command1_Click()
Wrd = Text1.Text
Wrdlngth = Len(Wrd)
Wrd = LCase$(Wrd)
Call FindWord
For Wrdcntr = 1 To Wrdlngth
    Strpiece = Mid(Wrd, Wrdcntr, 1)
    If Strpiece = "?" Then GoTo obel
Next Wrdcntr
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
    Input #1, Filter
    If Filter = "Base Word" Then
        Input #1, Filter
        If Filter = Wrd Then
            Input #1, Filter
            Text2.Text = Text2.Text & " " & Filter
        End If
    End If
Loop
GoTo BB
obel:
Cont = 0
'prtofwrd/whlwrd/strpiece
Wrdlngth = Len(Wrd)
Wrd = LCase$(Wrd)
Comppiece = ""
Prtofwrd = 1
Nxt:
If Opnfl = 1 Then
    Close #1
    Opnfl = 0
End If
Open "c:\dict.dict" For Input As #1
Opnfl = 1
Do Until Filter = "[questions]"
    Input #1, Filter
Loop
Whlwrd = ""
Comppiece = ""
Do Until Comppiece = " "
        Whlwrd = Whlwrd & Comppiece
        Comppiece = Mid(Wrd, Prtofwrd, 1)
        Prtofwrd = Prtofwrd + 1
        If Comppiece = "?" Then
            Cont = 1
            GoTo EXT
            End If
Loop
Do While Not EOF(1)
EXT:
    Input #1, Filter
    If Filter = "Base Q" Then
        Input #1, Filter
        If Filter = Whlwrd Then
            Prtofwrd = 1
NdLp:
            Input #1, Filter
            Do Until Filter = ","
                Whlwrd = ""
                Comppiece = ""
                Do Until Comppiece = " "
                    Whlwrd = Whlwrd & Comppiece
                    Comppiece = Mid(Wrd, Prtofwrd, 1)
                    Prtofwrd = Prtofwrd + 1
                    If Comppiece = "?" Then
                        Cont = 1
                        GoTo NdLp
                    End If
                Loop
                If Whlwrd = Filter Then
                    Input #1, Filter
                    If Filter = "," Then
                        Input #1, Filter
                        Text2.Text = Text2.Text & " " & Filter
                    End If
                    GoTo BB
                End If
            Loop
        End If
    End If
Loop
If Cont = 0 Then GoTo Nxt
If Cont = 1 Then GoTo BB
BB:
Close #1
End Sub

Public Sub FindWord()
'Hunt Special Words
Specwrd = "time"
Wrdlngth = Len(Wrd)
Wrdcntr = 1
Prtofwrd = 1
Comppiece = Mid(Specwrd, 1, 1)
For Wrdcntr = 1 To Wrdlngth
    Strpiece = Mid(Wrd, Wrdcntr, 1)
    If Strpiece = Comppiece Then
        Prtofwrd = Prtofwrd + 1
        Comppiece = Mid(Specwrd, Prtofwrd, 1)
        If Comppiece = "e" Then
            Filter = Time
            Text2.Text = Text2.Text & " The current time is " & Filter
        End If
    End If
Next Wrdcntr
Specwrd = "how are you"
Wrdlngth = Len(Wrd)
Wrdcntr = 1
Prtofwrd = 1
Comppiece = Mid(Specwrd, 1, 1)
For Wrdcntr = 1 To Wrdlngth
    Strpiece = Mid(Wrd, Wrdcntr, 1)
    If Strpiece = Comppiece Then
        Prtofwrd = Prtofwrd + 1
        Comppiece = Mid(Specwrd, Prtofwrd, 1)
        If Comppiece = "u" Then
        Filter = Time
        Text2.Text = Text2.Text & "Right now I'm not programmed to impersonate emotion but i seem to be operating fine."
        End If
    End If
Next Wrdcntr
Specwrd = "!edit"
Wrdlngth = Len(Wrd)
Wrdcntr = 1
Prtofwrd = 1
Comppiece = Mid(Specwrd, 1, 1)
For Wrdcntr = 1 To Wrdlngth
    Strpiece = Mid(Wrd, Wrdcntr, 1)
    If Strpiece = Comppiece Then
        Prtofwrd = Prtofwrd + 1
        Comppiece = Mid(Specwrd, Prtofwrd, 1)
        If Comppiece = "t" Then
            Form2.Show
        End If
    End If
Next Wrdcntr
End Sub

Private Sub Form_Load()
Form2.Hide
End Sub

Public Ad As String
Public AddWhat As Integer

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

Command2.Visible = False
If Combo1.Text = "Word" Then
Combo1.Visible = False
AddWhat = 1
Text2.Visible = True
Label1.Visible = True
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
Input #1, Ad
Text1.Text = Text1.Text & ":" & Ad
Loop
Close #1
End Sub

Private Sub Timer1_Timer()
Text1.Text = ""
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
Input #1, Ad
Text1.Text = Text1.Text & ":" & Ad
Loop
Close #1
End Sub

Public Ad As String
Public AddWhat As Integer
Public FrmT As String

Private Sub Command1_Click()
Open "c:\dict.dict" For Input As #1
Open "c:\dict.replace" For Output As #2
Do While Not EOF(1)
Input #1, FrmT
If FrmT = "[questions]" Then Call addwrd
Write #2, FrmT
Loop
Close #1
Close #2
Kill "C:\dict.dict"
Name "C:\dict.replace" As "dict.dict"
Dim retval As String
retval = Dir$("c:\dict.dict")
If retval = "dict.dict" Then
MsgBox "Update complete"
Else
MsgBox "Update Failed"
End If
End Sub

Private Sub Command2_Click()
Command2.Visible = False
If Combo1.Text = "Word" Then
Combo1.Visible = False
AddWhat = 1
Text2.Visible = True
Label1.Visible = True
Text3.Visible = True
Label2.Visible = True
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
Input #1, Ad
Text1.Text = Text1.Text & ":" & Ad
Loop
Close #1
End Sub

Private Sub Timer1_Timer()
Text1.Text = ""
Open "c:\dict.dict" For Input As #1
Do While Not EOF(1)
Input #1, Ad
Text1.Text = Text1.Text & ":" & Ad
Loop
Close #1
End Sub

Public Sub addwrd()
Write #2, "Base Word"
Dim SearchWord As String
Dim Responce As String
SearchWord = Text2.Text
Responce = Text3.Text
SearchWord = LCase$(SearchWord)
Write #2, SearchWord
Write #2, Responce
End Sub

"Base Word"
"hello"
"Hi"
"Base Word"
"hi"
"Hello"
"Base Word"
"lol"
"I do not understand what you find comical"
"Base Word"
"moose"
"Where?"
"Base Word"
"test"
"what are you testing? If it is me then i beg you to stop."

"[questions]"
"Base Q"
"color"
"favorite"
","
"I really don't have a favorite color."
"Base Q"
"number"
"favorite"
","
"I really don't have a favorite number."
"Base Q"
"food"
"favorite"
","
"I do not eat."
"Base Q"
"Base Q"
"math"
"can"
","
"Math is so simple it annoys me."

sync on

do
   set text opaque
   print "Enter a verb. ";
   input word$
   word$=lower$(word$)

   wordLength=len(word$)
   for wrdCenter=1 to wordLength
      strPiece$=strPiece$ + mid$(word$,wrdCenter)
   next wrdCenter
   gosub readFile
   sync
loop

readFile:
   open to read 1,"dictionary.dct"
      while file end(1)=0
         read string 1,dict$
         if dict$=word$
            print "Hey, I can " + word$
            exit
         endif

      endwhile
      if dict$<>word$
         print "I haven't been programmed to "+word$
      endif

   close file 1

return

eat
sleep
walk
talk
say
run
jump
think
grunt
kill
punch
hit
shoot

sync on

do
   set text opaque
   print "Enter a verb. ";
   input word$
	cls 
   word$=lower$(word$)
   wordLength=len(word$)
   for wrdCenter=1 to wordLength
      strPiece$=strPiece$ + mid$(word$,wrdCenter)
   next wrdCenter
   gosub readFile
   sync
loop

readFile:
	if word$ = "exit" then end
   open to read 1,"dictionary.dct"
      while file end(1)=0
         read string 1,dict$
			if dict$=word$
            read string 1,word$
				print word$
         	goto bb: 
			endif
      endwhile
      if dict$<>word$
         print "I haven't been programmed to "+word$
      endif
	bb:
   close file 1

return

eat
I'm hungry
sleep
I'm Tired
walk
What if there is a fire?
talk
I am
say
Say what?
run
What if I trip
jump
Why?
think
Don't I?
grunt
What a queer word
kill
Why? It's not nice
punch
Why? It's not nice
hit
Why? It's not nice
shoot
Why? It's not nice

sync on

do
   set text opaque
   print "Enter a verb. ";
   input word$
	cls 
   word$=lower$(word$)
   wordLength=len(word$)
   for wrdCenter=1 to wordLength
      strPiece$=strPiece$ + mid$(word$,wrdCenter)
   next wrdCenter
   gosub readFile
   sync
loop

readFile:
	if word$ = "exit" then end
   open to read 1,"dictionary.dct"
      while file end(1)=0
         read string 1,dict$
			if dict$="BaseW"
				if dict$=word$
            	read string 1,word$
					print word$
			endif
         	goto bb: 
			endif
      endwhile
      if dict$<>word$
         print "I haven't been programmed to "+word$
      endif
	bb:
   close file 1

return

sync on

do
   set text opaque
   print "Enter a verb. ";
   input word$
	cls 
   word$=lower$(word$)
   wordLength=len(word$)
   for wrdCenter=1 to wordLength
      strPiece$=strPiece$ + mid$(word$,wrdCenter)
   next wrdCenter
   gosub readFile
   sync
loop

readFile:
	if word$ = "exit" then end
   open to read 1,"dictionary.dct"
      while file end(1)=0
         read string 1,dict$
			if dict$="BaseW"
				read string 1,dict$
				if dict$=word$
            	read string 1,dict$
					print dict$
				endif
         	goto bb: 
			endif
      endwhile
      if dict$<>word$
         print "I haven't been programmed to "+word$
      endif
	bb:
   close file 1

return