home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / VBS3.DMS / in.adf / VBS3.0-Install < prev    next >
Encoding:
Text File  |  1994-09-01  |  3.3 KB  |  119 lines
  1. ; Video Backup System install script
  2. ; All rights reserved. No part of this may be copied, modified or reproduced
  3. ;  in any form or by any means without the explicit written permission of
  4. ;  Lyppens Software.
  5.  
  6. (set version "V3.0")
  7. (set vidsys "PAL")
  8.  
  9. (set defsrc (cat "VBS_Amiga." (cat version (cat "." (cat vidsys ":")))))
  10.  
  11. ;Check if we've booted from another disk
  12. (if (= (getassign "SYS" "a") defsrc)
  13.    (abort "Please install the VBS after a boot from harddisk. Don't run"
  14.           " the installation program after a boot from the VBS disk"
  15.           " (to avoid confusion about the FONTS: drawer).")
  16. )
  17.  
  18. (welcome)
  19.  
  20. (transcript "Logged actions for the VBS installation")
  21.  
  22. (set vbsdefdir (cat @default-dest "VBS3.0"))
  23.  
  24. (transcript "Check if we're running on an NTSC system")
  25.  
  26. (set vidchk "FAIL")
  27.  
  28. (set vbl (database "vblank"))
  29.  
  30. (if (= vidsys "PAL")
  31.    (if (= vbl "60")
  32.        (message "You are trying to install the PAL version of the VBS onto an NTSC system."
  33.                 " The VBS will not work properly. Do you still want to install?")
  34.        (set vidchk "OK")
  35.    )
  36.    (if (= vbl "50")
  37.        (message "You are trying to install the NTSC version of the VBS onto a PAL system."
  38.                 " The VBS will not work properly. Do you still want to install?")
  39.        (set vidchk "OK")
  40.    )
  41. )
  42.  
  43. (if (<> vidchk "OK")
  44.    (if (= vbl "60")
  45.       (transcript "Installing the PAL VBS onto an NTSC system, asking for trouble")
  46.       (transcript "Installing the NTSC VBS onto a PAL system, asking for trouble")
  47.    )
  48.    (transcript "VBlank check passed")
  49. )
  50.  
  51. (transcript "Checking OS version")
  52.  
  53. (set ver (/ (getversion "exec.library" (resident)) 65536))
  54. (if (< ver 37)
  55.    (message "VBS will only run with Release 2 of the Operating System onward (version 36 or higher).\n"
  56.             " VBS will NOT run with your current version of the OS. Do you still want to install?")
  57. )
  58.  
  59. (if (< ver 37)
  60.    (transcript "OS version below Release 2 - installing anyway")
  61.    (transcript "OS version Release 2 or higher")
  62. )
  63.  
  64. (transcript "Asking for what directory to put the VBS into")
  65.    (set vbsdir
  66.       (askdir
  67.          (prompt "Specify the directory where you want the Video Backup System installed.")
  68.          (default vbsdefdir)
  69.          (newpath)
  70.          (help @askdir-help)
  71.       )
  72.    )
  73.  
  74.  
  75. (transcript (cat "The VBS will be installed in " vbsdir))
  76.  
  77. (set @default-dest vbsdir)
  78.  
  79. (transcript "Copying the required files")
  80.  
  81. (copyfiles
  82.    (prompt "The required files will be copied to " vbsdir ".")
  83.    (help @copyfiles-help)
  84.    (source (cat defsrc "VBS3.0"))
  85.    (dest vbsdir)
  86.    (all)
  87.    (infos)
  88.    (confirm)
  89. )
  90.  
  91. (transcript "Copy the melba.font into the FONTS: drawer")
  92.  
  93. (copyfiles
  94.    (prompt "The VBS 3.0 needs certain fonts copied into your FONTS: drawer.")
  95.    (help @copyfiles-help)
  96.    (source (tackon defsrc "Fonts"))
  97.    (dest "FONTS:")
  98.    (pattern "melba#?")
  99.    (confirm)
  100. )
  101.  
  102. (transcript "Ask for permission to alter the \"S:User-Startup\" file")
  103.  
  104. (startup "VBS3.0"
  105.    (prompt "An Assign to VBS3.0: needs to be added to the \"S:User-Startup\" file so that your system"
  106.            " will be properly configured to use the VBS 3.0.")
  107.    (help @startup-help)
  108.    (command (cat "Assign VBS3.0: " vbsdir))
  109. )
  110.  
  111. (transcript "\"S:User-Startup\" was altered")
  112.  
  113. (transcript "Setting up \"VBS3.0:\" assign if not already assigned")
  114.  
  115. (makeassign "VBS3.0" vbsdir)
  116.  
  117.  
  118. (transcript "Installation complete")
  119.