	; Prfung auf ein Betriebsystem von mindestens OS2.04 (37.xxx).
(
(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set osversion ver)
(if (< osversion 37)
	((abort #msg-oldoperatingsystem))
))

(complete 0)
;------------------- Germany --------------------------------------
(if (= @language "deutsch")
((set default_lang 2)
(set #ask-prompt-1
	(cat	"Auf welches Laufwerk oder in welches Verzeichnis soll \n"
		    "         ByteKiller V3.0 installiert werden ?         \n"
	)
)

(set #ask-prompt-2
	(cat 	" Es existiert bereits ein Bytekiller dir,   \n"
				"	sollen die alten default-texte sowie icon- \n"
        " eintraege weiter verwendet werden ?        \n"
	)
)

(set #ask-help-1
	(cat	"Das Verzeichnis \"ByteKiller\" wird auf dem \n"
        "gewnschten Laufwerk oder in dem gewnschten \n"
        "Verzeichnis automatisch eingerichtet.\n"
	)
)


(set #ask-help-2
	( cat " Dieses Comando wird ins bbscmd-dir eingetragen um \n"
        " ByteKiller zu starten.\n"
	)
)

(set #ask-help-3
	(	cat	" Es wurden wichtige Aenderungen in den Tooltypes, \n"
        " sowie an den default-Texten vorgenommen, sollten \n"
        " die alten Icons, sowie Texte beibehalten werden, \n"
        " ist es erforderlich sie durch den installer con- \n"
        " vertieren zu lassen !\n"
  )
)
(set #ask-command
	(cat	"Bitte gebe das zustaendige Command fuer das BBSCMD/\n"
				"ein !\n"
	)
)
(set #help-command	
	(cat	"Dieses command dient zum starten von ByteKiller,\n"
				"es wird im BBScmd als .data oder .info File \n"
				"angelegt !\n"
	)
)
(set	#ask-bbs	(cat	"Bitte gebe den Pfad zur BBS an !"))
(set #help-bbs	
	(cat  "dieser Pfad wird benoetigt, um bestimmte \n"
				"daten im, BBScmd festhalten zu koennen...\n")
)
(set #last-word
	(cat	"\n\nEs ist wichtig sich das doc-file anzusehen,\n"
				"da in der Version 3.0 sehr viele aenderungen\n"
				"vorgenommen wurden....\n"
	)
)
(set	#lastmsg
	(cat	"Bitte kopiere nun das Prg Bytekiller in das \n"
				"Bytekiller dir und aendere div.Tooltypes \n"
	)
)
(set #ask-system
	(cat	"Bitte gebe dein BBS-System an\n")
)

)
;else ------------------- Englisch ------------------------------------

((set default_lang 4)
(set #ask-prompt-1
	(cat	" Please Enter the Drive, where you want to install \n"
        "              ByteKiller V3.0\n"
	)
)

(set #ask-prompt-2
	(cat " there is an existing Bytekiller directory\n "
       " do you want to use the old defaults for Icon\n "
       " and Messages ? "
	)
)

(set #ask-help-1
	(cat	"The Directory \"ByteKiller\" will be installed \n"
		    "automaticle on your Drive \n"
	)
)

(set #ask-help-2
	( cat " This is the Command in your BBSCMD, to start \n"
        "               ByteKiller V3.0 \n"
	)
)

(set #ask-help-3
	(	cat	" There some changes in ByteKiller V3.0,  "
        " If you want to use the old Icon and     "
        " Default-Messages, the Installer have to "
				" change some ! "
  )
)
(set #ask-command
	(cat	"Please Enter the command to start Bytekiller\n"
	)
)
(set #help-command	
	(cat	"This command is to start ByteKiller, \n"
				"the Installer will create the .data or \n"
				".info File in your BBSCMD/\n"
	)
)
(set #ask-bbs	
	(cat	"Please Enter the Assign for your BBS-System\n")
)
(set #help-bbs
	(cat	"This is important to install the commands in \n"
				"your BBSCMD and other Datas\n")
)
(set #last-word
	(cat	"\n\nit is very important to read the manual,\n"
				"because there some changes from version \n"
				"2.x to V3.0\n"
	)
)
(set	#lastmsg
	(cat	"Please Copy now the Bytekiller-Prg for \n"
				"Fame or /X\n in your ByteKiller dir, don`t\n"
				"forget to change the Tooltypes for your System\n"
	)
)
(set #ask-system
	(cat	"Please Enter your BBS-System\n")
)
)

)


;----------------------- installer -----------------------------------
(set fameflag (exists "libs:fame.library"))
(set #nohelp
	(cat"No Help avaible\n")
)

(set #bbdir
	(askdir	
		(prompt #ask-bbs)
		(help	#help-bbs)
		(default	"BBS:")
	)
)

(if(> fameflag	0) 
	(set fameflag	
		(askbool 
			(prompt	#ask-system)
			(help #nohelp)
			(choices	"Fame"
								"Amiex"
			)
			(default	1)
		)
	)
)
			
(if (< fameflag	1 )
	(	(set	#bbsdir
			(cat	#bbdir
						"Commands/bbscmd/"
			)
  	)
	)
 	(	(set	#bbsdir
	  	(cat	#bbdir
						"Settings/Doors/bbscmd/"
		  )
	  )
	)
)

(set #Laufwerk
	(askdir 
		(prompt #ask-prompt-1)
		(help #ask-help-1)
		(default	"doors:")
	)
)

(set #BK-dir (cat #Laufwerk "ByteKiller"))
(set newbk-dir (exists #BK-dir))

(if(> newbk-dir 0)
	(	(set maske
			(askoptions 
				(prompt #ask-prompt-2)
				(help	#ask-help-3)
				(choices 	"Award.cfg"
									"Uploader.cfg"
									"Downloader.cfg"
									"ByteKiller.info")
			)
		)
		(set #olddir
			(cat 	#BK-dir
						".old"
			)
		)
		(rename #BK-dir #olddir)
		(makedir #BK-dir (infos))
	(if(BITAND maske 1)	
		(	(set #pa (cat #olddir "/Award.cfg"))
			(copyfiles ( source	#pa)( dest	#BK-dir))
		)
		
;else
		(copyfiles ( source	"Award.cfg")( dest	#BK-dir))
	)

	(set lame (shiftright maske 1))
	(if(BITAND lame 1)	
		(	(set #pa (cat #olddir "/Uploader.cfg"))
			(copyfiles ( source	#pa)( dest	#BK-dir))
		)
;else
		(copyfiles ( source	"Uploader.cfg")( dest	#BK-dir))
	)
	(set lame (shiftright maske 2))
	(if(BITAND lame 1)	
		(	(set #pa (cat #olddir "/Downloader.cfg"))
			(copyfiles ( source	#pa)( dest	#BK-dir))
		)
;else
		(copyfiles ( source	"Downloader.cfg")( dest	#BK-dir))
	)
	(set lame (shiftright maske 3))
	(if(BITAND lame 1)	
		((set #pa (cat #olddir "/ByteKiller.info"))
		 (copyfiles ( source	#pa)( dest	#BK-dir))
		)
;else
		(copyfiles ( source	"ByteKiller.info") ( dest	#BK-dir))
	)
	)
;else
	(	(complete 10)
		(makedir #BK-dir (infos))
		(copyfiles ( source	"Award.cfg")       ( dest	#BK-dir))
		(copyfiles ( source	"Uploader.cfg")	   ( dest	#BK-dir))
		(copyfiles ( source	"Downloader.cfg")	 ( dest	#BK-dir))
		(copyfiles ( source	"ByteKiller.info") ( dest	#BK-dir))
	)
)
(copyfiles ( source	"ByteKiller.guide") ( dest	#BK-dir))

;-------------------- erstellen der notwendigen dirs -------------------
(complete 50)
(set	#mydir (cat	#BK-dir	"/topfake"))
(makedir	#mydir (infos))
(set	#mydir (cat	#BK-dir	"/fakes"))
(makedir	#mydir (infos))
;---------------------- BBScmd -----------------------------------------
(set #command1
	(askstring
		(prompt #ask-command)
		(help	#help-command)
		(default	"Nuke")
	)
)
	(if(> fameflag 0)	(set #dat (cat	".data"))
	(set #dat (cat	".info"))
	)

(set #command	
	(cat	#command1
				#dat)
)

(set #dir
	(	(if <fameflag 1)	(cat	"nuke")
		(cat	"nuke.info")
	)
)
(copyfiles (source	#dir) (dest #bbsdir) (newname #command))
(message	#last-word)
(run "Amigaguide" "bytekiller.guide")
(message	#lastmsg)
(complete 100)
