home *** CD-ROM | disk | FTP | other *** search
/ 404 Jogos / CLJG.iso / Puzzle / rollon / rollon.dcr / 00007_CameraMove.ls < prev    next >
Encoding:
Text File  |  2004-09-09  |  665 b   |  31 lines
  1. property camModeList
  2. global cam, camMode, camBuffer, camStart, holeNum
  3.  
  4. on enterFrame me
  5.   mUpdate(me)
  6. end
  7.  
  8. on beginSprite me
  9.   s = sprite(me.spriteNum)
  10.   camBuffer = 0
  11.   cam = s.camera
  12.   cd = 800
  13.   camModeList = [0, cd, cd, 0, 0, -cd, -cd, 0]
  14.   mUpdate(me)
  15. end
  16.  
  17. on mUpdate me
  18.   s = sprite(me.spriteNum)
  19.   ballPos = s.member.model("Ball").worldPosition
  20.   tn = transform()
  21.   tn.position = ballPos
  22.   cx = camModeList[(camMode * 2) - 1]
  23.   cz = camModeList[camMode * 2]
  24.   tn.translate(cx, 500, cz)
  25.   if camBuffer < 20 then
  26.     camBuffer = camBuffer + 0.10000000000000001
  27.   end if
  28.   cam.transform.interpolateTo(tn, camBuffer)
  29.   cam.pointAt(ballPos, vector(0, 1, 0))
  30. end
  31.