Amiga ISO Collection/AmigaUtilCD2.iso/Misc/LFC-MM1.DMS/in.adf/Copy_2_of_INSTALL-MediaMAGIC

Text File | 1997-03-12 | 5.8 KB | 297 lines

; MediaMAGIC install script.  HiSoft 1997(c) - S Marriott

(set #introduction
(cat "\nThis install program allows you to install \n\nMediaMAGIC\n\n to your hard"
     "drive or update an existing version"
     "Please make sure you have at least 5Mb of free disk space\n\n"))

(set #askdir-help
(cat "\nPlease select the partition to install MediaMAGIC to"
))


(set #no-inst
(cat "\nThere is not enough free disk space on the selected partition."
      "\n"
      "Installation ABORTED "
))

(set #COPVERZ    (cat "Please select the location for the MediaMAGIC drawer\n"))

(set #SIZE 1)

(set @language "English")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))


(Procedure Inst_LhaFiles
    (working @Working)
    (run ("RAM:Lhx -E -N x %s \"%s/\"" @Source @Dest))
)

(Procedure Inst_NormFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @display (cat "Copy "@FName" from "@SOURCE" \nto "@Dest))
    (copyfiles (prompt @display)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)



(Procedure Inst_PatternFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @display (cat "Copy "@FName" from "@SOURCE" \nto "@Dest))
    (copyfiles (prompt @display)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)


(set @default-dest
    (askdir
        (prompt #COPVERZ)
        (help    #askdir-help)
        (default "WORK:")
    )
)

(set @default-dest (tackon @default-dest "MediaMAGIC"))
(set @default-src "MediaMAGIC:")



(if
    (= (exists @default-dest) 0)
    (makedir @default-dest)
)


    (askdisk
        (prompt "\n\n\nPlease insert the disk labelled\"MediaMAGIC\" ")
        (help #askdisk-help)
        (dest "MediaMAGIC")
    )



(complete 1)


(
    (set @Source @default-src)
    (set @Dest "RAM:")
   (set @Pattern "LHX")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "MM")
    (set @Size #SIZE)
    (Inst_PatternFiles)
)

(complete 10)


(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Pictures")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Animations")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Brushes")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Sounds")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Music")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Texts")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Scripts")
    (Inst_PatternFiles)
)

(complete 15)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "info")
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Readme")
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "mmmlibs")
    (Inst_NormFiles)

)

(complete 20)

    (set @Working "Unpacking files")
    (set @Source "MediaMAGIC:music.lha")
    (set @Dest @default-dest)
    (Inst_LhaFiles)

    (set @Working "Unpacking files")
    (set @Source "MediaMAGIC:scripts.lha")
    (set @Dest @default-dest)
    (Inst_LhaFiles)

    (makedir (tackon @default-dest "Pictures/Textures"))

(complete 25)

    (askdisk
        (prompt "\n\n\nPlease insert disk 2/4 ")
        (help #askdisk-help)
        (dest "MM_Disk2")
    )


    (set @Working "Unpacking pictures")
    (set @Source "MM_Disk2:pictures.lha")
    (set @Dest (tackon @default-dest "Pictures"))
    (Inst_LhaFiles)

    (set @Working "Unpacking MM-Player")
    (set @Source "MM_Disk2:MMPlayer.lha")
    (set @Dest @default-dest)
    (Inst_LhaFiles)

    (set @Working "Unpacking Animations")
    (set @Source "MM_Disk2:animations.lha")
    (set @Dest @default-dest)
    (Inst_LhaFiles)

    (set @Working "Unpacking textures")
    (set @Source "MM_Disk2:textures1.lha")
    (set @Dest (tackon @default-dest "Pictures/Textures"))
    (Inst_LhaFiles)


(complete 50)

    (askdisk
        (prompt "\n\n\nPlease insert disk 3/4")
        (help #askdisk-help)
        (dest "MM_Disk3")
    )


(
    (set @Source "MM_Disk3:")
    (set @Dest @default-dest)
   (set @Pattern "Brushes")
    (Inst_PatternFiles)
)

    (set @Working "Unpacking textures")
    (set @Source "MM_Disk3:textures2.lha")
    (set @Dest (tackon @default-dest "Pictures/Textures"))
    (Inst_LhaFiles)

(complete 75)

    (askdisk
        (prompt "\n\n\nPlease insert disk 4/4")
        (help #askdisk-help)
        (dest "MM_Disk4")
    )

    (set @Working "Unpacking textures")
    (set @Source "MM_Disk4:textures3.lha")
    (set @Dest (tackon @default-dest "Pictures/Textures"))
    (Inst_LhaFiles)


(run "C:DELETE RAM:LHX")                                    ; clean up

(complete 95)

(PROCEDURE bye
(Message "MediaMAGIC Installation complete..\n"
        "\nTo obtain your 30 days free technical support and notification of"
        " updates, please complete your registration card and return"
        " it to:-\n\n"
        "         HiSoft        \n"
        "     The Old School    \n"
        "       Greenfield      \n"
        "       Bedford, UK     \n"
        "        MK45 5DE       \n"
        "Phone: [phone]   \n"
        "FAX:   [phone]   \n"
        "EMail: [e-mail]\n"
        )

    (Message "Please remember, UK technical support is\n between 2-3p.m."
            " Mon-Fri\nIf you need technical support, please remember to have when you"
        " phone, your:-\nSerial Number\nSoftware version number\nMachine"
        " configuration (RAM,Processor,Hard disk etc.)\n\n Please also have a"
        " clear and concise description of the problem you are having to ensure"
        " that we can deal with your problem as quickly as possible.\n\n"
        " Select Proceed to quit to Workbench")
)

(bye)

(complete 100)
; ------- Done
;=============================================================================