home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SaveWork.clssa < prev    next >
Text File  |  1993-06-16  |  2KB  |  104 lines
  1. /***********************************************************************
  2.   $DAT >>SaveWork.clssa<<   20 Nov 1992 - (C) ProDAD Holger Burkarth
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6.   PARSE ARG filename
  7.  
  8.   GetPref
  9.   IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  10.   ELSE                                      PV=0
  11.  
  12.   FailAt 20
  13.   AltFail=RESULT
  14.   DO FOREVER
  15.  
  16.     IF filename="" THEN DO
  17.       FileSelect "TITLE 'Save Work Data' PTEXT 'Save'"
  18.       filename=RESULT
  19.     END
  20.     IF filename="" THEN LEAVE
  21.     SelectAnim
  22.     SelectedAnim=RESULT
  23.  
  24.     IF Open(saveit, filename, 'Write') THEN DO
  25.       CALL Writeln(saveit,"clariSSA-SaveWork")
  26.  
  27.       ret=SaveAnimLayOut("MASTER")
  28.       if ret~="" THEN  CALL Writeln(saveit,ret)
  29.       ret=SaveAnimLayOut("SOURCE_A")
  30.       if ret~="" THEN  CALL Writeln(saveit,ret)
  31.       ret=SaveAnimLayOut("SOURCE_B")
  32.       if ret~="" THEN  CALL Writeln(saveit,ret)
  33.       ret=SaveAnimLayOut("SOURCE_C")
  34.       if ret~="" THEN  CALL Writeln(saveit,ret)
  35.       ret=SaveAnimLayOut("SOURCE_D")
  36.       if ret~="" THEN  CALL Writeln(saveit,ret)
  37.  
  38.       GetPlayMode
  39.       String="FLAGS PLAYMODE "RESULT
  40.       GetEditMode
  41.       String=String" EDITMODE "RESULT
  42.       GetPref
  43.       String=String" PREF "RESULT
  44.       HelpRequester
  45.       String=String" HELP "RESULT
  46.       GetScreenGrabber
  47.       String=String" SGBB "RESULT
  48.       CALL Writeln(saveit,String)
  49.  
  50.       IF PV=1 THEN DO
  51.         String="PV "
  52.         GetUserWork
  53.         String=String" USERWORK "RESULT
  54.         CALL Writeln(saveit,String)
  55.  
  56.  
  57.  
  58.         ret=SaveMonOutLayOut("EDIT")
  59.         if ret~="" THEN  CALL Writeln(saveit,ret)
  60.         ret=SaveMonOutLayOut("PROFILE")
  61.         if ret~="" THEN  CALL Writeln(saveit,ret)
  62.       END
  63.  
  64.       CALL Close(saveit)
  65.     END; ELSE Message "'Work Data cannot''be saved.'"
  66.  
  67.     SelectAnim SelectedAnim
  68.  
  69.     LEAVE
  70.   END
  71.   FailAt AltFail
  72.  RETURN
  73.  
  74.  
  75.  
  76.  
  77. SaveAnimLayOut: procedure
  78. DO
  79.   ARG Anim
  80.  
  81.   ret=""
  82.   SelectAnim Anim
  83.   GetAnimInfo Anim
  84.   IF RESULT~="" THEN DO
  85.     PARSE VAR RESULT "'" AnimFile "' ID" AnimID . "POS" AnimPos .
  86.     IF AnimFile~="" THEN DO
  87.       ret='ANIMATION 'Anim' "'AnimFile'" POS 'AnimPos
  88.       GetArea
  89.       ret=ret" AREA "RESULT
  90.     END
  91.   END
  92.   RETURN (ret)
  93. END
  94.  
  95.  
  96. SaveMonOutLayOut: procedure
  97. DO
  98.   ARG Monitor
  99.  
  100.   MonitorWindow Monitor
  101.   ret="MONITOROUT "RESULT
  102.   RETURN (ret)
  103. END
  104.