;$VER Install-AMIGAs INFO 8


(set @abort-button "Przerwij Instalacje")



(copyfiles
	(source "c/UnLzX")
	 (nogauge)
	(dest "RAM:")
)

;/// OnError
(onerror
(working "Szkoda, ūe przerywasz instalacjė...")
(run "c/FixTaskName2" (safe))
	(if (= (exists "RAM:UnLzX" (noreq)) 1)
	 (delete "RAM:UnLzX" (safe))
	)

	(run "c/WaitPort" (safe))
	(delete "RAM:describe" (safe))
	(delete "RAM:sync" (safe))
	(delete "RAM:Info.bat" (safe))
	(delete "RAM:amigas1.iff" (safe))
	(delete "RAM:amigas2.iff" (safe))
	(delete "RAM:amigas3.iff" (safe))
	(delete "RAM:amigas4.iff" (safe))
	(delete "RAM:amigas5.iff" (safe))
	(delete "RAM:amigas6.iff" (safe))
	(delete "RAM:amigas7.iff" (safe))
	(delete "RAM:amigas8.iff" (safe))
	(delete "RAM:amigas9.iff" (safe))

	(if (= (exists "RAM:amigasA.iff" (noreq)) 1)
	 (delete "RAM:amigasA.iff" (safe))
	)

)

(run "RAM:UnLzX >nil: x -m Info/Info.lzx #? RAM:" (safe))
(run "c/FixTaskName" (safe))
(run "RAM:sync SCRIPT=Info.bat" (safe)) ;describe © Dietmar Eilert

(complete 0)


(welcome)

(set #welcome "Czeōź. Witam w skrypcie instalacyjnym amigowego\nmagazynu dyskowego - AMIGAs INFO.\n\nTym razem AMIGAs INFO w caīkiem nowej formie.\n\nJėzyk IXML zapewni Tobie caīkiem niezīā\n\n Z A B A W Ė !!!")

(set #destdir-prompt "Teraz proszė, abyō wskazaī, gdzie mam utworzyź katalog o nazwie 'AMIGAs_INFO8, do którego zainstalujė mag.")


(set #nazwakatalogu "AMIGAs_INFO8")

(message #welcome)

(set #destinationdrawer

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

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




	(MAKEDIR #cel (infos))

	(Working "Tworzenie katalogów.")
	(MAKEDIR (tackon #cel "IXG07DB"))
        (copyfiles (source "Amigas8:ixg07db/docs/images/AMIGAs_INFO8.info") (dest #destinationdrawer) (nogauge) )
(complete 10)
	(WORKING "Kopiowanie muzyki.")
	(COPYFILES (SOURCE "Amigas8:mod.Airdance") (DEST #cel) )
	(COPYFILES (SOURCE "Amigas8:ptp") (DEST #cel) (NOGAUGE) )
	(COPYFILES (SOURCE "Amigas8:libs2/arp.library") (DEST "libs:") (NOGAUGE) )
	(COPYFILES (SOURCE "Amigas8:ptp") (DEST "c:") (NOGAUGE) )
(complete 15)
	(WORKING "Kopiowanie fontów.")
	(COPYFILES (SOURCE "Amigas8:fonts2") (DEST "fonts:") (ALL) (NOGAUGE) )
(complete 20)
	(set #Installibs
	        (askbool
                (prompt"\n\nCzy chcesz kontrolowaź instalacjė bibliotek ?")
		(choices "N A P R Z Ó D  !" "Nie chcė...")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Installibs 1)
	(

(complete 23)
	(set bevelboxVer (/ (getversion "LIBS:bevelbox.library") 65536))

	(set #Instalbevelbox
	        (askbool
       		(prompt "\n\nInstalacja BevelBox.library\n\nBiblioteka z mag-u ma wersjė\nv37\n\nMasz zainstalowanā wersjė\nv" bevelboxVer "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalbevelbox 1)
	(
		(WORKING "Kopiowanie BevelBox.library...")
		(COPYFILES (SOURCE "amigas8:libs2/bevelbox.library") (DEST "LIBS:") (all) (NOGAUGE) )
	)
	)
(complete 25)

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

	(set #InstalowacReqTools
	        (askbool
       		(prompt "\n\nInstalacja reqtools.library\n\nBiblioteka z mag-u ma wersjė\nv38\n\nMasz zainstalowanā wersjė\nv" ReqToolsVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #InstalowacReqTools 1)
	(
		(WORKING "Kopiowanie ReqTools.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/reqtools.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)
(complete 30)
	(set deflateVersion (/ (getversion "LIBS:deflate.library") 65536))

	(set #Instalowacdeflate
	        (askbool
       		(prompt "\n\nInstalacja Deflate.library\n\nBiblioteka z mag-u ma wersjė\nv1\n\nMasz zainstalowanā wersjė\nv" deflateVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalowacdeflate 1)
	(
		(WORKING "Kopiowanie Deflate.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/deflate.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)

	
(complete 35)
	(set dospathVersion (/ (getversion "LIBS:dospath.library") 65536))

	(set #Instalowacdospath
	        (askbool
       		(prompt "\n\nInstalacja DosPath.library\n\nBiblioteka z mag-u ma wersjė\nv1\n\nMasz zainstalowanā wersjė\nv" dospathVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalowacdospath 1)
	(
		(WORKING "Kopiowanie DosPath.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/dospath.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)
(complete 40)
	(set explodeVersion (/ (getversion "LIBS:explode.library") 65536))

	(set #Instalowacexplode
	        (askbool
       		(prompt "\n\nInstalacja Explode.library\n\nBiblioteka z mag-u ma wersjė\nv6\n\nMasz zainstalowanā wersjė\nv" explodeVersion "\ntej biblioteki")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalowacexplode 1)
	(
		(WORKING "Kopiowanie Explode.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/explode.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)

(complete 43)
	(set iffVersion (/ (getversion "LIBS:iff.library") 65536))

	(set #Instalowaciff
	        (askbool
       		(prompt "\n\nInstalacja Iff.library\n\nBiblioteka z mag-u ma wersjė\nv23\n\nMasz zainstalowanā wersjė\nv" iffVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalowaciff 1)
	(
		(WORKING "Kopiowanie Iff.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/Iff.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)
(complete 45)
	(set IlbmVersion (/ (getversion "LIBS:ilbm.library") 65536))

	(set #Instalowacilbm
	        (askbool
       		(prompt "\n\nInstalacja Ilbm.library\n\nBiblioteka z mag-u ma wersjė\nv1\n\nMasz zainstalowanā wersjė\nv" ilbmVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalowacilbm 1)
	(
		(WORKING "Kopiowanie Ilbm.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/ilbm.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)
(complete 48)
	(set xpkmasterVersion (/ (getversion "LIBS:xpkmaster.library") 65536))

	(set #Instalxpkmaster
	        (askbool
       		(prompt "\n\nInstalacja XPKMaster.library\n\nBiblioteka z mag-u ma wersjė\nv2\n\nMasz zainstalowanā wersjė\nv" XPKMasterVersion "\ntej biblioteki.")
		(choices "Instaluj z mag-u" "Nie instaluj")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalxpkmaster 1)
	(
		(WORKING "Kopiowanie XPKMaster.library...")
		(COPYFILES (SOURCE "amigas8:Libs2/XPKMaster.library") (DEST "LIBS:") (ALL) (NOGAUGE) )
	)
	)
(complete 50)
	(WORKING "Kopiowanie czcionek.")
	(COPYFILES (SOURCE "Amigas8:Fonts2") (DEST "fonts:") (ALL) (NOGAUGE) )
(complete 60)
	(WORKING "Kopiowanie plików startowych.")
	(COPYFILES (SOURCE "Amigas8:ixg07db/docs/images/AMIGAs_INFO.info") (DEST #cel) (NOGAUGE) )
(complete 65)
	(WORKING "Kopiowanie tekstów.")
	(COPYFILES (SOURCE "Amigas8:AMIGAs_INFO") (DEST #cel) (NOGAUGE) )
	(COPYFILES (SOURCE "Amigas8:ixg07db") (DEST (tackon #cel "ixg07db")) (all) (NOGAUGE) )
(complete 95)
        (Working "Kopiowanie plików dodatkowych.")
	(set #Instalacja_dodatków
	        (askbool
       		(prompt "\n\nCzy chcesz zainstalowaź dodatkowe programy do obsīugi pióra ōwietlnego ( artykuī na ten temat w tym wydnaiu AMIGAs INFO ) ???")
		(choices "Spoko, ūe tak !" "Daruj sobie...")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalacja_dodatków 1)
	(
		(WORKING "Kopiowanie programów :\n\n\nCalibatura.exe\n\nSchemat.exe")

		(COPYFILES (SOURCE "amigas8:light-pen.lha") (DEST #cel) (nogauge) )
                (copyfiles (source "amigas8:screen.jpg") (dest #cel) (nogauge) )
	
        )
	)



(complete 100)
(set #end "\nUff! Gratulacje dotarcia do koļca.\n\nAMIGAs INFO#8 uruchamia siė po klikniėciu na jego ikonkė spod Workbencha.\n\nTeraz zapraszam tylko do czytania !.\n\n\Shandor/RELAX ITC")

(message #end)



(run "c/FixTaskName2" (safe))
(if (= (exists "RAM:UnLzX" (noreq)) 1)
 (delete "RAM:UnLzX" (safe))
)

(run "c/WaitPort" (safe))
(delete "RAM:describe" (safe))
(delete "RAM:sync" (safe))
(delete "RAM:Info.bat" (safe))
(delete "RAM:amigas1.iff" (safe))
(delete "RAM:amigas2.iff" (safe))
(delete "RAM:amigas3.iff" (safe))
(delete "RAM:amigas4.iff" (safe))
(delete "RAM:amigas5.iff" (safe))
(delete "RAM:amigas6.iff" (safe))
(delete "RAM:amigas7.iff" (safe))
(delete "RAM:amigas8.iff" (safe))
(delete "RAM:amigas9.iff" (safe))
(if (= (exists "RAM:amigasA.iff" (noreq)) 1)
  (delete "RAM:amigasA.iff" (safe))
)

(exit)

)
)        

        (working "Kopiowanie bibliotek.")
        (copyfiles (source "Amigas8:Libs2") (dest "Libs:") (all) ) 
(complete 50)
	(WORKING "Kopiowanie czcionek.")
	(COPYFILES (SOURCE "Amigas8:Fonts2") (DEST "fonts:") (ALL) (NOGAUGE) )
(complete 60)
	(WORKING "Kopiowanie plików startowych.")
	(COPYFILES (SOURCE "Amigas8:ixg07db/docs/images/AMIGAs_INFO.info") (DEST #cel) (NOGAUGE) )
(complete 65)
	(WORKING "Kopiowanie artykuīów.")
	(COPYFILES (SOURCE "Amigas8:AMIGAs_INFO") (DEST #cel) (NOGAUGE) )
	(COPYFILES (SOURCE "Amigas8:ixg07db") (DEST (tackon #cel "ixg07db")) (all) (NOGAUGE) )
(complete 95)
        (Working "Kopiowanie plików dodatkowych.")
	(set #Instalacja_dodatków
	        (askbool
       		(prompt "\n\nCzy chcesz zainstalowaź dodatkowe programy do obsīugi pióra ōwietlnego ( artykuī na ten temat w tym wydnaiu AMIGAs INFO ) ???")
		(choices "Spoko, ūe tak !" "Daruj sobie...")
		(help #askbool-help)
	 	(default 1)
	))
	

	(if (= #Instalacja_dodatków 1)
	(
		(WORKING "Kopiowanie programów :\n\n\nCalibatura.exe\n\nSchemat.exe")


		(COPYFILES (SOURCE "amigas8:light-pen.lha") (DEST #cel) (nogauge) )
                (copyfiles (source "amigas8:screen.jpg") (dest #cel) (nogauge) )
	        
        )
	)



(complete 100)
(set #end "\nUff! Gratulacje dotarcia do koļca.\n\nAMIGAs INFO#8 uruchamia siė po klikniėciu na jego ikonkė spod Workbencha.\n\nTeraz zapraszam tylko do czytania !.\n\n\Shandor/RELAX ITC")
(message #end)





(run "c/FixTaskName2" (safe))
(if (= (exists "RAM:UnLzX" (noreq)) 1)
 (delete "RAM:UnLzX" (safe))
)

(run "c/WaitPort" (safe))
(delete "RAM:describe" (safe))
(delete "RAM:sync" (safe))
(delete "RAM:Info.bat" (safe))
(delete "RAM:amigas1.iff" (safe))
(delete "RAM:amigas2.iff" (safe))
(delete "RAM:amigas3.iff" (safe))
(delete "RAM:amigas4.iff" (safe))
(delete "RAM:amigas5.iff" (safe))
(delete "RAM:amigas6.iff" (safe))
(delete "RAM:amigas7.iff" (safe))
(delete "RAM:amigas8.iff" (safe))
(delete "RAM:amigas9.iff" (safe))
(if (= (exists "RAM:amigasA.iff" (noreq)) 1)
  (delete "RAM:amigasA.iff" (safe))
)

(exit)