home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / jigsaw.dir / 00178_Script_DragPieces < prev    next >
Text File  |  1996-09-13  |  804b  |  19 lines
  1. global gOrigLoc, gDragChannel, gOrigSprite
  2. on mouseDown
  3.   put the clickOn into gOrigSprite
  4.   --  put the loc of sprite gOrigSprite into gOrigLoc
  5.   set the memberNum of sprite gDragChannel = the number of member (the memberNum of sprite gOrigSprite)
  6.   set the locH of sprite gOrigSprite = 1500
  7.   repeat while the stilldown
  8.     set the locH of sprite gDragChannel = the mouseH
  9.     set the locV of sprite gDragChannel = the mouseV
  10.     updateStage
  11.   end repeat
  12.   set the memberNum of sprite gOrigSprite = the number of member ( the memberNum of sprite gDragChannel)
  13.   set the locH of sprite gOrigSprite = the mouseH
  14.   set the locV of sprite gOrigSprite = the mouseV
  15.   --set the loc of sprite gDragChannel = 1500
  16.   updateStage
  17.   checkLocation
  18.   set the locV of sprite gDragChannel = 1500
  19. end