home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jurassic Jigsaws
/
JURASSIC.BIN
/
jigsaw.dir
/
00178_Script_DragPieces
< prev
next >
Wrap
Text File
|
1996-09-13
|
804b
|
19 lines
global gOrigLoc, gDragChannel, gOrigSprite
on mouseDown
put the clickOn into gOrigSprite
-- put the loc of sprite gOrigSprite into gOrigLoc
set the memberNum of sprite gDragChannel = the number of member (the memberNum of sprite gOrigSprite)
set the locH of sprite gOrigSprite = 1500
repeat while the stilldown
set the locH of sprite gDragChannel = the mouseH
set the locV of sprite gDragChannel = the mouseV
updateStage
end repeat
set the memberNum of sprite gOrigSprite = the number of member ( the memberNum of sprite gDragChannel)
set the locH of sprite gOrigSprite = the mouseH
set the locV of sprite gOrigSprite = the mouseV
--set the loc of sprite gDragChannel = 1500
updateStage
checkLocation
set the locV of sprite gDragChannel = 1500
end