Fresh Fish 9/FreshFishVol9-CD2.bin/bbs/util/mcp-1.02.lha/MCP/MCP-Install.deutsch

Text File | 1995-04-12 | 4KB | 217 lines

;
; $VER: MCP-INSTALLER!
;

    (complete 0)
    (welcome)

    (set #WrongKickStart "\nDu mußt mindestens \nKickStart 2.04\n besitzen um MCP benutzen zu können")

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

    (message
      "\n\n\n\n"
      "Willkommen zum\n\nMCP Version 1.02\nInstallations 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 Willst Du \nReqTools.library Version "wert1"."wert2"\ninstallieren ?\n\nZur Zeit ist Version "oldwert1"."oldwert2" installiert!")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nKopiere ReqTools.library...\n")
            (help @copyfiles-help)
            (source "Libs")
            (dest   "Libs:")
            (all)
            (files)
            (infos)
        )
    )

    (complete 10)

    (set mcp-dest
        (askdir (prompt "Bitte Zielverzeichnis für MCP auswählen")
            (help @askdir-help)
            (default "C:")
        )
    )

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

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

    (complete 20)

    (if(askbool
        (prompt "\n Willst Du das MCP-Piktogramm ins \n"mcp-dest"\nVerzeichnis kopieren ?")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nKopiere das 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 "\nKopiere die MCP-Demo-Konfiguration...\n")
            (help @copyfiles-help)
            (source "EnvArc/MCP/MCP.config")
            (dest   "ENVARC:MCP")
            (files)
        )
    )

    (complete 40)

    (if (exists("ENVARC:AssignManager.prefs"))
        (if(askbool
            (prompt "\n Willst Du die \nAssignManager.prefs\n zu der MCP.config konvertieren?\n")
            (help @askbool_help)
            (default 1))
            (
                (RUN "C/ConvAM"
                    (help "Konvertierung...")
                    (prompt "Konvertierung läuft... Bitte warten!")
                )
            )
        )
    )

    (complete 45)

    (if (exists("ENVARC:AssignPrefs"))
        (if(askbool
            (prompt "\n Willst Du die \nAssignPrefs\n-Konfig zu der MCP.config konvertieren?\n")
            (help @askbool_help)
            (default 1))
            (
                (RUN "C/ConvAP"
                    (help "Konvertierung...")
                    (prompt "Konvertierung läuft... Bitte warten!")
                )
            )
        )
    )

    (complete 50)

    (if(askbool
        (prompt "\n Willst Du einen 16-Farben Mauspfeil installieren ?")
        (help @askbool_help)
        (default 1))
        (copyfiles
            (prompt "\nKopiere Demomauspfeil...\n")
            (help @copyfiles-help)
            (source "EnvArc/MCP/mcppointer.prefs")
            (dest "ENVARC:MCP")
            (files)
        )
    )

    (makedir "ENV:MCP")

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

    (complete 60)

    (copyfiles
        (prompt "\nKopiere Guru-Informationen...\n")
        (help @copyfiles-help)
        (source "S/mcp.gurudat")
        (dest   "S:")
        (files)
    )

    (complete 70)

    (copyfiles
        (prompt "\nKopiere die Guru Geschichte...\n")
        (help @copyfiles-help)
        (source "S/GuruHistory")
        (dest   "S:")
        (files)
    )

    (complete 80)

    (set mcpprefs-dest
        (askdir (prompt "Bitte das Zielverzeichnis für das \nMCP-Konfigurationsprogramm\n auswählen!!")
            (help @askdir-help)
            (default "SYS:Prefs")
        )
    )
    (copyfiles
        (prompt "\nKopiere das MCP-Konfigurationsprogramm...\n")
        (help @copyfiles-help)
        (source "Prefs/MCPPrefs")
        (dest   mcpprefs-dest)
        (files)
        (infos)
    )

    (complete 90)

    (if(askbool
        (prompt "\n Willst Du die MCP-Anleitung installieren ?\n")
        (help @askbool_help)
        (default 1))
        (
            (set mcpdoc-dest
                (askdir (prompt "Please Select Destination for MCP.doc")
                    (help @askdir-help)
                    (default "C:")
                )
            )
            (copyfiles
            (prompt "\nKopiere MCP.dok..\n")
            (help @copyfiles-help)
            (source "MCP.dok")
            (dest   mcpdoc-dest)
            (files)
            (infos))
        )
    )
    (complete 99)

    (message "\n\nEditiere nun Deine \nS:Startup-Sequence\nund füge\n"mcp-dest"MCP\nnach dem ersten\nAssign ENV: ???? ein.\n ... Viel Spaß ...")

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