home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / AdPro2_5_0-5.DMS / AdPro2_5_0-5.adf / Install-Patch.fr < prev    next >
Encoding:
Text File  |  1993-12-18  |  9.3 KB  |  347 lines
  1. ; $Id: Install-Patch,v 1.2 93/02/23 12:08:51 lee Exp $
  2. ;
  3. ; This is the 4.6 patch install script for DeluxePaint AGA 
  4. ; © 1993 Electronic Arts Inc. All Rights Reserved
  5. ;
  6. ; The order in which the user is requested to things is
  7. ; as follows:
  8. ;
  9. ; 1) Input the DPaintIV Install Disk 1
  10. ; 2) Input a Destination Disk (to clone DPaintIV Install Disk)
  11. ; 3) Input 4.6 Patch Disk for patch data
  12. ; 4) Input Destination Disk to receive patched data
  13. ;
  14. ; CHANGES BY ASDG:
  15. ; 93/12/18 - Changed icon settings and volume name to "ADPro_D5".
  16. ;
  17. (set @default-dest "Work:")
  18.  
  19. ; due to a problem with spatch command line parsing, the name of 
  20. ; the patch disk should not contain spaces.
  21. (set PATCH_NAME   "ADPro_D5")
  22. (set PATCH_VOLUME (cat PATCH_NAME ":"))
  23.  
  24. (set SOURCE_NAME "Disquette d'installation n° 1 DPaintIV")
  25. (set SOURCE_VOLUME (cat SOURCE_NAME ":"))
  26.  
  27. (set DEST_NAME "Disquette d'installation DPaint 4.6")
  28. (set DEST_VOLUME (cat DEST_NAME ":"))
  29.  
  30. (set ASSIGN   "DPaintIV")
  31. (set PROGNAME "DPaint")
  32. (set UNPACKER "lharc")
  33. (set RUNWIN "NIL:")
  34.  
  35.  
  36. (set PATCHER   (cat PATCH_VOLUME "spatch"))
  37. (set PATCHFILE (cat PATCH_VOLUME "DPaint.pch.fre"))
  38.  
  39. (set LHARC_EXTRACT_HELP
  40.   (cat
  41.     "Le programme d'installation utilise LHARC pour extraire le "
  42.         "programme DPaint de son archive et le placer sur la disquette "
  43.         "d'installation d'origine."
  44.   )
  45. )
  46.  
  47. (set LHARC_ADD_HELP
  48.   (cat
  49.     "Le programme d'installation utilise LHARC pour ajouter la version "
  50.         "corrigée de DPaint de son archive sur votre nouvelle disquette "
  51.         "d'installation."
  52.   )
  53. )
  54.  
  55. (set PATCH_HELP
  56.   (cat 
  57.        "Le programme d'installation utilise l'utilitaire SPATCH de SAS/C "
  58.        "pour effectuer des changements dans une copie de votre programme "
  59.        "DPaint d'origine."
  60.   )
  61. )
  62.  
  63. (set RENAME_HELP
  64.    (cat "Le programme d'installation renomme la disquette fournie "
  65.         "de \""DEST_NAME"\" à \"" SOURCE_NAME "\" pour pouvoir remplacer "
  66.         "votre disquette d'origine lors de l'installation de DPaint."
  67.    )
  68. )
  69.  
  70. (set INIT_HELP
  71.     (cat
  72.           "La correction de DPaint 4.6 nécessite votre disquette "
  73.                 "d'installation d'origine 4.5 et une version installée de "
  74.         "DPaint 4.5. La correction copie le fichier de programmes "
  75.         "original dans la RAM, le modifie et copie la version "
  76.         "modifiée dans le répertoire où vous avez installé DPaint "
  77.         "4.5.\n\n"
  78.  
  79.                 "Votre disquette d'installation d'origine DPaint 4.5 ne "
  80.         "sera modifiée d'AUCUNE manière.\n\n"
  81.  
  82.                 "Veuillez vous assurer que votre disquette d'installation "
  83.         "DPaint 4.5 est PROTEGEE CONTRE LA COPIE et que vous avez "
  84.         "votre numéro d'enregistrement à portée de main."
  85.     )
  86. )
  87.  
  88. (set DIR_HELP
  89.      (cat  "La correction cherche la version installée de DPaint et "
  90.            "remplace le fichier de programmes original par la version "
  91.            "corrigée.\n\n"
  92.  
  93.            "Veuillez spécifier le volume et le répertoire où DPaint 4.5 "
  94.            "est installé pour le moment."
  95.      )
  96. )
  97.  
  98. (set BACKUP_HELP
  99.      (cat "Si vous sélectionnez \"Oui,\", le programme d'installation "
  100.           "copie la version de \"DPaint\ installée pour le moment dans un "
  101.           "répertoire de sauvegarde. Si vous sélectionnez \"Non,\", le "
  102.           "programme d'installation remplace ou écrase simplement la "
  103.           "version installée par la version corrigée."
  104.      )
  105. )
  106.  
  107. (procedure ask_sourcedisk
  108.     (askdisk
  109.         (prompt ("Veuillez insérer la disquette \"%s\"." SrcDiskE))
  110.         (help @askdisk-help)
  111.         (dest SrcDiskE)
  112.     )
  113.  
  114.     (set SrcDiskE (cat SrcDiskE ":"))
  115. )
  116.  
  117. ; Destination disk confirmation.
  118. ;  DstDiskE: The disk to insert
  119. (procedure ask_destdisk
  120.     (askdisk
  121.         (prompt ("Veuillez insérer la disquette \"%s\"." DstDiskE))
  122.         (help @askdisk-help)
  123.         (dest DstDiskE)
  124.     )
  125.  
  126.     (set DstDiskE (cat DstDiskE ":"))
  127. )
  128.  
  129. (set osversion (/ (getversion) 65536))
  130. (if (< osversion 37)
  131.     (abort    "DeluxePaint nécessite AmigaDOS 2.04 ou une version plus "
  132.                 "récente pour fonctionner.")
  133. )
  134.  
  135. ; Make sure the user has the appropriate disks ready
  136. (
  137.     (if    (askbool
  138.             (prompt "Vous avez besoin de votre disquette "
  139.                 "d'installation "Disk 1\" de DPaintIV et "
  140.                 "d'une version installée de DPaint 4.5. "
  141.                 "Votre disquette d'installation originale "
  142.                 "\"DPaintIV Install Disk 1\" ne sera "
  143.                 "modifiée d'AUCUNE manière que ce soit "
  144.                 "mais votre version installée SERA mise à "
  145.                 "jour par rapport à la version 4.6.\n\n"
  146.                
  147.                                 "Si vous n'avez pas encore installé DPaint "
  148.                 "4.5, veuillez le faire avant d'exécuter "
  149.                 "cette correction.\n\n"
  150.  
  151.                                 "Veuillez maintenir votre numéro "
  152.                 "d'enregistrement à portée de main ; le "
  153.                 "programme vous demandera d'enregistrer "
  154.                 "votre copie de DPaint 4.6"
  155.             )
  156.             (help INIT_HELP)
  157.             (choices "Continuer" "Annuler")
  158.             (default 1)
  159.         )
  160.  
  161.                 (set dummy 1)
  162.         (abort "L'utilisateur a abandonné l'installation.")
  163.     )
  164. )
  165.  
  166. ; copy the necessary patch files to ram
  167. (
  168.         (set SrcDiskE PATCH_NAME)
  169.         (ask_sourcedisk)
  170.  
  171.     (copyfiles
  172.         (prompt "")
  173.         (help "")
  174.         (source (tackon SrcDiskE UNPACKER))
  175.         (dest "RAM :")
  176.     )
  177.  
  178.         (set UNPACKER  (tackon "RAM :" UNPACKER))
  179. )
  180.  
  181.  
  182. ; copy the original program file
  183. (
  184.        (set SrcDiskE SOURCE_NAME)
  185.        (ask_sourcedisk)
  186.         
  187.        ; make sure file isn't already there due to some previous attemp   
  188.        (delete "ram:DPaint")
  189.  
  190.        (working ("Extraction du fichier de programmes DPaint 4.5"))
  191.        (set archive (tackon SrcDiskE "dpaint.lzh"))
  192.        (set result 
  193.             (run ("%s x \"%s\" ram:dpaint* > %s" UNPACKER archive RUNWIN)
  194.                  (help LHARC_EXTRACT_HELP)
  195.                  (prompt ("Extraction du fichier de programmes original DPaint 4.5 ?"))
  196.                  (confirm)
  197.             )
  198.        )
  199.        (if result (abort "Erreur au cours de l'extraction du programme"))
  200. )
  201.  
  202.  
  203. (
  204.    (set SrcDiskE PATCH_NAME)
  205.    (ask_sourcedisk)
  206.  
  207.    (working ("Corretion du fichier de programmes DPaint"))
  208.  
  209.    ;  make sure file isn't already there due to some previous attempt
  210.    (delete "ram:corrigée")
  211.  
  212.    (set result 
  213.       (run 
  214.          ("\"%s\" -p%s -ram:ram corrigée : dpaint > %s" PATCHER PATCHFILE RUNWIN)
  215.          (help PATCH_HELP)
  216.          (prompt ("Correction du fichier de programmes DPaint 4.5 ?"))
  217.          (confirm)
  218.       )
  219.    )
  220.  
  221.    (delete "ram:dpaint")
  222.    (if result (abort "Erreur au cours de la correction du programme"))
  223.    (rename "ram:corrigée" "ram:dpaint")
  224. )
  225.  
  226. ; see if this is really an update
  227.  
  228. (set dpaint_dest (getassign ASSIGN "a"))
  229.  
  230. ; if update, be sure they want program in same place
  231.  
  232. (if dpaint_dest
  233.     (if (not
  234.             (askbool
  235.                 (prompt "Votre copie actuelle de DPaintIV semble être "
  236.             "située dans le tiroir appelé \""dpaint_dest"\". "
  237.             "Voulez-vous installer la version mise à jour dans "
  238.             "ce tiroir ?"
  239.                 )
  240.                 (help   DIR_HELP)
  241.                 (default 1)
  242.             )
  243.         )
  244.  
  245.         (set dpaint_dest        ; if user wants in different place
  246.                      (askdir
  247.                           (prompt "Sur quel disque ou dans quel tiroir la "
  248.                   "correction 4.6 devrait-elle être "
  249.                   "installée ?"
  250.                           )
  251.                           (help (cat DIR_HELP "\n\n" @askdir-help))
  252.                           (default @default-dest)
  253.                       )
  254.         )
  255.     )
  256.  
  257. ; Update not found, so get a location for program
  258.  
  259.     (set dpaint_dest
  260.         (askdir
  261.             (prompt "Veuillez sélectionner le répertoire où vous avez "
  262.             "installé DPaint 4.5."
  263.             )
  264.             (help (cat DIR_HELP "\n\n" @askdir-help))
  265.             (default @default-dest)
  266.         )
  267.     )
  268. )
  269.  
  270. ; OK, we know where we'll be installing, so let's make it permanent
  271. (set @default-dest dpaint_dest)
  272.  
  273. (set ProgramFile (tackon dpaint_dest "DPaint"))
  274.  
  275. (if (exists ProgramFile)
  276.     (
  277.        (if (askbool 
  278.                (prompt "Faire une copie de sauvegarde du fichier de "
  279.                "programmes installé pour le moment ?")
  280.                (help BACKUP_HELP)
  281.                (default 1)
  282.             )
  283.  
  284.             ; Note: we copy the file to a backup directory instead of 
  285.             ; to a backup file name so the icons won't overlap
  286.             (copyfiles 
  287.                  (source ProgramFile)
  288.                  (dest (tackon dpaint_dest "Sauvegarde"))
  289.                  (help BACKUP_HELP)
  290.                  (infos)
  291.             )
  292.        )
  293.     )
  294. )
  295.  
  296. (if (exists (tackon ProgramFile ".info"))
  297.     ; use the existing .info file
  298.     (
  299.       (delete "ram:DPaint.info")
  300.       (copyfiles
  301.         (prompt "")
  302.         (help "")
  303.         (source "ram:DPaint")
  304.         (dest dpaint_dest)
  305.         (confirm)
  306.       )
  307.     )
  308.  
  309.     ; copy the .info file from ram:
  310.     (copyfiles
  311.         (prompt "")
  312.         (help "")
  313.         (source "ram:DPaint")
  314.         (dest dpaint_dest)
  315.         (confirm)
  316.         (infos)
  317.     )
  318. )
  319.  
  320. (delete UNPACKER)
  321. (delete "ram:dpaint")
  322. (delete "ram:dpaint.info")
  323.  
  324. ; Ask if the user would like to register
  325. ; his/herself by running the main program
  326.  
  327. (if (askbool
  328.        (prompt "Voulez-vous lancer et personnaliser votre copie de DPaint "
  329.            "4.6 ? ")
  330.        (help
  331.                 "Vous devez personnaliser DPaint 4.6 lorsque vous "
  332.         "l'utilisez pour la première fois. Si vous préférez lancer "
  333.         "DPaint 4.6 plus tard, le programme vous demandera de "
  334.         "personnaliser votre copie à ce moment-là."
  335.        )
  336.        (default 1)
  337.     )
  338.  
  339.    (run
  340.        ("exécuter >NIL: <NIL: \"%s\"" ProgramFile)
  341.        (help RUNHELP)
  342.        (prompt "Exécuter DPaint 4.6")
  343.        (confirm)
  344.    )
  345. )
  346.  
  347. (exit)