Enter 2003: The Beautiful Scenery/enter-parhaat-2003.iso/files/frendz.exe/frendz.dcr/Scripts_42_b_IntermisionLoop.ls

Text File | 2002-12-31 | 1.4 KB | 70 lines

property pPlay, pAnimationOver, pTicks
global gInterAni, gMessageBox, gPause, gSoundEnabled, gStopURL

on beginSprite me
  pPlay = 1
  pAnimationOver = 0
  pTicks = 0
  sprite(86).loc = point(63, 115)
end

on enterFrame me
  if pPlay = 1 then
    theFrame = playFlashAnimation(gInterAni, 84, gSoundEnabled)
    moveAniHotSpot(theFrame)
    pPlay = 0
  end if
end

on moveAniHotSpot theFrame
  n = gInterAni[1].getPos(theFrame)
  if (n = 3) or (n = 5) then
    sprite(86).loc = point(63, 142)
  else
    sprite(86).loc = point(63, 115)
  end if
end

on exitFrame me
  if pAnimationOver = 1 then
    if gPause = 0 then
      pTicks = pTicks + 1
      if pTicks = 60 then
        gMessageBox.mb_BoxSize(point(-200, 51), point(-200, 51), point(-200, 51))
        gMessageBox.mb_text(EMPTY)
        sprite(83).locH = -200
        sound(2).play(member("s_mouseDown"))
        go("Game")
      end if
    end if
    go(the frame)
  else
    go(the frame)
  end if
  theFrame = EMPTY
  case the keyPressed of
    "1":
      theFrame = "wave"
    "2":
      theFrame = "pop"
    "3":
      theFrame = "chase"
    "4":
      theFrame = "slide"
    "5":
      theFrame = "dance"
  end case
  if theFrame <> EMPTY then
    sprite(84).goToFrame(theFrame)
    moveAniHotSpot(theFrame)
    updateStage()
    sprite(84).play()
  end if
end

on flashAnimation me, Animation
  case Animation of
    "end":
  end case
end