I try to work by your program.
but, There is not the answer with 1.
debug
`FPS GAME
`CREATED BY TIKKI
`STARTED ON 7/31/2007
`BASIC SYSTEM SETUP
SYNC ON:SYNC RATE 60:HIDE MOUSE
`PLAYER
MAKE OBJECT SPHERE 1,10: COLOR OBJECT 1,RGB(000,255,000)
'HIDE OBJECT 1
position object 1,100,100,100`MOVES PLAYER ABOVE GROUND
`ENEMY
MAKE OBJECT SPHERE 2,50:COLOR OBJECT 2,RGB(255,000,000):POSITION OBJECT 2,130,0,0
`AMMO BOX
MAKE OBJECT BOX 4,15,10,50:COLOR OBJECT 4,RGB(000,255,255):POSITION OBJECT 4,-40,0,0
`GROUND
mapsize =500 `TERRAIN SIZE.
segments= 64 `# OF SEGMENTS IN MATRIX
make matrix 1,mapsize,mapsize,segments,segments `MATRIX TO MOLD INTO TERRAIN
load image "heightmap.PNG",1 `HEIGHTMAP
size=128 `HEIGHTMAP DEMENSION
load image "crack1.jpg",2 `TERRAIN TEXTURE
prepare matrix texture 1,2,1,1 `APPLY TEXTURE TO TERRAIN
cls `RESET SCREEN
paste image 1,0,0 `PASTE IMAGE TO SCREEN
modifier=size/segments `Since our image has more pixels than we have segments, we need
`to make sure we can account for that difference, by getting every
`height after 2 pixels(256/128=2) rather than every pixel.
for x=0 to segments
for y=0 to segments
pixelcolor#=rgbr(point(x*modifier,y*modifier)) `This will return the color value.
set matrix height 1,x,y,pixelcolor#/6 `With the color value, we then set the
next x `matrix height according to that color.
next y
update matrix 1 `Finally, we must update our matrix to show the changes that've taken
`place.
`COLLISION DETECTOR FOR GUN
MAKE OBJECT PLAIN 9999,1,1 `MAKES THE DETECTOR
MAKE MESH FROM OBJECT 1,9999 `WE NEED A MESH TO CREATE A LIMB
DELETE OBJECT 9999 `DELETES THE UNNECESSARY OBJECT. ITS NOT NECESSARY BECAUSE WE RECREATED IT IN MESH FORM
ADD LIMB 1,1,1 `ADDS A LIMB (LIKE AN ARM, LEG, HEAD, ETC.
OFFSET LIMB 1,1,0,0,500 `THE DISTANCE TO CHECK BETWEEN
DELETE MESH 1 `DELETES THE NOT NEEDED MESH, SINCE WE CONVERTED IT INTO A LIMB
HIDE LIMB 1,1 `HIDES LIMB 1 ON OBJECT 1
`COLLISION DETECTOR FOR GROUND
MAKE OBJECT PLAIN 9998,1,1 `MAKES THE DETECTOR
POSITION OBJECT 9998, OBJECT POSITION X(1),OBJECT POSITION Y(1)-500,OBJECT POSITION Z(1)
`SOME VARIABLES
ENEMYHP#=100
AMMO#=100
MAXAMMO#=110
CLIPS#=3
MAXCLIPS#=3
RELOAD#=0
gravity#=0
gravrate#=0.5
jumping=0
jumpspeed#=-5
groundDistance#=0
onGround=1
x#=0
y#=0
z#=0
`MOVEMENT
DO
remstart
`ARROWS
IF UPKEY()=1 THEN MOVE OBJECT 1,2
IF DOWNKEY()=1 THEN MOVE OBJECT 1,-2
IF RIGHTKEY()=1 THEN MOVE OBJECT RIGHT 1,2
IF LEFTKEY()=1 THEN MOVE OBJECT LEFT 1,2
remend
`WASD MOVEMENT
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,2
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-2
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2
`CAMERA
' POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)`sets the camera at the player
POSITION CAMERA 0,100,0
`JUMP/GRAVITY
`Store player positions
x#=OBJECT POSITION X(1)
y#=OBJECT POSITION Y(1)
z#=OBJECT POSITION Z(1)
gy#=GET GROUND HEIGHT(1,x#,z#)
POSITION OBJECT 1,x#,gy#,z#
remstart
`Get distance to ground
groundDistance#=GET GROUND HEIGHT(1,x#,z#)
IF groundDistance#<=OBJECT SIZE Y(1)/2
`If theyre on or below the ground, reset their data, and reposition them on the surface.
onGround=1
gravity#=0
jumping=0
MOVE OBJECT UP 1,(OBJECT SIZE Y(1)/2)+groundDistance#
ELSE
onGround=0
ENDIF
remend
remstart
`Jump Routine
IF onGround=1 AND jumping=0 AND SPACEKEY()=1
jumping=1
gravity#=jumpspeed#
ENDIF
`Handle Gravity
MOVE OBJECT DOWN 1,gravity#
INC gravity#,gravrate#
remend
remstart
`DETECT IF MOUSE IS CLICKED, AND ANYTHING IS BETWEEN US
IF MOUSECLICK()=1 AND KEYSTATE(19)=0 AND Ammo#>0 AND RELOAD#=0
DEC Ammo#,1`IF LEFT MOUSE IS PRESSED, "R" IS NOT PRESSED, AMMO IS NOT EMPTY, AND YOU ARE NOT RELOADING, SHOOT THE BULLET
IF OBJECT EXIST(2)=1 AND Ammo#>0
IF INTERSECT OBJECT (2, LIMB POSITION X(1,1), LIMB POSITION Y(1,1), LIMB POSITION Z(1,1), OBJECT POSITION X(1),OBJECT POSITION Y(1), OBJECT POSITION Z(1))>0
DEC EnemyHP#,1
ENDIF :
ENDIF :
ENDIF
`ENEMY HP
IF EnemyHP#=0 AND OBJECT EXIST(2)=1
DELETE OBJECT 2
ENDIF
`RELOAD
IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND AMMO#<MAXAMMO# AND CLIPS#>0 THEN RELOAD#=1
IF RELOAD#=1 THEN INC RTIME#,.01
IF RTIME#>=1 THEN AMMO#=MAXAMMO# : DEC CLIPS#,1 : RTIME#=0 : RELOAD#=0
IF CLIPS#>MAXCLIPS# THEN CLIPS#=MAXCLIPS#
remend
`DRAW TEXT
TEXT 10,10, "AMMO: " +Str$(AMMO#)+"/"+Str$(MAXAMMO#)
TEXT 10,24, "AMMO CLIPS: " +Str$(CLIPS#)+"/"+Str$(MAXCLIPS#)
TEXT 10,36, "RELOADING: " +Str$(RELOAD#)
TEXT 10,50, "RELOAD TIME: " +STR$(RTIME#)+"/1"
TEXT 10,64,"ENEMY HP: " +Str$(ENEMYHP#)
TEXT 10,92,"GROUND DISTANCE: " +Str$(GROUNDDISTANCE#)
text 10,78,str$(x#)+" ,"+str$(y#)+" ,"+str$(z#)
CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5 `CROSSHAIR
remstart
`CHECK COLLISION WITH AMMO BOX
IF OBJECT EXIST(4)
IF INTERSECT OBJECT (4, OBJECT POSITION X(1),OBJECT POSITION Y(1)-25,OBJECT POSITION Z(1),OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1))>0
INC CLIPS#,1
INC AMMO#,(MAXAMMO#-AMMO#)
DELETE OBJECT 4
ENDIF :
ENDIF
remend
REMSTART
MOUSE LOOK
Time to explain. Ok, first we are defining two variables, CAMX# and CAMY#.
We are making these variables equal the integers the MOUSEMOVEX() and MOUSEMOVEY() commands return.
These two MOUSEMOVE commands return the difference between the current and last position of the mouse,
allowing us to determine if it痴 moving left, right, up or down.
We then multiply that value by .1 since the speed would be too great if we didn稚.
Next, we check if the CAMX values are greater than 90 or 270 and less than 135 or 225.
These IF statements restrict the player from fully rotating the camera all the way around, to add some realism.
Finally, we rotate the camera and object on the appropriate axis by the variables.
REMEND
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
` YROTATE OBJECT 1,CAMY#
` XROTATE OBJECT 1,CAMX#
SYNC
LOOP
Try debug.
