here is the fix
Sync on : sync rate 0
hide mouse
Load Image "steel.bmp",1
make object sphere 1,7
color object 1, RGB(247,252,44)
set object collision to boxes 1
make object box 2,8,8, 165
color object 2,rgb(255,0,0)
set object collision to polygons 2
make object box 3,8,8, 165
color object 3,rgb(255,0,0)
set object collision to polygons 3
make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90
set object collision to polygons 4
make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90
set object collision to polygons 5
make object box 6,8,8, 145
color object 6,rgb(255,0,0)
set object collision to polygons 6
make object box 7,8,8, 60
color object 7,rgb(255,0,0)
set object collision to polygons 7
make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90
set object collision to polygons 8
make object box 9,8,8, 60
color object 9,rgb(255,0,0)
set object collision to polygons 9
make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90
set object collision to polygons 10
make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90
set object collision to polygons 11
make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90
set object collision to polygons 12
make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90
set object collision to polygons 13
make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90
set object collision to polygons 14
make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90
set object collision to polygons 15
make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90
set object collision to polygons 16
make object box 17,8,8, 60
color object 17,rgb(255,0,0)
set object collision to polygons 17
make object box 18,8,8, 60
color object 18,rgb(255,0,0)
set object collision to polygons 18
make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90
set object collision to polygons 19
make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90
set object collision to polygons 20
make object box 21,8,8, 40
color object 21,rgb(255,0,0)
set object collision to polygons 21
make object box 22,8,8, 40
color object 22,rgb(255,0,0)
set object collision to polygons 22
make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1
position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45
X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87
position object 1,X#,get ground height(1, 87, 87),87
position camera 87, 150, 87
point camera 87,0,87
do
If escapekey()=1 then end
REM Check to see if we're pressing up, and nothing else.
if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
REM Set variables to show we're going up and nowhere else.
GoingUp = 1
GoingDown = 0
GoingLeft = 0
GoingRight = 0
endif
REM Check to see if we're pressing down, and nothing else.
if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
REM Set variables to show we're going down.
GoingDown = 1
GoingUp = 0
GoingLeft = 0
GoingRight = 0
endif
REM Check to see if we're pressing left, and nothing else.
if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
REM Set variables to show we're going left, and nothing else.
GoingLeft = 1
GoingRight = 0
GoingUp = 0
GoingDown = 0
endif
REM Check to see if we're pressing right and nothing else.
if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
REM Set variables to show that we're going right and nothing else.
GoingRight = 1
GoingLeft = 0
GoingDown = 0
GoingUp = 0
endif
if GoingRight = 1 and X# < 167 and Colliding !2 then PrevX# = X# : X# = X# + 0.7
if GoingLeft = 1 and X# > 6 and Colliding !3 then PrevX# = X# : X# = X# - 0.7
if GoingUp = 1 and Z# < 167 and Colliding !1 then PrevZ# = Z# : Z# = Z# + 0.7
if GoingDown = 1 and Z# > 7 and Colliding !4 then PrevZ# = Z# : Z# = Z# - 0.7
if object collision(1, 0)
if GoingDown = 1
Z# = PrevZ# + 1.0
GoingDown = 0
Colliding = 4
endif
if GoingLeft = 1
X# = PrevX# + 1.0
GoingLeft = 0
Colliding = 3
endif
if GoingRight = 1
X# = PrevX# - 1.0
GoingRight = 0
Colliding = 2
endif
if GoingUp = 1
Z# = PrevZ# - 1.0
GoingUp = 0
Colliding = 1
endif
else
colliding=0
endif
Position object 1,X#, get ground height(1, X#, Z#), Z#
Sync
loop
i know its not totally perfect but this was very hard to figure out
please dont make fun of my spelling,or sentence structure.Id rather study math or programming
