Been changing random things with it for the past few hours, code now looks like this:
REM POKEMON ALPHA VERSION
REM ALPHA V 1.0
REM DATE STARTED 10/14/09
REM LAST MODIFIED 10/20/09
sync on : sync rate 60
Backdrop Off
Set Display mode 1024,768,32
rem set display mode 1024,768,32
Gosub StartMenuObjects
GoSub StartMenu
ExitMenu = 0
Test:
GoSub DefaultCamera
MAKE OBJECT CUBE 20,100
DO
YROTATE OBJECT 20,OBJECT ANGLE Y(20)+0.1
LOOP
End
REM SubRoutines ========================================================/
REM START MENU OBJECTS=========================================================/
StartMenuObjects:
REM STARTIMAGE==============/
Load Image "Images/forest.bmp",1
REM STARTOBJECTS============/
REM POKEBALL----------**
Load Object "Objects/Pokeball.x",1
Position Object 1,2,2,-4.5
Rotate Object 1,90,0,0
Scale Object 1, 400,400,400
` set object ambient 1,off
Rem Options panels----**
Load Object "Objects/Skybox.x",6
position object 6, 0,0,0
scale object 6, 4000,4000,4000
texture object 6,1
Load Object "Objects/NewGameText.x",2
Scale Object 2, 300, 200, 50
Position Object 2, -5,5,-8
Rotate Object 2, 30,0,0
Load Object "Objects/LoadText.x",3
Scale Object 3, 300, 200, 50
Position Object 3, -5,4,-8
Rotate Object 3, 30,0,0
Load Object "Objects/OptionsText.x",4
Scale Object 4, 300, 200, 50
Position Object 4, -5,3,-8
Rotate Object 4, 0,0,0
Load Object "Objects/MenuCursor.x", 7
Scale Object 7, 30, 20,5
Position Object 7, 2.6,5.2,-8
Load Object "Objects/PokemonText.x", 5
Scale Object 5, 300,200,50
Rotate Object 5, 15,0,0
position object 5, -2,6,-8
REM LIGHTS------------**
Make Light 1
Set directional Light 1, 1,1,1
position light 1, -2,-2,-6
Point Light 1, 2,2,-4.5
Make Light 2
Set directional light 2, -2,-2,-10
position light 2, -5,4,-20
point light 2,-5,9,-8
Return
REM START MENU =========================================================/
StartMenu:
SelectedObject = 2
REM CAMERA=================/
Position Camera 0,7,-15
Point Camera 0,0,0
Roll Camera right 0
hide light 0
Repeat
REM VARIABLES==============/
I$=Inkey$()
ScaleX = 300
ScaleY = 200
ScaleZ = 50
Xrotate Object 7, Object Angle X(7) +2 ` Cursor Spin--------
Yrotate Object 1, Object Angle Y(1) +.3 ` Pokeball Spin------
If Downkey()= 1
inc SelectedObject
wait 100 `otherwise selector far too fast
If SelectedObject = 5 then SelectedObject = 2
Else
If UpKey()=1
dec SelectedObject
wait 100`otherwise selector far too fast
If SelectedObject = 1 then SelectedObject = 4
Endif
Endif
` selected menu object
If SelectedObject = 2 and object exist(2) = 1
loop object 2, 1, 40
set object speed 2, 20
Scale Object 2, ScaleX*1.25, ScaleY*1.25, ScaleZ
Position object 7,2.6,5.2,-8
Else
Stop Object 2
Set Object Frame 2, 1
Scale Object 2, ScaleX, ScaleY, ScaleZ
Endif
If SelectedObject = 3 and object exist(3) = 1
Scale Object 3, ScaleX*1.25, ScaleY*1.25, ScaleZ
position object 7, -1.75,4.3,-8
Loop Object 3, 1, 40
set object speed 3, 20
Else
Stop Object 3
Set Object Frame 3,1
Scale Object 3, ScaleX, ScaleY, ScaleZ
Endif
If SelectedObject = 4 and object exist(4) = 1
Scale Object 4, ScaleX*1.25, ScaleY*1.25, ScaleZ
position object 7, 0.74,3.15,-8
Else
Scale Object 4, ScaleX, ScaleY, ScaleZ
Endif
`enter key recognition
If returnkey()=1
If SelectedObject=2
ExitMenu = 1
Else
If SelectedObject=3
ExitMenu = 1
Else
If SelectedObject=4
ExitMenu = 1
Endif
Endif
Endif
Endif
Sync
Until ExitMenu = 1
DeleteALL()
Return
DefaultCamera:
position camera 0,0,0
point camera 0,0,0
Return
REM LoadGame ===========================================================/
LoadGame:
DeleteALL()
Exit
REM CREDITS ============================================================/
Credits:
DeleteALL()
Exit
REM FUNCTIONS ==========================================================/
Function DeleteALL()
For n = 1 to 100
If Object Exist(n) = 1
Delete Object n
endif
next n
EndFunction
Still the same problem. It has to be something I've done wrong, but continuous searching has yielded no results.
