PC Action 1997 February/PCA0297.ISO/demos/shine/eetermg.dxr/00053.ls

Text File | 1996-08-18 | 422 b | 17 lines

on mouseDown
  set me to the clickOn
  set my to the castNum of sprite me
  set the locH of sprite me to the locH of sprite me + 1
  set the locV of sprite me to the locV of sprite me + 1
  repeat while the mouseDown
    updateStage()
  end repeat
  set the locH of sprite me to the locH of sprite me - 1
  set the locV of sprite me to the locV of sprite me - 1
  updateStage()
end

on mouseUp
  go(label("blau") - 1)
end