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