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 / Scene3.dcr / 00126.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.8 KB  |  100 lines
  1. on startMovie
  2.   global glist, gn, tlist, mlist, isno, tct
  3.   set the visible of sprite 9 to 1
  4.   set the visible of sprite 12 to 1
  5.   set the visible of sprite 13 to 1
  6.   set the visible of sprite 14 to 1
  7.   set the visible of sprite 15 to 1
  8.   if (isno + 10) = 10 then
  9.     set isno to 1
  10.     set tlist to []
  11.     set mlist to []
  12.   else
  13.     set isno to isno + 1
  14.   end if
  15.   set the timeoutScript to EMPTY
  16.   set the timeoutKeyDown to 0
  17.   set the timeoutLength to 60 * 60
  18.   set the timeoutMouse to 0
  19.   set the timeoutPlay to 0
  20.   set tct to 1
  21.   add(mlist, 3)
  22.   set glist to []
  23.   set gn to 27
  24.   repeat with i = 27 to 37
  25.     set the visible of sprite i to 1
  26.   end repeat
  27. end
  28.  
  29. on wait t
  30.   set tn to the ticks + t
  31.   repeat while the ticks <= tn
  32.     nothing()
  33.   end repeat
  34. end
  35.  
  36. on hinotama num
  37.   global glist, gn, tlist
  38.   add(glist, num)
  39.   add(tlist, num)
  40.   set the visible of sprite gn to 0
  41.   set gn to gn + 1
  42. end
  43.  
  44. on endframe
  45.   global gn
  46.   if gn = 38 then
  47.     tout()
  48.   end if
  49. end
  50.  
  51. on tcheck
  52.   global tct
  53.   if tct = 1 then
  54.     set tct to 2
  55.     puppetSound("1")
  56.     set timeoutLapsed to 0
  57.   else
  58.     if tct = 2 then
  59.       set tct to 3
  60.       puppetSound("8")
  61.       set timeoutLapsed to 0
  62.     else
  63.       if tct = 3 then
  64.         set tct to 4
  65.         puppetSound("5")
  66.         set timeoutLapsed to 0
  67.       else
  68.         tout()
  69.       end if
  70.     end if
  71.   end if
  72. end
  73.  
  74. on tout
  75.   global glist, isno
  76.   set the timeoutScript to EMPTY
  77.   if isno = 7 then
  78.     gotonetmovie("end.dcr")
  79.     go("end")
  80.   else
  81.     if isno < 3 then
  82.       if count(glist) < 3 then
  83.         gotonetmovie("failure.dcr")
  84.         go("end")
  85.       else
  86.         gotonetmovie("success.dcr")
  87.         go("end")
  88.       end if
  89.     else
  90.       if count(glist) < (isno + 1) then
  91.         gotonetmovie("failure.dcr")
  92.         go("end")
  93.       else
  94.         gotonetmovie("success.dcr")
  95.         go("end")
  96.       end if
  97.     end if
  98.   end if
  99. end
  100.