home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_19_MCartLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  3.7 KB  |  100 lines
  1. global posicion, BotonMenu, BotonIzda, BotonDcha, primerafoto, numpeliculas, fotoIluminada
  2.  
  3. on enterFrame
  4.   set sobrequien to BuscarRollOver(2, 17)
  5.   if sobrequien <> posicion then
  6.     DesactivarPuppets()
  7.     if primerafoto > 1 then
  8.       puppetSprite(3, 0)
  9.     end if
  10.     if primerafoto <= (numpeliculas - 4) then
  11.       puppetSprite(4, 0)
  12.     end if
  13.     RefrescarFotos()
  14.     set posicion to sobrequien
  15.     case sobrequien of
  16.       2:
  17.         seleccionar(BotonMenu)
  18.         puppetSound("Select2")
  19.       3:
  20.         if primerafoto > 1 then
  21.           seleccionar(BotonIzda)
  22.           puppetSound("Select2")
  23.         end if
  24.       4:
  25.         if primerafoto <= (numpeliculas - 4) then
  26.           seleccionar(BotonDcha)
  27.           puppetSound("Select2")
  28.         end if
  29.       6, 10, 14:
  30.         puppetSound("Select2")
  31.         set fotoIluminada to primerafoto
  32.         set spr1 to 6
  33.         set spr2 to 10
  34.         set spr3 to 14
  35.         puppetSprite(spr1, 1)
  36.         puppetSprite(spr2, 1)
  37.         puppetSprite(spr3, 1)
  38.         set elmember to the number of member "Foto01a" of castLib "Entregas" + (2 * (primerafoto - 1))
  39.         set the castNum of sprite spr1 to elmember + 1
  40.         set elmember to the number of member "Num01a" of castLib "Entregas" + (2 * (primerafoto - 1))
  41.         set the castNum of sprite spr2 to elmember + 1
  42.         set elmember to the number of member "Tit01a" of castLib "Entregas" + (2 * (primerafoto - 1))
  43.         set the castNum of sprite spr3 to elmember + 1
  44.       7, 11, 15:
  45.         puppetSound("Select2")
  46.         set fotoIluminada to primerafoto + 1
  47.         set spr1 to 7
  48.         set spr2 to 11
  49.         set spr3 to 15
  50.         puppetSprite(spr1, 1)
  51.         puppetSprite(spr2, 1)
  52.         puppetSprite(spr3, 1)
  53.         set elmember to the number of member "Foto02a" of castLib "Entregas" + (2 * (primerafoto - 1))
  54.         set the castNum of sprite spr1 to elmember + 1
  55.         set elmember to the number of member "Num02a" of castLib "Entregas" + (2 * (primerafoto - 1))
  56.         set the castNum of sprite spr2 to elmember + 1
  57.         set elmember to the number of member "Tit02a" of castLib "Entregas" + (2 * (primerafoto - 1))
  58.         set the castNum of sprite spr3 to elmember + 1
  59.       8, 12, 16:
  60.         puppetSound("Select2")
  61.         set fotoIluminada to primerafoto + 2
  62.         set spr1 to 8
  63.         set spr2 to 12
  64.         set spr3 to 16
  65.         puppetSprite(spr1, 1)
  66.         puppetSprite(spr2, 1)
  67.         puppetSprite(spr3, 1)
  68.         set elmember to the number of member "Foto03a" of castLib "Entregas" + (2 * (primerafoto - 1))
  69.         set the castNum of sprite spr1 to elmember + 1
  70.         set elmember to the number of member "Num03a" of castLib "Entregas" + (2 * (primerafoto - 1))
  71.         set the castNum of sprite spr2 to elmember + 1
  72.         set elmember to the number of member "Tit03a" of castLib "Entregas" + (2 * (primerafoto - 1))
  73.         set the castNum of sprite spr3 to elmember + 1
  74.       9, 13, 17:
  75.         puppetSound("Select2")
  76.         set fotoIluminada to primerafoto + 3
  77.         set spr1 to 9
  78.         set spr2 to 13
  79.         set spr3 to 17
  80.         puppetSprite(spr1, 1)
  81.         puppetSprite(spr2, 1)
  82.         puppetSprite(spr3, 1)
  83.         set elmember to the number of member "Foto04a" of castLib "Entregas" + (2 * (primerafoto - 1))
  84.         set the castNum of sprite spr1 to elmember + 1
  85.         set elmember to the number of member "Num04a" of castLib "Entregas" + (2 * (primerafoto - 1))
  86.         set the castNum of sprite spr2 to elmember + 1
  87.         set elmember to the number of member "Tit04a" of castLib "Entregas" + (2 * (primerafoto - 1))
  88.         set the castNum of sprite spr3 to elmember + 1
  89.       otherwise:
  90.         set posicion to 0
  91.         set fotoIluminada to 0
  92.     end case
  93.     updateStage()
  94.   end if
  95. end
  96.  
  97. on exitFrame
  98.   go(the frame)
  99. end
  100.