; This is my first attempt at using the CBM Installer program
; 12-16-92 1:43pm Wed
; ©1992 Vernon Graner all rights reserved

(welcome (message "\nNOTICE 1:\nThis installer script will NOT work if you booted from this floppy!")
	 (message "\nNOTICE 2:\nIf you chose NOVICE user the system assumes Amiga-CDTV Install!")
)
(transcript "ParBENCH installation on  \"SYS:ParNET\"...")		;Begin to hate
									;parenthesis..
(complete 0)
(set package								;Begin set
	(askchoice							;begin ask
		(Prompt "What package do you want installed now?")	;
		(help "Amiga to CDTV installs just the files for the Hypermedia Concepts CDROM. Amiga to Amiga installs all the files needed to communicate betweeen 2 Amigas. Both is simply.. Both! :)")
		(choices "Amiga to CDTV" "Amiga to Amiga" "Both")	;
		(default 0 )						;
	)								;end ask
)									;end set


(makedir "SYS:ParNET"							;Begin Makedir
	(prompt "Making the directory \"SYS:ParNET\"")			;
	(help @makedir-help)						;
	(infos)								;
	(confirm)							;
)									;End Makedir



(complete 10)

; Ok Ok, so its really clumsy but I dont know how to do multiple
; operators without it shifting to ELSE!!! Grrr...

(if (= package 2)							;Begin if 
	(copyfiles							;Begin Copy
		(Prompt "Copying Both packages to ParNET Drawer.")	;
		(help @copyfiles-help)					;
		(source "ParNET")				;
		(dest "SYS:ParNET/")					;
		(files)							;
		(infos)							;
		(pattern "boot.#?")
	)								;end copy
)									;end if
(if (= package 2)							;Begin if 
	(copyfiles							;Begin Copy
		(Prompt "Copying Both packages to ParNET Drawer.")	;
		(help @copyfiles-help)					;
		(source "ParNET")				;
		(dest "SYS:ParNET/")					;
		(infos)							;
		(pattern "CDTV.Connect")					;
	)								;End copy
)									;end if

(if (= package 1)							;Begin if 
	(copyfiles							;Begin Copy
		(Prompt "Copying Amiga-Amiga package to ParNET Drawer.");
		(help @copyfiles-help)					;
		(source "ParNET")				;
		(dest "SYS:ParNET/")					;
		(files)							;
		(infos)							;
		(pattern "boot.#?")					;
	)								;End copy
)									;end if

(if (= package 0)							;Begin if 
	(copyfiles							;Begin Copy
		(Prompt "Copying Amiga-CDTV Files to ParNET Drawer.")	;
		(help @copyfiles-help)					;
		(source "ParNET")				;
		(dest "SYS:ParNET/")					;
		(infos)							;
		(pattern "CDTV.Connect")					;
	)								;End copy
)									;end if

(complete 25)
; The following 3 files get copied no matter which package is chosen:
(copyfiles							;Begin copy
	(source "Parnet")				;
	(dest "SYS:ParNET/")					;
	(infos)							;
	(pattern "#?net#?")					;
)								;End Copy
(copyfiles							;Begin copy
	(source "Parnet")				;
	(dest "SYS:ParNET/")					;
	(infos)							;
	(pattern "DefSysDisk")					;
)								;End Copy
(copyfiles							;Begin copy
	(source "Parnet")				;
	(dest "SYS:ParNET/")					;
	(pattern "node.rinfo")					;
)								;End Copy



(complete 40)
(copyfiles
	(Prompt "Copying commands to your C: directory.")
	(help @copyfiles-help)
	(source "C/")
	(dest "C:")
	(pattern "#?net#?")
;	(Files)
	(confirm)
)
(complete 60)
(copyfiles
	(prompt "Copying ParNET handlers to your L: directory.")
	(help @copyfiles-help)
	(source "l/NetPNet-handler")
	(dest "L:")
	(confirm)
)

(complete 65)
(copyfiles
	(prompt "Copying PNET Keys mouse-handler to your L: directory.")
	(help @copyfiles-help)
	(source "l/mouse-handler")
	(dest "L:")
	(confirm)
)

(complete 70)
(copyfiles
	(Prompt "Copying Drivelist to your S: directory.")
	(help @copyfiles-help)
	(source "S/")
	(dest "S:")
	(pattern "#?net#?")
	(Files)
	(confirm)
)

(complete 80)
(copyfiles
	(Prompt "Copying Mountlists to your DEVS: directory.")
	(help @copyfiles-help)
	(source "Devs/")
	(dest "DEVS:")
	(pattern "Mountlist.Parnet.#?")
	(Files)
	(confirm)
)

(complete 90)
(copylib
	(prompt "Copying ParNET.device to your DEVS: directory.")
	(help @copylib-help)
	(source "devs/parnet.device")
	(dest "DEVS:")
	(confirm)
)
(complete 100)
(exit "ParBENCH Scripts ©1992 Vernon Graner All Rights Reserved")