home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / t_online / shared.dir / 00308.ls < prev    next >
Encoding:
Text File  |  1996-09-18  |  8.3 KB  |  291 lines
  1. on hauptroll var, var1
  2.   repeat with dummy = 0 to var1 - 1
  3.     if rollOver(24 + dummy) then
  4.       set the castNum of sprite (24 + dummy) to var + 1 + (dummy * 3)
  5.       updateStage()
  6.     end if
  7.     if (rollOver(24 + dummy) = 0) and (the castNum of sprite (24 + dummy) <> (var + (dummy * 2))) then
  8.       set the castNum of sprite (24 + dummy) to var + (dummy * 3)
  9.     end if
  10.   end repeat
  11.   updateStage()
  12. end
  13.  
  14. on nebenroll1 var, var1
  15.   repeat with dummy = 0 to var1 - 1
  16.     if rollOver(46 + dummy) then
  17.       set the castNum of sprite (46 + dummy) to var + 1 + (dummy * 3)
  18.       updateStage()
  19.     end if
  20.     if (rollOver(46 + dummy) = 0) and (the castNum of sprite (46 + dummy) <> (var + (dummy * 3))) then
  21.       set the castNum of sprite (46 + dummy) to var + (dummy * 3)
  22.     end if
  23.   end repeat
  24.   updateStage()
  25. end
  26.  
  27. on nebenroll3 var, var1
  28.   repeat with dummy = 0 to var1 - 1
  29.     if rollOver(44 + dummy) then
  30.       set the castNum of sprite (44 + dummy) to var + 1 + (dummy * 3)
  31.       updateStage()
  32.     end if
  33.     if (rollOver(44 + dummy) = 0) and (the castNum of sprite (44 + dummy) <> (var + (dummy * 3))) then
  34.       set the castNum of sprite (44 + dummy) to var + (dummy * 3)
  35.     end if
  36.   end repeat
  37.   updateStage()
  38. end
  39.  
  40. on nebenroll4 var, var1
  41.   global schalterT4
  42.   repeat with dummy = 0 to var1 - 1
  43.     if rollOver(41 + dummy) then
  44.       if (dummy = 0) and (schalterT4 = 1) then
  45.         set the castNum of sprite (41 + dummy) to 348
  46.       end if
  47.       if (dummy = 1) and (schalterT4 = 0) then
  48.         set the castNum of sprite (41 + dummy) to 351
  49.       end if
  50.       if dummy = 2 then
  51.         set the castNum of sprite (41 + dummy) to var + 1 + (dummy * 3)
  52.       end if
  53.       updateStage()
  54.     end if
  55.     if rollOver(41 + dummy) = 0 then
  56.       if (dummy = 0) and (schalterT4 = 1) then
  57.         set the castNum of sprite (41 + dummy) to 347
  58.       end if
  59.       if (dummy = 1) and (schalterT4 = 0) then
  60.         set the castNum of sprite (41 + dummy) to 350
  61.       end if
  62.       if dummy = 2 then
  63.         set the castNum of sprite (41 + dummy) to var + (dummy * 3)
  64.       end if
  65.     end if
  66.   end repeat
  67.   updateStage()
  68. end
  69.  
  70. on nebenroll5 var, var1
  71.   global schalterT5, posSlider
  72.   repeat with dummy = 0 to var1 - 1
  73.     if rollOver(40 + dummy) then
  74.       set the castNum of sprite (40 + dummy) to var + 1 + (dummy * 3)
  75.       updateStage()
  76.     end if
  77.     if (rollOver(40 + dummy) = 0) and (the castNum of sprite (40 + dummy) <> (var + (dummy * 3))) then
  78.       set the castNum of sprite (40 + dummy) to var + (dummy * 3)
  79.     end if
  80.     set the locV of sprite 38 to 346
  81.     repeat while the stillDown
  82.       if schalterT5 = 0 then
  83.         set the locH of sprite 38 to constrainH(37, the mouseH)
  84.         set posSlider to the locH of sprite 38
  85.         set the volume of sound 2 to (posSlider - 497) * (255 / 68)
  86.         set the volume of sound 1 to (posSlider - 497) * (255 / 68)
  87.         updateStage()
  88.       end if
  89.     end repeat
  90.     puppetSound(0)
  91.   end repeat
  92.   updateStage()
  93. end
  94.  
  95. on balkenT0
  96.   set the locV of sprite 46 to 1077
  97.   set the blend of sprite 36 to 100
  98.   set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  99.   set the castNum of sprite 36 to the number of cast "BalkenT1"
  100.   set the blend of sprite 46 to 100
  101.   set the blend of sprite 47 to 100
  102.   set the locV of sprite 46 to 477
  103.   set the blend of sprite 46 to 0
  104.   set the castNum of sprite 47 to the number of cast "but2BalkenT1" + 2
  105.   set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  106.   set the blend of sprite 36 to 0
  107.   set the blend of sprite 47 to 0
  108. end
  109.  
  110. on balkenT1
  111.   global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  112.   if balkenT5 = 1 then
  113.     balkenT5()
  114.   end if
  115.   if balkenT2 = 1 then
  116.     balkenT2()
  117.   end if
  118.   if BalkenT3 = 1 then
  119.     BalkenT3()
  120.   end if
  121.   if balkenT4 = 1 then
  122.     balkenT4()
  123.   end if
  124.   set balkenT1 to balkenT1 + 1
  125.   if balkenT1 > 1 then
  126.     set balkenT1 to 0
  127.   end if
  128.   if balkenT1 = 1 then
  129.     puppetSound("raus")
  130.     set the locH of sprite 46 to 477
  131.     set the blend of sprite 36 to 100
  132.     set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  133.     updateStage()
  134.     set the castNum of sprite 36 to the number of cast "BalkenT1"
  135.     set the blend of sprite 46 to 100
  136.     updateStage()
  137.   else
  138.     set the locH of sprite 46 to 1077
  139.     puppetSound("click")
  140.     set the blend of sprite 46 to 0
  141.     puppetSound("raus")
  142.     set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  143.     updateStage()
  144.     set the blend of sprite 36 to 0
  145.     updateStage()
  146.   end if
  147. end
  148.  
  149. on BalkenT3
  150.   global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  151.   if balkenT1 = 1 then
  152.     balkenT1()
  153.   end if
  154.   if balkenT2 = 1 then
  155.     balkenT2()
  156.   end if
  157.   if balkenT5 = 1 then
  158.     balkenT5()
  159.   end if
  160.   if balkenT4 = 1 then
  161.     balkenT4()
  162.   end if
  163.   set BalkenT3 to BalkenT3 + 1
  164.   if BalkenT3 > 1 then
  165.     set BalkenT3 to 0
  166.   end if
  167.   if BalkenT3 = 1 then
  168.     puppetSound("raus")
  169.     set the blend of sprite 35 to 100
  170.     set the castNum of sprite 35 to the number of cast "BalkenT3" + 1
  171.     updateStage()
  172.     set the castNum of sprite 35 to the number of cast "BalkenT3"
  173.     set the blend of sprite 44 to 100
  174.     updateStage()
  175.     set the blend of sprite 45 to 100
  176.   else
  177.     puppetSound("click")
  178.     set the blend of sprite 44 to 0
  179.     set the castNum of sprite 45 to the number of cast "but2BalkenT3" + 2
  180.     updateStage()
  181.     puppetSound("raus")
  182.     set the castNum of sprite 35 to the number of cast "BalkenT3" + 1
  183.     updateStage()
  184.     set the blend of sprite 35 to 0
  185.     set the blend of sprite 45 to 0
  186.     updateStage()
  187.   end if
  188. end
  189.  
  190. on balkenT4
  191.   global schalterT4, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  192.   if balkenT1 = 1 then
  193.     balkenT1()
  194.   end if
  195.   if balkenT2 = 1 then
  196.     balkenT2()
  197.   end if
  198.   if BalkenT3 = 1 then
  199.     BalkenT3()
  200.   end if
  201.   if balkenT5 = 1 then
  202.     balkenT5()
  203.   end if
  204.   set balkenT4 to balkenT4 + 1
  205.   if balkenT4 > 1 then
  206.     set balkenT4 to 0
  207.   end if
  208.   if balkenT4 = 1 then
  209.     puppetSound("raus")
  210.     set the blend of sprite 34 to 100
  211.     set the blend of sprite 41 to 100
  212.     set the blend of sprite 42 to 100
  213.     if schalterT4 = 0 then
  214.       set the castNum of sprite 41 to the number of cast "but1BalkenT4"
  215.       set the castNum of sprite 42 to the number of cast "but2BalkenT4" + 1
  216.     else
  217.       set the castNum of sprite 41 to the number of cast "but1BalkenT4" + 1
  218.       set the castNum of sprite 42 to the number of cast "but2BalkenT4"
  219.     end if
  220.     set the castNum of sprite 34 to the number of cast "BalkenT4" + 1
  221.     updateStage()
  222.     set the castNum of sprite 34 to the number of cast "BalkenT4"
  223.     updateStage()
  224.     set the blend of sprite 43 to 100
  225.   else
  226.     puppetSound("click")
  227.     set the castNum of sprite 43 to the number of cast "but3BalkenT4" + 2
  228.     updateStage()
  229.     puppetSound("raus")
  230.     set the castNum of sprite 34 to the number of cast "BalkenT4" + 1
  231.     updateStage()
  232.     set the blend of sprite 34 to 0
  233.     set the blend of sprite 41 to 0
  234.     set the blend of sprite 42 to 0
  235.     set the blend of sprite 43 to 0
  236.     updateStage()
  237.   end if
  238. end
  239.  
  240. on balkenT5
  241.   global posSlider, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  242.   if balkenT1 = 1 then
  243.     balkenT1()
  244.   end if
  245.   if balkenT2 = 1 then
  246.     balkenT2()
  247.   end if
  248.   if BalkenT3 = 1 then
  249.     BalkenT3()
  250.   end if
  251.   if balkenT4 = 1 then
  252.     balkenT4()
  253.   end if
  254.   set balkenT5 to balkenT5 + 1
  255.   if balkenT5 > 1 then
  256.     set balkenT5 to 0
  257.   end if
  258.   if balkenT5 = 1 then
  259.     puppetSound("raus")
  260.     set the blend of sprite 33 to 100
  261.     set the blend of sprite 38 to 100
  262.     set the castNum of sprite 33 to the number of cast "BalkenT5" + 1
  263.     updateStage()
  264.     set the castNum of sprite 33 to the number of cast "BalkenT5"
  265.     set the blend of sprite 39 to 100
  266.     updateStage()
  267.     set the blend of sprite 40 to 100
  268.   else
  269.     puppetSound("click")
  270.     set the castNum of sprite 40 to the number of cast "but3BalkenT5" + 2
  271.     updateStage()
  272.     puppetSound("raus")
  273.     set the blend of sprite 39 to 0
  274.     set the castNum of sprite 33 to the number of cast "BalkenT5" + 1
  275.     updateStage()
  276.     set the blend of sprite 33 to 0
  277.     set the blend of sprite 38 to 0
  278.     set the blend of sprite 40 to 0
  279.     updateStage()
  280.     set the castNum of sprite 40 to the number of cast "but3BalkenT5"
  281.   end if
  282. end
  283.  
  284. on inhaltdown
  285.   puppetSound("click")
  286.   set the castNum of sprite 26 to the number of cast "tinhalt" + 2
  287.   updateStage()
  288.   set the castNum of sprite 26 to the number of cast "tinhalt"
  289.   updateStage()
  290. end
  291.