home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / act-pro.dms / in.adf / Install-MainActorPro < prev    next >
Encoding:
Text File  |  1994-09-09  |  7.0 KB  |  310 lines
  1. ; **** Installscript written by Markus Illenseer         ****
  2. ; **** Does various checks now. Please report any error  ****
  3. ; **** to markus@techfak.uni-bielefeld.de                ****
  4. ; **** or to Markus Mönig                                ****
  5.  
  6. ; **** Special version for MainActorPro                  ****
  7. ; **** by Markus Mönig, © 1993, 1994                     ****
  8.  
  9. ; **** This script requires the Installer from Commodore ****
  10. ; **** which is available for free.                      ****
  11.  
  12. ; **** Version 1.0 of this script                        ****
  13.  
  14. (set ProductName        "MainActorPro")    ; product Name
  15. (set VersionNum            "1.0")        ; product version number
  16.  
  17. (set MAPName                    "MainActorPro")
  18. (set DefaultMAP                 "Work:")
  19.  
  20. (set OSVersion            (/ (getversion) 65536))
  21. (set WBVersion            (/ (getversion "version.library" (resident)) 65536))
  22. (set Options            1) ; 1=english, 2=german, 3=e+g
  23.  
  24. (set DirPath            "")
  25.  
  26. (set LocLang0            "English")
  27. (set LocLang1            "Deutsch")
  28.  
  29. (transcript "Installing %s Commodity..." ProductName)
  30.  
  31. (set @default-dest "Work:")
  32.  
  33. (set langnum
  34.     (askchoice
  35.         (prompt "Choose a language please")
  36.         (help @askchoice-help)
  37.         (choices
  38.             LocLang0
  39.             LocLang1
  40.         )
  41.         (default
  42.             (if (patmatch @language LocLang0)
  43.                 0
  44.                 (if (patmatch @language LocLang1)
  45.                     1
  46.                 )
  47.             )
  48.         )
  49.     )
  50. )
  51.  
  52. (if (= langnum 0) (set langstring LocLang0))
  53. (if (= langnum 1) (set langstring LocLang1))
  54. ;(if (= langnum 2) (set langstring "Français"))
  55.  
  56. ; Here follow localized strings for the german and english texts
  57. ; used in the script. Adding a new language should be easy by copying
  58. ; the block and translating it.
  59.  
  60. (if (patmatch langstring LocLang1)
  61.  (
  62.   (set no_good_os
  63.     ("%s%s%s%s%s%s"
  64.      "Sieht so aus, als hätten Sie immer noch WB/KS 1.3! "
  65.      "Bitte denken Sie doch mal an ein Update ihres "
  66.      "Betriebssystems. WB 3.1 ist für (fast) alle Amiga "
  67.      ("erhältlich.\n\n \"")
  68.      ProductName
  69.      ("\" braucht mindestens WB 2.1\n")
  70.     )
  71.   )
  72.   (set intro_msg
  73.    ("%s%s"
  74.     ("Dies ist das Installier-Skript für \"%s\".\n\n" ProductName )
  75.     "Wenn Sie dieses Skript das erste Mal starten, wählen Sie bitte JETZT die Hilfe-Seite!\n\n"
  76.    )
  77.   )
  78.   (set intro_help_1
  79.    ("%s%s%s%s%%s"
  80.     ("\n\"")
  81.      ProductName
  82.     ("\" wird an einer einzigen Stelle installiert:\n")
  83.     "\nMainActor: - ein Ordner der an beliebiger Stelle existiert.\n"
  84.     "Dazu wird dann das logische Assign MainActor: benötigt."
  85.    )
  86.   )
  87.   (set sel_place_MAP
  88.    ("%s%s%s"
  89.      ("Bitte wählen Sie einen Platz für das Paket \"")
  90.      ProductName
  91.      ("\".\n Ein Directory wird dort erstellt.\n(Siehe auch Hilfe)")
  92.    )
  93.   )
  94.   (set sel_MAP_help
  95.    ("%s%s%s%s%s%s%s%s"
  96.     "Es wird ein Platz gesucht, an dem ca. 800KB Platz sind, "
  97.     "um dort \""
  98.     ProductName
  99.     "\" zu installieren. Dort wird dann der Ordner\""
  100.     MAPName
  101.     "\" erstellt. Existiert der angegebene Ordner nicht, so wird er erstellt. "
  102.     "\nDer hier eingestellte Ordner wird weiterhin "
  103.     "verwendet, sowohl bei Installation, als auch bei Start.\n\n"
  104.    )
  105.   )
  106.   (set will_be_installed
  107.    ("%s"
  108.     "Das Directory wird erstellt und ab sofort benutzt: "
  109.    )
  110.   )
  111.   (set ask_addmap1
  112.    ("%s"
  113.     ("Soll ich \"Assign MainActor: \"")
  114.    )
  115.   )
  116.   (set ask_addmap2
  117.    ("%s"
  118.     ("\"\" an \"S:user-startup\" anhängen? (Hilfe für mehr)" )
  119.    )
  120.   )
  121.   (set ask_addmap_help1
  122.    ("%s%s"
  123.     ("Wählen Sie den 'Proceed' Knopf um die Zeile\n")
  124.     ("\"Assign >NIL: MainActor: \"")
  125.    )
  126.   )
  127.   (set ask_addmap_help2
  128.    ("%s%s%s%s"
  129.     ("\"\" anzuhängen. Dies wird \"")
  130.      MAPName
  131.     ("\" automatisch beim Booten starten.")
  132.     ("Bitte tun Sie das!")
  133.    )
  134.   )
  135.   (set install_there1
  136.    ("%s%s%s"
  137.     "\n"
  138.     ProductName
  139.     "\nwird im Ordner\n"
  140.    )
  141.   )
  142.   (set install_there2
  143.    ("%s"
  144.     "installiert. \nIst das richtig?"
  145.    )
  146.   )
  147.   (set AYes "Ja")
  148.   (set ANo "Nein")
  149.  )
  150. )
  151.  
  152. (if (patmatch langstring LocLang0)
  153.  (
  154.   (set no_good_os
  155.     ("%s%s%s%s%s%s"
  156.      "Looks like you still run WB/KS 1.3! "
  157.      "Please strongly consider to upgrade your operating system. "
  158.      "WB 3.1 is available for (almost) all Amigas."
  159.      ("\n\n\"")
  160.      ProductName
  161.      ("\" requires at least WB 2.1\n")
  162.     )
  163.   )
  164.   (set intro_msg
  165.    ("%s%s%s%s"
  166.     ("This is the installer tool for \"")
  167.     ProductName
  168.     ("\".\n\n")
  169.     "If you run this installer for the first time, then press help NOW!\n"
  170.    )
  171.   )
  172.   (set intro_help_1
  173.    ("%s%s%s%s%s"
  174.     ("\n\"")
  175.     ProductName
  176.     ("\" will maximally be installed at one places:\n")
  177.     "\nMainActor: - a drawer somewhere on your drive.\n"
  178.     "Therefore we then need the logic Assign to MainActor:"
  179.    )
  180.   )
  181.   (set sel_place_MAP
  182.    ("%s%s%s"
  183.      ("Please select a place for \"")
  184.      ProductName
  185.      ("\".\n A directory will be created there. \n(See help for more)")
  186.    )
  187.   )
  188.   (set sel_MAP_help
  189.    ("%s%s%s%s%s"
  190.     "We're looking for a place with at least 800KB of free space, to install \""
  191.     ProductName
  192.     "\". An an own directory will be installed there. "
  193.     "\n\n If the supplied directory is not existant, it will be created. "
  194.     "Choosen directory will be used during installation and start. \n\n"
  195.    )
  196.   )
  197.   (set will_be_installed
  198.    ("%s"
  199.     "The directory will be created and used from now on: "
  200.    )
  201.   )
  202.   (set ask_addmap1
  203.    ("%s"
  204.     ("Shall I add \"Assign >NIL: MainActor: \"")
  205.    )
  206.   )
  207.   (set ask_addmap2
  208.    ("%s"
  209.     ("\"\" to \"S:user-startup\"? (help for more)" )
  210.    )
  211.   )
  212.   (set ask_addmap_help1
  213.    ("%s%s"
  214.     ("\n\nSelect the Proceed button to add the Line\n")
  215.     ("\"Assign >NIL: MainActor: \"")
  216.    )
  217.   )
  218.   (set ask_addmap_help2
  219.    ("%s%s%s%s"
  220.     ("\"\" \nThis will assign \"")
  221.      MAPName
  222.     ("\" automatically on boot time. ")
  223.     ("You are requested to do this!")
  224.    )
  225.   )
  226.   (set AYes "Yes")
  227.   (set ANo "No")
  228.   (set install_there1
  229.    ("%s%s%s"
  230.     "\n"
  231.     ProductName
  232.     "\nwill be installed in drawer\n"
  233.    )
  234.   )
  235.   (set install_there2
  236.    ("%s"
  237.     "\nIs that correct?"
  238.    )
  239.   )
  240.  )
  241. )
  242.  
  243. ; **** Beginning of the real installer...
  244.  
  245. (message
  246.     intro_msg
  247.     (help intro_help_1)
  248. )
  249.  
  250. (transcript "Installing %s Commodity..." ProductName)
  251.  
  252. ; **** Check OSVersion
  253.  
  254. (if (< OSVersion 36)
  255.     (
  256.         (message no_good_os)
  257.         (exit "No luck...")
  258.     )
  259. )
  260.  
  261.  
  262. (complete 20)
  263. ; **** Ask for Place
  264.  
  265.  
  266. (set InstallDir
  267.   (askdir 
  268.     (prompt sel_place_MAP)
  269.       (help sel_MAP_help @askdir-help)
  270.       (default DefaultMAP)
  271.       (newpath)
  272.   )
  273. )
  274.  
  275. (complete 50)
  276.  
  277. ; **** Can be changed ****
  278.  
  279. (set extracthere
  280.   (askbool
  281.     (prompt install_there1 InstallDir install_there2)
  282.     (choices AYes ANo)
  283.     (help @askbool-help)    
  284.     (default 0)
  285.   )
  286. )
  287.  
  288. (if (= extracthere 1)
  289.  (run ("lz x MainActorPro.lha \"%s\"" InstallDir))
  290.  (run ("Assign MainActor: \"%s\"" (tackon InstallDir MAPName)))
  291. )
  292.  
  293. (complete 90)
  294.  
  295. ; **** Check installation
  296.  
  297. (
  298.   (startup
  299.         (prompt ask_addmap1 (tackon InstallDir MAPName) ask_addmap2)
  300.     (ProductName)
  301.     (help ask_addmap_help1 (tackon InstallDir MAPName) ask_addmap_help2 @startup-help)
  302.     (command ("Assign >NIL: MainActor: \"%s\"" (tackon InstallDir MAPName)))
  303.   )
  304. )
  305.  
  306.  
  307. (complete 95)
  308.  
  309. (exit "It's a kind of magic!")
  310.