home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Manet.dxr / 00001_main.ls next >
Encoding:
Text File  |  2000-12-21  |  744 b   |  15 lines
  1. on startMovie
  2.   global gpittore
  3.   screen = the deskTopRectList
  4.   if screen = [rect(0, 0, 640, 480)] then
  5.     alert("L'applicazione ├¿ sviluppata per sistemi con risoluzione video almeno di 800x600 pixel." & RETURN & "Impossibile proseguire con il caricamento dei dati.")
  6.     quit()
  7.   end if
  8.   if the colorDepth < 16 then
  9.     alert("L'applicazione ├¿ sviluppata per sistemi con profondit├á di colore" & RETURN & "del monitor impostata ad almeno 65536 colori (16 bit)." & RETURN & "Usare il pannello di controllo di Windows per impostare tale requisito." & RETURN & "Impossibile proseguire con il caricamento dei dati.")
  10.     quit()
  11.   end if
  12.   gpittore = the text of field "codicePittore" of castLib "common"
  13.   the soundDevice = "DIRECTSOUND"
  14. end
  15.