The AGA Experience 1/agavol1.iso/aga_utilities/ready_to_run/wb_tools/mcp/mcp-install.english

Text File | 1978-06-28 | 4.2 KB | 219 lines

;
; $VER: MCP-INSTALLER!
;

    (complete 0)
    (welcome)

    (set #WrongKickStart "\nYou must be using at least KickStart 2.04 to use MCP")


    (if (< (/ (getversion) 65536) 37)
      (abort #WrongKickStart)
    )

    (message
      "\n\n\n\n"
      "Welcome To \n\nMCP Version 1.02\nInstallation Script V0.2\n"
    )

    (set oldwert1 (/ (getversion "libs:reqtools.library") 65536))
    (set oldwert2 (BITAND (getversion "libs:reqtools.library") 65535))
    (set wert1 (/ (getversion "libs/reqtools.library") 65536))
    (set wert2 (BITAND (getversion "libs/reqtools.library") 65535))

    (if(askbool
        (prompt "\n Do You Want To Install \n\nReqTool.library Version "wert1"."wert2"\n\nCurrent installed Version "oldwert1"."oldwert2"\n\n")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nCopying the ReqTools.library...\n")
            (help @copyfiles-help)
            (source "Libs")
            (dest   "Libs:")
            (all)
            (files)
            (infos)
        )
    )

    (complete 10)

    (set mcp-dest
        (askdir (prompt "Please Select Destination for MCP")
            (help @askdir-help)
            (default "C:")
        )
    )

    (set prozess (database "cpu"))
    (if (< "68010" prozess)
        (set mcp-ver "MCP020/MCP")
        (set mcp-ver "MCP")
    )

    (copyfiles
        (prompt "\nCopying the MCP...\n")
        (help @copyfiles-help)
        (source mcp-ver)
        (dest   mcp-dest)
        (files)
    )

    (complete 20)

    (if(askbool
        (prompt "\n Do you want to copy MCP-Icon to "mcp-dest" ???")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nCopying the MCP-Icon...\n")
            (help @copyfiles-help)
            (source "MCP.info")
            (dest mcp-dest)
            (files)
            (infos)
        )
    )

    (complete 30)


    (if(askbool
        (prompt "\n Do You Want To Install A MCP-Demo-Configuration ?")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nCopying the MCP-Demo-Configuration...\n")
            (help @copyfiles-help)
            (source "EnvArc/MCP/MCP.config")
            (dest   "ENVARC:MCP")
            (files)
        )
    )

    (complete 40)

    (if (exists("ENVARC:AssignManager.prefs"))
        (if(askbool
            (prompt "\n Do you want to Convert AssignManager.prefs To MCP.config ?\n")
            (help @askbool_help)
            (default 1))
            (
                (RUN "C/ConvAM"
                    (help "Converting...")
                    (prompt "Converting.. Please Wait!")
                )
            )
        )
    )

    (complete 45)

    (if (exists("ENVARC:AssignPrefs"))
        (if(askbool
            (prompt "\n Do you want to Convert AssignPrefs To MCP.config ?\n")
            (help @askbool_help)
            (default 1))
            (
                (RUN "C/ConvAP"
                    (help "Converting...")
                    (prompt "Converting.. Please Wait!")
                )
            )
        )
    )

    (complete 50)

    (if(askbool
        (prompt "\n Do you want to install a Demo 16-Color Pointer ?")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nCopying 16-Color Demopointer...\n")
            (help @copyfiles-help)
            (source "EnvArc/MCP/mcppointer.prefs")
            (dest "ENVARC:MCP")
            (files)
            (infos)
        )
    )

    (makedir "ENV:MCP")

    (if (exists("ENVARC:MCP"))
        (copyfiles
            (prompt "\nTransfering ENVARC To ENV...\n")
            (help @copyfiles-help)
            (source "EnvArc:MCP/")
            (dest "ENV:MCP/")
            (all)
        )
    )

    (complete 60)

    (copyfiles
        (prompt "\nCopying the GuruInformation...\n")
        (help @copyfiles-help)
        (source "S/mcp.gurudat")
        (dest   "S:")
        (files)
    )

    (complete 70)

    (copyfiles
        (prompt "\nCopying the GuruHistory...\n")
        (help @copyfiles-help)
        (source "S/GuruHistory")
        (dest   "S:")
        (files)
    )

    (complete 80)

    (set mcpprefs-dest
        (askdir (prompt "Please Select Destination for MCP-Preferences")
            (help @askdir-help)
            (default "SYS:Prefs")
        )
    )
    (copyfiles
        (prompt "\nCopying the MCP-Preferences...\n")
        (help @copyfiles-help)
        (source "Prefs/MCPPrefs")
        (dest   mcpprefs-dest)
        (files)
        (infos)
    )

    (complete 90)

    (if(askbool
        (prompt "\n Do you want to Install MCP-Documentation ?\n")
        (help @askbool_help)
        (default 1))
        (
            (set mcpdoc-dest
                (askdir (prompt "Please Select Destination for MCP.doc")
                    (help @askdir-help)
                    (default "C:")
                )
            )
            (copyfiles
            (prompt "\nCopying the MCP.doc..\n")
            (help @copyfiles-help)
            (source "MCP.doc")
            (dest   mcpdoc-dest)
            (files)
            (infos))
        )
    )
    (complete 99)

    (message "\n\nEdit now your \nS:Startup-Sequence\nand insert\n"mcp-dest"MCP\nafter your first\nAssign ENV: ???? .\n ... ENJOY ...")

    (set @default-dest mcp-dest)
    (complete 100)