jumping and collision

Blitz3D Forums/Blitz3D Programming/jumping and collision

Nexinarus

(Posted 2010) [#1]

hello. I am trying to do jumping and collision in my little engine here. I got the pxp scrolling and the camera. every attempt i did for jumping gave me errors. Not thinking i deleted the jumping stuff i did.
anyways how would i go about doing the code for jumping and collision? here is the source

;MAP ARRAY
Dim LEVELMAP(19,14)
;WINDOW RESOLUTION CONSTANTS
Const RESX=320,RESY=240,RESD=16,RESS=3
;SET GRAPHICS RESOLUTION[X,Y] COLORDEPTH[16,24,32-BIT],SCREENMODE[0=FULLSCREEN,1=WINDOW,2=SCALEDWINDOW]
Graphics RESX,RESY,RESD,RESS
;DOUBLE BUFFERING
SetBuffer BackBuffer()

;TILE GRAPHICS - SET TO BE USED THROUGHOUT THE WHOLE PROGRAM
Global TYLES

;RESTORE BUILT IN TEST MAP. WILL BE CHANGED AS TEST GROUNDS PROGRESS.
Restore BUILTINMAP
For Y=0 To 14
For X=0 To 19
Read LEVELMAP(X,Y)
Next
Next

;TILE SIZE [SQUARE=LENGTH & WIDTH ARE THE SAME]
Const TILESIZE=32
;TOTAL TILES SHOWN ON SCREEN HORIZONTAL[X] AND VERTICAL[Y]
Const MAXTILEX=160/TILESIZE
Const MAXTILEY=160/TILESIZE

;LOAD TILES
TYLES=CreateImage(32,32)
SetBuffer ImageBuffer(tyles)
Color 0,128,0
Rect 0,0,100,100
SetBuffer BackBuffer()

Global PLAYERX,PLAYERY

playerx=64
playery=96



;BEGIN LOOP
Repeat
	Cls
	UPDATESCREEN PLAYERX,PLAYERY
	Color 0,0,0
	Text 0,15, (PLAYERX-1)/32
	Text 15,0, (PLAYERY-1)/32
	Text 30,15, (PLAYERX)/32+1
	Text 15,30, (PLAYERY)/32+1
	Text 0,45,PLAYERX/32+","+PLAYERY/32
	Text 0,60,(PLAYERX+31)/32+","+(PLAYERY+31)/32
	Flip
	;LEFT
	If KeyDown(203) PLAYERX=PLAYERX-1*(PLAYERX>0)
	;RIGHT
	If KeyDown(205) PLAYERX=PLAYERX+1*(PLAYERX+32<640)
	;UP
	If KeyDown(200) PLAYERY=PLAYERY-1*(PLAYERY>0)
	;DOWN
	If KeyDown(208) PLAYERY=PLAYERY+1*(PLAYERY+32<480)
;END LOOP IF [ESC] IS PRESSED
Until KeyHit(1)

;FREE TILES FROM MEMORY
FreeImage TYLES TYLES=0
;QUIT GRAPHICS MODE
EndGraphics
;END PROGRAM
End

Function UPDATESCREEN(PROMPTX,PROMPTY)
	;CALCULATING CAMERA'S TOP-LEFT CORNER.
	CAMERAX=promptX-64
	CAMERAY=promptY-64
	;TOP LEFT CORNER
	If CAMERAX<0 Then CAMERAX=0
	If CAMERAY<0 Then CAMERAY=0
	;BOTTOM RIGHT CORNER
	If CAMERAY>15*TILESIZE-1-160 Then CAMERAY=15*TILESIZE-0-160
	If CAMERAX>20*TILESIZE-1-160 Then CAMERAX=20*TILESIZE-0-160
	;CLEAR SCREEN
	Cls
	;DRAW MAP
	For Y=CAMERAY/TILESIZE To CAMERAY/TILESIZE+MAXTILEY-(CAMERAY Mod 32=0)
		For X=CAMERAX/TILESIZE To CAMERAX/TILESIZE+MAXTILEX-(CAMERAX Mod 32=0)
			TILEINT=LEVELMAP(X,Y)-1
			If TILEINT>=0 Then DrawImage TYLES,X*32-CAMERAX+80,Y*32-CAMERAY+40,TILEINT
			;TILENUMBER (DELETE WHEN DONE)
			Color 0,128,128
			Text X*32-CAMERAX+1+80+8,Y*32-CAMERAY+1+40+10,(TILEINT+1)
		Next
	Next
	;PLAYER POSITION
	Color 0,0,255
	Rect promptX+80-CAMERAX,promptY+40-CAMERAY,32,32
	Color 0,0,0
	Text 10,10,CAMERAY+MAXTILEY*TILESIZE-(CAMERAY Mod 32=0)

	;screen boudaries.
	Color 255,255,255
	Rect 0,0,80,240
	Rect 240,0,80,240
	Rect 0,0,320,40
	Rect 0,200,320,40


End Function


;BUILTIN MAP TO BE LOADED
.BUILTINMAP
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;1
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;2
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;3
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1;4
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;5
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;6
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;7
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1;8
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1;9
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1;11
Data 1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1;12
Data 1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1;13
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;14
    ;0 1 2 3 4 5 6 7 8 910111213141516171819

i hope someone could help me out.

Axel Wheeler

(Posted 2010) [#2]

Well, I here's something that doesn't work right, but may give an idea how to proceed.

Note that as conceived your tunnel at x=18 will be difficult to enter, since the character has to line up perfectly in the x direction before it will allow entry.

Sorry I don't have time to work on this more now...

Replace the control lines with these:

;LEFT
	If KeyDown(203) 
		PLAYERX=PLAYERX-1*(PLAYERX>0)
		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 Then PLAYERX=PLAYERX+1*(PLAYERX>0)
	EndIf
;RIGHT
	If KeyDown(205) 
		PLAYERX=PLAYERX+1*(PLAYERX+32<640)
		If LEVELMAP((PLAYERX)/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32,PLAYERY/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 Then PLAYERX=PLAYERX-1*(PLAYERX>0)
	EndIf
;UP
	If KeyDown(200) 
		PLAYERY=PLAYERY-1*(PLAYERY>0)
		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 Then PLAYERY=PLAYERY+1*(PLAYERY>0)
	EndIf
;DOWN
	If KeyDown(208) 
		PLAYERY=PLAYERY+1*(PLAYERY+32<480)
		If LEVELMAP(PLAYERX/32,(PLAYERY-1)/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 Then PLAYERY=PLAYERY-1*(PLAYERY>0)
	EndIf

Nexinarus

(Posted 2010) [#3]

Thnx I wlll definitely give this a try. Ill see what happens and go from there.

Nexinarus

(Posted 2010) [#4]

thnx for the help on collision Axel Wheeler. I used the basic code and did a few changes as well. here it is


;COLLISION CONCEPT AXEL WHEELER (@ WWW.BLITZBASIC.COM FORUM)
;	THANX
;;LEFT
;	If KeyDown(203) 
;		PLAYERX=PLAYERX-1*(PLAYERX>0)
;		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 PLAYERX=PLAYERX+1*(PLAYERX>0)
;	EndIf
;;RIGHT
;	If KeyDown(205) 
;		PLAYERX=PLAYERX+1*(PLAYERX+32<640)
;		If LEVELMAP((PLAYERX)/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32,PLAYERY/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 PLAYERX=PLAYERX-1*(PLAYERX>0)
;	EndIf
;;UP
;	If KeyDown(200) 
;		PLAYERY=PLAYERY-1*(PLAYERY>0)
;		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 PLAYERY=PLAYERY+1*(PLAYERY>0)
;	EndIf
;;DOWN
;	If KeyDown(208) 
;		PLAYERY=PLAYERY+1*(PLAYERY+32<480)
;		If LEVELMAP(PLAYERX/32,(PLAYERY-1)/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 PLAYERY=PLAYERY-1*(PLAYERY>0)
;	EndIf


;MAP ARRAY
Dim LEVELMAP(19,14)
;WINDOW RESOLUTION CONSTANTS
Const RESX=320,RESY=240,RESD=16,RESS=3
;SET GRAPHICS RESOLUTION[X,Y] COLORDEPTH[16,24,32-BIT],SCREENMODE[0=FULLSCREEN,1=WINDOW,2=SCALEDWINDOW]
Graphics RESX,RESY,RESD,RESS
;DOUBLE BUFFERING
SetBuffer BackBuffer()

;TILE GRAPHICS - SET TO BE USED THROUGHOUT THE WHOLE PROGRAM
Global TYLES

;RESTORE BUILT IN TEST MAP. WILL BE CHANGED AS TEST GROUNDS PROGRESS.
Restore BUILTINMAP
For Y=0 To 14
For X=0 To 19
Read LEVELMAP(X,Y)
Next
Next

;TILE SIZE [SQUARE=LENGTH & WIDTH ARE THE SAME]
Const TILESIZE=32
;TOTAL TILES SHOWN ON SCREEN HORIZONTAL[X] AND VERTICAL[Y]
Const MAXTILEX=160/TILESIZE
Const MAXTILEY=160/TILESIZE

;LENGTH & WIDTH OF PLAYER / PLAYER'S DIMENSIONS
Const PLYRH=20,PLYRV=28



;LOAD TILES
TYLES=CreateImage(32,32)

;TILES (ONLY ONE FOR NOW SINCE THIS IS THE BARE BASICS
SetBuffer ImageBuffer(tyles)
Color 0,128,0
Rect 0,0,32,32
SetBuffer BackBuffer()

Const PLYRSPEED=1
;PLAYER POSITION
Global PLAYERX,PLAYERY

;START POSITION (2,3)
;TO CENTER THE PLAYER (TILESIZE-PLYR$) WAS ADDED TO MAKE SURE THE PLAYER WAS ON THE GROUND. AND CENTERED ON THE CAMERA SCREEN
playerx=(TILESIZE-PLYRH)/2+2*32
playery=(TILESIZE-PLYRV)  +3*32



;BEGIN LOOP
Repeat
	Cls
	UPDATESCREEN
	Color 0,0,0
	Text 15,0, (PLAYERY)/32
	Text 0,15, (PLAYERX)/32
	Text 30,15, (PLAYERX+PLYRH-1)/32
	Text 15,30, (PLAYERY+PLYRV-1)/32
	Text 0,45,PLAYERX+","+PLAYERY
;	Text 0,60,(PLAYERX+31)/32+","+(PLAYERY+31)/32
	

	Flip
	;NOTE: FOR MOVING RIGHT AND DOWN. TILESIZE-PLYR$ IS FOR THE HORIZONTAL AND VERTICAL SIZE OF THE PLAYER. WITHOUT IT PARTS OF THE CHARACTER COULD GO OUT OF THE SCREEN. PLYRH&PLYRV IS USED WITH COLLISION (OR WILL BE)
	;LEFT
	If KeyDown(203)
		;MOVE LEFT
		PLAYERX=PLAYERX-PLYRSPEED
		;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP LEFTSIDE
		If PLAYERX<1 Then PLAYERX=0
		;MAKES SURE THERE IS NO ROOF OR FLOOR IN THE WAY WHEN GOING LEFT.
		   ;TOP-LEFT										BOTTOM-LEFT
		;REMEMBER THAT PLAYERX HAS BEEN CHANGED BY PLYRSPEED
		If LEVELMAP(PLAYERX/TILESIZE,PLAYERY/TILESIZE)>0 Or LEVELMAP(PLAYERX/TILESIZE,(PLAYERY+PLYRV-1)/TILESIZE)>0 Then
			;IF THERE IS A ROOF OR FLOOR IN THE WAY... LINE UP LEFT SIDE OF CHARACTER TO THE RIGHT SIDE OF THE TILE.
			PLAYERX=(PLAYERX/TILESIZE+1)*TILESIZE
			;MAKE SURE THAT THE PLAYER DOES NOT GET SHIFTED OUT OF THE MAP RIGHTSIDE. (MAYBE ITS NOT NEEDED. BUT ITS A GOOD SAFETY PRECAUTION SINCE ANOTHER CALCULATION WAS DONE)
			If PLAYERX>20*TILESIZE-PLYRH Then PLAYERX=20*TILESIZE-PLYRH
		End If
	End If
	;RIGHT
	If KeyDown(205)
		;MOVE RIGHT
		PLAYERX=PLAYERX+PLYRSPEED
		;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP RIGHTSIDE
		If PLAYERX>20*TILESIZE-PLYRH Then PLAYERX=20*TILESIZE-PLYRH
		 ;TOP-RIGHT														BOTTOM RIGHT
		;REMEMBER THAT PLAYERX HAS BEEN CHANGED BY PLYRSPEED
		If LEVELMAP((PLAYERX+PLYRH-1)/TILESIZE,PLAYERY/TILESIZE)>0 Or LEVELMAP((PLAYERX+PLYRH-1)/TILESIZE,(PLAYERY+PLYRV-1)/TILESIZE)>0 Then
			;IF THERE IS A ROOF OR FLOOR IN THE WAY... LINE UP RIGHT SIDE OF CHARACTER TO THE LEFT SIDE OF THE TILE.
			PLAYERX=(PLAYERX/TILESIZE+1)*TILESIZE-PLYRH
			;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP LEFTSIDE. (MAYBE ITS NOT NEEDED. BUT ITS A GOOD SAFETY PRECAUTION SINCE ANOTHER CALCULATION WAS DONE)
			If PLAYERX<1 Then PLAYERX=0
		End If			
	End If
	;UP
	If KeyDown(200)
		;MOVE UP
		PLAYERY=PLAYERY-PLYRSPEED
		;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP TOPSIDE
		If PLAYERY<1 Then PLAYERY=0
		;TOP LEFT											TOP RIGHT
		;REMEMBER THAT PLAYERY HAS BEEN CHANGED BY PLYRSPEED
		If LEVELMAP(PLAYERX/TILESIZE,PLAYERY/TILESIZE)>0 Or LEVELMAP((PLAYERX+PLYRH-1)/TILESIZE,PLAYERY/TILESIZE)>0 Then
			;IF THERE IS A LEFT/RIGHT WALL IN THE WAY... LINE UP TOP SIDE OF CHARACTER TO THE BOTTOM SIDE OF THE TILE.
			PLAYERY=(PLAYERY/TILESIZE+1)*TILESIZE
			;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP BOTTOMSIDE. (MAYBE ITS NOT NEEDED. BUT ITS A GOOD SAFETY PRECAUTION SINCE ANOTHER CALCULATION WAS DONE)
			If PLAYERY>15*TILESIZE-PLYRV Then PLAYERY=15*TILESIZE-PLYRV
		End If
	End If
	;DOWN
	If KeyDown(208)
		;MOVE DOWN
		PLAYERY=PLAYERY+PLYRSPEED
		;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP BOTTOMSIDE
		If PLAYERY>15*TILESIZE-PLYRV Then PLAYERY=15*TILESIZE-PLYRV
		;BOTTOM LEFT													BOTTOM RIGHT
		;REMEMBER THAT PLAYERY HAS BEEN CHANGED BY PLYRSPEED
		If LEVELMAP(PLAYERX/TILESIZE,(PLAYERY+PLYRV-1)/TILESIZE)>0 Or LEVELMAP((PLAYERX+PLYRH-1)/TILESIZE,(PLAYERY+PLYRV-1)/TILESIZE)>0 Then
			;IF THERE IS A LEFT/RIGHT WALL IN THE WAY... LINE UP BOTTOM SIDE OF CHARACTER TO THE TOP SIDE OF THE TILE.
			PLAYERY=(PLAYERY/TILESIZE+1)*TILESIZE-PLYRV
			;MAKES SURE THAT THE CHARACTER DOES NOT MOVE OUT OF MAP TOPSIDE. (MAYBE ITS NOT NEEDED. BUT ITS A GOOD SAFETY PRECAUTION SINCE ANOTHER CALCULATION WAS DONE)
			If PLAYERY<1 Then PLAYERY=0
		End If
	End If
;END LOOP IF [ESC] IS PRESSED
Until KeyHit(1)

;FREE TILES FROM MEMORY
FreeImage TYLES TYLES=0
;QUIT GRAPHICS MODE
EndGraphics
;END PROGRAM
End

Function UPDATESCREEN()
	;CALCULATING CAMERA'S TOP-LEFT CORNER.
	CAMERAX=PLAYERX-64-(16-PLYRH/2)
	CAMERAY=PLAYERY-64-(16-PLYRV/2)
	;TOP LEFT CORNER
	If CAMERAX<0 CAMERAX=0
	If CAMERAY<0 CAMERAY=0
	;BOTTOM RIGHT CORNER
	If CAMERAY>(15-5)*TILESIZE-1 CAMERAY=(15-5)*TILESIZE
	If CAMERAX>(20-5)*TILESIZE-1 CAMERAX=(20-5)*TILESIZE
	;CLEAR SCREEN
	Cls
	;DRAW MAP
	For Y=CAMERAY/TILESIZE To CAMERAY/TILESIZE+MAXTILEY-(CAMERAY Mod TILESIZE=0)
		For X=CAMERAX/TILESIZE To CAMERAX/TILESIZE+MAXTILEX-(CAMERAX Mod TILESIZE=0)
			TILEINT=LEVELMAP(X,Y)-1
			If TILEINT>=0 DrawImage TYLES,X*TILESIZE-CAMERAX+80,Y*TILESIZE-CAMERAY+40,TILEINT
			;TILENUMBER (DELETE WHEN DONE)
			Color 0,128,128
			Text X*TILESIZE-CAMERAX+1+80+8,Y*TILESIZE-CAMERAY+1+40+10,(TILEINT+1)
		Next
	Next
	;PLAYER POSITION
	Color 0,0,255
	Rect PLAYERX+80-CAMERAX,PLAYERY+40-CAMERAY,PLYRH,PLYRV
	Color 0,0,0
	Text 10,10,CAMERAY+MAXTILEY*TILESIZE-(CAMERAY Mod TILESIZE=0)

	;screen boudaries.
	Color 255,255,255
	Rect 0,0,80,240
	Rect 240,0,80,240
	Rect 0,0,320,40
	Rect 0,200,320,40


End Function


;BUILTIN MAP TO BE LOADED
.BUILTINMAP
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;1
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;2
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;3
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1;4
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;5
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;6
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;7
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1;8
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1;9
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1;11
Data 1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1;12
Data 1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1;13
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;14
    ;0 1 2 3 4 5 6 7 8 910111213141516171819

i added PLYRSPEED. and a custom size character box. Im going to attempt jumping tomorrow.

Axel Wheeler

(Posted 2010) [#5]

Cool. Good luck!

Nexinarus

(Posted 2010) [#6]

well i did more testing with the player movement (code in previous post) when i tried using different speeds my player(box) did a stupid bouncing thing. Therefore i did some changes with the movement again. I had to do smoe changes in a few places. Just to make it simpler for when i wanted to change something. Oh ya i forgot i managed to make it so that i could change the camerasize too. that took some tweaking too. I never really got 2 work on the jumping yet since i found the collision prob. so here is all the code (again).


;COLLISION CONCEPT AXEL WHEELER (@ WWW.BLITZBASIC.COM FORUM)
;	THANX
;;LEFT
;	If KeyDown(203) 
;		PLAYERX=PLAYERX-1*(PLAYERX>0)
;		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 PLAYERX=PLAYERX+1*(PLAYERX>0)
;	EndIf
;;RIGHT
;	If KeyDown(205) 
;		PLAYERX=PLAYERX+1*(PLAYERX+32<640)
;		If LEVELMAP((PLAYERX)/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32,PLAYERY/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 PLAYERX=PLAYERX-1*(PLAYERX>0)
;	EndIf
;;UP
;	If KeyDown(200) 
;		PLAYERY=PLAYERY-1*(PLAYERY>0)
;		If LEVELMAP(PLAYERX/32,PLAYERY/32)<>0 PLAYERY=PLAYERY+1*(PLAYERY>0)
;	EndIf
;;DOWN
;	If KeyDown(208) 
;		PLAYERY=PLAYERY+1*(PLAYERY+32<480)
;		If LEVELMAP(PLAYERX/32,(PLAYERY-1)/32+1)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32)<>0 Or LEVELMAP(PLAYERX/32+1,PLAYERY/32+1)<> 0 PLAYERY=PLAYERY-1*(PLAYERY>0)
;	EndIf


;MAP ARRAY
Dim LEVELMAP(19,14)
;WINDOW RESOLUTION CONSTANTS
Const RESX=320,RESY=240,RESD=16,RESS=3
;SET GRAPHICS RESOLUTION[X,Y] COLORDEPTH[16,24,32-BIT],SCREENMODE[0=FULLSCREEN,1=WINDOW,2=SCALEDWINDOW]
Graphics RESX,RESY,RESD,RESS
;DOUBLE BUFFERING
SetBuffer BackBuffer()

;TILE GRAPHICS - SET TO BE USED THROUGHOUT THE WHOLE PROGRAM
Global TYLES
Global MAPSIZEX,MAPSIZEY
;RESTORE BUILT IN TEST MAP. WILL BE CHANGED AS TEST GROUNDS PROGRESS.
Restore BUILTINMAP
	Read MAPSIZEX,MAPSIZEY
	For Y=0 To MAPSIZEY-1
		For X=0 To MAPSIZEX-1
			Read LEVELMAP(X,Y)
		Next
	Next

;TILE SIZE [SQUARE=LENGTH & WIDTH ARE THE SAME]
Const TILESIZE=32
;TOTAL TILES SHOWN ON SCREEN HORIZONTAL[X] AND VERTICAL[Y]
Const MAXTILEX=5
Const MAXTILEY=5

;LENGTH & WIDTH OF PLAYER / PLAYER'S DIMENSIONS
Const PLYRH=32
Const PLYRV=32


FPS30=CreateTimer(30)
;LOAD TILES
TYLES=CreateImage(32,32)

;TILES (ONLY ONE FOR NOW SINCE THIS IS THE BARE BASICS
SetBuffer ImageBuffer(tyles)
Color 0,128,0
Rect 0,0,32,32
SetBuffer BackBuffer()

Const MAXSPEED=5
;PLAYER POSITION
Global PLAYERX,PLAYERY

;START POSITION (2,3)
;TO CENTER THE PLAYER (TILESIZE-PLYR$) WAS ADDED TO MAKE SURE THE PLAYER WAS ON THE GROUND. AND CENTERED ON THE CAMERA SCREEN
playerx=(TILESIZE-PLYRH)/2+5*32
playery=(TILESIZE-PLYRV)  +3*32



;BEGIN LOOP
Repeat
	Cls
	UPDATESCREEN
	Color 0,0,0
	Text 0,15, (PLAYERX)/32
	Text 15,0, (PLAYERY)/32
	Text 30,15, (PLAYERX+PLYRH-1)/32
	Text 15,30, (PLAYERY+PLYRV-1)/32
	Text 0,45,PLAYERX+","+PLAYERY
	Flip
	WaitTimer(FPS30)
	;MAKE SURE THAT EVERY DIRECTION IS CHECKED.
	;NOTE: I FIRST TRIED THIS FOR..NEXT LOOP WITHIN THE KEYPRESSES BUT THEN AT CERTAIN SPEEDS I COULDN'T QUICKLY CHANGE DIRECTIONS IF PUSHING UP,LEFT OR DOWN,RIGHT. I WOULD SKIP THAT OTHER ROUTE.
	;IF YOU DO NOT UNDERSTAND.  THEN PUT THE CHECKSPEED LOOP WITHIN EACH KEYDOWN'S THEN TRY USING SPEEDS 3 / 5 PUSH DOWN,RIGHT OR DOWN.LEFT AT THE SAME TIME AND TRY TO GO DOWN THE LINE OF TILES WHICH IS ALMOST LIKE A COLUMN.  YOU MAY EVENTUALLY SEE WHAT I MEAN.
	For CHECKSPEED=1 To MAXSPEED
		;LEFT
		If KeyDown(203)
			;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT> LEFTEDGE OF MAP THEN THE PLAYER CAN MOVE LEFT
			If PLAYERX-CHECKSPEED=>0
				;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS LEFT USING THE PLAYER'S TOP AND BOTTOM LEFT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
				For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP((PLAYERX-CHECKSPEED)/TILESIZE,CHECKV)
				Next
				;MOVE PLAYER LEFT
				If TMPSUM=0 Then PLAYERX=PLAYERX-1
			End If
			;MAKE SURE THE PLAYER STAYS ON THE MAP (LEFT SIDE)
			If PLAYERX<1 PLAYERX=0
			TMPSUM=0
		End If
		;RIGHT
		If KeyDown(205)
			;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT< RIGHTEDGE OF MAP THEN THE PLAYER CAN MOVE RIGHT
			If PLAYERX<MAPSIZEX*TILESIZE-PLYRH+1-CHECKSPEED
				;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS RIGHT USING THE PLAYER'S TOP AND BOTTOM RIGHT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
				For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP((PLAYERX+PLYRH-1+CHECKSPEED)/TILESIZE,CHECKV)
				Next
				;MOVE PLAYER RIGHT
				If TMPSUM=0 Then PLAYERX=PLAYERX+1
			End If
			;MAKE SURE THE PLAYER STAYS ON THE MAP (RIGHT SIDE)
			If PLAYERX>MAPSIZEX*TILESIZE-PLYRH PLAYERX=MAPSIZEX*TILESIZE-PLYRH
			TMPSUM=0
		End If
		;UP
		If KeyDown(200)
			If PLAYERY-CHECKSPEED=>0
				For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY-CHECKSPEED)/32)
				Next
				If TMPSUM=0 Then PLAYERY=PLAYERY-1
			End If
			If PLAYERY<1 PLAYERY=0
			TMPSUM=0
		End If
		;DOWN
		If KeyDown(208)
			If PLAYERY<MAPSIZEY*TILESIZE-PLYRV+1-CHECKSPEED
				For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY+PLYRV-1+CHECKSPEED)/TILESIZE)
				Next
				If TMPSUM=0 Then PLAYERY=PLAYERY+1
			End If
			If PLAYERY>MAPSIZEY*TILESIZE-PLYRV PLAYERY=MAPSIZEY*TILESIZE-PLYRV
			TMPSUM=0
		End If
	Next
;END LOOP IF [ESC] IS PRESSED
Until KeyHit(1)

;FREE TILES FROM MEMORY
FreeImage TYLES TYLES=0
;QUIT GRAPHICS MODE
EndGraphics
;END PROGRAM
End

Function UPDATESCREEN()
	;CALCULATING CAMERA'S LOCATION
	CAMERAX=PLAYERX-(MAXTILEX*TILESIZE-PLYRH)/2
	CAMERAY=PLAYERY-(MAXTILEY*TILESIZE-PLYRV)/2
	;TOP LEFT CORNER
	If CAMERAX<0 CAMERAX=0
	If CAMERAY<0 CAMERAY=0
	;BOTTOM RIGHT CORNER
	If CAMERAY>(MAPSIZEY-MAXTILEY)*TILESIZE-1 CAMERAY=(MAPSIZEY-MAXTILEY)*TILESIZE
	If CAMERAX>(MAPSIZEX-MAXTILEX)*TILESIZE-1 CAMERAX=(MAPSIZEX-MAXTILEX)*TILESIZE
	;CLEAR SCREEN
	Cls
	;DRAW MAP
	For Y=CAMERAY/TILESIZE To CAMERAY/TILESIZE+MAXTILEY-(CAMERAY Mod TILESIZE=0)
		For X=CAMERAX/TILESIZE To CAMERAX/TILESIZE+MAXTILEX-(CAMERAX Mod TILESIZE=0)
			TILEINT=LEVELMAP(X,Y)-1
			If TILEINT>=0 DrawImage TYLES,X*TILESIZE-CAMERAX+(RESX-MAXTILEX*TILESIZE)/2,Y*TILESIZE-CAMERAY+(RESY-MAXTILEY*TILESIZE)/2,TILEINT
			;TILENUMBER (DELETE WHEN DONE)
			Color 0,128,128
			Text X*TILESIZE-CAMERAX+1+(RESX-MAXTILEX*TILESIZE)/2+8,Y*TILESIZE-CAMERAY+1+(RESY-MAXTILEY*TILESIZE)/2+10,(TILEINT+1)
		Next
	Next
	;PLAYER POSITION
	Color 0,0,255
	Rect PLAYERX+(RESX-MAXTILEX*TILESIZE)/2-CAMERAX,PLAYERY+(RESY-MAXTILEY*TILESIZE)/2-CAMERAY,PLYRH,PLYRV
	Color 0,0,0
	Text 10,45,CAMERAY+MAXTILEY*TILESIZE-(CAMERAY Mod TILESIZE=0)

	;screen boudaries.
	Color 255,255,255
	Rect 0,0,(RESX-MAXTILEX*TILESIZE)/2,RESY
	Rect (RESX+MAXTILEX*TILESIZE)/2,0,(RESX-MAXTILEX*TILESIZE)/2,RESY
	Rect 0,0,RESX,(RESY-MAXTILEY*TILESIZE)/2
	Rect 0,(RESY+MAXTILEY*TILESIZE)/2,RESX,(RESY-MAXTILEY*TILESIZE)/2
End Function


;BUILTIN MAP TO BE LOADED
.BUILTINMAP
Data 20,15
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;1
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;2
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;3
Data 1,1,1,0,0,0,0,1,1,1,0,0,0,1,1,0,0,1,0,1;4
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;5
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1;6
Data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1;7
Data 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,1;8
Data 0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1;9
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0
Data 1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1;11
Data 1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1;12
Data 1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1;13
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;14
    ;0 1 2 3 4 5 6 7 8 910111213141516171819

now the only thing i h8 is the loop for the speed outside of the movement keys.

What it is now

	For CHECKSPEED=1 To MAXSPEED
		;LEFT
		If KeyDown(203)
			;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT> LEFTEDGE OF MAP THEN THE PLAYER CAN MOVE LEFT
			If PLAYERX-CHECKSPEED=>0
				;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS LEFT USING THE PLAYER'S TOP AND BOTTOM LEFT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
				For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP((PLAYERX-CHECKSPEED)/TILESIZE,CHECKV)
				Next
				;MOVE PLAYER LEFT
				If TMPSUM=0 Then PLAYERX=PLAYERX-1
			End If
			;MAKE SURE THE PLAYER STAYS ON THE MAP (LEFT SIDE)
			If PLAYERX<1 PLAYERX=0
			TMPSUM=0
		End If
		;RIGHT
		If KeyDown(205)
			;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT< RIGHTEDGE OF MAP THEN THE PLAYER CAN MOVE RIGHT
			If PLAYERX<MAPSIZEX*TILESIZE-PLYRH+1-CHECKSPEED
				;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS RIGHT USING THE PLAYER'S TOP AND BOTTOM RIGHT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
				For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP((PLAYERX+PLYRH-1+CHECKSPEED)/TILESIZE,CHECKV)
				Next
				;MOVE PLAYER RIGHT
				If TMPSUM=0 Then PLAYERX=PLAYERX+1
			End If
			;MAKE SURE THE PLAYER STAYS ON THE MAP (RIGHT SIDE)
			If PLAYERX>MAPSIZEX*TILESIZE-PLYRH PLAYERX=MAPSIZEX*TILESIZE-PLYRH
			TMPSUM=0
		End If
		;UP
		If KeyDown(200)
			If PLAYERY-CHECKSPEED=>0
				For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY-CHECKSPEED)/32)
				Next
				If TMPSUM=0 Then PLAYERY=PLAYERY-1
			End If
			If PLAYERY<1 PLAYERY=0
			TMPSUM=0
		End If
		;DOWN
		If KeyDown(208)
			If PLAYERY<MAPSIZEY*TILESIZE-PLYRV+1-CHECKSPEED
				For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
					TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY+PLYRV-1+CHECKSPEED)/TILESIZE)
				Next
				If TMPSUM=0 Then PLAYERY=PLAYERY+1
			End If
			If PLAYERY>MAPSIZEY*TILESIZE-PLYRV PLAYERY=MAPSIZEY*TILESIZE-PLYRV
			TMPSUM=0
		End If
	Next

I tried it on the inside of each movement...

What i tried before to fix the problem

		;LEFT
		If KeyDown(203)
			For CHECKSPEED=1 To MAXSPEED
				;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT> LEFTEDGE OF MAP THEN THE PLAYER CAN MOVE LEFT
				If PLAYERX-CHECKSPEED=>0
					;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS LEFT USING THE PLAYER'S TOP AND BOTTOM LEFT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
					For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
						TMPSUM=TMPSUM+LEVELMAP((PLAYERX-CHECKSPEED)/TILESIZE,CHECKV)
					Next
					;MOVE PLAYER LEFT
					If TMPSUM=0 Then PLAYERX=PLAYERX-1
				End If
			Next
			;MAKE SURE THE PLAYER STAYS ON THE MAP (LEFT SIDE)
			If PLAYERX<1 PLAYERX=0
			TMPSUM=0
		End If
		;RIGHT
		If KeyDown(205)
			For CHECKSPEED=1 To MAXSPEED
				;WITH DIFFERENT SPEEDS I GOT A "ARRAY OUT OF BOUNDS" THIS IS WHY A PLAYER RESULT CHECK IS DONE AND MAKES SURE THAT IF THE RESULT< RIGHTEDGE OF MAP THEN THE PLAYER CAN MOVE RIGHT
				If PLAYERX<MAPSIZEX*TILESIZE-PLYRH+1-CHECKSPEED
					;CHECKING FOR ALL POSSIBLE VERTICAL TILES ON THE CHARACTERS RIGHT USING THE PLAYER'S TOP AND BOTTOM RIGHT CORNERS. (CAN STAND ON MORE THAN 1 TILE)
					For checkV=PLAYERY/TILESIZE To (PLAYERY+PLYRV-1)/TILESIZE
						TMPSUM=TMPSUM+LEVELMAP((PLAYERX+PLYRH-1+CHECKSPEED)/TILESIZE,CHECKV)
					Next
					;MOVE PLAYER RIGHT
					If TMPSUM=0 Then PLAYERX=PLAYERX+1
				End If
			Next
			;MAKE SURE THE PLAYER STAYS ON THE MAP (RIGHT SIDE)
			If PLAYERX>MAPSIZEX*TILESIZE-PLYRH PLAYERX=MAPSIZEX*TILESIZE-PLYRH
			TMPSUM=0
		End If
		;UP
		If KeyDown(200)
			For CHECKSPEED=1 To MAXSPEED
				If PLAYERY-CHECKSPEED=>0
					For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
						TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY-CHECKSPEED)/32)
					Next
					If TMPSUM=0 Then PLAYERY=PLAYERY-1
				End If
			Next
			If PLAYERY<1 PLAYERY=0
			TMPSUM=0
		End If
		;DOWN
		If KeyDown(208)
			For CHECKSPEED=1 To MAXSPEED
				If PLAYERY<MAPSIZEY*TILESIZE-PLYRV+1-CHECKSPEED
					For checkH=PLAYERX/TILESIZE To (PLAYERX+PLYRH-1)/TILESIZE
						TMPSUM=TMPSUM+LEVELMAP(CHECKH,(PLAYERY+PLYRV-1+CHECKSPEED)/TILESIZE)
					Next
					If TMPSUM=0 Then PLAYERY=PLAYERY+1
				End If
			Next
			If PLAYERY>MAPSIZEY*TILESIZE-PLYRV PLAYERY=MAPSIZEY*TILESIZE-PLYRV
			TMPSUM=0
		End If

Then of course i tested it lots. and when i went down the 1 tile column, pressing down&right or starting on the right and pressing down&left, sometimes it would totally skip that column even when the players dimensions were at 32x32 when i tested it out like the code is now it seemed to work perfectly.

and b4 the

For CHECKSPEED=1 To MAXSPEED

stuff i did do the

playerx=playerx+plyrspeed

code but then i got the array out of bounds thing there too. (especially on playerspeed=3)

The reason why i am doing all these checks is that i want the movements as perfect as possible before i start on jumping. i also want to make different sizes of characters besides everything being 32x32 and lower. i'd like some to be 48x48. or even 64x64. That is also why i revised the code to let the user change the camerasize.

BTW i will definitely need lots of luck doing the jumping. If anyone has any ideas of how to do it. plz let me know. or even how to cleanup the movements a bit too. I would greatly appreciate it.