; IMAZINE #3 installer written by MR SOFT / WORLD FEDERATION OF MAD HACKERS

(complete 0)

(welcome
		"\n"
		"  ***    ***    *********  ***    ***    ***    ***\n"
		"  ***    ***    ***        ****  ****    ***    ***\n"
		"  ***    ***    ***        *** ** ***    ***    ***\n"
		"  ***    ***    ********   *** ** ***    **********\n"
		"  *** ** ***    ********   ***    ***    **********\n"
		"  *** ** ***    ***        ***    ***    ***    ***\n"
		"  ****  **** ** ***     ** ***    *** ** ***    ***\n"
		"  ***    *** ** ***     ** ***    *** ** ***    ***\n"
		"\n"
		"      ------------------------------------------\n"
		"      IMAZINE #3 Installer by MR SOFT / W.F.M.H.\n"
		"      ------------------------------------------\n"
		
)

(set wynik
    (askoptions
            	(prompt  "Co chcesz zainstalowac?")
  		    	(help    "\n\n\n\n"
			 	 "                     Co za tupet!\n"
				 "      Nie powiesz mi chyba ze Cie to przerasta?!\n"
			)  		     
            	(choices "Moduly muzyczne"
			 "ExIT"
			 "CED pieces"
			 "Tools 1.3"
			 "Tools 2.0"
                	 "Sources"
			 "Pictures"
			 "Games"
            )
	)
)

(set imazine_dest
	(tackon
		(askdir
			(default "Work:Trashcan")
			(prompt  "Gdzie zyczysz sobie zainstalowac IMAZINE #3?")
			(help    "\n\n\n\n"
				 " Z wyswietlonej listy wybierz urzadzenie lub katalog\n"
				 "     w ktorym chcialbys zainstalowac IMAZINE #3.\n"
				 "    Program instalacyjny zalozy dodatkowy katalog\n"
				 "  o nazwie IMAZINE_III i w nim to umiesci wszelakie\n"
				 "             niezbedne zbiory plikowe.\n")
)
			"IMAZINE_III"
	)
)



(makedir imazine_dest (infos))

(set @default-dest imazine_dest)

(askdisk
	    (prompt  "\n\n\n\nBadz laskaw umiescic dysk zwany \"IZ3_A\" w dowolnym napedzie.")
    	(help	 "\n\n\n"
			 "     A to wszystko po to aby mozna bylo skopiowac\n"
			 "  niezbedne pliki z dyskietki owej na Twoj wspanialy\n"
			 "                     dysk twardy.\n")
	    (dest    "IZ3_A")
    	(newname "ImazineDiskA")
)

(working "Kopiuje niezbedne biblioteki systemowe...")

(copylib
    (source "ImazineDiskA:Libs/powerpacker.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/explode.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/diskfont.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/explode.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/reqtools.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/version.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/info.library")
    (dest   "LIBS:")
)
(copylib
    (source "ImazineDiskA:Libs/icon.library")
    (dest   "LIBS:")
)

(working "Kopiuje niezbedne fonty.")
(copyfiles
	(source "ImazineDiskA:Fonts")
	(dest "FONTS:")
	(all)
)

(copyfiles
	(source "ImazineDiskA:IMAZINE_III")
	(dest imazine_dest)
	(infos)
)
(complete 26)
(copyfiles
	(source "ImazineDiskA:IMZ_EXE")
	(dest (tackon imazine_dest "IMZ_EXE"))
    (all)
)
(complete 31)

(copyfiles
	(source "ImazineDiskA:IMA.PREFS")
	(dest imazine_dest)
)
(complete 34)


(if (bitand wynik 1)
 (
	(copyfiles
   	(source "ImazineDiskA:MODULES")
   	(dest (tackon imazine_dest "MODULES"))
    (all)
   )
   (complete 37)
 )
)

(if (bitand wynik 16)
 (
	(copyfiles
	(source "ImazineDiskA:_TOOLS_2.0")
	(dest (tackon imazine_dest "_TOOLS_2.0"))
	(all)
   	)
	(complete 45)
 )
)

(if (bitand wynik 32)
 (
	(copyfiles
   	(source "ImazineDiskA:_SOURCES")
   	(dest (tackon imazine_dest "_SOURCES"))
    (all)
    )
    (complete 50)
 )
)
	

(askdisk
	(prompt 	"\n\n\n\nBadz laskaw umiescic dysk zwany \"IZ3_B\" w dowolnym napedzie.")
   	(help	"\n\n\n"
			"     A to wszystko po to aby mozna bylo skopiowac\n"
			"  niezbedne pliki z dyskietki owej na Twoj wspanialy\n"
			"                     dysk twardy.\n")
	(dest  "IZ3_B")
	(newname "ImazineDiskB")
)


(copyfiles
	(source "ImazineDiskB:ARTYKULY")
	(dest (tackon imazine_dest "ARTYKULY"))
    (all)
)
(complete 75)

(if (bitand wynik 2)
 (
	(copyfiles
   	(source "ImazineDiskB:_ExIT")
   	(dest (tackon imazine_dest "_ExIT"))
	(all)
    )
    (complete 80)
 )
)

(if (bitand wynik 4)
 (
	(copyfiles
   	(source "ImazineDiskB:_CED_PIECES")
   	(dest (tackon imazine_dest "_CED_PIECES"))
    (all)
   )
   (complete 89)
 )
)

(if (bitand wynik 8)
 (
	(copyfiles
   	(source "ImazineDiskB:_TOOLS_1.3")
   	(dest (tackon imazine_dest "_TOOLS_1.3"))
    (all)
   )
   (complete 90)
 )
)

(if (bitand wynik 64)
 (
	(copyfiles
   	(source "ImazineDiskB:_PICTURES")
   	(dest (tackon imazine_dest "_PICTURES"))
    (all)
   )
   (complete 98)
 )
)

(if (bitand wynik 128)
 (
	(copyfiles
   	(source "ImazineDiskB:_GAMES")
   	(dest (tackon imazine_dest "_GAMES"))
    (all)
   )
 )
)

(complete 100)
(exit)