All pastes #812479 Raw Edit

Untitled

public text v1 · immutable
·published 2007-12-11 20:16 UTC
rendered paste body
property graantje
property v
global gDoos, gScore, gTijd

on beginsprite me
  graantje = sprite(me.spritenum)
  graantje.locH= random(350)+40
  v = 0.1

end


on exitFrame me
  
  if graantje.locV > gDoos.locV - gDoos.height / 2 AND graantje.locV < gDoos.locV + gDoos.height / 2 AND graantje.locH > gDoos.locH - gDoos.width / 2 AND graantje.locH < gDoos.locH + gDoos.width / 2 then
    gScore = gScore + 1
    member("score").text=string(gScore)
    
    resetGraantje graantje
    v = 0.1
    
    if gScore = 50 then
      go to "einde"
    end if
  else
    v = v + 0.1
    graantje.locV = graantje.locV + 1 + v 
    if graantje.locV > gDoos.locV + gDoos.height / 2 then 
      resetGraantje graantje
      v = 0.1
    end if
    
  end if
  gTijd = the timer/60
  --if gScore = 20 then
  -- member("detijd").text=string(gTijd)
 -- end if
end
 
21:08:43  <wolph...le.nl> ah 
21:08:50  <socia...l.com> en dan nog code om de doos te bewegen:

global gDoos, doosH, xmin, xmax, doosbreedte, dooshoogte, gDoosbovenkant, gDoosonderkant

on beginsprite me
  gDoos = sprite(me.spriteNum)
  doosbreedte = sprite(gDoos).width/2
  dooshoogte = sprite(gDoos).height/2
  xmin = 50
  xmax = 370
  gDoosbovenkant = 530 - 20 - dooshoogte
  gDoosonderkant = 530 - 20
end

on exitFrame me
  
  cursor 200
  --doosH = gDoos.locH
  gDoos.locH = the mouseh
  
  if gDoos.locH < xmin then
    gDoos.locH = xmin
  end if
  
  if gDoos.locH > xmax then
    gDoos.locH = xmax
  end if
  
end