home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / MAB1.DMS / in.adf / Install-MAB < prev    next >
Encoding:
Text File  |  1995-11-29  |  6.7 KB  |  339 lines
  1. ; **** Installscript written by Markus Mönig             ****
  2.  
  3. ; **** Based on a Script written by Markus Illenser      ****
  4.  
  5. ; **** Special version for MainActor Broadcast           ****
  6. ; **** by MainConcept, GbR Moenig/Zabel, © 1994, 1995    ****
  7.  
  8. ; **** This script requires the Installer from Commodore ****
  9. ; **** which is available for free.                      ****
  10.  
  11. ; **** Version 1.0 of this script                        ****
  12.  
  13. (set ProductName        "MainActor Broadcast")    ; product Name
  14. (set VersionNum            "1.0")        ; product version number
  15.  
  16. (set MABName                    "MABroadcast")
  17. (set DefaultMAB                 @default-dest)
  18.  
  19. (set OSVersion            (/ (getversion) 65536))
  20. (set WBVersion            (/ (getversion "version.library" (resident)) 65536))
  21. (set Options            2) ; 1=english, 2=german, 3=e+g
  22.  
  23. (set DirPath            "")
  24.  
  25. (transcript "Installing %s Commodity..." ProductName)
  26.  
  27. ; Here follow localized strings for the german and english texts
  28. ; used in the script. Adding a new language should be easy by copying
  29. ; the block and translating it.
  30.  
  31. (if (= 1 1)
  32.  (
  33.   (set no_good_os
  34.     ("%s%s%s%s%s%s"
  35.      "Sieht so aus, als hätten Sie immer noch WB/KS 1.3! "
  36.      "Bitte denken Sie doch mal an ein Update ihres "
  37.      "Betriebssystems. WB 3.1 ist für (fast) alle Amiga "
  38.      ("erhältlich.\n\n \"")
  39.      ProductName
  40.      ("\" braucht mindestens WB 2.1\n")
  41.     )
  42.   )
  43.   (set sel_place_MAB
  44.    ("%s%s%s%s%s"
  45.      ("Bitte wählen Sie den Pfad wo \"")
  46.      ProductName
  47.      ("\" installiert werden soll. Der Ordner \"")
  48.      MABName
  49.      ("\" wird dort erstellt.")
  50.    )
  51.   )
  52.   (set sel_MAB_help
  53.    ("%s%s%s%s%s%s%s%s"
  54.     "Es wird ein Verzeichnis gesucht, in dem ca. 2 MB Platz sind, "
  55.     "um dort \""
  56.     ProductName
  57.     "\" zu installieren. Dort wird dann der Ordner \""
  58.     MABName
  59.     "\" erstellt. Existiert der angegebene Ordner nicht, so wird er erstellt. "
  60.     "\n\n"
  61.    )
  62.   )
  63.   (set ask_addmap1
  64.    ("%s"
  65.     ("Soll ich \"Assign MABROADCAST: \"")
  66.    )
  67.   )
  68.   (set ask_addmap2
  69.    ("%s"
  70.     ("\"\" an \"S:user-startup\" anhängen? (Hilfe für mehr)" )
  71.    )
  72.   )
  73.   (set ask_addmap3
  74.    ("%s"
  75.     ("Soll ich \"Assign JPEGTMP: \"")
  76.    )
  77.   )
  78.   (set ask_addmap4
  79.    ("%s"
  80.     ("\"\" an \"S:user-startup\" anhängen? (Hilfe für mehr)" )
  81.    )
  82.   )
  83.   (set ask_addmap_help1
  84.    ("%s%s"
  85.     ("Wählen Sie den 'Proceed' Knopf um die Zeile\n")
  86.     ("\"Assign >NIL: MABROADCAST: \"")
  87.    )
  88.   )
  89.   (set ask_addmap_help2
  90.    ("%s%s%s%s"
  91.     ("\"\" anzuhängen. Dies wird \"")
  92.      ProductName
  93.     ("\" automatisch beim Booten starten. ")
  94.     ("Bitte tun Sie das!\n\n\n")
  95.    )
  96.   )
  97.   (set ask_addmap_help3
  98.    ("%s%s"
  99.     ("Wählen Sie den 'Proceed' Knopf um die Zeile\n")
  100.     ("\"Assign >NIL: JPEGTMP: \"")
  101.    )
  102.   )
  103.   (set ask_addmap_help4
  104.    ("%s%s"
  105.     ("\"\" anzuhängen. Dies wird den JPEG Codec automatisch beim Booten starten. ")
  106.     ("Bitte tun Sie das!\n\n\n")
  107.    )
  108.   )
  109.   (set install_there1
  110.    ("%s%s%s"
  111.     "\n"
  112.     ProductName
  113.     "\nwird im Ordner\n"
  114.    )
  115.   )
  116.   (set install_there2
  117.    ("%s"
  118.     "\ninstalliert. \n\nIst das richtig?"
  119.    )
  120.   )
  121.   (set AYes "Ja")
  122.   (set ANo "Nein")
  123.  )
  124. )
  125.  
  126. ; **** Beginning of the real installer...
  127.  
  128. (transcript "Installing %s Commodity..." ProductName)
  129.  
  130. ; **** Check OSVersion
  131.  
  132. (if (< OSVersion 36)
  133.     (
  134.         (message no_good_os)
  135.         (exit "No luck...")
  136.     )
  137. )
  138.  
  139. (complete 10)
  140.  
  141. ; **** Ask for Place
  142.  
  143. (set extracthere 0)
  144.  
  145. (while (= extracthere 0)
  146. (
  147.   (set InstallDir
  148.     (askdir 
  149.       (prompt sel_place_MAB)
  150.         (help sel_MAB_help @askdir-help)
  151.         (default DefaultMAB)
  152.         (newpath)
  153.     )
  154.   )
  155.  
  156.   (set extracthere
  157.    (askbool
  158.      (prompt install_there1 InstallDir install_there2)
  159.      (choices AYes ANo)
  160.      (help @askbool-help)    
  161.      (default 0)
  162.    )
  163.   )
  164.  )
  165. )
  166.  
  167. (complete 15)
  168.  
  169. (working "Installiere Libraries")
  170.  
  171. ; *** Kopiere multipic.library ***
  172.  
  173. (copylib
  174.   (help @copylib-help)
  175.   (prompt "Kopiere multipic.library...")
  176.   (source "libs/multipic.library")
  177.   (dest "libs:")
  178.   (optional "nofail")
  179. )
  180.  
  181. (complete 20)
  182.  
  183. ; *** Kopiere JPEG Classes ***
  184.  
  185. (copylib
  186.     (help @copylib-help)
  187.     (prompt "Kopiere tower.library...")
  188.     (source "Libs/tower.library")
  189.     (dest "libs:")
  190.     (confirm)
  191.   (optional "nofail")
  192. )
  193.  
  194. (complete 22)
  195.  
  196. (copylib
  197.     (help @copylib-help)
  198.     (prompt "Kopiere codec.class...")
  199.     (source "Libs/codec.class")
  200.     (dest "libs:")
  201.     (confirm)
  202.   (optional "nofail")
  203. )
  204.  
  205. (complete 24)
  206.  
  207. (copylib
  208.     (help @copylib-help)
  209.     (prompt "Kopiere picture.codec...")
  210.     (source "Libs/Codecs/picture.codec")
  211.     (dest (tackon "libs:" "Codecs"))
  212.     (confirm)
  213.   (optional "nofail")
  214. )
  215.  
  216. (complete 26)
  217.  
  218. (copylib
  219.     (help @copylib-help)
  220.     (prompt "Kopiere jpeg.codec...")
  221.     (source "libs/Codecs/jpeg.codec")
  222.     (dest (tackon "libs:" "Codecs"))
  223.     (confirm)
  224.   (optional "nofail")
  225. )
  226.  
  227. (set has-temp 0)
  228.  
  229. (if (exists "JPEGTMP:" (noreq))
  230.     (
  231.         (set has-temp 1)
  232.         (if (= "RAM" (getdevice "JPEGTMP:"))
  233.             (set has-temp 0)
  234.         )
  235.     )
  236. )
  237.  
  238. (complete 30)
  239.  
  240. ; **** Unpack Archive ***
  241.  
  242. (working "Extrahiere Archive")
  243. (run ("lz x MABroadcast.lha \"%s\"" InstallDir))
  244.  
  245. (complete 60)
  246.  
  247. (run ("lz x Display.lha \"%s\"" "T:"))
  248.  
  249. (complete 80)
  250.  
  251. ; **** Ask for GFX Cards ***
  252.  
  253. (set displaydir (tackon (tackon InstallDir MABName) "Display"))
  254.  
  255. (set bits (askoptions
  256.   (prompt "Welche Treiber sollen kopiert werden ?\n(Der Amiga Treiber wird automatisch kopiert)")
  257.   (choices "Merlin" "Picasso" "Retina" "CyberGfx")
  258.   (help "Die angewählten Grafikkarten Treiber werden installiert.")
  259.  )
  260. )
  261.  
  262. (copylib
  263.  (prompt "Kopiere Amiga Treiber")
  264.  (source "T:Amiga")
  265.  (dest displaydir)
  266. )
  267.  
  268. (if (BITAND bits 1) (copylib
  269.  (prompt "Kopiere Merlin Treiber")
  270.  (source "T:Merlin")
  271.  (dest displaydir)
  272.  )
  273. )
  274.  
  275. (if (BITAND bits 2) (copylib
  276.  (prompt "Kopiere Picasso Treiber")
  277.  (source "T:Picasso")
  278.  (dest displaydir)
  279.  )
  280. )
  281.  
  282. (if (BITAND bits 4) (copylib
  283.  (prompt "Kopiere Retina Treiber")
  284.  (source "T:Retina")
  285.  (dest displaydir)
  286.  )
  287. )
  288.  
  289. (if (BITAND bits 8) (copylib
  290.  (prompt "Kopiere CyberGfx Treiber")
  291.  (source "T:CyberGfx")
  292.  (dest displaydir)
  293.  )
  294. )
  295.  
  296. (complete 90)
  297.  
  298. ; **** Copy Demo Animation ***
  299.  
  300. (set animdir (tackon (tackon InstallDir MABName) "Anims"))
  301.  
  302. (copyfiles
  303.  (prompt "Kopiere Demo ...")
  304.  (source "Install-Demo:")
  305.  (dest animdir)
  306.  (all)
  307. )
  308.  
  309. ; **** Check installation
  310.  
  311. (complete 95)
  312.  
  313. (set @default-dest InstallDir)
  314.  
  315. (
  316.   (startup
  317.         (prompt ask_addmap1 (tackon InstallDir MABName) ask_addmap2)
  318.     (ProductName)
  319.     (help ask_addmap_help1 (tackon InstallDir MABName) ask_addmap_help2 @startup-help)
  320.     (command ("Assign >NIL: MABROADCAST: \"%s\"" (tackon InstallDir MABName)))
  321.   )
  322.     (makeassign "MABROADCAST")
  323.     (makeassign "MABROADCAST" (tackon InstallDir MABName))
  324. )
  325.  
  326. (if (= has-temp 0)
  327.     (
  328.         (startup "JPEG Codec"
  329.         (help ask_addmap_help3 (tackon InstallDir MABName) ask_addmap_help4 @startup-help)
  330.       (prompt ask_addmap3 (tackon InstallDir MABName) ask_addmap4)
  331.             (command "Assign JPEGTMP: \"" (tackon InstallDir MABName) "\"")
  332.         )
  333.       (makeassign "JPEGTMP")
  334.       (makeassign "JPEGTMP" (tackon InstallDir MABName))
  335.     )
  336. )
  337.  
  338. (exit)
  339.