home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / anim / service.exe / service.DXR / 00060.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  2.6 KB  |  108 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.   repeat with dummy = 0 to var1 - 1
  38.     puppetSprite(31, 1)
  39.     puppetSprite(32, 1)
  40.     puppetSprite(33, 1)
  41.     puppetSprite(34, 1)
  42.     if rollOver(31 + dummy) then
  43.       set the castNum of sprite (31 + dummy) to var + 4 + dummy
  44.       if the mouseDown then
  45.         set the castNum of sprite (31 + dummy) to var + 8 + dummy
  46.         puppetSound("Sound 52")
  47.         updateStage()
  48.         if dummy = 3 then
  49.           quit()
  50.         end if
  51.         if dummy = 2 then
  52.           quit()
  53.         end if
  54.         if dummy = 1 then
  55.           go(marker(1))
  56.         end if
  57.         if dummy = 0 then
  58.           go(marker(-3))
  59.         end if
  60.         repeat while the mouseDown
  61.         end repeat
  62.       end if
  63.     end if
  64.     if rollOver(31 + dummy) = 0 then
  65.       set the castNum of sprite (31 + dummy) to var + dummy
  66.     end if
  67.   end repeat
  68.   updateStage()
  69. end
  70.  
  71. on rollo3 var, var1
  72.   repeat with dummy = 0 to var1 - 1
  73.     puppetSprite(31, 1)
  74.     puppetSprite(32, 0)
  75.     puppetSprite(33, 1)
  76.     puppetSprite(34, 1)
  77.     if rollOver(31 + dummy) then
  78.       set the castNum of sprite (31 + dummy) to var + 4 + dummy
  79.       if dummy = 1 then
  80.         exit
  81.       end if
  82.       if the mouseDown then
  83.         set the castNum of sprite (31 + dummy) to var + 8 + dummy
  84.         puppetSound("Sound 52")
  85.         updateStage()
  86.         if dummy = 3 then
  87.           quit()
  88.         end if
  89.         if dummy = 2 then
  90.           quit()
  91.         end if
  92.         if dummy = 1 then
  93.           go(marker(1))
  94.         end if
  95.         if dummy = 0 then
  96.           go(marker(-3))
  97.         end if
  98.         repeat while the mouseDown
  99.         end repeat
  100.       end if
  101.     end if
  102.     if rollOver(31 + dummy) = 0 then
  103.       set the castNum of sprite (31 + dummy) to var + dummy
  104.     end if
  105.   end repeat
  106.   updateStage()
  107. end
  108.