home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03061_Script_3061 < prev    next >
Text File  |  1997-10-14  |  3KB  |  97 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. --    
  61. --    
  62. --    if tipo ="text" then 
  63. --      SET XX=1
  64. --      SET MATERIALE= ""
  65. --      REPEAT WHILE XX<=the number of lines of the text of cast (CST)
  66. --        set materiale to MATERIALE && line XX of the text of cast (CST)
  67. --        SET XX=XX+1
  68. --      END REPEAT
  69. --    END IF
  70. --    
  71. --    
  72. --    
  73. --    global mywindow
  74. --    if objectp(mywindow) then forget mywindow 
  75. --    
  76. --    if the machinetype = 256 then
  77. --      set ttt=char 1 to 2 of the pathName&"\INVENZIO\NOME.DIR"
  78. --    else
  79. --      set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  80. --    end if
  81. --    
  82. --    set mywindow to window  "RACCOLTA"
  83. --    SET THE FILENAME OF MYWINDOW TO TTT
  84. --    
  85. --    set the titlevisible of mywindow to true
  86. --    set the windowType of window ttt to 0
  87. --    open mywindow
  88. --  end if   
  89. --end if
  90. end
  91.  
  92.  
  93. on ripristina
  94. --global sprit,videocast
  95. --set   the video of cast videocast to 0
  96. --set  the video of cast videocast to 1 
  97. END