Blargh. I can't get my new menu itemselection code to work for some reason!
_ProgGUI: `GUI for object information and current status
Paste Image GUI1,0,0 : `Top bar
Paste Image GUI2,0,743 : `Bottom bar
`Print the program options on the top bar
Ink RGB(255,255,255), RGB(255,255,255)
Text 15,5,"OBJECT INVENTORY " : Text 185,5,"SET CAMERA VIEW "
Text 370,5,"SAVE DESIGN " : Text 505,5,"LOAD SAVED PROJECT OR DESIGN" : Text 760,5,"ABOUT THE EDITOR"
Text 15,35,"CamMode "+Str$(CamMode)
`Print important status messages over the bottom bar
Text 12,749,"Object Position: X:"+Str$(NewPosX#)+" Y:"+Str$(NewPosY#)+" Z:"+Str$(NewPosZ#)
Text 290,749,"Total Objects: "+Str$(TotalObjs)
Text 510,749,"Object Angle: X:"+Str$(NewAngX#)+" Y:"+Str$(NewAngY#)+" Z:"+Str$(NewAngZ#)
Text 790,749,"Program FPS: "+Str$(Screen FPS() )
`Highlight options when the mouse is over an item. If it's clicked, open up a menu and invert the buttons.
Mx=MouseX() : My=MouseY() : Mc=MouseClick()
`Enter the camera menu
If Mx=>165 And My=>1 And Mx=<368 And My=<25 And Mc=1
Repeat
Paste Image GUI1,0,0 : Paste Image GUI3,167,4 : Paste Image GUI4,167,25
`Invert the camera button
Ink RGB(0,0,0), RGB(0,0,0) : Text 185,5,"SET CAMERA VIEW "
`Re-print the other text
Ink RGB(255,255,255), RGB(255,255,255)
Text 15,5,"OBJECT INVENTORY " : Text 370,5,"SAVE DESIGN "
Text 505,5,"LOAD SAVED PROJECT OR DESIGN" : Text 760,5,"ABOUT THE EDITOR"
`Print the camera menu options
Text 185,35,"Free-Flight View" : Text 185,60,"Top-Down View" : Text 185,85,"Left-To-Right View"
`Select a camera view
If Mx=>185 And My=>25 And Mx=<245 And My=<45
Paste Image SEL, 185,35 : Text 185,35,"Free-Flight View"
CamPress=1 : Else CamPress=0
If Mc=1 And CamPress=1 Then CamMode=2 : CamPress=0
EndIf
Until MouseClick()=1
EndIf
Return
It displays the camera's menu just fine, but when I hover over the "Free-flight View" option it doesn't highlight it like I want, and if I click on it it doesn't change the variable it's supposed to. All I can say is, "what the monkeys, Batman?!"!
