cyber.net interactivo 6/cybernetinteractivo06.ISO/demos/kerouac/jack.dxr/00067.ls

Text File | 1996-02-15 | 490 b | 24 lines

on mouseDown
  set spr to the clickOn
  set cnum to the castNum of sprite spr
  set the castNum of sprite spr to cnum + 1
  updateStage()
  repeat while the mouseDown = 1
    if rollOver(spr) then
      set the castNum of sprite spr to cnum + 1
    else
      set the castNum of sprite spr to cnum
    end if
    updateStage()
  end repeat
  set the castNum of sprite spr to cnum
  updateStage()
end

on mouseUp
  set spr to the clickOn
  if rollOver(spr) then
    go("sjack")
  end if
end