;
; Installer Script for dRE!ChECk v2.4
; using Installer (C) by COMMODORE
;	written by dR.dRE! Of (tRSi /X·iNNOVAtiON) iN 1994
;

(transcript "Installing dRE!ChECK v2.4...")

(complete 0)

(message "\n\n\n\ndRE!ChECk v2.4 for Amiexpress 3.xx - 4.xx\n\nThis program will automaticaly install dRE!ChECk for you, including all needed modifications to get the Checker on your BBS running!\n\nNo further Install needed!")

(set check_dir1
	(askdir
		(prompt "Select Directory to Install dRE!CHECK v2.4")
			(help @askdir-help)
			(default
				(expandpath"SYS:")
			)
	)
)

(set check_dir
	(tackon check_dir1 "dRE!CHECK")
)

(makedir check_dir)

(copyfiles
	(source "dRE!ChECk")
		(dest	check_dir)
			(infos)
			(all)
)

(copyfiles
	(source "S")
		(dest	"S:")
			(all)
)

; WORK ALL TO WITH THE GUIDE FILE

(if 
	(askbool 
		(prompt "\n\n\n\nDo you want install the Guidefile for dRE!CHECK ?\n\n There are both (GERMAN / ENGLISH) available\nFor some Options it may is better you read the GuideFile...")
			(help @askbool-help)
	)
(

(set guide	
	(askoptions
		(prompt "Select Guide Language to Install")
			(help @askoptions-help)
			(choices
				"GERMAN"
				"ENGLISH"
			)
		(default 1)
	)
)

(complete 10)

(set help_dir
	(askdir
 		(prompt "Select Destination Directory for the Guidefile")
			(help @askdir-help)
			(default 
				(expandpath check_dir)
			)
		)
	)


(if (= guide 1)
 (set guide "GERMAN")
		(set	guide_dir
			("GUIDES/%s" guide))
(copyfiles 
	(source guide_dir) 
		(dest help_dir) 
			(infos)
			(all))
)

(if (= guide 2)
 (set guide "ENGLISH")
		(set	guide_dir
			("GUIDES/%s" guide))
(copyfiles 
	(source guide_dir) 
		(dest help_dir) 
			(infos)
			(all))
)

(copyfiles 
	(source guide_dir) 
		(dest help_dir) 
			(infos)
			(all)
)
)
)

; BEGIN WITH TOOL SETUP
(if 
	(askbool 
		(prompt "\n\n\nDo you wish to setup dRE!CHECK right now ?\n\nHere you can setup all Checker Options, Filesuffixes to check, possible to make dRE!ChECk resident and finally adding the Assign Line to your User-Startup\n")
			(help @askbool-help)
	)
(

(complete 20)

(if 
	(askbool 
		(prompt "\n\n\nYou like to run dRE!CHECK resident ?\n\nThis Action will confirm adding a resident line to your User-Startup and makes dRE!ChECk RESIDENT permanently...\nAlso the Installer will change the TOOLTYPE CHECKER=dRE!CHECK for you, so no need to change it self.")
			(help @askbool-help)
	)
	(	
		(set resi "1") ; if set
	)
 (set resi "0")			; if not set
)

(set bbs_dir
	(askdir
		(prompt "Select BBS Directory")
			(help @askdir-help)
			(default
				(expandpath"BBS:")
			)
	)
)

(set fcheck_dir
	(tackon bbs_dir "FCHECK")
)

(message	
	"\n\nWith the next Options you can switch all available\n"
	"FUnktions of dRE!ChECk ON/OFF\n\n"
	"SHORT EXPLAINMENT OF THE FUNCTIONS\n\n"
	"ADD ADVERTS  = ENABLES THE ADDING OF YOUR ADVERTS    \n"
	"STRIP ADVERTS= ENABLE TO STRIP BANNERS FROM ARCHIVE  \n"
	"RUN ISTRIP   = ENABLE TO STRIP WILDCARD BANNER (*.*) \n"
	"CYCLE ADVERTS= ENABLE TO ADD A SPECIAL ADD           \n"
	"TEST ARCHIVE = ENABLES THE TESTING OF EACH ARCHIVE   \n"
  "               ^^^->(ONLY FOR REGISTERED VERSIONS)   \n"
)

(complete 30)

(set functs
	(askoptions
		(prompt "Select Funktions for dRE!ChECk v2.4")
			(help @askoptions-help)
			(choices
				" - ADD ADVERTS"
				" - STRIP ADVERTS"
				" - RUN ISTRIP    (FAST ADVERT STRIPPER)"
				" - CYCLE ADVERTS (COOL NEW OPTION)"
				" - TEST ARCHIVE"
			)
	(default -1)
	)
)

(set n 0)
(set funcpat)
(while 	(set my_func (select n "a" "s" "i" "c" "t" ""
		)
	)
(
	(if (IN functs n)
	(
		(set funcpat (cat funcpat " " my_func))
	))
	(set n ( + n 1))
))

(complete 40)

(tooltype 
			(settooltype "OPTIONS" (cat funcpat))
			(noposition)
	(if (= resi 1)
		(settooltype "CHECKER" "dRE!ChECk")
	)
		(dest	("FCHECK/LHA"))
)

(set arcer
	(askoptions
		(prompt "Select Archive Type to be checked from dRE!ChECk v2.4")
			(help @askoptions-help)
			(choices
				".LHA"
				".LZH"
				".LZA"
				".SFX"
			)
		(default -1)
	)
)

(set n 0)
(set arcpat)
(while 	(set my_arc (select n "LHA" "LZH" "LZA" "SFX" ""
		)
	)
(
	(if (IN arcer n)
	(
		(set arcpat (cat arcpat my_arc))
(copyfiles 
	(source "FCHECK/LHA.INFO") 
		(dest fcheck_dir (newname ("%s.Info" (cat my_arc))))
)
	))
	(set n ( + n 1))
))
)
)

(complete 50)

(if
	(set advert
		(askfile
		(prompt "Select now your favorit BBS Advert, i will copy it to the right Place, thats dRE!ChECk found it immediatly after the Install")
		(help @askfile-help)
		(default "SYS:"))
	)
(set my_add "dRE!ChECk.Add")
(copyfiles
	(source advert)
		(dest check_dir (newname ("%s" (cat my_add))))
)
)

(if
	(askbool
		(prompt "\n\n\nEnter now all Advert Names you wish to add in each Uploadet Archive.\n\n Complete with PATH AND NAME\n\n\nProceed (YES/NO)")
		(help @askbool-help)
	)
	(
(set editor
	(askstring
		(prompt "\n\n\nEnter the Path/Name to your favorit Editor")
		(help @askstring-help)
		(default "CED")
	)
)
(run ("%s %s" editor (tackon check_dir "LHA.Add")))
(set edi "1")
	)
(set edi "0")
)	

(complete 60)

(if 
	(askbool 
		(prompt "\n\n\n Should I add the ASSIGN Line for dRE!CHECK: ?")
			(help @askbool-help)
	)
	(
		(set ass "1")
	)
(set ass "0")
)

(working)

(startup "dRE!ChECk v2.4"
	(prompt "\n\n\n\n\nNOW i MOdifY YOUR USER-StARtUP\n")
		(help @startup-help)

	(if
		(= resi 1)
	(command ("RESIDENT >NIL: dRE!ChECk %s PURE\n" (tackon check_dir "dRE!ChECk")))
	)

	(if
		(= ass 1)
	(command ("ASSIGN >NIL: dRE!CHECK: %s" check_dir))
	)
)

(complete 70)

(if (= resi 1)
		(run ("resident >NIL: dRE!ChECk %s PURE" (tackon check_dir "dRE!CHECK")))
)
(if (= ass 1)
		(run ("ASSIGN >NIL: dRE!CHECK: %s" check_dir))
)

 (message
  "Thank you for installing dRE!ChECk v2.4\n"
  "Copyright İ by dR.dRE! Of (tRSi /X·iNNOVAtiON)\n"
  "This Program can may be freely distributed for\n"
  "non-commercial purposes, as long as all the files\n"
  "in the original archive are present and have not\n"
  "been modified in any way.\n"
  "If you want to register all my Doors/Tools so get\n"
  "in touch with me on any TRSI Board in the World\n"
	"Or simply send the Money to:\n"
  "B. HOFFMANN\n"
  "KAPITELSTRASSE 1\n"
  "41460 NEUSS\n"
  "GERMANY\n"
  "The Register Few for all Tools/Doors is 20$ or 30,- DM\n"
 )

(complete 80)

(if
	(askbool
		(prompt "\n\n\nYOU WISH TO REGISTER MY DOORS ???\n\nIF SO THEN PRESS YES AND FILL OUT THE\nREGISTER FORMULAR\n\nTHANK YOU...")
			(help @askbool-help)
	)
	(
(if
	(textfile
		(prompt "Creating Register form ...")
		(help @textfile-help)
		(dest (tackon check_dir "REGiStER.fORM"))
		(append "\nPlease fill out this formular and send it to:\n\n")
		(append "                               Bodo Hoffmann\n                             Kapitelstrasse 1\n")
		(append	"                                41460 Neuss\n                                  GERMANY\n\n");
		(append "    First:                              Name:\n")
		(append "           ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ       ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n")
		(append "   Street:\n")
		(append "           ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n")
		(append "  PC,City:                                      Country:\n")
		(append "           ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ          ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n")
		(append "    EMail:                                        Phone:\n")
		(append "           ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ        ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n\n\n")
		(append "  .---------------------------------------------------------.-------.-------.\n")
		(append "  |                                                         |       |       |\n")
		(append "  |  O R D E R                                              |   DM  |   $$  |\n")
		(append "  |                                                         |       |       |\n")
		(append "  |---------------------------------------------------------+-------|-------|\n")
		(append "  |  Registration                                           |   30  |   20  |\n")
		(append "  |---------------------------------------------------------+-------|-------|\n")
		(append "  |  - no express service requested -                       |    0  |    0  |\n")
		(append "  |=================================================================|=======|\n")
		(append "  |                                                         |       |       |\n")
		(append "  |  P A Y M E N T                                          | COSTS | COSTS |\n")
		(append "  |                                                         |       |       |\n")
		(append "  |---------------------------------------------------------+-------|-------|\n")
		(append "  |  Cash                                                   |    0  |    0  |\n")
		(append "  |=================================================================|=======|\n")
		(append "  |                                                         |       |       |\n")
		(append "  |  S U M   T O T A L                                      |   30  |   20  |\n")
		(append "  |                                                         |       |       |\n")
		(append "  `---------------------------------------------------------^-------'-------'\n\n\n")
		(append " Comment:\n")
		(append "          ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n\n")
		(append "      I have read the Copyright note and the dRE! Rulez and do agree.\n\n\n")
		(append "   ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ         ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\n")
		(append "            (City, Date)                           (Signature)\n")
	)
)

(complete 90)

(if
	(= edi 0)
		(if
			(set editor
				(askstring
					(prompt "\n\n\nEnter the Path/Name to your favorit Editor")
					(help @askstring-help)
					(default "CED")
				)
			)
			(run ("%s %s" editor (tackon check_dir "REGiStER.fORM")))
		)
)

(if
	(= edi 1)
		(run ("%s %s" editor (tackon check_dir "REGiStER.fORM")))
)
	)
)

(message "\n\n\n\n\nPlease, now fill out the REGISTER.FORM")

(complete 100)

(exit "\nThank you for using dRE!ChECk\n\nand remember keep the programers programing...\n\ndR.dRE! Of (tRSi /X·iNNOVAtiON)\n")