Hi, I'm trying to get this done, it's like part of that Bells & Balls game. The bobs come across the screen and when you click on them they dissapear? I'm using Db 1.09, so I can't use hide bob, I have to use delete bob.
rem Balls & Bells
box 0,0,31,31
get image 1,0,0,31,31
cls
ink (150,50,50),1
box 0,0,31,31
get image 2,0,0,31,31
cls
remstart
Load bitmap "mntndown2.bmp",1
get image 1,0,0,255,255
get image 4,0,0,3,3
delete bitmap 1
Load bitmap "grey.bmp",2
get image 2,0,0,31,31
delete bitmap 2
Load bitmap "btarget.bmp",3
get image 3,0,0,31,31
delete bitmap 3
backdrop on
Texture backdrop 1
remend
dim xpos(5)
xpos(1)=640
xpos(2)=740
xpos(3)=840
xpos(4)=940
xpos(5)=1104
dim bo(1)
bo(1)=5
ypos=30
n=5
p=1
for a = 1 to 5
bob 1*a,xpos(a),ypos,2
next a
rem *********************
hide mouse
rem sync
sync on
sync
loop=0
rem **** Main Loop ****
do
loop=loop+1
set cursor 0,0
print "",loop
rem mouse bob
bob 25,mousex(),mousey(),1
rem bob 26,mousex()+15,mousey()+15,4
rem bobs
for a = 1 to n
bob 1*a,xpos(a),ypos,2
next n
for s= 1 to n
xpos(s)=xpos(s)-10
if bob collision(25,1*s)=1 and mouseclick()=1
delete bob 1*s
endif
next s
for a = 1 to 5
if bob exist(1*a)
n=n
else
n=n-1
set cursor 0,80
print "",n
endif
next a
for xp = 1 to 5
if xpos(xp)=0
xpos(xp)=640
endif
next xp
for a = 1 to 5
if xpos(a)=0
xpos(a)=640
endif
next a
if spacekey()=1
n=5
xpos(1)=640
xpos(2)=700
xpos(3)=760
xpos(4)=820
xpos(5)=880
endif
sync
loop
it's mostly there.
