home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / www / drawstudio / download / ds101102.lha / DrawStudioPatch / Patch < prev    next >
Text File  |  1996-11-16  |  3KB  |  163 lines
  1. ; drawSTUDIO Installer Utility
  2. ;
  3. ; This script is Copyright ©1995,1996 Graham Dean and Andy Dean
  4. ;
  5.  
  6. (set version "v1.0.2")
  7.  
  8. (
  9.     ; Welcome
  10.  
  11.     (message "Welcome to the drawSTUDIO patch. This will patch "
  12.         "v1.0.1 of drawSTUDIO to " version " Your original "
  13.         "copy of drawSTUDIO will be renamed, in case the "
  14.         "patch fails for any reason.\n\n"
  15.         "You will need your orginal drawSTUDIO disks and "
  16.         "your registration number before you proceed.\n\n"
  17.         "This patch is Copyright 1996 Graham Dean and "
  18.         "Andy Dean."
  19.  
  20.     )
  21.  
  22.     ; Ask where to install it...
  23.  
  24.     (set destdir
  25.         (askdir
  26.             (prompt "Select the directory where your current "
  27.                 "version of drawSTUDIO is installed.")
  28.             (help "This is where the new version of "
  29.                 "drawSTUDIO will be placed.")
  30.             (default @default-dest)
  31.             (disk)
  32.         )
  33.     )
  34.  
  35.     (set @default-dest destdir)
  36.     
  37.     ; Shall we patch the FPU version ?
  38.  
  39.     (set fpuversion
  40.         (askchoice
  41.             (prompt "Select whether you are patching the "
  42.                 "Standard or the FPU version of drawSTUDIO:")
  43.             (help "You may update either of the versions using "
  44.                 "this patch, but you cannot change the "
  45.                 "Standard version to the FPU version, or "
  46.                 "the FPU version to the Standard.")
  47.             (choices "Standard" "FPU optimised")
  48.         )
  49.     )
  50.  
  51.     ; Copy original
  52.  
  53.     (working "Backing up orginal...")
  54.  
  55.     (set srcprog (tackon destdir "DrawStudio"))
  56.     (set bakprog (tackon destdir "DrawStudioOLD"))
  57.  
  58.     (copyfiles
  59.         (source (srcprog))
  60.         (dest (bakprog))
  61.         (newname ("DrawStudio"))
  62.         (infos)
  63.     )
  64.  
  65.     ;(run "copy " srcprog bakprog)
  66.  
  67.     ;(set srcprog (tackon destdir "DrawStudio.info"))
  68.     ;(set bakprog (tackon destdir "DrawStudioOLD.info"))
  69.  
  70.     ;(run "copy " srcprog bakprog)
  71.  
  72.     ; Set up decompressor to work with
  73.  
  74.     (working "Setting up files...")
  75.  
  76.     (copyfiles
  77.         (source ("spatch"))
  78.         (dest ("T:"))
  79.     )
  80.  
  81.     (copyfiles
  82.         (source ("DrawStudio_1:"))
  83.         (dest ("T:"))
  84.         (choices "lx" "pcefis")
  85.     )
  86.  
  87.     (if (= 0 fpuversion)
  88.         (copyfiles
  89.             (source ("patchNON.pch"))
  90.             (dest ("T:"))
  91.             (newname ("patch.pch"))
  92.         )
  93.  
  94.         (copyfiles
  95.             (source ("patch881.pch"))
  96.             (dest ("T:"))
  97.             (newname ("patch.pch"))
  98.         )
  99.     )
  100.  
  101.     (working "Uncompressing orginal drawSTUDIO")
  102.  
  103.     (complete 20)
  104.  
  105.     (working "Decompressing drawSTUDIO program...")
  106.  
  107.     (if (= 0 fpuversion)
  108.         (
  109.             (run ("t:pcefis drawSTUDIO_1:drawSTUDIONON.lha T:"))
  110.         )
  111.  
  112.         (
  113.             (askdisk (dest "drawSTUDIO_2") (assigns)
  114.             (prompt "Please insert disk drawSTUDIO_2")
  115.             (help "Insert Disk 2 in any drive. You may "
  116.                 "remove Disk 1, it will not be needed again."))
  117.  
  118.             (working "Decompressing drawSTUDIO program...")
  119.  
  120.             (run ("t:pcefis drawSTUDIO_2:drawSTUDIO881.lha T:"))
  121.         )
  122.     )
  123.     
  124.     (complete 60)
  125.  
  126.     (working "Patching program. This may take some time...")
  127.  
  128.     (run "t:spatch -pT:patch.pch -oT:DrawStudio.new T:DrawStudio")
  129.  
  130.     ; Copy the patched file back to the disk
  131.  
  132.     (complete 80)
  133.  
  134.     (working "Copying new program...")
  135.  
  136.     (copyfiles
  137.         (source ("T:DrawStudio.new"))
  138.         (dest (destdir))
  139.         (newname ("DrawStudio"))
  140.     )
  141.  
  142.     ; Cleanup
  143.  
  144.     (delete ("t:LX"))
  145.     (delete ("t:pcefis"))
  146.     (delete ("t:DrawStudio"))
  147.     (delete ("t:DrawStudio.new"))
  148.     (delete ("t:spatch"))
  149.     (delete ("t:patch.pch"))
  150.  
  151.     ; Say goodbye
  152.  
  153.     (set endmessage (cat "Your copy of drawSTUDIO has now been "
  154.         "patched to " version " and your old version has "
  155.         "been placed in the DrawStudioOLD directory. You will "
  156.         "need to enter your registration number again when "
  157.         "you run the program for the first time."))
  158.  
  159.     (complete 100)
  160.  
  161.     (message endmessage)
  162. )
  163.