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