home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Kyoto / culture / hinadan / hina.dcr / 00082.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  638 b   |  36 lines
  1. global gloch, glocv, gkanseilist
  2.  
  3. on startMovie
  4. end
  5.  
  6. on init_rtn
  7.   repeat with n = 7 to 35
  8.     set the visible of sprite n to 0
  9.   end repeat
  10.   cursor([201, 202])
  11.   repeat with n = 4 to 46
  12.     puppetSprite(n, 0)
  13.   end repeat
  14.   puppetSprite(3, 1)
  15.   set the visible of sprite 47 to 1
  16.   set the visible of sprite 48 to 1
  17.   if soundBusy(2) then
  18.     nothing()
  19.   else
  20.     puppetSound("S00.AIF")
  21.   end if
  22. end
  23.  
  24. on end_rtn
  25.   repeat with n = 1 to 48
  26.     puppetSprite(n, 0)
  27.   end repeat
  28.   if the machineType = 256 then
  29.     puppetTransition(26, 4, 6)
  30.   else
  31.     puppetTransition(51, 4, 6)
  32.   end if
  33.   play frame "BUNKI"
  34.   gotonetpage("index.html")
  35. end
  36.