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