home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / DISKMAGIG.DMS / DISKMAGIG.adf / Install-DiskMAGICHD < prev    next >
Encoding:
Text File  |  1995-10-31  |  2.2 KB  |  101 lines
  1. ;(c) Copyright 1995 HiSoft
  2. ;DiskMAGIC Installation script - R. Kiernan
  3. ;*catch any errors and pass dos errors to a message screen
  4. ;*if a dos problem occured
  5. (onerror
  6. (user 2)
  7. (if (> @ioerr 0)
  8. (Message ("\n\nA Dos Error %ld has occured" @ioerr)
  9. "\n\n\n\nPlease consult Workbench manual"
  10. " for further details."))
  11. )
  12. (set default-user @user-level)
  13. ;*set version - true if greater than version 37 (needed for the 2.0 editor)
  14. (set WBVer (< 2424832 (getversion "exec.library" (resident))))
  15. (if (or (= (getassign "sys") "RAM DISK:") (= (getassign "sys") "Ram Disk:"))
  16.    (set default-media 0)
  17.    (set default-media 1)
  18. )
  19.  
  20. (PROCEDURE CHECKOS
  21. (IF (= WBVER 0)
  22. (
  23. (MESSAGE "DiskMAGIC will not run on your Amiga as it requires Workbench 2.x or higher")
  24. (EXIT)
  25. )
  26. )
  27. )
  28.  
  29. (Procedure MAIN
  30. (USER 2)
  31. (SET DMDIR_DEST
  32. (Askdir
  33. (prompt "Select the location for the DiskMagic drawer")
  34. (help @askdir-help)
  35. (default @default-dest)
  36. )
  37. )
  38.  
  39. (USER default-user)
  40.  
  41.  
  42. (if (= (substr DMDIR_DEST (- (strlen DMDIR_DEST) 1) ) ":")
  43. (
  44. (IF (<> (exists ("%sDiskMAGIC" DMDIR_DEST)) 2)
  45. (
  46. (Makedir ("%sDiskMAGIC" DMDIR_DEST) (infos))
  47. (SET DMDIR_DEST ("%sDiskMAGIC" DMDIR_DEST))
  48. )
  49. (SET DMDIR_DEST ("%sDiskMAGIC" DMDIR_DEST))
  50. )
  51. )
  52.  
  53. ( 
  54.  
  55. (IF (<> (exists ("%s/DiskMAGIC" DMDIR_DEST)) 2)
  56. (
  57. (Makedir ("%s/DiskMAGIC" DMDIR_DEST) (infos))
  58. (SET DMDIR_DEST ("%s/DiskMAGIC" DMDIR_DEST))
  59. )
  60. (SET DMDIR_DEST ("%s/DiskMAGIC" DMDIR_DEST))
  61. )
  62.  
  63. )
  64. )
  65.  
  66.  
  67. (debug DMDIR_DEST)
  68. (copyfiles
  69. (source "DiskMAGIC:")
  70. (dest DMDIR_DEST)
  71. (all)
  72. )
  73.  
  74. (startup "DiskMAGIC"
  75. (prompt "Add neccessary Assigns/paths to the user startup?")
  76. (help @startup-help)
  77. (command ("IF EXISTS \"%s/DiskMAGIC\"\n" DMDIR_DEST))
  78. (command ("SETENV MTPATH=\"%s\"\n" DMDIR_DEST))
  79. (command "ENDIF\n")
  80. (command ("IF EXISTS \"%s/C/Lha\"\n" DMDIR_DEST))
  81. (command ("ASSIGN C: \"%s/C\" ADD\n" DMDIR_DEST))
  82. (command "ENDIF\n")
  83. )
  84.  
  85. (run ("SETENV MTPATH=\"%s\"" DMDIR_DEST))
  86. (run ("ASSIGN C: \"%s/C\" ADD" DMDIR_DEST))
  87.  
  88. (DELETE ("%s/Install-DiskMAGICHD" DMDIR_DEST))
  89. (DELETE ("%s/Install-DiskMAGICHD.info" DMDIR_DEST))
  90.  
  91. (Working "Extracting archived files,\n\nplease wait...")
  92. (run ("\"%s/C/Lha\" x %s/archives/#?.lha %s/" DMDIR_DEST DMDIR_DEST DMDIR_DEST))
  93.  
  94. )
  95.  
  96.  
  97. (CHECKOS)
  98. (MAIN)
  99. (run ("run %s/more %s/ReadMe" DMDIR_DEST DMDIR_DEST))
  100. (EXIT)
  101.