home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SlightOHand.dxr / Internal_9_hands.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  800 b   |  36 lines
  1. property pHand, spriteNum, pTimeout, pOriginalLoc
  2. global gHands, gCup
  3.  
  4. on beginSprite me
  5.   pHand = sprite(spriteNum)
  6.   pOriginalLoc = pHand.loc
  7.   gHands.addProp(pHand.member.name.symbol, pHand)
  8.   if pHand.member.name = "left" then
  9.     repeat with w = 1 to 9
  10.       member("arm" & w.string).regPoint = pHand.member.regPoint + point(-10, 10)
  11.     end repeat
  12.   end if
  13. end
  14.  
  15. on pushCup me
  16.   pHand.locH = gCup.locH
  17.   pHand.locV = gCup.top
  18.   pTimeout = timeout(string(the ticks + spriteNum)).new(15, #followCup, me)
  19.   gCup.visible = 0
  20.   pHand.member = member("cup and arm")
  21.   gCup.coverBall()
  22. end
  23.  
  24. on followCup me
  25.   if gCup.loc <> gCup.pOriginalLoc then
  26.     pHand.locV = gCup.loc[2]
  27.     pHand.locH = gCup.loc[1]
  28.   else
  29.     pTimeout.forget()
  30.     pHand.loc = pOriginalLoc
  31.   end if
  32. end
  33.  
  34. on followsCup me, so
  35. end
  36.