ok,now I have a little engine test running, I ran into a snag, but probably missing something, I did a small level with a block used for jumping around onto platforms, referencing the byte sized tutorials, the problem I have is that after jumping and landing,there is a small bounce which stops you jumping again straight away, I have yet to add the horizontal movement coz I want the jumping perfect first...here is the code:
// Project: enginetest
// Created: 2014-11-03
SetDisplayAspect( 800.0 / 600.0 )
#constant KEY_Q = 81
global cursorsprite = 5000
global cursorimage = 2
global swidth = 4
global sheight = 4
global level = 1
global quit = 0
global bricklimit = 4999
global playersprite=5000
type tobjects
xpos# as float
ypos# as float
spritenumber as integer
physicstype as integer
spriteshape as integer
sizex as integer
sizey as integer
imagenum as integer
sprgroup as integer
sprdepth as integer
spriteangle as integer
spritetype as integer
spritelayer as integer
endtype
dim object[5000] as tobjects
dim image_bank[800]
type TMouse
x1#
y1#
x2#
y2#
x3
y3
endtype
global Mouse as TMouse
init()
load_level(level)
repeat
if getrawkeypressed(KEY_Q)
quit = 1
endif
jump = GetVirtualButtonPressed(1)
if jump>0 and GetSpritePhysicsVelocityY(playersprite)=0
setSpritePhysicsVelocity(playersprite,getSpritePhysicsVelocityX(playersprite),-jump*60)
endif
Print( ScreenFPS() )
Sync()
until quit=1
function init()
for n=1 to 100
f$=str(n) + ".png"
if getfileexists(f$)
loadimage (n,f$)
endif
next
SetClearColor(0,0,0)
ClearScreen()
AddVirtualJoystick(1,10,88,12)
AddVirtualButton(1,90,88,12)
endfunction
function load_level(level)
clear_level()
f$=""
f$="level"
f$=f$+str(level)
f$=f$+".lev"
if getfileexists(f$) =0
print (" level file doesn't exist ")
sync()
sleep (3000)
found3=1
endif
if found3=0
myfile = OpenToread(f$)
for n=1 to bricklimit
xp#=readfloat(myfile)
yp#=readfloat(myfile)
sprnum=readinteger(myfile)
phytype=readinteger(myfile)
sprshape=readinteger(myfile)
sx=readinteger(myfile)
sy=readinteger(myfile)
imgnum=readinteger(myfile)
sprgroup=readinteger(myfile)
sprdepth=readinteger(myfile)
sprangle=readinteger(myfile)
sprtype=readinteger(myfile)
sprlayer=readinteger(myfile)
object[n].xpos#=xp#
object[n].ypos#=yp#
object[n].spritenumber=sprnum
object[n].physicstype=phytype
object[n].spriteshape=sprshape
object[n].sizex = sx
object[n].sizey = sy
object[n].imagenum=imgnum
object[n].sprgroup=sprgroup
object[n].sprdepth=sprdepth
object[n].spriteangle=sprangle
object[n].spritetype=sprtype
object[n].spritelayer=sprlayer
if object[n].spritenumber>0 and object[n].sprgroup = 0
createsprite(sprnum,imgnum)
setspritesize(sprnum,sx,sy)
setspriteposition(sprnum,xp#,yp#)
setSpritePhysicsOn(sprnum,1)
endif
if object[n].spritenumber>0 and object[n].sprgroup = 1
make_player(object[n].xpos#,object[n].ypos#,object[n].sizex,object[n].sizey)
endif
next n
endif
endfunction
function clear_level()
for n=1 to bricklimit
object[n].xpos#=0
object[n].ypos#=0
object[n].spritenumber=0
object[n].physicstype=0
object[n].spriteshape=0
object[n].sizex = 0
object[n].sizey = 0
object[n].imagenum=0
object[n].sprgroup=0
object[n].sprdepth=0
object[n].spriteangle=0
object[n].spritetype=0
object[n].spritelayer=0
deletesprite(n)
next n
endfunction
function make_player(x#,y#,sx,sy)
createsprite(playersprite,1)
setspritesize(playersprite,sx,sy)
setspriteposition(playersprite,x#,y#)
setSpritePhysicsVelocity(playersprite,GetVirtualJoystickX(1)*30,getSpritePhysicsVelocityY(playersprite))
SetSpritePhysicsRestitution(playersprite,0.0)
setSpritePhysicsOn(playersprite,2)
setSpritePhysicsCanRotate(playersprite,0)
endfunction
**edit damn my mistake to post in this, wasn't looking properly..lol! Too late now
Hail to the king, baby!
http://davidjohnwheeler.blogspot.co.uk
