Basic Platform - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|575\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Basic Platform
Thu, 07 Feb 2008, 10:58
Hotshot	I know it isnt perfect and I know that I can improve the code with arrays next time. Here Basic Platform ; Simple Platform ; Specail thanks to Andres (Jump Code) Graphics 640,480,16,2 SetBuffer BackBuffer() ; GFX STUFF BLOCK =LoadImage("BLOCK.PNG") BLOCK2 =LoadImage("BLOCK2.PNG") FIREMAN =LoadImage("FIREMAN2.PNG") MaskImage FIREMAN,255,0,255 ; VARIABLE PX =10 PY =90 Gravity# = .7 YSpeed# = 0 Jump# = -13.0 ; MAIN LOOP While Not KeyDown(1) Cls YSpeed# = YSpeed# + Gravity# PY = PY + ySpeed If KeyHit(57) Then YSpeed = JUMP# If KeyDown(205) Then PX=PX+2 If KeyDown(203) Then PX=PX-2 DrawImage BLOCK ,100,250 DrawImage BLOCK ,450,275 DrawImage BLOCK ,250,350 ; GROUND DrawImage BLOCK2 ,0 ,455 ;If FIREMAN ON THE Floor Then STAY ON THE Floor If ImagesCollide (FIREMAN,PX,PY,0,BLOCK2,0,455,0) Then PY=390 ; if Fireman Jump on First Red Block If ImagesCollide (FIREMAN,PX,PY,0,BLOCK,250,350,0) Then PY=290 ; if Fireman Jump on Second Red Block If ImagesCollide (FIREMAN,PX,PY,0,BLOCK,450,275,0) Then PY=210 ; if Fireman Jump on THIRD Red Block If ImagesCollide (FIREMAN,PX,PY,0,BLOCK,100,250,0) Then PY=190 DrawImage FIREMAN,PX,PY Flip Wend --v
Fri, 08 Feb 2008, 13:02
DeathKnight	thanks for sharing