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 / 00089.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  17.8 KB  |  497 lines
  1. global gp1list, gp2list, gp3list, gp4list, gp5list, gp6list, gpeachlist, gvisible, gsoundflg
  2.  
  3. on kansei_init_rtn
  4.   cursor(0)
  5.   set gvisible to 0
  6.   puppetSprite(4, 1)
  7.   set the visible of sprite 7 to 1
  8.   set the visible of sprite 8 to 1
  9.   repeat with n = 31 to 42
  10.     puppetSprite(n, 1)
  11.     set the visible of sprite n to 1
  12.   end repeat
  13.   repeat with n = 43 to 48
  14.     set the visible of sprite n to 0
  15.   end repeat
  16.   set gsoundflg to 0
  17.   set_list_rtn()
  18. end
  19.  
  20. on loop_rtn
  21.   when mouseDown then SOUND_RTN
  22.   if gsoundflg = 1 then
  23.     if the timer <= 180 then
  24.       nothing()
  25.     else
  26.       set gsoundflg to 0
  27.       sound fadeIn 2, 15
  28.     end if
  29.   end if
  30.   pmove_rtn()
  31.   name_rtn()
  32.   roll_chk()
  33.   title_rtn()
  34. end
  35.  
  36. on set_list_rtn
  37.   set gpeachlist to [0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0]
  38.   set gp1list to [41: 59, 42: 61, 44: 66, 49: 75, 57: 90, 66: 108, 76: 127, 85: 145, 94: 163, 102: 178, 107: 187, 109: 192, 110: 194, 112: 195, 117: 199, 128: 206, 144: 217, 163: 231, 184: 245, 205: 259, 224: 273, 240: 284, 251: 291, 256: 295, 258: 296]
  39.   set gp2list to [89: 4, 89: 5, 88: 9, 86: 16, 84: 27, 80: 41, 77: 55, 74: 70, 70: 84, 67: 99, 64: 113, 61: 124, 59: 132, 58: 139, 56: 144, 56: 147, 55: 149, 55: 150, 55: 151, 55: 155, 56: 161, 57: 171, 57: 184, 58: 197, 59: 210, 60: 224, 62: 238, 63: 251, 64: 264, 64: 277, 65: 287, 66: 297, 66: 298]
  40.   set gp3list to [298: 7, 298: 8, 296: 10, 293: 14, 288: 21, 280: 32, 272: 45, 262: 59, 252: 73, 241: 88, 231: 102, 221: 116, 213: 129, 205: 140, 200: 147, 197: 151, 195: 153, 195: 154, 195: 154, 193: 156, 190: 159, 184: 164, 176: 171, 167: 179, 156: 189, 145: 199, 133: 210, 121: 221, 108: 232, 96: 243, 84: 254, 73: 264, 62: 274, 53: 282, 45: 289, 39: 294, 36: 297, 34: 299, 34: 299]
  41.   set gp4list to [41: 59, 42: 61, 44: 66, 49: 75, 57: 90, 66: 108, 76: 127, 85: 145, 94: 163, 102: 178, 107: 187, 109: 192, 110: 194, 112: 195, 117: 199, 128: 206, 144: 217, 163: 231, 184: 245, 205: 259, 224: 273, 240: 284, 251: 291, 256: 295, 258: 296]
  42.   set gp5list to [149: 3, 149: 4, 148: 5, 147: 9, 145: 14, 142: 20, 139: 29, 135: 39, 130: 52, 124: 66, 119: 81, 113: 96, 107: 110, 102: 124, 97: 137, 93: 147, 90: 154, 88: 158, 88: 159, 89: 160, 91: 163, 96: 169, 102: 179, 110: 190, 119: 202, 128: 215, 137: 227, 147: 240, 156: 253, 165: 265, 173: 276, 179: 286, 184: 292, 186: 295, 187: 296]
  43.   set gp6list to [89: 4, 89: 5, 88: 9, 86: 16, 84: 27, 80: 41, 77: 55, 74: 70, 70: 84, 67: 99, 64: 113, 61: 124, 59: 132, 58: 139, 56: 144, 56: 147, 55: 150, 55: 151, 55: 155, 56: 161, 57: 171, 57: 184, 58: 197, 59: 210, 60: 224, 62: 238, 63: 251, 64: 264, 65: 287, 66: 293, 66: 293, 66: 297, 66: 298]
  44. end
  45.  
  46. on pmove_rtn
  47.   if getAt(gpeachlist, 1) <> 0 then
  48.     if getAt(gpeachlist, 1) < 25 then
  49.       setAt(gpeachlist, 1, getAt(gpeachlist, 1) + 1)
  50.       set the locH of sprite 31 to getPropAt(gp1list, getAt(gpeachlist, 1))
  51.       set the locV of sprite 31 to getAt(gp1list, getAt(gpeachlist, 1))
  52.     else
  53.       setAt(gpeachlist, 1, 0)
  54.       set the locH of sprite 31 to -20
  55.       set the locV of sprite 31 to -20
  56.     end if
  57.   end if
  58.   if getAt(gpeachlist, 2) <> 0 then
  59.     if getAt(gpeachlist, 2) < 33 then
  60.       setAt(gpeachlist, 2, getAt(gpeachlist, 2) + 1)
  61.       set the locH of sprite 32 to getPropAt(gp2list, getAt(gpeachlist, 2))
  62.       set the locV of sprite 32 to getAt(gp2list, getAt(gpeachlist, 2))
  63.     else
  64.       setAt(gpeachlist, 2, 0)
  65.       set the locH of sprite 32 to -20
  66.       set the locV of sprite 32 to -20
  67.     end if
  68.   end if
  69.   if getAt(gpeachlist, 3) <> 0 then
  70.     if getAt(gpeachlist, 3) < 39 then
  71.       setAt(gpeachlist, 3, getAt(gpeachlist, 3) + 1)
  72.       set the locH of sprite 33 to getPropAt(gp3list, getAt(gpeachlist, 3))
  73.       set the locV of sprite 33 to getAt(gp3list, getAt(gpeachlist, 3))
  74.     else
  75.       setAt(gpeachlist, 3, 0)
  76.       set the locH of sprite 33 to -20
  77.       set the locV of sprite 33 to -20
  78.     end if
  79.   end if
  80.   if getAt(gpeachlist, 4) <> 0 then
  81.     if getAt(gpeachlist, 4) < 25 then
  82.       setAt(gpeachlist, 4, getAt(gpeachlist, 4) + 1)
  83.       set the locH of sprite 34 to getPropAt(gp4list, getAt(gpeachlist, 4))
  84.       set the locV of sprite 34 to getAt(gp4list, getAt(gpeachlist, 4))
  85.     else
  86.       setAt(gpeachlist, 4, 0)
  87.       set the locH of sprite 34 to -20
  88.       set the locV of sprite 34 to -20
  89.     end if
  90.   end if
  91.   if getAt(gpeachlist, 5) <> 0 then
  92.     if getAt(gpeachlist, 5) < 35 then
  93.       setAt(gpeachlist, 5, getAt(gpeachlist, 5) + 1)
  94.       set the locH of sprite 35 to getPropAt(gp5list, getAt(gpeachlist, 5))
  95.       set the locV of sprite 35 to getAt(gp5list, getAt(gpeachlist, 5))
  96.     else
  97.       setAt(gpeachlist, 5, 0)
  98.       set the locH of sprite 35 to -20
  99.       set the locV of sprite 35 to -20
  100.     end if
  101.   end if
  102.   if getAt(gpeachlist, 6) <> 0 then
  103.     if getAt(gpeachlist, 6) < 35 then
  104.       setAt(gpeachlist, 6, getAt(gpeachlist, 6) + 1)
  105.       set the locH of sprite 36 to getPropAt(gp5list, getAt(gpeachlist, 6))
  106.       set the locV of sprite 36 to getAt(gp5list, getAt(gpeachlist, 6))
  107.     else
  108.       setAt(gpeachlist, 6, 0)
  109.       set the locH of sprite 36 to -20
  110.       set the locV of sprite 36 to -20
  111.     end if
  112.   end if
  113.   if getAt(gpeachlist, 7) <> 0 then
  114.     if getAt(gpeachlist, 7) < 33 then
  115.       setAt(gpeachlist, 7, getAt(gpeachlist, 7) + 1)
  116.       set the locH of sprite 37 to getPropAt(gp2list, getAt(gpeachlist, 7))
  117.       set the locV of sprite 37 to getAt(gp2list, getAt(gpeachlist, 7))
  118.     else
  119.       setAt(gpeachlist, 7, 0)
  120.       set the locH of sprite 37 to -20
  121.       set the locV of sprite 37 to -20
  122.     end if
  123.   end if
  124.   if getAt(gpeachlist, 8) <> 0 then
  125.     if getAt(gpeachlist, 8) < 33 then
  126.       setAt(gpeachlist, 8, getAt(gpeachlist, 8) + 1)
  127.       set the locH of sprite 38 to getPropAt(gp2list, getAt(gpeachlist, 8))
  128.       set the locV of sprite 38 to getAt(gp2list, getAt(gpeachlist, 8))
  129.     else
  130.       setAt(gpeachlist, 8, 0)
  131.       set the locH of sprite 38 to -20
  132.       set the locV of sprite 38 to -20
  133.     end if
  134.   end if
  135.   if getAt(gpeachlist, 9) <> 0 then
  136.     if getAt(gpeachlist, 9) < 39 then
  137.       setAt(gpeachlist, 9, getAt(gpeachlist, 9) + 1)
  138.       set the locH of sprite 39 to getPropAt(gp3list, getAt(gpeachlist, 9))
  139.       set the locV of sprite 39 to getAt(gp3list, getAt(gpeachlist, 9))
  140.     else
  141.       setAt(gpeachlist, 9, 0)
  142.       set the locH of sprite 39 to -20
  143.       set the locV of sprite 39 to -20
  144.     end if
  145.   end if
  146.   if getAt(gpeachlist, 10) <> 0 then
  147.     if getAt(gpeachlist, 10) < 25 then
  148.       setAt(gpeachlist, 10, getAt(gpeachlist, 10) + 1)
  149.       set the locH of sprite 40 to getPropAt(gp4list, getAt(gpeachlist, 10))
  150.       set the locV of sprite 40 to getAt(gp4list, getAt(gpeachlist, 10))
  151.     else
  152.       setAt(gpeachlist, 10, 0)
  153.       set the locH of sprite 40 to -20
  154.       set the locV of sprite 40 to -20
  155.     end if
  156.   end if
  157.   if getAt(gpeachlist, 11) <> 0 then
  158.     if getAt(gpeachlist, 11) < 33 then
  159.       setAt(gpeachlist, 11, getAt(gpeachlist, 11) + 1)
  160.       set the locH of sprite 41 to getPropAt(gp2list, getAt(gpeachlist, 11))
  161.       set the locV of sprite 41 to getAt(gp2list, getAt(gpeachlist, 11))
  162.     else
  163.       setAt(gpeachlist, 11, 0)
  164.       set the locH of sprite 41 to -20
  165.       set the locV of sprite 41 to -20
  166.     end if
  167.   end if
  168.   if getAt(gpeachlist, 12) <> 0 then
  169.     if getAt(gpeachlist, 12) < 25 then
  170.       setAt(gpeachlist, 12, getAt(gpeachlist, 12) + 1)
  171.       set the locH of sprite 42 to getPropAt(gp4list, getAt(gpeachlist, 12))
  172.       set the locV of sprite 42 to getAt(gp4list, getAt(gpeachlist, 12))
  173.     else
  174.       setAt(gpeachlist, 12, 0)
  175.       set the locH of sprite 42 to -20
  176.       set the locV of sprite 42 to -20
  177.     end if
  178.   end if
  179.   if getAt(gpeachlist, 2) = 21 then
  180.     setAt(gpeachlist, 1, 1)
  181.   end if
  182.   if getAt(gpeachlist, 2) = 16 then
  183.     setAt(gpeachlist, 3, 1)
  184.   end if
  185.   if getAt(gpeachlist, 2) = 6 then
  186.     setAt(gpeachlist, 4, 1)
  187.   end if
  188.   if getAt(gpeachlist, 2) = 24 then
  189.     setAt(gpeachlist, 5, 1)
  190.   end if
  191.   if getAt(gpeachlist, 2) = 30 then
  192.     setAt(gpeachlist, 7, 1)
  193.   end if
  194.   if getAt(gpeachlist, 2) = 16 then
  195.     setAt(gpeachlist, 8, 1)
  196.   end if
  197.   if getAt(gpeachlist, 3) = 17 then
  198.     setAt(gpeachlist, 9, 1)
  199.   end if
  200.   if getAt(gpeachlist, 3) = 7 then
  201.     setAt(gpeachlist, 10, 1)
  202.   end if
  203.   if getAt(gpeachlist, 3) = 25 then
  204.     setAt(gpeachlist, 11, 1)
  205.   end if
  206.   if getAt(gpeachlist, 3) = 21 then
  207.     setAt(gpeachlist, 12, 1)
  208.   end if
  209.   if getAt(gpeachlist, 11) = 14 then
  210.     setAt(gpeachlist, 2, 1)
  211.   end if
  212.   if getAt(gpeachlist, 11) = 14 then
  213.     setAt(gpeachlist, 6, 1)
  214.   end if
  215. end
  216.  
  217. on name_rtn
  218.   if rollOver(12) then
  219.     set the castNum of sprite 3 to the number of cast 61
  220.   else
  221.     if rollOver(13) then
  222.       set the castNum of sprite 3 to the number of cast 62
  223.     else
  224.       if rollOver(15) then
  225.         set the castNum of sprite 3 to the number of cast 64
  226.       else
  227.         if rollOver(16) then
  228.           set the castNum of sprite 3 to the number of cast 65
  229.         else
  230.           if rollOver(17) then
  231.             set the castNum of sprite 3 to the number of cast 66
  232.           else
  233.             if rollOver(18) then
  234.               set the castNum of sprite 3 to the number of cast 67
  235.             else
  236.               if rollOver(19) then
  237.                 set the castNum of sprite 3 to the number of cast 68
  238.               else
  239.                 if rollOver(20) then
  240.                   set the castNum of sprite 3 to the number of cast 69
  241.                 else
  242.                   if rollOver(21) then
  243.                     set the castNum of sprite 3 to the number of cast 70
  244.                   else
  245.                     if rollOver(22) then
  246.                       set the castNum of sprite 3 to the number of cast 71
  247.                     else
  248.                       if rollOver(24) then
  249.                         set the castNum of sprite 3 to the number of cast 73
  250.                       else
  251.                         if rollOver(25) then
  252.                           set the castNum of sprite 3 to the number of cast 74
  253.                         else
  254.                           if rollOver(26) then
  255.                             set the castNum of sprite 3 to the number of cast 79
  256.                           else
  257.                             if rollOver(27) then
  258.                               set the castNum of sprite 3 to the number of cast 80
  259.                             else
  260.                               if rollOver(28) then
  261.                                 set the castNum of sprite 3 to the number of cast 76
  262.                               else
  263.                                 if rollOver(29) then
  264.                                   set the castNum of sprite 3 to the number of cast 77
  265.                                 else
  266.                                   if rollOver(30) then
  267.                                     set the castNum of sprite 3 to the number of cast 78
  268.                                   else
  269.                                     set gvisible to 1
  270.                                     set the visible of sprite 43 to 0
  271.                                     set the visible of sprite 44 to 0
  272.                                     set the visible of sprite 45 to 0
  273.                                     set the visible of sprite 46 to 0
  274.                                     set the visible of sprite 47 to 0
  275.                                     set the visible of sprite 48 to 0
  276.                                     set the castNum of sprite 3 to the number of cast 81
  277.                                   end if
  278.                                 end if
  279.                               end if
  280.                             end if
  281.                           end if
  282.                         end if
  283.                       end if
  284.                     end if
  285.                   end if
  286.                 end if
  287.               end if
  288.             end if
  289.           end if
  290.         end if
  291.       end if
  292.     end if
  293.   end if
  294.   updateStage()
  295. end
  296.  
  297. on roll_chk
  298.   if gvisible = 1 then
  299.     return 
  300.   end if
  301.   if (clickOn() = 10) or (clickOn() = 11) or (clickOn() = 12) or (clickOn() = 13) then
  302.     set the visible of sprite 44 to 1
  303.   else
  304.     set the visible of sprite 44 to 0
  305.   end if
  306.   if (clickOn() = 14) or (clickOn() = 15) or (clickOn() = 16) or (clickOn() = 17) then
  307.     set the visible of sprite 45 to 1
  308.   else
  309.     set the visible of sprite 45 to 0
  310.   end if
  311.   if (clickOn() = 18) or (clickOn() = 19) or (clickOn() = 20) or (clickOn() = 21) or (clickOn() = 22) then
  312.     set the visible of sprite 46 to 1
  313.   else
  314.     set the visible of sprite 46 to 0
  315.   end if
  316.   if (clickOn() = 23) or (clickOn() = 24) or (clickOn() = 25) then
  317.     set the visible of sprite 47 to 1
  318.   else
  319.     set the visible of sprite 47 to 0
  320.   end if
  321.   if (clickOn() = 28) or (clickOn() = 29) or (clickOn() = 30) then
  322.     set the visible of sprite 48 to 1
  323.   else
  324.     set the visible of sprite 48 to 0
  325.   end if
  326.   if (clickOn() = 26) or (clickOn() = 27) then
  327.     set the visible of sprite 43 to 1
  328.   else
  329.     set the visible of sprite 43 to 0
  330.   end if
  331.   updateStage()
  332. end
  333.  
  334. on title_rtn
  335.   if rollOver(10) then
  336.     set the castNum of sprite 4 to the number of cast 48
  337.   else
  338.     if rollOver(11) then
  339.       set the castNum of sprite 4 to the number of cast 48
  340.     else
  341.       if rollOver(12) then
  342.         set the castNum of sprite 4 to the number of cast 48
  343.       else
  344.         if rollOver(13) then
  345.           set the castNum of sprite 4 to the number of cast 48
  346.         else
  347.           if rollOver(14) then
  348.             set the castNum of sprite 4 to the number of cast 49
  349.           else
  350.             if rollOver(15) then
  351.               set the castNum of sprite 4 to the number of cast 49
  352.             else
  353.               if rollOver(16) then
  354.                 set the castNum of sprite 4 to the number of cast 49
  355.               else
  356.                 if rollOver(17) then
  357.                   set the castNum of sprite 4 to the number of cast 49
  358.                 else
  359.                   if rollOver(18) then
  360.                     set the castNum of sprite 4 to the number of cast 50
  361.                   else
  362.                     if rollOver(19) then
  363.                       set the castNum of sprite 4 to the number of cast 50
  364.                     else
  365.                       if rollOver(20) then
  366.                         set the castNum of sprite 4 to the number of cast 50
  367.                       else
  368.                         if rollOver(21) then
  369.                           set the castNum of sprite 4 to the number of cast 50
  370.                         else
  371.                           if rollOver(22) then
  372.                             set the castNum of sprite 4 to the number of cast 50
  373.                           else
  374.                             if rollOver(23) then
  375.                               set the castNum of sprite 4 to the number of cast 51
  376.                             else
  377.                               if rollOver(24) then
  378.                                 set the castNum of sprite 4 to the number of cast 51
  379.                               else
  380.                                 if rollOver(25) then
  381.                                   set the castNum of sprite 4 to the number of cast 51
  382.                                 else
  383.                                   if rollOver(26) then
  384.                                     set the castNum of sprite 4 to the number of cast 52
  385.                                   else
  386.                                     if rollOver(27) then
  387.                                       set the castNum of sprite 4 to the number of cast 52
  388.                                     else
  389.                                       if rollOver(28) then
  390.                                         set the castNum of sprite 4 to the number of cast 52
  391.                                       else
  392.                                         if rollOver(29) then
  393.                                           set the castNum of sprite 4 to the number of cast 52
  394.                                         else
  395.                                           if rollOver(30) then
  396.                                             set the castNum of sprite 4 to the number of cast 52
  397.                                           else
  398.                                             nothing()
  399.                                           end if
  400.                                         end if
  401.                                       end if
  402.                                     end if
  403.                                   end if
  404.                                 end if
  405.                               end if
  406.                             end if
  407.                           end if
  408.                         end if
  409.                       end if
  410.                     end if
  411.                   end if
  412.                 end if
  413.               end if
  414.             end if
  415.           end if
  416.         end if
  417.       end if
  418.     end if
  419.   end if
  420. end
  421.  
  422. on sound_rtn
  423.   set gvisible to 0
  424.   if (clickOn() >= 12) and (clickOn() <= 30) then
  425.     set whichsound to 2
  426.   end if
  427.   if clickOn() = 12 then
  428.     puppetSound("S11.AIF")
  429.   end if
  430.   if clickOn() = 13 then
  431.     puppetSound("S15.AIF")
  432.   end if
  433.   if clickOn() = 15 then
  434.     puppetSound("S21.AIF")
  435.   end if
  436.   if clickOn() = 16 then
  437.     puppetSound("S23.AIF")
  438.   end if
  439.   if clickOn() = 17 then
  440.     puppetSound("S21.AIF")
  441.   end if
  442.   if clickOn() = 18 then
  443.     set whichsound to 1
  444.     sound fadeOut 2, 2
  445.     puppetSound("S39.AIF")
  446.   end if
  447.   if clickOn() = 19 then
  448.     set whichsound to 1
  449.     sound fadeOut 2, 2
  450.     puppetSound("S32.AIF")
  451.   end if
  452.   if clickOn() = 20 then
  453.     set whichsound to 1
  454.     sound fadeOut 2, 2
  455.     puppetSound("S33.AIF")
  456.   end if
  457.   if clickOn() = 21 then
  458.     set whichsound to 1
  459.     sound fadeOut 2, 2
  460.     puppetSound("S34.AIF")
  461.   end if
  462.   if clickOn() = 22 then
  463.     set whichsound to 1
  464.     sound fadeOut 2, 2
  465.     puppetSound("S38.AIF")
  466.   end if
  467.   if clickOn() = 24 then
  468.     puppetSound("S41.AIF")
  469.   end if
  470.   if clickOn() = 25 then
  471.     puppetSound("S42.AIF")
  472.   end if
  473.   if clickOn() = 26 then
  474.     puppetSound("S56.AIF")
  475.   end if
  476.   if clickOn() = 27 then
  477.     puppetSound("S57.AIF")
  478.   end if
  479.   if clickOn() = 28 then
  480.     puppetSound("S53.AIF")
  481.   end if
  482.   if clickOn() = 29 then
  483.     puppetSound("S52.AIF")
  484.   end if
  485.   if clickOn() = 30 then
  486.     puppetSound("S51.AIF")
  487.   end if
  488.   if (gsoundflg = 1) and (whichsound = 2) then
  489.     set gsoundflg to 0
  490.     sound fadeIn 2, 15
  491.   end if
  492.   if whichsound = 1 then
  493.     set gsoundflg to 1
  494.     startTimer()
  495.   end if
  496. end
  497.