Amiga ISO Collection/AmigaUtilCD2.iso/Misc/RYL-YMD1.DMS/in.adf/InstallHD

Text File | 1997-01-13 | 5.0 KB | 338 lines

; instalka YMD na dysku twardym
; autor: Michaî Kasza




;-------------- main -------------------


(if (= @language "polski")
    (
        (set askdir_prompt  (cat "Proszë podaê miejsce na dysku twardym \n"
                             ",w którym utworzony zostanie katalog 'YMD'\n"))

        (set insert_disk1 (cat "Poproszë o wîoûenie dysku 'YMD'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk2 (cat "Poproszë o wîoûenie dysku 'YMD_Dysk2'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk3 (cat "Poproszë o wîoûenie dysku 'YMD_Dysk3'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk4 (cat "Poproszë o wîoûenie dysku 'YMD_Dysk4'\n"
                           "do dowolnej stacji dysków"))


        (set end_install (cat  "Instalacja zakoïczona\n"
                           "Program bëdzie gotowy do uûycia\n"
                           "po zresetowaniu komputera"))
    )
    (

        (set askdir_prompt  "Where do you want to make drawer 'YMD'\n")

        (set insert_disk1 (cat "Please insert disk 'YMD'\n"
                           "to any drive"))

        (set insert_disk2 (cat "Please insert disk 'YMD_Dysk2'\n"
                           "to any drive"))

        (set insert_disk3 (cat "Please insert disk 'YMD_Dysk3'\n"
                           "to any drive"))

        (set insert_disk4 (cat "Please insert disk 'YMD_Dysk4'\n"
                           "to any drive"))

        (set end_install (cat  "Installation completed\n"
                           "Please reboot your computer"))

    )

)


(set DIR_DOCELOWY    (askdir
                    (prompt askdir_prompt)
                    (help @askdir-help)
                    (default @default-dest)
                )
)






(set DIR_DOCELOWY (tackon DIR_DOCELOWY "YMD"))

(if (= (exists DIR_DOCELOWY) 0)
    (makedir DIR_DOCELOWY)
)



(complete 0)


    ;-------- kopiowanie ----------




    ;---------------------- dysk pierwszy

(askdisk     (prompt insert_disk1)
            (help @askdisk-help)
        (dest "YMD")
)


    ;------------ biblioteki


(copylib
    (source "YMD:libs/powerpacker.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "powerpacker.library")
    (help @copylib-help)
)

(copylib
    (source "YMD:libs/xpkmaster.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "xpkmaster.library")
    (help @copylib-help)
)

(copylib
    (source "YMD:libs/diskfont.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "diskfont.library")
    (help @copylib-help)
)

(if (< (getversion) 2359296)
    (copylib
        (source "YMD:libs/icon.library")
        (dest   "LIBS:")
        (confirm)
        (prompt "icon.library")
        (help @copylib-help)
    )
)


(copylib
    (source "YMD:libs/CrM.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "CrM.library")
    (help @copylib-help)
)


(copylib
    (source "YMD:libs/compressors/xpkCRM2.library")
    (dest   "LIBS:compressors")
    (confirm)
    (prompt "compressors/xpkCRM2.library")
    (help @copylib-help)
)

(copylib
    (source "YMD:libs/compressors/xpkSQSH.library")
    (dest   "LIBS:compressors")
    (confirm)
    (prompt "compressors/xpkSQSH.library")
    (help @copylib-help)
)

    ;-------- fonty

(copyfiles
    (source "YMD:fonts")
    (dest   "FONTS:")
    (all)
)




(copyfiles
    (source "YMD:")
    (dest   DIR_DOCELOWY)
    (choices "DATA" "INTERFACE" "YMD" "SpecialKEYMAP" "DeutschKEYMAP" "CzytajTo")
    (infos)
)

(if (exists "YMD:prefs")
    (copyfiles
        (source "YMD:prefs")
        (dest   DIR_DOCELOWY)
    )
)


(if (exists "YMD:scores")
    (copyfiles
        (source "YMD:scores")
        (dest   DIR_DOCELOWY)
    )
)


(if (not (exists "DEVS:Keymaps/d"))
    (copyfiles
        (source "YMD:DEVS/Keymaps/d")
        (dest   "DEVS:Keymaps")
    )
)

(if (not (exists "DEVS:Keymaps/ymdusamap"))
    (copyfiles
        (source "YMD:DEVS/Keymaps/ymdusamap")
        (dest   "DEVS:Keymaps")
    )
)





(complete 25)





;-------------------------------------------------------------------------
;    ewentualnie komendy do C: (jesli ich tam nie ma )
;    ,a nie sâ rezydentami (zaleûy od kickstart'a)
;-------------------------------------------------------------------------


(if (not (exists "C:IconX"))
    (copyfiles
        (source "YMD:c/IconX")
        (dest   "c:")
    )
)


(if (not (exists "C:SetMap"))
    (copyfiles
        (source "YMD:c/SetMap")
        (dest   "c:")
    )
)


(if (not (exists "C:PPMore"))
    (copyfiles
        (source "YMD:c/PPMore")
        (dest   "c:")
    )
)





    ;-------------------------- dysk drugi

(askdisk     (prompt insert_disk2)
            (help @askdisk-help)
        (dest "YMD_Dysk2")
)

(copyfiles
    (source "YMD_Dysk2:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 50)


    ;------------------------- dysk trzeci

(askdisk     (prompt insert_disk3)
            (help @askdisk-help)
        (dest "YMD_Dysk3")
)

(copyfiles
    (source "YMD_Dysk3:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 75)





    ;-------------------------- dysk czwarty

(askdisk     (prompt insert_disk4)
            (help @askdisk-help)
        (dest "YMD_Dysk4")
)


(copyfiles
    (source "YMD_Dysk4:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 99)





    ;------- dopisanie assign'a

(if (= @language "polski")
    (
        (set startup_text (cat "Do pliku 'user-startup' zostanie\n"
                           "dopisana linia:\n"
                           "Assign >NIL: \"YMD:\" " "\""DIR_DOCELOWY"\""))
    )
    (
        (set startup_text (cat "in file 'user-startup'\n"
                           "including line:\n"
                           "Assign >NIL: \"YMD:\" " "\""DIR_DOCELOWY"\""))

    )
)




(startup "You and Me (lernen DEUTSCH)"
    (prompt startup_text)
    (help @startup-help)
     (command "Assign >NIL: \"YMD:\" " "\""DIR_DOCELOWY"\"")
)


    ;kaniec filma




(exit end_install)