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