VBGamer
Re: 10 fps??? Laurens Leemans (0 replies, 0 views) (2001-May-5)
yeah, don't load every texture every pass!
do something like this:
sub Form_Load()
for a=0 to 100 'Number of textures
InitSprite texturearray(a), App.Path & "\m" & cstr$(a) & ".bmp"
next a
do
render()
doevents()
loop
end sub
sub Render()
for x=0 to ubound(m.b,1)
for y=0 to ubound(m.b,2)
drawsprite texturearray(a), 32, 32, x * 32, y * 32
next y
next x
end sub
you can make the subs initsprite and drawsprite yourself
