home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / CopyAnim.clssa < prev    next >
Text File  |  1993-05-01  |  1KB  |  72 lines
  1. /***************************************************************
  2.  GADGET: "CopyAnim" "1" AUTO TYP: "?"
  3. ***************************************************************/
  4.  
  5. Options Results
  6. Address clariSSA
  7.  
  8.   FailAt 10
  9.   AltFail=RESULT
  10.  
  11.   DO FOREVER
  12.     WorkAnim=""
  13.     DO FOREVER
  14.       WorkAnim="Source_A"
  15.       IF TestReg(WorkAnim)=0 THEN LEAVE
  16.       WorkAnim="Source_B"
  17.       IF TestReg(WorkAnim)=0 THEN LEAVE
  18.       WorkAnim="Source_C"
  19.       IF TestReg(WorkAnim)=0 THEN LEAVE
  20.       WorkAnim="Source_D"
  21.       IF TestReg(WorkAnim)=0 THEN LEAVE
  22.       WorkAnim=""
  23.       LEAVE
  24.     END
  25.  
  26.     IF WorkAnim="" THEN DO
  27.       SelectAnim "Source_A Source_B Source_C Source_D",
  28.                  "TITLE 'Select a work anim.'",
  29.                  "REQ"
  30.       IF RC > 1 THEN LEAVE
  31.       WorkAnim=RESULT
  32.       CloseAnim WorkAnim
  33.       IF RC > 1 THEN LEAVE
  34.     END
  35.  
  36.     LoadAnim WorkAnim REQ
  37.     IF RC~=0 THEN LEAVE
  38.  
  39.     INTRequest "'How many copies (1-100)?'" Kop
  40.     IF RC~=0 THEN LEAVE
  41.  
  42.     Kop=MAX(1,MIN(100,RESULT))
  43.     SetArea FULL
  44.     x=0
  45.  
  46.     DO UNTIL x > = Kop
  47.       Record AREA
  48.       ViewFrame 1
  49.       SelectAnim Master
  50.       SSAControl DoDMO
  51.       SelectAnim WorkAnim
  52.       x=x+1
  53.     END
  54.     CloseAnim WorkAnim
  55.     SelectAnim Master
  56.     LEAVE
  57.   END
  58.   FailAt AltFail
  59. exit
  60.  
  61.  
  62.  
  63. TestReg: procedure
  64. DO
  65.   ARG Reg
  66.  
  67.   GetAnimInfo Reg
  68.   IF RESULT~="" THEN RETURN(1)
  69.  
  70.   RETURN (0)
  71. END
  72.