home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 D / MM_TREND.ISO / prog / basics / service.dir / 00060.ls < prev    next >
Encoding:
Text File  |  1996-09-16  |  2.7 KB  |  114 lines
  1. on rollo1 var, var1
  2.   repeat with dummy = 1 to var1
  3.     puppetSprite(31, 0)
  4.     puppetSprite(32, 1)
  5.     puppetSprite(33, 1)
  6.     puppetSprite(34, 1)
  7.     if rollOver(31 + dummy) then
  8.       set the castNum of sprite (31 + dummy) to var + 4 + dummy
  9.       if the mouseDown then
  10.         set the castNum of sprite (31 + dummy) to var + 8 + dummy
  11.         puppetSound("Sound 52")
  12.         updateStage()
  13.         if dummy = 3 then
  14.           quit()
  15.         end if
  16.         if dummy = 2 then
  17.           quit()
  18.         end if
  19.         if dummy = 1 then
  20.           go(marker(1))
  21.         end if
  22.         if dummy = 0 then
  23.           go(marker(-3))
  24.         end if
  25.         repeat while the mouseDown
  26.         end repeat
  27.       end if
  28.     end if
  29.     if rollOver(31 + dummy) = 0 then
  30.       set the castNum of sprite (31 + dummy) to var + dummy
  31.     end if
  32.   end repeat
  33.   updateStage()
  34. end
  35.  
  36. on rollo2 var, var1
  37.   global ende
  38.   repeat with dummy = 0 to var1 - 1
  39.     puppetSprite(31, 1)
  40.     puppetSprite(32, 1)
  41.     puppetSprite(33, 1)
  42.     puppetSprite(34, 1)
  43.     if rollOver(31 + dummy) then
  44.       set the castNum of sprite (31 + dummy) to var + 4 + dummy
  45.       if the mouseDown then
  46.         set the castNum of sprite (31 + dummy) to var + 8 + dummy
  47.         puppetSound("Sound 52")
  48.         updateStage()
  49.         if dummy = 3 then
  50.           quit()
  51.         end if
  52.         if dummy = 2 then
  53.           quit()
  54.         end if
  55.         if dummy = 1 then
  56.           go(marker(1))
  57.         end if
  58.         if dummy = 0 then
  59.           if ende = 0 then
  60.             go(marker(-3))
  61.           end if
  62.           if ende = 1 then
  63.             quit()
  64.           end if
  65.         end if
  66.         repeat while the mouseDown
  67.         end repeat
  68.       end if
  69.     end if
  70.     if rollOver(31 + dummy) = 0 then
  71.       set the castNum of sprite (31 + dummy) to var + dummy
  72.     end if
  73.   end repeat
  74.   updateStage()
  75. end
  76.  
  77. on rollo3 var, var1
  78.   repeat with dummy = 0 to var1 - 1
  79.     puppetSprite(31, 1)
  80.     puppetSprite(32, 0)
  81.     puppetSprite(33, 1)
  82.     puppetSprite(34, 1)
  83.     if rollOver(31 + dummy) then
  84.       set the castNum of sprite (31 + dummy) to var + 4 + dummy
  85.       if dummy = 1 then
  86.         exit
  87.       end if
  88.       if the mouseDown then
  89.         set the castNum of sprite (31 + dummy) to var + 8 + dummy
  90.         puppetSound("Sound 52")
  91.         updateStage()
  92.         if dummy = 3 then
  93.           quit()
  94.         end if
  95.         if dummy = 2 then
  96.           quit()
  97.         end if
  98.         if dummy = 1 then
  99.           go(marker(1))
  100.         end if
  101.         if dummy = 0 then
  102.           go(marker(-3))
  103.         end if
  104.         repeat while the mouseDown
  105.         end repeat
  106.       end if
  107.     end if
  108.     if rollOver(31 + dummy) = 0 then
  109.       set the castNum of sprite (31 + dummy) to var + dummy
  110.     end if
  111.   end repeat
  112.   updateStage()
  113. end
  114.