Galleria D'arte: Manet/Manet.iso/Dati/Internet.dxr/00006_scorriavanti.ls

Text File | 2000-12-21 | 1.4 KB | 61 lines

property pCastORIG, pCastFB1

on getPropertyDescriptionList
  pippo = the memberNum of sprite the currentSpriteNum
  pluto = pippo + 1
  paperino = pippo + 2
  propertyDescriptionList = [#pCastORIG: [#comment: "Numero elemento del Cast di origine del bottone", #format: #integer, #default: pippo], #pCastFB1: [#comment: "Numero elemento del Cast del primo feedback", #format: #integer, #default: pluto]]
  return propertyDescriptionList
end

on mouseWithin me
  set the memberNum of sprite the currentSpriteNum to pCastFB1
  cursor(280)
  updateStage()
end

on mouseLeave me
  set the memberNum of sprite the currentSpriteNum to pCastORIG
  cursor(-1)
  updateStage()
end

on mouseDown me
  cursor(280)
  updateStage()
end

on mouseUp me
  global gPaginaCorrente, gPagine
  if gPaginaCorrente = gPagine then
    exit
  end if
  if gPaginaCorrente = 1 then
    caricasezione(9, 16)
  else
    if gPaginaCorrente = 2 then
      caricasezione(17, 24)
    else
      if gPaginaCorrente = 3 then
        caricasezione(25, 32)
      else
        if gPaginaCorrente = 4 then
          caricasezione(33, 40)
        else
          if gPaginaCorrente = 5 then
            caricasezione(41, 48)
          else
            if gPaginaCorrente = 6 then
              caricasezione(49, 56)
            else
              if gPaginaCorrente = 7 then
                caricasezione(57, 64)
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end