home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Main.dxr / 00001_MAIN.ls next >
Encoding:
Text File  |  2000-12-21  |  2.2 KB  |  99 lines
  1. on prepareMovie
  2.   sprite(40).visible = 0
  3. end
  4.  
  5. on startMovie
  6.   global gBackAttivo, gSuonoAttivo, riattivagSuonoAttivo, gEFlencoopere, gRientroDaInternet, finestra, gpittore, gTooltip, gTutorial, gElencoOpereOld
  7.   register(xtra("PrintOMatic"), "PMAT162-785-87288")
  8.   dxRegister(111340792)
  9.   RegisterDirectEmail(161659558)
  10.   dosRegister(90034659)
  11.   dcRegister(126904465)
  12.   GrabRegister(388432713, 2093372122)
  13.   gpittore = the text of field "codicepittore" of castLib "common"
  14.   trovadesktop()
  15.   gElencoOpereOld = #vuoto
  16.   gElencoOpere = 0
  17.   gBackAttivo = 0
  18.   set the volume of sound 1 to 200
  19.   set the volume of sound 2 to 200
  20.   set the volume of sound 3 to 200
  21.   if gRientroDaInternet = 1 then
  22.     cursor(-1)
  23.     if finestra = VOID then
  24.       finestra = "home"
  25.     end if
  26.     unLoad()
  27.     the windowList = []
  28.     window(finestra).windowType = 2
  29.     window(finestra).rect = rect(the stageLeft + 76, the stageTop + 60, the stageLeft + 716, the stageTop + 540)
  30.     open(window(finestra))
  31.     gRientroDaInternet = 0
  32.   else
  33.     if gpittore = "071" then
  34.       gTooltip = 1
  35.     else
  36.       gTooltip = 0
  37.     end if
  38.     if the memorysize < 33000000 then
  39.       gSuonoAttivo = 0
  40.     else
  41.       gSuonoAttivo = 1
  42.     end if
  43.     riattivagSuonoAttivo = 0
  44.     gTutorial = "TMain"
  45.     listaBACK()
  46.   end if
  47. end
  48.  
  49. on listaBACK
  50.   global gback
  51.   gback = []
  52. end
  53.  
  54. on idle
  55.   global gback, gSuonoAttivo
  56.   if the frame = 5 then
  57.     if count(gback) < 2 then
  58.       set the member of sprite 25 to member("indie_f3")
  59.       updateStage()
  60.     else
  61.       if the member of sprite 25 <> member("indie_f2") then
  62.         set the member of sprite 25 to member("indie")
  63.         updateStage()
  64.       end if
  65.     end if
  66.     if the rollOver <> 14 then
  67.       if gSuonoAttivo = 1 then
  68.         sprite(14).member = member("Audio")
  69.       end if
  70.       if gSuonoAttivo = 0 then
  71.         sprite(14).member = member("Audio_f4")
  72.       end if
  73.     end if
  74.   end if
  75. end
  76.  
  77. on buio
  78.   sprite(40).visible = 1
  79.   updateStage()
  80. end
  81.  
  82. on internet
  83.   global finestra, gWWW
  84.   cursor(-1)
  85.   sound stop 1
  86.   sound stop 2
  87.   if the machineType = 256 then
  88.     finestra = "mappa"
  89.     the windowList = []
  90.     repeat while the windowList <> []
  91.       nothing()
  92.     end repeat
  93.     go("internet")
  94.   else
  95.     gWWW = "http:\\" & gWWW
  96.     gotoNetPage(gWWW, "_new")
  97.   end if
  98. end
  99.