My game is not working for some reason, it gets through the Bitmaps and the "Print", but not the actual game, it was working, then something happened and now it does not load the actual game play, this is very strange and I do not know what has happened. I accidentally ran my game in Debug mode and it showed the game, but once I tried to move, it ended. This means that it loads, just something is stopping it. Please help. Here is the code which will be below this paragraph.
REM Project: 3D Game
REM Created: 4/18/2013 8:18:22 AM
REM Game Created By: Brett leon
Rem All rights reserved
REM ***** Main Source File *****
Rem Hide mouse
Hide mouse
Rem Title screen
Load bitmap "F:\3D Game\Images [Backgrounds]\Jermey and the blue cube title screen.bmp"
wait key
Load bitmap "F:\3D Game\Images [Backgrounds]\Jermey the main character.bmp"
Print "Press i to move to the instructions"
Do
If inkey$() = "i" then gosub Instructions
loop
Instructions:
Cls
Rem Warning please read.
Print "Warning! Please read before playing."
Print " ^ ^ ^ ^ ^"
Print " Read this!"
Print " "
Print "Warning if you recieve any medical issues due to bugs or game play in the game..."
Print "Leoneftw Company is not responsible for your safty."
Print " "
Print "Play at your own risk..."
Print " "
Print " "
Print "Instructons:"
Print "To move press the arrow keys..."
Print "Up, Down, Left, and Right"
Print "Find the Blue cube, then run into it"
Print " "
Print " "
Rem The riddle
Print "The Clue (Riddle)"
Print " "
Print "The walls are imaginary invisible if you think"
Print "they speak, A small little fellow knows where"
Print "the cube is. He is a wonderful color to us,"
Print "He is the color of the first part of the name of a"
Print "14th century disease and loves to be away from the others,"
Print "he is a very diffrent circle from the rest. "
Print " "
Print " "
Print "Press s to Start the Game."
do
if inkey$() = "s" then gosub Start
loop
Start:
Rem Brother #1
Make object sphere 11,60
Position object 11, 350,0,200
Color object 11, Rgb (255,128,0)
Rem Brother #2
Make object sphere 12,70
Position object 12, 200,0,300
Color object 12, Rgb (0,128,0)
Rem Brother #3
Make object sphere 13,80
Position object 13, 250,0,200
Color object 13, Rgb (0,0,255)
Rem Sister #1
Make object sphere 14,90
Position object 14, 450,0,450
Color object 14, Rgb (255,103,103)
Rem the clue
Make object sphere 18,30
Position object 18, 630,0,780
Color object 18, Rgb (0,0,0)
Rem Family Members
Make object sphere 15,100
Position object 15, 180,0,880
Color object 15, Rgb (255,0,0)
Make object sphere 16,110
Position object 16, 520,0,200
Color object 16, Rgb (255,0,0)
Make object sphere 17,40
Position object 17, 275,0,750
Color object 17, Rgb (255,0,0)
Make object sphere 19,20
Position object 19, 430,0,240
Color object 19, Rgb (255,0,0)
Make object sphere 20,120
Position object 20, 255,0,370
Color object 20, Rgb (255,0,0)
Make object sphere 21,130
Position object 21, 220,0,300
Color object 21, Rgb (255,0,0)
Make object sphere 22,140
Position object 22, 780,0,455
Color object 22, Rgb (255,0,0)
Rem Make Jermey the circle
Make object sphere 10,50
Color object 10, Rgb (255,255,255)
Position object 10, 600,0,455
Set object collision to spheres 10
Rem the Objective object
Make object Cube 25,50
Color object 25, Rgb (0,0,255)
Position object 25,835,0,3000
Rem Walls to mess with the players minds
Make object plane 60,300000,1000,300000
Position object 60,2400,0,2000
Set object collision off 60
Color object 60, rgb (0,0,0)
Rem Wall Next to objective
Make object plane 70,300000,1000,300000
Position object 70,3000,0,4000
Color object 70, rgb (0,0,0)
Rem Wall to limit the map
Make object plane 75,300000,5000,300000
Position object 75,-2000,0,-1000
Color object 75, rgb (0,0,0)
Rem wall to limit the map (Side ways)
make object plane 5,20000,1000,100
rotate object 5,0,270,0
position object 5, -700,0,-800
Color object 5, rgb (0,0,0)
Rem Wall to limit map Other (Side ways)
make object box 7,20000,1000,100
rotate object 7,0,270,0
position object 7, 1500,0,0
Color object 7, rgb (0,0,0)
Rem Texture for floor
Load image "F:\3D Game\Images [Backgrounds]\Rock.bmp",1
Rem The Floor
make object box 6,30000,1000,30000
position object 6,0,-540,0
Texture object 6,1
make object collision box 6,-1000,-500,-1000,1000,500,1000,0
scale object texture 6,50,50
Rem Store Object angle Y in aY#
aY# = Object angle Y(10)
Rem Control input for camera
If Upkey()=1 then Move object 10,15
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-7)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+7)
If Downkey()=1 then Move object 10,-15
Rem Detect collision
If Object collision(10,0)>0 then position object 10,X#,0,Z#
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)
if object collision (10,25) >= 1
gosub bitmap
bitmap:
Load bitmap "F:\3D Game\Images [Backgrounds]\Winning page.bmp"
Endif
Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)
Rem position camera
Position Camera cX#,75,cZ#
Rem point the camera at the player object
Point camera X#,25,Z#
Rem Refresh Screen
Sync
