GAH!! MY BRAIN HURTS!

Blitz3D Forums/Blitz3D Beginners Area/GAH!! MY BRAIN HURTS!

b32
 #1
It's more than that, I think. The strings are missing quotes:
question1\question$ = Hi
should be
question1\question$ = "Hi"

Instead of exporting, say, a$ to the file, export:
Chr$(34) + a$ + Chr$(34)

And you can't use Include with a string-variable.
You should enter a direct value to it.
a$ = "testing!.bb"
Include a$
won't work. It should be
Include "testing!.bb"
instead.
Then, there were a minor issues in this part:
Graphics 800, 600, 0, 2

Include "bram.bb"  ;<--insert generated file here

Conversation("how are you")

Function conversation(questiontoask$)


;reset 'q' to empty before searching
q.TQuestion = Null

;scan all TQuestions
For temp.TQuestion = Each TQuestion

  ;if temp's question is the question to ask, then select temp and leave loop
  If temp\question$ = questiontoask$ Then q = temp: Exit

Next

If q = Null Then Return ;--> the question was not found


Repeat

Cls

;UpdateWorld
;RenderWorld



If (MouseY() < ((displayheight/4)*3)+((displayheight/4)*.3) + 12) And MouseY() > ((displayheight/4)*3)+((displayheight/4)*.3) Then
Color 50, 50, 245
Rect 0, ((displayheight/4)*3)+((displayheight/4)*.3), displaywidth, 12, 1
Color 255, 255, 255
EndIf

Color 0,0,0
Rect 0,0,displaywidth,displayheight/4,1
Color 0,0,0
Rect 0,(displayheight/4)*3,displaywidth,displayheight/4,1
Color 255, 255, 255

;HIGHLIGHTS========================

If (MouseY() < ((displayheight/4)*3)+((displayheight/4)*.3) + 12) And MouseY() > ((displayheight/4)*3)+((displayheight/4)*.3) Then
Color 50, 50, 245
Rect 0, ((displayheight/4)*3)+((displayheight/4)*.3), displaywidth, 12, 1
Color 255, 255, 255
If MouseHit(1) Then followup$ = q\fol1$
EndIf

If (MouseY() < ((displayheight/4)*3)+((displayheight/4)*.3) + 12 +50) And MouseY() > ((displayheight/4)*3)+((displayheight/4)*.3)+50 Then
Color 50, 50, 245
Rect 0, ((displayheight/4)*3)+((displayheight/4)*.3)+50, displaywidth, 12, 1
Color 255, 255, 255
If MouseHit(1) Then followup$ = q\fol2$
EndIf

If (MouseY() < ((displayheight/4)*3)+((displayheight/4)*.3)+12+100) And MouseY() > ((displayheight/4)*3)+((displayheight/4)*.3)+100 Then
Color 50, 50, 245
Rect 0, ((displayheight/4)*3)+((displayheight/4)*.3)+100, displaywidth, 12, 1
Color 255, 255, 255
If MouseHit(1) Then followup$ = q\fol3$
EndIf
;====================================

Text 10,10, "" + followup$
Text 250,((displayheight/4)*3)+((displayheight/4)*.3), "" + q\ans1$ 
Text 250,((displayheight/4)*3)+((displayheight/4)*.3)+50, "" + q\ans2$ 
Text 250,((displayheight/4)*3)+((displayheight/4)*.3)+100, "" + q\ans3$ 

Flip()

Until KeyHit(1)

End Function

The 3d mode wasn't set, so renderworld didn't work.
A few typos, and the fields didn't match the type.