;
;	RiSE OF THE ROBOTS -AGA - FROM MiRAGE - HD Installation Script
;				Done by -Mok-
;	  Greetz to all Prestige members! Now, when you got here
;	                  what are ya gonna do? :-)
;
;type credits etc. :)
	ECHO " RiSE OF THE ROBOTS AGA by MiRAGE, Cracked by PRESTiGE" 0 0
	ECHO " HD-INSTALL-SCRiPT written by Mok :-)" 0 0
	downline
	echo " The path you will select should be as short as possible." 0 0
	echo " The installer will create the directory called 'Rise' there." 0 0
	echo " Example: when asked for path, type: DH0:" 0 0
	downline
	echo " Also its not possible to rename/move the game directory later." 0 0
	echo " Full path to the game is stored into mainfile." 0 0
	downline
;alloc memory for decrunch routine and read it
	ALLOC 0 filelen("RRHD") 10001
	set load mem(0)
	[ load lmem(0) RRHD
;alloc memory for directory
	ALLOC 1 200 10001
	set dirmem mem(1)
;alloc MFM buffer
	ALLOC 2 4000 10002
;alloc mainfile
	ALLOC 4 filelen("Rise") 10001
	[ mem(4) lmem(4) Rise	
;ask for destination path and go there
	ASKPATH
;delete existing directory with all the contents
	EXE "c:Delete >NIL: %sRise/#? ALL" fullpath 0
	EXE "c:Delete >NIL: %sRise" fullpath 0
;check for free space
	FREESPACE Q
	IFBIG Q !14000000 _enuff
	ASK "You need at least 14 Megs of free space to install the game" " _I'LL FIX IT! " 0 0
_abort
	ABORT
_enuff
;create directory
	MDIR Rise
	CD Rise
	r a0 fullpath
	r a1 mem(4)+3f50c
_copypath
	r d0 peek(\a0)
	pokeb \a1 \d0
	if \d0 0 _endpath
	r a0 \a0+1
	r a1 \a1+1
	go _copypath
_endpath
	] mem(4) lmem(4) Rise
	FREE 4
	GETDRIVE
	INHIBIT
;select mfm buffer and directory ad
	r a0 mem(2)
	r a1 mem(1)
	j mem(0)
;
;create actual disk variable for disk 1
	set namedisk 'ROR1'
	set disk 1
_insert
	ASK "Please insert RiSE OF THE ROBOTS DISK %ld and press RETURN" " _DONE | _ABORT " disk 0
	ifnot answer 1 _abort
	r d0 namedisk
	j mem(0)+c
	ifnot \d0 0 _insert
	ifnot peekl(mem(1)) 'MOK_' _insert
	ifnot peekl(mem(1)+10) namedisk _insert
_noins
	set acdir mem(1)+20
;
_nextfile
	r d0 peekl(acdir)
	if \d0 'GAME' _skipfile
	if \d0 'BOOT' _skipfile
	if \d0 'RL32' _skipfile
	j mem(0)+8
	set flen \d0
;
;alloc memory for crunched file
	ALLOC 3 flen $10001
	set source mem(3)
	pokeb acdir+4 0
	echo " Reading file.......%s" acdir 0
	upline
;reading file from disk
	r a0 mem(3)
	r d0 peekl(acdir)
	j mem(0)+4
;
	echo " Writing file.......%s" acdir 0
	upline
	save acdir mem(3) flen
	FREE 3
_skipfile
	add acdir 10
	ifnot peekl(acdir) 0 _nextfile
_nextdisk
	add disk 1
	add namedisk 1
	ifnot disk !10 _nointro
	set namedisk 'RORA'
_nointro
	ifnot namedisk 'RORD' _insert
_exit
	downline
	echo " To run the game, reboot your computer (if you have only 2 megs" 0 0
	echo " of ram you must use 'boot with no startup-sequence') then" 0 0
	echo " enter the directory you installed the game in. ie type:" 0 0
	downline
	echo " cd %s" fullpath 0
	echo " Rise <return>" 0 0
	FREE 0
	FREE 1
	FREE 2
	END
;finished :-)