PSX Chipmunk BASIC sprite.bas example
STDRAGUT 1998

5 SETBGCOLOR 0,128,128

10 LOADTIM "garden.tim"

15 LOADVAG "boum.vag",10000

20 CLEARSPRITE : CLS

30 FNTPRINT "PRESS L2 TO QUIT"

35 FNTPRINT "GARDEN.TIM BY OFF"

40 SETSPRITE 5,100,100

50 SPRITEMAP 5,576,0,30,20,576,480,1

60 SHOWSPRITE 5

70 x = 0 : y = 0

80 xx = 5 : yy = 5

90 x = x+xx

100 IF x > 360 OR x < 0 THEN xx = -xx : SETVOICE 1,10000,1536,16383

110 y = y+yy

120 IF y > 200 OR y < 0 THEN yy = -yy : SETVOICE 1,10000,1536,16383

130 SPRITEXY 5,x,y

140 SPRITER 5,x

150 VSYNC

160 IF PAD = 1 THEN END

170 GOTO 90

back