home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / CSK / hyakki / adv_all / movie / Scene5.dcr / 00113.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.2 KB  |  48 lines
  1. on exitFrame
  2.   global glist, qaz
  3.   endframe()
  4.   if rollOver(1) then
  5.     if (qaz mod 2) = 0 then
  6.       set qaz to qaz + 1
  7.       go("bird")
  8.     end if
  9.   else
  10.     if rollOver(2) then
  11.       go("1to5")
  12.     else
  13.       if rollOver(3) then
  14.         go("1to2")
  15.       else
  16.         if rollOver(4) then
  17.           if (qaz < 2) and (the timer > 7200) then
  18.             set qaz to qaz + 2
  19.             go("moon")
  20.           end if
  21.         else
  22.           if rollOver(5) then
  23.             if ((the timer < 3600) or (the timer > 10800)) and (getOne(glist, 115) = 0) then
  24.               go(the frame + 1)
  25.             else
  26.               puppetSprite(15, 1)
  27.               repeat with i = 1 to 3
  28.                 set the castNum of sprite 15 to the number of cast "bura2"
  29.                 set the ink of sprite 15 to 36
  30.                 updateStage()
  31.                 wait(30)
  32.                 set the castNum of sprite 15 to the number of cast "bura1"
  33.                 set the ink of sprite 15 to 8
  34.                 updateStage()
  35.                 wait(30)
  36.               end repeat
  37.               puppetSprite(15, 0)
  38.             end if
  39.           else
  40.             nothing()
  41.           end if
  42.         end if
  43.       end if
  44.     end if
  45.   end if
  46.   go(the frame)
  47. end
  48.