/*
MovieShop Scene to Anim v1.0
*/


/* The path must be change */
destanim="WORK:ChangeMe.Anim"

compqual="FASTER"
comptype="LONG"

framenb = 0
filecounter = 0

ADDRESS 'MOVIESHOP'
OPTIONS RESULTS

EXPORTPICTYPE FRAMES
EXPORTFILETYPE ILBM
EXPORTCOMPRESSION OFF
SAVEICONS OFF

gotoframe Last
getframepos
framenb=RESULT


block delete force
gotoframe number 0


/*
The loop start here
*/
DO WHILE (filecounter <= framenb-1)

	filecounter = filecounter + 1

	ADDRESS 'MOVIESHOP'
	OPTIONS RESULTS


	block mark force
	block copy force


	EXPORTBLOCK 'RAM:temp'

	ADDRESS 'ADPro'
	OPTIONS RESULTS

	LOADER 'IFF' 'RAM:temp.0001'

/*
you can remove the HALVE operator line or change it by 
ABS_SCALE xxx xxx
*/
	OPERATOR 'HALVE'
	RENDER_TYPE HAM8
	EXECUTE
	SAVER "ANIM" destanim "IMAGE" "APPEND" compqual comptype

	ADDRESS 'MOVIESHOP'
	block delete force
	gotoframe next


END
ADDRESS 'MOVIESHOP'
OPTIONS RESULTS


block mark force
block copy force


EXPORTBLOCK 'RAM:temp'

ADDRESS 'ADPro'
OPTIONS RESULTS

LOADER 'IFF' 'RAM:temp.0001'

/*
you can remove the HALVE operator line or change it by 
ABS_SCALE xxx xxx
*/

OPERATOR 'HALVE'
RENDER_TYPE HAM8
EXECUTE

SAVER "ANIM" destanim "IMAGE" "WRAPUP" compqual comptype
`delete` `RAM:temp.0001`