home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / TS25A.LHA / 2.5aUpdate / Install-TypeSmith2.5a < prev    next >
Encoding:
Text File  |  1994-11-30  |  2.4 KB  |  66 lines
  1. ;TypeSmith 2.5a ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1994 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;SEE IF TYPESMITH IS ASSIGNED
  5. (set TSdest (getassign "TypeSmith" "a"))
  6. (if
  7.     (= TSdest "")
  8.     (abort "TypeSmith: is not assigned. You must properly install TypeSmith 2.5 before applying this update patch.")
  9. )
  10.  
  11. (message "\n\nThis will create TypeSmith 2.5a from your TypeSmith 2.5 TSprogram floppy disk and the patch file included with this installation script. Your disk will not be modified.\n\nIf the patch is successfully applied, 2.5a will be saved as TypeSmith:TypeSmith. Your copy of 2.5 will be preserved as TypeSmith:TypeSmith2.5.")
  12.  
  13. ;REQUEST DISK
  14. (askdisk
  15.     (prompt "\n\n\nPlease insert the disk labeled \"TSprogram\".")
  16.     (help
  17.         "You must insert your TypeSmith 2.5 floppy disk in a drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
  18.     (dest "TSprogram")
  19. )
  20. (copyfiles (source "TSprogram:lhex") (dest "ram:") (nogauge))
  21.  
  22. ;UPDATE TYPESMITH
  23. (working "Patching TypeSmith 2.5 to 2.5a...")
  24. (run "ram:lhex >NIL: <NIL: -qfw=ram: x TSpatch.LHA")
  25. (delete "TSpatch.LHA" (safe))
  26. (run "spatch >NIL: <NIL: -oram:TypeSmithA -pram:TypeSmith.pch TSprogram:TypeSmith")
  27. (if (exists "ram:TypeSmithA")
  28.     (
  29.         (rename "TypeSmith:TypeSmith" "TypeSmith:TypeSmith2.5")
  30.         (copyfiles (source "ram:TypeSmithA") (dest TSdest))
  31.         (rename "TypeSmith:TypeSmithA" "TypeSmith:TypeSmith")
  32.         (delete "ram:TypeSmithA" (safe))
  33.     )
  34.     (abort "Patch was not successful. Cause was probably lack of RAM, a bad disk, or an incorrect version of TypeSmith.")
  35. )
  36. (delete "ram:TypeSmith.pch" (safe))
  37.  
  38. ;INSTALL CONVERT.TSRX
  39. (if (exists "TypeSmith:Rexx/Convert.tsrx")
  40.     (
  41.         (copyfiles (source "Convert.tsrx") (dest "TypeSmith:Rexx"))
  42.         (delete "Convert.tsrx" (safe))
  43.     )
  44. )
  45.  
  46. ;INSTALL README
  47. (run "ram:lhex >NIL: <NIL: -qfw=TypeSmith: x Read.LHA")
  48. (delete "Read.LHA" (safe))
  49.  
  50. ;DISPLAY README (Try 3 different ways!)
  51. (run "ram:lhex >NIL: <NIL: -qfw=TypeSmith: x Read.LHA")
  52. (delete "Read.LHA" (safe))
  53. (IF (> (run "Sys:Utilities/MultiView TypeSmith:ReadMe.Now") 0)
  54.     (IF (> (run "Sys:Utilities/AmigaGuide TypeSmith:ReadMe.Now") 0)
  55.         (run "More TypeSmith:ReadMe.Now")
  56.     )
  57. )
  58.  
  59. ;REMOVE THE LHEX PROGRAM
  60. (delete "ram:lhex" (safe))
  61. (delete "spatch" (safe))
  62. (delete "Install-TypeSmith2.5a.info" (safe))
  63.  
  64. ;GEE, THAT WAS FUN
  65. (exit "TypeSmith 2.5a installed!")
  66.