;
; Amiga Haber Installer 
;
; ©1997 Sinan Gurkan
;

(
	

	(set #intro
		(cat
			"AMIGA HABER SUBAT 1997\n"
			"\n"
			"Copyright ©1997\n" 
			"\n"
			"Sinan Gurkan\n"
		)
	)

	(set #askdir
		(cat	"Select where you would like to install "
			"AMIGA HABER. A drawer called 'AMIGA-HABER-12' will "
			"be created here."
		)
	)

	(set #askdir_help
		(cat
			"Executables and all necessary files will "
			"be installed in the directory of your choice. You "
			"may wish to create a new directory by using the "
			"'Make New Drawer' gadget.\n\n"
		)
	)

	(set #overwrite
		(cat
			"The 'AMIGA-HABER-12' directory already exists, overwrite?"
		)
	)

	(set #overwrite_help
		(cat
			"You may stop the install to "
			"avoid overwriting your current "
			"version of Amiga Haber.\n\n"
			"Continuing the install will "
			"overwrite your current files."
		)
	)

	(set #yes
		(cat
			"Yes"
		)
	)

	(set #no
		(cat
			"No"
		)
	)

	(set #quit
		(cat
			"Quit"
		)
	)

	(set #disk1
		(cat
			"\nPlease insert disk 1 into any drive"
		)
	)

	(set #helpdisk1
		(cat
			"Search for disk labeled 'ah12_1' and "
			"insert it into any drive."
		)
	)
			
	(set #disk2
		(cat
			"\nPlease insert disk 2 into any drive"
		)
	)

	(set #helpdisk2
		(cat
			"Search for disk labeled 'ah12_2' and "
			"insert it into any drive."
		)
	)


        (set #disk3
		(cat
			"\nPlease insert disk 3 into any drive"
		)
	)

	(set #helpdisk3
		(cat
			"Search for disk labeled 'ah12_3' and "
			"insert it into any drive."
		)
	)


        (set #disk4
		(cat
			"\nPlease insert disk 4 into any drive"
		)
	)

	(set #helpdisk4
		(cat
			"Search for disk labeled 'ah12_4' and "
			"insert it into any drive."
		)
	)


        	
	(set #installed
		(cat
			"Amiga Haber will be installed in "
		)
	)

	(set #installing
		(cat
			"Installing Amiga Haber..."
		)
	)

	(set #creating
		(cat
			"Creating 'AMIGA-HABER-12' directory"
		)
	)

	(set #copyingexe
		(cat
			"Copying Executables..."
		)
	)

	

	(set #copying2disk
		(cat
			"Copying 2nd disk files..."
		)
	)



        (set #copying3disk
		(cat
			"Copying 3rd disk files..."
		)
	)


        (set #copyingdisk
		(cat
			"Copying 4th disk files..."
		)
	)

	              

	(set #setup1
		(cat
			"Now I must insert some commands in your "
			"User-Startup."
		)
	)

	(set #setup2
		(cat
			""
		)
	)

	(set #setup_help
		(cat
			"AMIGA HABER installation requires inserting an "
			"Assign command in your User-Startup to properly "
			"setup environment."
		)
	)

	

	(set #goodbye
		(cat
			" 1.YASIMIZA BASTIK !"
		)
	)

	; Start! Show intro message...

	(message #intro)

	; Ask where to install 

	(set destdir
		(askdir
			(prompt #askdir)
			(help #askdir_help)
			(default @default-dest)
			(disk)
		)
	)

	(set destdir
		(tackon destdir "AMIGA-HABER-12")
	)

	(set @default-dest destdir)

	; See whether this directory exists, if so warn the user

	(if (exists @default-dest) 
		(
			(if (= 0 (askbool
					(prompt #overwrite)
					(help #overwrite_help)
					(choices #yes #quit)
				))

				(

				; User wishes to quit

				(exit (quiet))
				)

			)
		)
	)

	; Prompt for choosed dir

	(message #installed @default-dest)

	; Start copy

	(complete 0)

	(working #installing)

	; Create the directory if it doesn't exist

	(if (= 0 (exists @default-dest))
		(
			(makedir @default-dest
				(prompt #creating)
				(infos)
			)
		)
	)

	; Ask for 1st disk

	(askdisk
		(prompt #disk1)	
		(help #helpdisk1)
		(dest "ah12_1")
	)

	; Install the executable file

	(working #copyingexe)

	(copyfiles
		(source "ah12_1:")
		(dest @default-dest)
		(infos)
                (all)
	)

	

	; Ask for 2nd disk

	(askdisk
		(prompt #disk2)
		(help #helpdisk2)
		(dest "ah12_2")
	)

	; Install all files from 2nd disk

	(working #copying2disk)

	(copyfiles
		(source "ah12_2:")
		(dest @default-dest)
                (infos)
                (all)
	)


        ; Ask for 3rd disk

	(askdisk
		(prompt #disk3)
		(help #helpdisk3)
		(dest "ah12_3")
	)

	; Install all files from 3rd disk

	(working #copying3disk)

	(copyfiles
		(source "ah12_3:")
		(dest @default-dest)
                (infos)
                (all)
	)      


        ; Ask for 4th disk

	(askdisk
		(prompt #disk4)
		(help #helpdisk4)
		(dest "ah12_4")
	)

	; Install all files from 4th disk

	(working #copying4disk)

	(copyfiles
		(source "ah12_4:")
		(dest @default-dest)
                (infos)
                (all)
	)      

	

	(complete 90)

;	Updates User-StartUp

	(startup "AMIGA-HABER-12"
		(prompt
			(cat
				#setup1
				#setup2
			)
		)
		(help #setup_help)
		(command
			"Assign ah12_1: \"" @default-dest "\"\n"
                        "Assign ah12_2: \"" @default-dest "\"\n"
                        "Assign ah12_3: \"" @default-dest "\"\n"
                        "Assign ah12_4: \"" @default-dest "\"\n"
                        "Copy ah12_1:c/ppshow ram: >NIL:\n"
                        "Copy ah12_1:fonts ALL fonts: >NIL:\n"
                        "Path ah12_1:libs add\n"
                        "Path ah12_1:c add\n"
		)
	)

	(complete 100)

	; Say goodbye

	(message #goodbye)
)