home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / patches / clipper / clipper.lha / Clipper / Install-Clipper < prev    next >
Text File  |  1999-12-19  |  4KB  |  155 lines
  1. ; $VER: 'Install-Clipper' 1.2 for Clipper 3.9
  2. ; Script created by Bruce Steers bsteers@btinternet.com
  3.  
  4. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  5. (set #needInst43 "You must use Installer version 43 or greater.")
  6. (set srcdir (pathonly @icon))
  7. (if (< (/ @installer-version 65536) 43)
  8.   (abort #needInst43)
  9. )
  10.  
  11.  
  12. (complete 10)
  13.  
  14. (set askfor "\nSelect a Drawer to install Clipper\nNo drawer will be Created.\n\nThis should be in your path for AmIRC usage eg. C:")
  15. (set dst  (copyfiles
  16.         (source "Clipper")
  17.         (dest "C:")
  18.         (prompt "Install Clipper to \"C:\" ?")
  19.         (help "")
  20.         (confirm)
  21.         (infos)
  22.         )
  23. )
  24. (complete 20)
  25.  
  26. (copylib
  27. (source "rexxsupport.library")
  28. (dest "libs:")
  29. (prompt "Install rexxsupport.library to \"libs:\" ?")
  30. (help "")
  31. (confirm)
  32. )
  33.  
  34. (complete 30)
  35.  
  36. (copylib
  37. (source "awnpipe-handler")
  38. (dest "l:")
  39. (prompt "Install awnpipe-handler to \"l:\" ?")
  40. (help "")
  41. (confirm)
  42. )
  43.  
  44. (complete 40)
  45.  
  46. (copyfiles
  47.    (source "AWNPIPE")
  48.    (dest "Devs:Dosdrivers/")
  49.    (prompt "\nInstall AWNP to Devs:DosDrivers ?\n")
  50.    (help "")
  51.    (confirm)
  52.    (infos)
  53. )
  54.  
  55. (complete 50)
  56.  
  57. (if (exists "awnpipe:")
  58.  (run "assign awnpipe: dismount\nmount awnpipe:")
  59. )
  60.  
  61. (run "mount awnpipe:")
  62.  
  63.  
  64. (complete 60)
  65.  
  66.     (if (exists "envarc:Clipper.cfg")
  67.          (rename "envarc:Clipper.cfg" "S:ClipPrefs/Clipper.cfg"
  68.          (prompt "\nRename ENVARC:ClipperIRC.cfg to \"S:ClipPrefs/Clipper.cfg\" ?")
  69.          (help "")
  70.          (confirm)
  71.          )
  72.     )
  73.  
  74. (if (askbool
  75.     (prompt "\nIf you use AmIRC i can install a Script\nto call Clipper from AmIRCs Menus.\n()_\\\n() /")
  76.     (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer (not the Rexx dir)")
  77.     (choices "Yes" "Skip")
  78.     )
  79.  
  80.  (
  81.  
  82.     (set defdest (tackon (expandpath "Miami:/") "AmIRC"))
  83. (complete 70)
  84.     (set amd (askdir
  85.              (prompt "\nI need to know where AmIRC is.\nPlease Select The AmIRC Directory")
  86.              (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer (not the Rexx dir)")
  87.              (default defdest)
  88.              )
  89.     )
  90.  
  91.     (set adst (tackon amd "Rexx"))
  92.  
  93.     (if (NOT (exists adst))
  94.     (abort "could not find "adst"\n\nI need the AmIRC Main Drawer")
  95.     )
  96. (complete 80)
  97.  
  98.     (copyfiles
  99.     (source "Clipper.amirx")
  100.     (dest adst)
  101.     (prompt "Install Clipper.amirx to "adst" ?")
  102.     (help "")
  103.     (confirm)
  104.     (infos)
  105.     )
  106. (complete 90)
  107.     (set cprefs "S:ClipPrefs")
  108.     (if (NOT (exists cprefs))
  109.       (makedir cprefs
  110.       (prompt "\n\nIs it OK to make a new prefs dir\ncalled "cprefs" ?\n\nthis can be you home for many prefs files :^)")
  111.       (help @makedir-help)
  112.       (confirm)
  113.       (infos)
  114.       )
  115.     )
  116.  
  117.     (if (exists "S:ClipperIRC.cfg")
  118.          (rename "S:ClipperIRC.cfg" "S:ClipPrefs/ClipperIRC.cfg"
  119.          (prompt "\nRename S:ClipperIRC.cfg to \"S:ClipPrefs/ClipperIRC.cfg\" ?")
  120.          (help "")
  121.          (confirm)
  122.          )
  123.  
  124.  
  125.          (copyfiles
  126.          (source "ClipperIRC.cfg")
  127.          (dest cprefs)
  128.          (prompt "Install ClipperIRC.cfg to \"S:ClipPrefs/\" ?")
  129.          (help "")
  130.          (confirm)
  131.          (infos)
  132.          )
  133.     )
  134.  )
  135.  
  136. )
  137.  
  138. (copyfiles
  139.    (source "Clipper.guide")
  140.    (dest "HELP:English/")
  141.    (prompt "\nInstall Clipper.guide to HELP:English/ ?\nPress \"Help...\" for info")
  142.    (help "\nThis enables the help key to be pressed in a Clipper window to load the Guide relevant to the programs position\n\nThe order Clipper searches for the Guide is..\n 1st: help:English/\n 2nd: help:\nlast: ProgDir:"
  143.     "\n\nIf not found in any of these the Help Key will not work.")
  144.    (confirm)
  145.    (infos)
  146. )
  147. (complete 99)
  148.  
  149. (set @default-dest (expandpath dst))
  150.  
  151. (complete 100)
  152.  
  153. (exit  "\n\n" @app-name " Installaton is now over.\n")
  154.  
  155.