Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/toppanmk/source/nasu.dir/00001.ls

Text File | 1996-05-08 | 607 b | 30 lines

on wait t
  set now to the ticks
  repeat while the ticks < (now + t)
  end repeat
end

on pushbtnmove
  playsound(27)
  set spnum to the clickOn
  set the locH of sprite spnum to the locH of sprite spnum + 2
  set the locV of sprite spnum to the locV of sprite spnum + 2
  updateStage()
  repeat while stillDown()
  end repeat
  waitsound()
  set the locH of sprite spnum to the locH of sprite spnum - 2
  set the locV of sprite spnum to the locV of sprite spnum - 2
  updateStage()
end

on playsound num
  puppetSound(1, num)
  updateStage()
end

on waitsound
  repeat while soundBusy(1)
  end repeat
end