; $VER Install-AntyDresiarz Issue #1 by Paplo/Taski (31.03.1997)

(welcome)

(set #welcome "Witamy w skrypcie instalacyjnym AntyDresiarza Issue #1.\nJest to pierwsze nie-beta wydanie nowego polskiego magazynu.\n\nOto co moūesz znaleśź w AntyDresiarzu:\n\nciekawe artykuīy\nduūo grafiki\nmultitasking\nsystemowoōź\npeīka konfigurowalnoōź")
(set #destdir-prompt "Wskaū katalog w którym chcesz zainstalowaź AntyDresiarza. Katalog 'AntyDresiarz' zostanie automatycznie stworzony.")

(set #nazwakatalogu "AntyDresiarz1")

(message #welcome)

(set #destinationdrawer

  (askdir
    (prompt #destdir-prompt)
    (help #destdir-help)
    (default "RAM:")
  )
)

	(set #cel (tackon #destinationdrawer #nazwakatalogu))
	(set @default-dest #cel)


; --------- tworzenie katalogów

	(MAKEDIR #cel (infos))

	(Working "Tworzė katalogi...")
	(MAKEDIR (tackon #cel "MUZYKA"))
	(MAKEDIR (tackon #cel "RYSUNKI"))
	(MAKEDIR (tackon #cel "TEKSTY"))
	(MAKEDIR (tackon #cel "FONTS"))

; --------- kopiowanie plików z dysku 1

	(WORKING "Kopiujė moduīy...")
	(COPYFILES (SOURCE "AntyDresiarz1-1:MUZYKA") (DEST (tackon #cel "MUZYKA")) (ALL) (NOGAUGE) )
	(WORKING "Kopiujė rysunki...")
	(COPYFILES (SOURCE "AntyDresiarz1-1:RYSUNKI") (DEST (tackon #cel "RYSUNKI")) (ALL) (NOGAUGE) )
	(WORKING "Kopiujė artykuīy...")
	(COPYFILES (SOURCE "AntyDresiarz1-1:TEKSTY") (DEST (tackon #cel "TEKSTY")) (ALL) (NOGAUGE) )
	
	(WORKING "Kopiujė magazyn...")
	(COPYFILES (SOURCE "AntyDresiarz1-1:MAG.exe") (DEST #cel) (NOGAUGE) )
	(COPYFILES (SOURCE "AntyDresiarz1-1:AntydResiarz1.info") (DEST #cel) (NOGAUGE) )
	(COPYFILES (SOURCE "AntyDresiarz1-1:prefs.pre") (DEST #cel) (NOGAUGE) )

; --------- generacja skryptu uruchamiajācego

	(textfile
		(dest (cat #cel "/AntyDresiarz1"))
		(append "Assign FONTS: FONTS\n\nMAG.EXE\n")
		(safe)
	)

	(textfile
		(dest (cat #cel "/DON'T_KASOWAC"))
		(append "Jeūeli uūywasz maga z HD, to nie kasuj tego pliku !\n")
		(safe)
	)

; --------- Instalacja dodatków

	(set #InstalowacDodatki
		(askbool
		(prompt  "Czy mam zainstalowaź dodatki w postaci skryptów, przykīadów, śródīówek itp. ?")
		(choices "Instaluj dodatki" "Nie instaluj dodatków")
		(help "Dodatki czėsto sā przykīadami do Artykuīów\n\nJeūeli je zainstalujesz, to bėdā one w katalogu DODATKI")
		(default 1)
	))


	(if (= #InstalowacDodatki 1)
	(
		(MAKEDIR (tackon #cel "DODATKI"))
		(COPYFILES (SOURCE "AntyDresiarz1-1:DODATKI") (DEST (tackon #cel "DODATKI")) (ALL))
	)
	) 
; --------- DiskFont.library

	(set DiskFontVersion (/ (getversion "LIBS:diskfont.library") 65536))

	(set #InstalowacDiskFont
	        (askbool
       		(prompt "\n\nInstalacja diskfont.library\n\nBiblioteka z AntyDresiarza ma wersjė\nv39\n\nBiblioteka na twoim twardzielu jest w wersji\nv" DiskFontVersion)
		(choices "Instalujė z AntyDresiarza" "Zostawiam swojā")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #InstalowacDiskFont 1)
	(
		(WORKING "Kopiujė diskfont.library...")
		(COPYFILES (SOURCE "AntyDresiarz1-1:Libs/diskfont.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)


; ------------ ReqTools.library

	(set ReqToolsVersion (/ (getversion "LIBS:reqtools.library") 65536))

	(set #InstalowacReqTools
	        (askbool
       		(prompt "\n\nInstalacja reqtools.library\n\nBiblioteka z AntyDresiarza ma wersjė\nv38\n\nBiblioteka na twoim twardzielu jest w wersji\nv" ReqToolsVersion)
		(choices "Instalujė z AntyDresiarza" "Zostawiam swojā")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #InstalowacReqTools 1)
	(
		(WORKING "Kopiujė reqtools.library...")
		(COPYFILES (SOURCE "AntyDresiarz1-1:Libs/reqtools.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)

	(WORKING "Kopiujė czcionki...")
	(COPYFILES (SOURCE "AntyDresiarz1-1:Fonts") (DEST (tackon #cel "FONTS")) (ALL) (NOGAUGE) )

; ------------- proōba o drugi dysk

;  (askdisk
;    (dest "AntyDresiarz1-2")
;    (prompt "\n\nProszė wīoūyź dysk\n\n\"AntyDresiarz1-2:\"\n\ndo napėdu")
;    (help @askdisk-help)
;  )

; ------------- Kopiowanie plików z dysku 2

	(WORKING "Kopiujė rysunki...")
	(COPYFILES (SOURCE "AntyDresiarz1-2:RYSUNKI") (DEST (tackon #cel "RYSUNKI")) (ALL) (NOGAUGE) )
	(WORKING "Kopiujė artykuīy...")
	(COPYFILES (SOURCE "AntyDresiarz1-2:TEKSTY") (DEST (tackon #cel "TEKSTY")) (ALL) (NOGAUGE) )

; ------------- Koniec

(set #end "\nWīaōnie skoļczyīeō instalacjė AntyDresiarza.\n\nMagazyn uruchom klikajāc na jego ikonce.\n\nJeūeli wystāpiā jakieō kīopoty podczas pracy maga, to proszė przeczytaź plik readme, w którym zawarte sā odpowiedzi na najczėōciej zadawane pytania.\n\nMiīego czytania ūyczy Paplo/Taski.\n\n\nA M I G A    R U L E Z Z Z   ! ! !")

(message #end)

(exit)