home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03061_Script_3061 < prev    next >
Text File  |  1997-09-15  |  3KB  |  98 lines
  1. ON ARCHIVIO
  2.   if (the mouseh >= 51 and the mouseh <= 548) and (the mousev >=0 and the mousev <= 429) then
  3.     GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll,videocast,sprit,soundfile
  4.     
  5.     SET CST TO  THE MOUSECAST
  6.     set var_dll to 0
  7.     SET TIPO= chars(STRING(THE CASTTYPE OF CAST (CST )),1,length(STRING(THE CASTTYPE OF CAST (CST ))))
  8.     if tipo ="bitmap" AND the size of CAST(CST) < 6000 then exit
  9.     
  10.     set videocast to 0
  11.     IF THE CASTNUM OF SPRITE 48 > 0 THEN
  12.       IF THE CASTTYPE OF cast (the castnum of sprite 48)= #DIGITALVIDEO THEN
  13.         set videocast to THE CASTNUM OF SPRITE 48
  14.       END IF
  15.     END IF
  16.     
  17.     
  18.     if tipo ="digitalVideo" then 
  19.       set materiale to the fileName of cast (CST)
  20.     end if
  21.     
  22.     set in_principio=0
  23.     if offset("principio", the labelList)<>0 then 
  24.       if marker("principio")+2 = the frame then set in_principio=1
  25.     end if
  26.     
  27.     if tipo ="bitmap" then 
  28.       IF in_principio=0 then 
  29.         if  the height of cast (CST)=480 and the width of cast (CST)=640 then
  30.           if the machineType<256 then
  31.             linkdll "stagetc"
  32.             put StageToCast(mNew,0,80,480,640) into mauro
  33.             set materiale to mauro(mgethandle)
  34.             mauro(mDispose)
  35.           else          
  36.             global copyObj, savePicHandle, pictureFlag,cobalto
  37.             linkdll "dataproj"
  38.             put dataproj (mNew ) into cobalto
  39.             cobalto(mSetCaptureRect,80,0,640,480)
  40.           end if
  41.         else
  42.           put the picture of cast (CST) into materiale
  43.         end if
  44.       else
  45.         if the machineType<256 then
  46.           linkdll "stagetc"
  47.           put StageToCast(mNew,0,51,475,640) into mauro
  48.           set materiale to mauro(mgethandle)
  49.           mauro(mDispose)
  50.         else          
  51.           global copyObj, savePicHandle, pictureFlag,cobalto
  52.           linkdll "dataproj"
  53.           put dataproj (mNew ) into cobalto
  54.           cobalto(mSetCaptureRect,80,5,640,475)
  55.         end if
  56.       end if
  57.     END  IF
  58.     
  59.     
  60.     if tipo ="text" then 
  61.       SET XX=1
  62.       SET MATERIALE= ""
  63.       REPEAT WHILE XX<=the number of lines of the text of cast (CST)
  64.         set materiale to MATERIALE && line XX of the text of cast (CST)
  65.         SET XX=XX+1
  66.       END REPEAT
  67.     END IF
  68.     
  69.     
  70.     
  71.     global mywindow
  72.     if objectp(mywindow) then forget mywindow 
  73.     
  74.     if the machinetype = 256 then
  75.       set ttt=char 1 to 2 of the pathName&"\INVENZIO\NOME.DIR"
  76.     else
  77.       set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  78.     end if
  79.     
  80.     set mywindow to window  "RACCOLTA"
  81.     SET THE FILENAME OF MYWINDOW TO TTT
  82.     
  83.     set the titlevisible of mywindow to true
  84.     set the windowType of window ttt to 0
  85.     open mywindow
  86.   end if   
  87. end if
  88. end
  89.  
  90.  
  91. on ripristina
  92. global sprit,videocast
  93. set   the video of cast videocast to 0
  94. set  the video of cast videocast to 1 
  95. END
  96.  
  97.  
  98.