home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Form03.clssa < prev    next >
Text File  |  1993-07-05  |  2KB  |  65 lines
  1. /***********************************************************************
  2.   GADGET: "AGA-DCTV" "3" AUTO TYP: "?"
  3.  
  4.   $DAT >>Form03.clssa<<   04 Jul 1993 - (C) ProDAD Holger Burkarth
  5.  
  6.   Test or correct an Anim
  7. ************************************************************************/
  8.  
  9. Options Results
  10. Address clariSSA
  11.  
  12.   FailAt 10
  13.   AltFail=RESULT
  14.  
  15.   DO FOREVER
  16.     Anims=""
  17.     GetAnimInfo Source_A
  18.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  19.     GetAnimInfo Source_B
  20.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  21.     GetAnimInfo Source_C
  22.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  23.     GetAnimInfo Source_D
  24.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  25.  
  26.     IF Anims~='' THEN DO
  27.       SelectAnim Anims "TITLE 'Choose a DCTV-Animation@to convert to AGA (A4000,A1200).' REQ"
  28.       IF RC~=0 THEN LEAVE
  29.       WAnim=RESULT
  30.       SelectAnim WAnim
  31.  
  32.       GetAnimInfo
  33.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  34.       PARSE VAR format x y t
  35.       CloseAnim MASTER
  36.  
  37.       IF FIND(viewmode,"HIRES")=0 | t<3 | t>4 THEN DO
  38.         BOOLRequest "'No DCTV-Anim found!''Do you still want to proceed?'"
  39.         IF RC~=0 | RESULT="NO" THEN LEAVE
  40.       END
  41.  
  42.       IF FIND(viewmode,"LACE")=0 THEN DO
  43.         y=y*2
  44.         viewmode=viewmode "LACE"
  45.       END
  46.  
  47.       IF y>562 THEN DO
  48.         OpenAnim MASTER  "FORMAT" x 562 t "VIEWMODE" viewmode
  49.         IF RC~=0 THEN LEAVE
  50.         SelectAnim WAnim
  51.         Record AREA
  52.         IF RC~=0 THEN LEAVE
  53.         BOOLRequest "'Do you want to delete the old Anim in '"WAnim"'?'"
  54.         IF RESULT="YES" THEN CloseAnim WAnim
  55.         SelectAnim MASTER
  56.         SSAControl DDOPlayAlloc
  57.       END
  58.       ELSE Message "'Conversion is not necessary!'"
  59.  
  60.     END; ELSE "Message 'No Source Anim available!''You must load a DCTV-Anim''into a Source-Register first.'"
  61.     LEAVE
  62.   END
  63.   FailAt AltFail
  64. exit
  65.