home *** CD-ROM | disk | FTP | other *** search
/ PCMania 14 / Pcmania_Ep2_14_CD-ART_Futura_2000.iso / Datos / ExpoE.dir / 00006.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  5.1 KB  |  179 lines
  1. on exitFrame me
  2.   global imagen, pelicula, directionH1, directionV1, directionH2, directionV2, directionH3, directionV3, fundidofoto, fundidotexto
  3.   if imagen = 0 then
  4.     sprite(31).visible = 0
  5.   else
  6.     sprite(31).visible = 1
  7.   end if
  8.   updateStage()
  9.   actual = the memberNum of sprite 40
  10.   Tipo = word 1 of the name of member actual
  11.   if word 1 of the name of member (actual + 1) = Tipo then
  12.     sprite(33).visible = 1
  13.   else
  14.     sprite(33).visible = 0
  15.   end if
  16.   if word 1 of the name of member (actual - 1) = Tipo then
  17.     sprite(30).visible = 1
  18.   else
  19.     sprite(30).visible = 0
  20.   end if
  21.   if member(the member of sprite 8).scrollTop > (member(the member of sprite 8).height - 150) then
  22.     sprite(10).visible = 0
  23.   else
  24.     sprite(10).visible = 1
  25.   end if
  26.   if member(the member of sprite 8).scrollTop <= 0 then
  27.     sprite(9).visible = 0
  28.   else
  29.     sprite(9).visible = 1
  30.   end if
  31.   if member(the member of sprite 40).name contains "video" then
  32.     sound stop 2
  33.     if sprite(40).currentTime > (member(the member of sprite 40).duration - 100) then
  34.       set the rect of sprite 40 to rect(423, 51, 743, 291)
  35.       videopause(sprite(40))
  36.       videoseek(sprite(40), sprite(40).segmentstart + 1550)
  37.       repeat with i = 2 to 4
  38.         sprite(i).visible = 1
  39.       end repeat
  40.       puppetTransition(7, 0.5, 1, 0)
  41.       updateStage()
  42.     end if
  43.   else
  44.     if soundBusy(2) = 0 then
  45.       sound playFile 2, "pista.wav"
  46.     end if
  47.   end if
  48.   if the locH of sprite 2 > (350 - the width of sprite 2) then
  49.     directionH1 = random(3) * -1
  50.   end if
  51.   if the locH of sprite 2 < 40 then
  52.     directionH1 = random(3)
  53.   end if
  54.   if the locV of sprite 2 > (560 - the height of sprite 2) then
  55.     directionV1 = random(3) * -1
  56.   end if
  57.   if the locV of sprite 2 < 20 then
  58.     directionV1 = random(3)
  59.   end if
  60.   set the locH of sprite 2 to the locH of sprite 2 + (2 * directionH1)
  61.   set the locV of sprite 2 to the locV of sprite 2 + (2 * directionV1)
  62.   updateStage()
  63.   if the locH of sprite 3 > (350 - the width of sprite 3) then
  64.     directionH2 = random(3) * -1
  65.   end if
  66.   if the locH of sprite 3 < 40 then
  67.     directionH2 = random(3)
  68.   end if
  69.   if the locV of sprite 3 > (560 - the height of sprite 3) then
  70.     directionV2 = random(3) * -1
  71.   end if
  72.   if the locV of sprite 3 < 20 then
  73.     directionV2 = random(3)
  74.   end if
  75.   set the locH of sprite 3 to the locH of sprite 3 + (2 * directionH2)
  76.   set the locV of sprite 3 to the locV of sprite 3 + (2 * directionV2)
  77.   updateStage()
  78.   if the locH of sprite 4 > (350 - the width of sprite 4) then
  79.     directionH3 = random(3) * -1
  80.   end if
  81.   if the locH of sprite 4 < 40 then
  82.     directionH3 = random(3)
  83.   end if
  84.   if the locV of sprite 4 > (560 - the height of sprite 4) then
  85.     directionV3 = random(3) * -1
  86.   end if
  87.   if the locV of sprite 4 < 20 then
  88.     directionV3 = random(3)
  89.   end if
  90.   set the locH of sprite 4 to the locH of sprite 4 + (2 * directionH3)
  91.   set the locV of sprite 4 to the locV of sprite 4 + (2 * directionV3)
  92.   updateStage()
  93.   if rollover(29) then
  94.     if fundidofoto = 1 then
  95.       set the ink of sprite 28 to 32
  96.       set the blend of sprite 28 to 0
  97.       sprite(28).visible = 1
  98.       X = 0
  99.       repeat while X < 100
  100.         X = X + 10
  101.         set the blend of sprite 28 to X
  102.         repeat with i = 30 to 34
  103.           set the blend of sprite i to X
  104.         end repeat
  105.         updateStage()
  106.       end repeat
  107.       set the blend of sprite 28 to 100
  108.       set the ink of sprite 28 to 0
  109.       repeat with i = 30 to 34
  110.         set the ink of sprite i to 0
  111.       end repeat
  112.       updateStage()
  113.       fundidofoto = 0
  114.     end if
  115.   else
  116.     if fundidofoto = 0 then
  117.       X = 100
  118.       repeat while X > 40
  119.         X = X - 10
  120.         set the blend of sprite 28 to X
  121.         repeat with i = 30 to 34
  122.           set the blend of sprite i to the blend of sprite i - 5
  123.         end repeat
  124.         updateStage()
  125.       end repeat
  126.       sprite(28).visible = 0
  127.       repeat with i = 30 to 34
  128.         set the ink of sprite i to 32
  129.         set the blend of sprite i to 20
  130.       end repeat
  131.       updateStage()
  132.       fundidofoto = 1
  133.     end if
  134.   end if
  135.   if rollover(7) then
  136.     if fundidotexto = 1 then
  137.       set the ink of sprite 6 to 32
  138.       set the blend of sprite 6 to 0
  139.       sprite(6).visible = 1
  140.       X = 0
  141.       repeat while X < 100
  142.         X = X + 10
  143.         set the blend of sprite 6 to X
  144.         repeat with i = 9 to 11
  145.           set the blend of sprite i to X
  146.         end repeat
  147.         updateStage()
  148.       end repeat
  149.       set the blend of sprite 6 to 100
  150.       set the ink of sprite 6 to 0
  151.       repeat with i = 9 to 11
  152.         set the ink of sprite i to 0
  153.       end repeat
  154.       updateStage()
  155.       fundidotexto = 0
  156.     end if
  157.   else
  158.     if fundidotexto = 0 then
  159.       X = 100
  160.       repeat while X > 40
  161.         X = X - 10
  162.         set the blend of sprite 6 to X
  163.         repeat with i = 9 to 11
  164.           set the blend of sprite i to the blend of sprite i - 5
  165.         end repeat
  166.         updateStage()
  167.       end repeat
  168.       sprite(6).visible = 0
  169.       repeat with i = 9 to 11
  170.         set the ink of sprite i to 32
  171.         set the blend of sprite i to 20
  172.       end repeat
  173.       updateStage()
  174.       fundidotexto = 1
  175.     end if
  176.   end if
  177.   play frame the frame
  178. end
  179.