Microsoft Small Basic

Program Listing: nts150

List Program

''

For i = 1 To 10
APL[i] = Shapes.AddImage("http://sozaidas.com/sozai/010801fruit/010801fruit02-trans.png")
Shapes.Move(APL[i],Math.GetRandomNumber(640),-100-Math.GetRandomNumber(200) )
fal[i]=(5+Math.GetRandomNumber(10))/5
Shapes.Zoom(APL[i],fal[i]/3,fal[i]/3)
EndFor
bct = Shapes.AddRectangle(40,20) '---------------- backet ---------------
GraphicsWindow.FontSize=20
msg=Shapes.AddText(" ")

While "true"
Shapes.move(bct,GraphicsWindow.MouseX,430) ' move backet
For i = 1 To 10
Shapes.Move(APL[i], shapes.GetLeft(APL[i]), shapes.Gettop(APL[i])+fal[i]) ' move apples
If Math.Abs(Shapes.GetLeft(bct)-Shapes.GetLeft(APL[i]))<80 And Math.abs(Shapes.GetTop(bct)-Shapes.Gettop(APL[i]))<20 Then
NN=NN+1
Sound.PlayClick()
Shapes.move(APL[i] ,Math.GetRandomNumber(640),-100-Math.GetRandomNumber(200)) '
elseIf shapes.Gettop(APL[i])>500 Then
MM=MM+1
Shapes.Move(APL[i], Math.GetRandomNumber(640),-100-Math.GetRandomNumber(200) )
EndIf
EndFor
Shapes.SetText(msg,"Hit count= "+NN+ " Total= "+(MM+NN))
Program.Delay(10)
endWhile