home *** CD-ROM | disk | FTP | other *** search
/ Lascaux 2 - Parc Animalier du Thot - Abri Pataud / SemitourPerigord-LascauxII-Win95Mac.bin / mac / PUZZ_UK.DXR / 00007_Text_archivedBeh.txt < prev    next >
Text File  |  1999-06-29  |  987b  |  36 lines
  1. property pSpriteNum, pBlankLoc, pSpriteLoc
  2.  
  3. on beginSprite me
  4.   put the spritenum of me into pSpriteNum
  5.   put pSpriteNum
  6. end
  7.  
  8. on mouseUp
  9.   
  10.   put the loc of sprite 5 into pBlankLoc
  11.   put pBlankLoc
  12.   
  13.   put the loc of sprite pSpriteNum into pSpriteLoc
  14.   put pSpriteLoc
  15.   
  16.   if abs(the locV of pBlankLoc - the locV of pSpriteLoc) > 51 or abs(the locH of pBlankLoc - the locH of pSpriteLoc) > 51 then
  17.     exit
  18.   else
  19.     if abs(the locV of pBlankLoc - the locV of pSpriteLoc) = 51 and abs(the locH of pBlankLoc - the locH of pSpriteLoc) = 51 then
  20.       exit
  21.     else
  22.       if abs(the locV of pBlankLoc - the locV of pSpriteLoc) = 0 and abs(the locH of pBlankLoc - the locH of pSpriteLoc) = 0 then
  23.         exit
  24.       else
  25.         puppetSound "Single Click", 3
  26.         set the loc of sprite 5 to the loc of sprite pSpriteNum
  27.         set the loc of sprite pSpriteNum to pBlankLoc
  28.         updateStage
  29.         
  30.       end if
  31.     end if
  32.   end if
  33.   
  34. end mouseUp
  35.  
  36.