Now try this code and see. You'll need a "fire.bmp" image also (which I've uploaded
).
REM ************************************************************************************
REM 2D POWER UPS
REM By: HWT Date: 9th April 2005
REM This shows allows a player sprite to pick up power ups and make them benefit him
REM Also included is nice shooting
REM ************************************************************************************
`Loading images
load image "player.bmp",1
load image "power.bmp",2
load image "fire.bmp",3
`Reset sprite co-ordinates
a=0 : b=00
x=0 : y=440
d=440
REM MAIN PROGRAM LOOP
sync on : sync rate 0 : do
cls
`Restore screen
backdrop on
color backdrop rgb(0,0,0)
`Movement for player
if powertype<>2
if leftkey()=1 then inc x
if rightkey()=1 then dec x
endif
if powertype=2
if leftkey()=1 then inc x,4
if rightkey()=1 then dec x,4
endif
sprite 1,x,460,1
if fire=0 then oldx=x
if spacekey()=1 then fire=1
if powertype<>1
if fire=1
dec d,3
sprite 3,oldx,d,3 : show sprite 3
if d<=0 then fire=0 : d=460 : hide sprite 3
if sprite exist(4)=1 then hide sprite 4
endif
endif
if powertype=1
if fire=1
dec d,3
sprite 3,oldx-5,d,3 : show sprite 3
sprite 4,oldx+15,d,3 : show sprite 4
if d<=0 then fire=0 : d=460 : hide sprite 4 : hide sprite 3
endif
endif
`Control power up movement and type
inc b
if b>=480 then b=0 : a=rnd(640)
sprite 2,a,b,2
`Check for sprite collision; if player sprite hits powerup sprite then reposition powerup
`after showing pick up; increment score; reset yvalue=0
if sprite collision(1,2)=1
a=rnd(640)
showpickup=1
inc score
b=0
prepower=rnd(5)
if prepower>0 then powertype=prepower else powertype=1
endif
`Pickup effects
if showpickup=1
inc val,15 : color backdrop rgb(val,0,0)
if val>=255 then showpickup=0
endif
`Give ship the benefits randomly
if powertype=1 then center text 320,240,"SHIP HAS MULTIPLE PHASERS!"
if powertype=2 then center text 320,240,"WEAPONS DOUBLE POWERED!"
if powertype=3 then center text 320,240,"SHIP GAINS DOUBLE SPEED!"
if powertype=4 then center text 320,240,"SHIP SHIELDS DOUBLE POWERED!"
if powertype=5 then center text 320,240,"3 MORE LIVES!"
`Output
center text 320,0,"ARROW KEYS MOVE PLAYER, TRY TO GET THE POWER UP, SPACE KEY FIRES BULLETS"
set cursor 280,15 : print "POWER UP SCORE:",score
sync : loop
HelloWorld Tommorrow
