home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00091_Script_91 < prev    next >
Text File  |  1997-10-15  |  1KB  |  39 lines
  1. on startMovie
  2.   cursor 4
  3.   blocca
  4.   GLOBAL qscrolla,cursprite,oldi_mv,ss,oldprimochar,colore,nero,rca,bianco
  5.   set rca to -1
  6.   set colore to the forecolor of field "rosso"
  7.   set nero to the forecolor of field "titolo1"
  8.   set bianco to the forecolor of field "bianco"
  9.   
  10.   
  11.   set oldprimochar to "a"
  12.   set oldi_mv to 1
  13.   SET QSCROLLA TO 18
  14.   set cursprite to ""
  15.   --  set the mouseUpScript to ("if the doubleClick=TRUE THEN"&numtochar(013)&" ARCHIVIO"&numtochar(013)&"pass"&numtochar(013)&"end if")
  16.   set ss to 1
  17.   set the mouseDownscript to "rit"
  18.   --  put line 1 to 16 of field 58 into field 57
  19.   scrivi 1,15
  20.   
  21.   PUT "" INTO FIELD 43
  22.   mostrad 3  
  23.   set the membernum of sprite 15  to member 4987
  24.   set the textheight of field 57 to 17
  25.   set the textheight of field 74 to 17
  26.   set strng to string(the windowlist)
  27.   if offset ("def",strng) then
  28.     forget window "def"
  29.   end if
  30.   preLoadMember member 57,58
  31.   scrivi ss,ss+15
  32. end
  33.  
  34. on rit
  35.   toglimenubar
  36.   toglipopop
  37.   blocca
  38.   pass
  39. end