It is running just really really fast. Some of the old examples did not use the timer. They were written when PCs ran a lot slower than now.
Try this.
Code:
'Simple cycle sprite and sprite collide example
nomainwin
loadbmp "smiley1", "sprites\smiley1.bmp"
loadbmp "smiley2", "sprites\smiley2.bmp"
loadbmp "smiley3", "sprites\smiley3.bmp"
loadbmp "smiley4", "sprites\smiley4.bmp"
loadbmp "landscape", "sprites\bg1.bmp"
WindowHeight = 300
WindowWidth = 400
'graphicbox #wg, 0, 0, 400, 300
open "sprite test" for graphics_nf_nsb as #wg
#wg "trapclose [quit]"
#wg "background landscape";
#wg "addsprite smiley smiley1 smiley2 smiley3 smiley4";
#wg "addsprite smiler smiley1 smiley2 smiley3 smiley4";
#wg "addsprite smiled smiley1 smiley2 smiley3 smiley4";
#wg "addsprite smiles smiley1 smiley2 smiley3 smiley4";
#wg "cyclesprite smiley 1 once"
#wg "cyclesprite smiler 1"
#wg "cyclesprite smiled 1"
#wg "cyclesprite smiles 1"
timer 60, [draw]
[draw]
#wg "spritexy smiley "; x; " "; x
#wg "spritexy smiler "; 100-x; " "; x
#wg "spritexy smiled "; 100-x; " "; 100-x
#wg "spritexy smiles "; x; " "; 100-x
#wg "drawsprites";
#wg "spritecollides smiley list$"
if list$ > "" then #wg "cyclesprite smiley 1 once"
x=x+1
if x=100 then [quit]
wait
[quit]
timer 0
close #wg
end
If you follow this link there is a discussion about updating the examples and there is a link to a completely revised set of examples. The .zip is in the last post.
http://libertybasic.conforums.com/index.cgi?board=LB3&action=display&num=1501917068&start=90
Logged
