Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00221_MM ArquivosX- Troca fotos.ls

Text File | 1999-03-19 | 1.5 KB | 54 lines

property spr, mem
property fotoAtual, posicao -- posicao = 0 .. 10000, posicao da foto

on beginSprite me
  set spr = the spriteNum of me
  set mem = the number of member "XFilesFotinhas"
  set fotoAtual = the number of the member of sprite spr
  set posicao = 0
  set the visibility of sprite (spr+1) to false
end

on scrollLinha me, move
  scroll me, move*200
end

on scroll me, move
  repeat while move <> 0
    if move + posicao < 0 then
      set move = move + posicao
      set posicao = 10000
      set fotoAtual = fotoAtual - 1
      if fotoAtual < mem then
        set fotoAtual = mem + 5
      end if
    else if move + posicao > 10000 then
      set move = move - (10000 - posicao)
      set posicao = 0
      set fotoAtual = fotoAtual + 1
      if fotoAtual > mem + 5 then
        set fotoAtual = mem
      end if
    else
      set posicao = posicao + move
      set the member of sprite spr to¬
           member fotoAtual
      if posicao < 7000 then
        set the visibility of sprite (spr+1) to false
      else
        if posicao < 8000 then
          set the member of sprite (spr+1) to¬
                  member "XFilesX1"
        else if posicao < 9000 then
          set the member of sprite (spr+1) to¬
                  member "XFilesX2"
        else
          set the member of sprite (spr+1) to¬
                  member "XFilesX3"
        end if
        set the visibility of sprite (spr+1) to true
      end if
      set move = 0
    end if
  end repeat
end