Sorry your browser is not supported!

set display mode 640,480,16
ink rgb(244,214,210),1
load bitmap "dad.bmp"
load bitmap "background.jpg",1
load sound "love.wav",10
load sound "play.wav",11
load sound "bandj.wav",12
load sound "jandb.wav",13
load image "exblue.bmp",13
load image "exred.bmp",14

set current bitmap 0
get image 1,18,0,156,196
sprite 1,100,100,1
spritewidth=(sprite width(1)/2)
spriteheight=(sprite height(1)/2)
spriteexists=sprite exist(1)
spritevert=sprite flipped(1)
spritehori=sprite mirrored(1)


rem exclamation sprites
ebx=150
eby=50
erx=490
ery=50

sprite 10,ebx,eby,13
sprite 11,erx,ery,14
rem heart stuff
load image "heart.bmp",3
sprite 3,450,250,3

if sprite hit(1,3)>0 then cls
offset sprite 1,spritewidth,spriteheight
copy bitmap 1,0
acrossscreen=100
downscreen=100

rem This is were sprite will move to
targetacross=100
targetdown=100

Rem initial settings
wait 2000
play sound 11,0
rem main loop!!!!!!!!!!!!!!!!

moveswitch=0

do
   rem has person pressed the left mouse button
   if mouseclick()=1
      rem get were mouse is across the screen
      targetacross=mousex()
      rem get were mouse is down the screen
      targetdown=mousey()
   endif

rem ******************Problem *****************
Rem sprite movement
If moveswitch=0 
  eby=eby+1
  sprite 10,ebx,eby,13
   if eby > 100
    moveswitch=1
   endif
endif

If moveswitch=1 
  eby=eby-1
  sprite 10,ebx,eby,13 
  if eby < 50
    moveswitch=1
   endif
endif
rem ***************************************************



rem sound handling
if sprite hit(1,3)>0
  If sound playing(10)=0
  play sound 10
  endif
endif
rem if sprite hit(1,11)>0
rem if sound playing(12)=0
rem  ebx=rnd(320)+20
rem  eby=rnd(200)+10
rem  play sound 12
rem endif
rem sprite 10,ebx,eby,13
rem endif

if sprite hit(1,10)>0
 if sound playing(13)=0
 rbx=rnd(600)+320
  ery=rnd(200)+10
  play sound 13
 endif
sprite 11,erx,ery,14
 endif

rem This next part home the sprite on the target x and target y position
   if acrossscreen<targetacross:acrossscreen=acrossscreen+1:endif
   if acrossscreen>targetacross:acrossscreen=acrossscreen-1:endif
   if downscreen<targetdown:downscreen=downscreen+1:endif
   if downscreen>targetdown:downscreen=downscreen-1:endif
rem Draw the sprite at the new position
   sprite 1,acrossscreen,downscreen,1
if upkey=1
 end
endif
loop
rem Clear the screen
cls
delete sprite 1
delete image 1
end