;*******************************************************
;*    $VER: GroovyPlayer Install 1.08 (19.02.97)       *
;*               Copyright ©1996 Alan                  *
;*           Install script by Stef & Alan             *
;*                                                     *
;*              Hungarian version V1.08                *
;*                                                     *
;*******************************************************
;* Magyar szövegek  *
;********************
((if @language "magyar")
        (set @default-dest "SYS:")
        (set #echotxt "echo \"Telepítek...\"\n" )



        (complete 0)
;************************
;The text message area                       
;************************
        (set #Intro-Txt
	        (cat "Üdvözöllek a GroovyPlayer telepítő programjában.\n\n"
        	"\n"
        	"Köszönöm, hogy regisztráltad a programomat!\n"
                "Használata remélem, sok örömet szerez majd.\n\n\n\n"
	        "                                          Alan\n"
        	)
        )
        (set #Guide-Txt
                (cat "\n\nÉrdemes elolvasnod az AmigaGuide dokumentációt,\n"
                "ami különösen kezdő felhasználók számára hasznos, bár azt\n"
                "hiszem, mindenki könnyebben eligazodik a funkciók között,\n"
                "ha már elolvasta a dokumentációt."
                )
        )
        (set #Warning-Txt
	        (cat "FIGYELEM!\n\n\n"
        	"A telepítéshez 0.5 Mbyte üres helyre van szükség a\n"
                "winchesteren, valamint 250Kbyte szabad memóriára\n"
	        "(Ha szükséges, a kiszemelt partícióról törölj le\n"
                "egy-két file-t, és lesz hely a GroovyPlayer-nek).\n"
	        )
        )
        (set #Path-Txt
	        (cat "Válaszd ki a célkönyvtárat!\n\n"
        	"Ide készíteni fogok egy 'GroovyPlayer' nevű alkönyvtárat.\n"
	        )
        )
        (set #Decrunch-Txt
	        (cat "Kisűrítem a CD-katalógust a RAM: egységre. \n\n"
        	"Ebben a katalógusban 816 különböző stílusú CD számai\n"
                "szerepelnek a reggae-től a rock-ig, sőt, még néhány\n"
                "Aminet CD is. Ezeket a CD-ket a program behelyezés után\n"
                "automatikusan felismeri.\n"
                )
        )
;************************
; End text message area
;************************
        (message #Intro-Txt)

        (message #Warning-Txt)
	        (set target_dir
        (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
        	)
        )
        ;Making the directories
        (set directory_name (substr target_dir (- (strlen target_dir) 1) 1))
        (set Groovy_dir (tackon target_dir "GroovyPlayer"))
             (if (NOT (exists Groovy_dir))
                 (makedir Groovy_dir))
        (set doc_dir (cat Groovy_dir "/Doc"))
             (if (NOT (exists Doc_dir))
                 (makedir Doc_dir))
        (complete 10)
;*************************************************
; Copy the guide files to destdir/GroovyPlayer/doc
;*************************************************
        (message #Guide-Txt)
        (set @default-dest target_dir)
                (copyfiles
                        (prompt "\nA GroovyPlayer angol nyelvű dokumentációját másolom...")
                        (help @copy-files-help)
                        (source "GroovyPlayer_E.guide")
                        (dest doc_dir)
                        (confirm)
                )

        (set @default-dest target_dir)
                (copyfiles
                        (prompt "\nA GroovyPlayer magyar nyelvű dokumentációját másolom...")
                        (help @copy-files-help)
                        (source "GroovyPlayer_M.guide")
                        (dest doc_dir)
                        (confirm)
                )
        (complete 20)
;***************************************
; Copy GroovyPlayer fonts to FONTS:
;***************************************
        (
	        (copyfiles
                        (prompt "\nA GroovyPlayer betűkészleteit másolom a FONTS: egységre...")
		        (help @copyfiles-help)
        		(source "Fonts/")
	        	(dest "FONTS:")
                        (pattern "#?")
		        (confirm)
        	)
        )
        (complete 30)
;***************************************
; Copy GroovyPlayer locale to LOCALE:
;***************************************
        (
	        (copyfiles
                        (prompt "\nA GroovyPlayer katalógusait másolom a LOCALE: egységre...")
		        (help @copyfiles-help)
        		(source "Locale/")
	        	(dest "LOCALE:")
                        (pattern "#?")
		        (confirm)
        	)
        )
        (complete 35)
;******************************************
; Install GroovyPlayer main program
;******************************************
        (
	        (copyfiles
                        (prompt "\nA GroovyPlayer-t másolom a célkönyvtárba...")
		        (help @copyfiles-help)
        		(source "GroovyPlayer")
	        	(dest Groovy_dir)
        		(confirm)
	        )
        )
        (complete 40)
;******************************************
; Install GroovyPlayer.info
;******************************************
        (
	        (copyfiles
                        (prompt "\nA GroovyPlayer ikonját másolom a célkönyvtárba...")
		        (help @copyfiles-help)
        		(source "GroovyPlayer.info")
	        	(dest Groovy_dir)
        		(confirm)
	        )
        )
        (complete 45)
;**********************************
; Install iconify icon
;**********************************
        (
	        (copyfiles
                        (prompt "\nA GroovyPlayer appikonját másolom az ENVARC: egységre...")
		        (help @copyfiles-help)
        		(source "envarc/")
	        	(dest "ENVARC:")
		        (pattern "#?")
        		(confirm)
	        )
        )
        (run (cat "resident" c:delete))
        (complete 50)
;***********************
; Decrunch CD Titles
;***********************

        (message #Decrunch-Txt)

        (
	        (copyfiles
        		(source "CDTitles.lha")
	        	(dest "RAM:")
		        (pattern "#?")
	        )
        )
        (set decrunch "SYS:C/LHA >CON:0/0/320/60/LZX/AUTO x RAM:CDTitles.lha #? ")
        (set decrunch (cat decrunch Groovy_dir))
        (set decrunch (cat decrunch "/"))
        (run decrunch)
        (complete 80)
;**********************************************
; Copy RAM:CD Titles directory to destination
;**********************************************
        (
	        (copyfiles
                        (prompt "\nA CD-katalógust másolom...")
		        (help @copyfiles-help)
        		(source "RAM:")
	        	(dest Groovy_dir)
		        (pattern "CD#?")
        		(confirm)
	        )
;       )
;       (complete 90)
;        (message "\nEgy kis meglepetés...")
;        (run "assign GPSHOW: Presentation")
;        (run "ScalaMMPlayer GroovyPlayerDemo_M.script")
;        (run "assign GPSHOW: remove")
;       (
	(set doc1 (askchoice
		        (prompt "Milyen nyelven szeretnéd most elolvasni a dokumentációt?")
        		(help @askchoice-help)
        		(choices "Magyarul" "Angolul" "Ma nem olvasok többet :-)")
        		(default 0)

                  )
        )

;****************************
; Let the user read a guide file
;****************************
         (if (= doc1 0)
                 (run ("SYS:Utilities/MultiView GroovyPlayer_M.guide"))

         )
         (if (= doc1 1)
                 (run ("SYS:Utilities/MultiView GroovyPlayer_E.guide"))

         )
        )
;****************************
; Delete decrunched directory
;****************************
 (run ("c:delete ram:CDTitles.lha noreq"))
)
        (complete 100)
(exit)