/*
** MakeANIM.rexx
**
** 
**
** This AREXX program is a hack of ADPro's BustANIM ARexx macro, making
** lo-res HAM anims from individual frames. Duhh...
**
** Cool.. heh-heh. (This sucks)
**
** Mod: Alan C. 8-94
*/

ADDRESS "ADPro"
OPTIONS RESULTS

say ' '
say "Let's make ANIMs!!"
say ' '
say ' '

ADPRO_TO_FRONT

PSTATUS "UNLOCKED"

GETFILE '"Enter BaseName.. "'
IF (RC ~= 0) THEN DO
	OKAY1 "What the Hey? No filename specified."
	EXIT 10
END
fname = ADPRO_RESULT

say 'BaseName: '||fname
num=1

OKAY2 '"Start at Frame 1?"'
IF (RC ~=1) THEN DO
	CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Start At Frame:"' 1 0 999 TRUE
	num = RESULT
	ADPRO_TO_FRONT
	END

say 'Start at Frame #'||num

LFORMAT "UNIVERSAL"
SFORMAT "ANIM"

OKAY2 "Lock Palette?"
IF (RC ~=0) THEN DO
	GETFILE '"File To Lock Palette With:"'
	PLockFile = ADPRO_RESULT
		IF (RC ~=0) THEN DO
		OKAY1 "No File Selected"
		EXIT 10
		END
	LOAD PLockFile
	RENDER_TYPE HAM
	SCREEN_TYPE 24
	EXECUTE
	PSTATUS "LOCKED"
	say 'Palette Locked To File '||PLockFile
	END

GETFILE '"Destination Anim Name.."'
SFnam = ADPRO_RESULT

say 'Destination Anim Filename: '||SFnam

OKAY2 '"Howsa About-a Looping Anim?"'
Loop = 1
IF (RC ~ = 0) THEN DO
	Loop=0
	END

continue=0

say ' '
say ' '
say ' '

DO WHILE ( continue = 0 )
	LOAD fname || RIGHT( num, 3, "0" )
		IF ( RC ~=0 ) THEN DO
		IF (Loop=1) THEN DO
			SAVE SFnam "QUIT" "IMAGE"
			END
		IF (Loop=0) THEN DO
			SAVE SFnam "WRAPUP" "IMAGE"
			END
		continue=1
		EXIT
		END
	say 'Adding Frame #'||num||'...'
	RENDER_TYPE HAM
        SCREEN_TYPE 24
	EXECUTE

        SAVE SFnam "APPEND" "IMAGE"

        num = num + 1

END

say ' '
say "Done! Gettin' De Heck Outta Here..."

EXIT