home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_26_b_IntroAnimation.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  1.5 KB  |  62 lines
  1. property pSpriteNumber
  2. global gTimerObj, gAnimate, gTicks, gDirection, gSeconds, gStartFrame
  3.  
  4. on new me
  5.   pSpriteNumber = me.spriteNum
  6.   return me
  7. end
  8.  
  9. on beginSprite me
  10.   gAnimate = "Yes"
  11.   gDirection = "Down"
  12.   sprite(pSpriteNumber).height = 0
  13.   sprite(pSpriteNumber).width = 0
  14.   sprite(pSpriteNumber).rotation = 0
  15.   gTimerObj = new(script("p_timer"))
  16.   resetTimer(gTimerObj)
  17. end
  18.  
  19. on exitFrame me
  20.   case gAnimate of
  21.     "yes":
  22.       sprite(pSpriteNumber).height = sprite(pSpriteNumber).height + 33
  23.       sprite(pSpriteNumber).width = sprite(pSpriteNumber).width + 102
  24.       if sprite(pSpriteNumber).width >= 200 then
  25.         puppetSound(1, "s_attentn")
  26.         gAnimate = "rotate"
  27.         resetTimer(gTimerObj)
  28.         runTimer(gTimerObj)
  29.       end if
  30.     "rotate":
  31.       if gDirection = "Down" then
  32.         sprite(pSpriteNumber).rotation = sprite(pSpriteNumber).rotation + 5
  33.         gDirection = "Up"
  34.       else
  35.         sprite(pSpriteNumber).rotation = sprite(pSpriteNumber).rotation - 5
  36.         gDirection = "Down"
  37.       end if
  38.       gSeconds = float(reportTimer(gTimerObj))
  39.       checkTime2(me)
  40.     "no":
  41.       gSeconds = float(reportTimer(gTimerObj))
  42.       checkTime(me)
  43.   end case
  44. end
  45.  
  46. on checkTime me
  47.   if gSeconds > 3 then
  48.     stopTimer(gTimerObj)
  49.     go(gStartFrame)
  50.   end if
  51. end
  52.  
  53. on checkTime2 me
  54.   if gSeconds > 0.14000000000000001 then
  55.     stopTimer(gTimerObj)
  56.     sprite(pSpriteNumber).rotation = 0
  57.     gAnimate = "no"
  58.     resetTimer(gTimerObj)
  59.     runTimer(gTimerObj)
  60.   end if
  61. end
  62.