; $VER: Sticks Install PD 1.0 (4.8.93)
;****************************************************************************
;	Title:
;		Install_SticksPD
;****************************************************************************
;	Description:
;		The Commodore Installer Script for Sticks.lib Extension
;****************************************************************************
;	Author:
;		Nigel Critten
;****************************************************************************
;
;=================================================
;Set up the Variables

(set InstallDisk "SticksPD:")
(set CheckDisk   "SticksPD")

(set ExtensionNumber 17)
(set ExtensionName "Sticks.lib")

(set File1 "RAMOS1_3.ENV" File2 "AMOS1_3_PAL.ENV" File3 "AMOS1_3_NTSC.ENV")
(set Server	TRUE)
(set n 0)
(set #introduction
(cat "\n\nThis program will install Sticks.lib into your AMOS_System Drawer "
	  "and also update your AMOS config files.\n"
))

;=================================================
; Well this is it the main chunk.
(message #introduction)

(set Server 
		(exists CheckDisk (noreq))
)

(if Server FALSE)
(
		(askdisk (prompt "\nPlease wait for disk activity to finish\nthen insert SticksPD")
				  (help   @askdisk-help)
				  (dest   CheckDisk)
		)
)

(copyfiles 
		(prompt "copying files to ram:")
		(help	@copyfiles-help)
		(files)
		(source InstallDisk)
		(dest "RAM:")
		(choices "c/configpatch" "library/sticks.lib" "c/run" "c/execute")
)			

(makeassign "C" "RAM:")

(set AMOSSystem
	(askdir  
		(prompt "Locate your AMOS_System")
		(help @askdisk-help)
		(disk)
		(default "")
	)
)

(if (= AMOSSystem "")
(
	(makeassign "C" "sticksPD:c")
	(delete "RAM:ConfigPatch" (help @delete-help)
								  (prompt "Deleting ConfigPatch from RAM:"))
	(delete "RAM:sticks.lib"  (help @delete-help)
								  (prompt "Deleting Sticks.lib from RAM:"))
	(delete "RAM:run"			  (help @delete-help)
								  (prompt "Deleting Run from RAM:"))
	(delete "RAM:Execute"	  (help @delete-help)
								  (prompt "Deleting Execute from RAM:"))
	(abort "No Directory selected\n" "installation aborted")
))

(set configs
	(askoptions
		(prompt "Select which config files you want to update")
		(help		@askoptions-help)
		(choices File1 File2 File3)
	)
)

(set @default-dest AMOSSystem)
;==========================================================
; Find which files to Patch 
; Patch when ready.

(while (set PatchFile (select n File1 File2 File3 ""))
	(
	(if (IN configs n)
	(
		(if (exists (tackon AMOSSystem PatchFile))
		(
			(working "Patching Config File " PatchFile)
			(run "ram:configpatch "AMOSSystem ExtensionNumber ExtensionName PatchFile)
		))
	))
	(set n (+ n 1))
	)
)
;==========================================================
; Now we need to copy the actual library.

(copyfiles (prompt "Copying RAM:Sticks.lib")
			  (help	 @copyfiles-help)
			  (source "RAM:")
			  (dest	 AMOSSystem)
			  (files)
			  (choices "Sticks.lib"))

;==========================================================
; Keep the RAM Disk Tidy

(delete "RAM:ConfigPatch" (help @delete-help)
								  (prompt "Deleting ConfigPatch from RAM:"))
(delete "RAM:sticks.lib"  (help @delete-help)
								  (prompt "Deleting Sticks.lib from RAM:"))
(delete "RAM:run"			  (help @delete-help)
								  (prompt "Deleting Run from RAM:"))
(delete "RAM:Execute"	  (help @delete-help)
								  (prompt "Deleting Execute from RAM:"))
								  
(set Server 
		(exists CheckDisk (noreq))
)

(if Server FALSE)
(
		(askdisk (prompt "\nPlease wait for disk activity to finish\nthen insert SticksPD")
				  (help   @askdisk-help)
				  (dest   CheckDisk)
		)
)

(makeassign "C" "sticksPD:c")
;==========================================================
; Well meet again don't know where don't know when.