home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 94 / af094a.adf / FontMachine_Install < prev    next >
Text File  |  1996-12-10  |  2KB  |  103 lines
  1. ;
  2. ; ************************************************************
  3. ; *** FontMachine Installation Script V1.01 //  6 Feb 1996 ***
  4. ; ************************************************************
  5.  
  6.  
  7. (complete 0)
  8.  
  9. (set @default-dest
  10.     (askdir
  11.         (prompt "Where do you wish to install FontMachine's drawer.")
  12.         (disk)
  13.         (help Seleziona @askdir-help)
  14.         (default @default-dest)
  15.     )
  16. )
  17.  
  18.  
  19. ;/* Check FONTMACHINE.SHP to see if we are not in FONTMACHINE drawer */
  20. (if (= 0 (exists (tackon @default-dest "FontMachine.shp")))
  21.     (
  22.         (set @default-dest (tackon @default-dest "FontMachine"))
  23.         (makedir @default-dest (infos)(help @makedir-help))
  24.     )
  25. )
  26.  
  27. (set destdir (cat "\"" @default-dest "/" "\""))
  28.  
  29. (message "Creation of FontMachine's directory structure")
  30.  
  31.  
  32. (makedir (tackon @default-dest "Brush")
  33.     (help @makedir-help)
  34. )
  35.  
  36. (makedir (tackon @default-dest "Fonts")
  37.     (help @makedir-help)
  38. )
  39.  
  40. (makedir (tackon @default-dest "Palette")
  41.     (help @makedir-help)
  42. )
  43.  
  44. (makedir (tackon @default-dest "Project")
  45.     (help @makedir-help)
  46. )
  47.  
  48. (complete 10)
  49.  
  50. (copyfiles 
  51.     (source "FontMachine_1:ReadMe.doc")
  52.     (dest @default-dest)
  53.     (nogauge)
  54.     (prompt)
  55.     (help)
  56.     (infos)
  57. )
  58.  
  59.  
  60. (message "Installing FontMachine.\n\n" "The Installer is going to unpack all the files needed by FontMachine.\n" "This procedure will take some seconds.")
  61.  
  62. (delete "T:tmpcmd")
  63.  
  64. (textfile
  65.     (dest "T:tmpcmd")
  66.     (append (cat "CD " destdir))
  67.     (append "\n")
  68.     (append "FontMachine_1:unlzx >CON: x FontMachine_1:FontMachine.lzx")
  69.     (append "\n")
  70. )
  71.  
  72. (complete 70)
  73.  
  74. (if (<> 0 (execute "T:tmpcmd" ))
  75.     (abort "Installation error during the decompression of the files.\n")
  76. )
  77.  
  78. (delete "T:tmpcmd")
  79.  
  80. (copylib
  81.     (prompt "The Installer is going to install fontmachine.library")
  82.     (help @copylib-help)
  83.     (confirm)
  84.     (source "FontMachine_1:Libs/fontmachine.library")
  85.     (dest "libs:")
  86. )
  87. (complete 80)
  88.  
  89.  
  90. (set defdest @default-dest)
  91. (startup "FontMachine"
  92.     (prompt (cat "Creating an assignment to FontMachine's drawer.\n"
  93.                      "This operation allows to easily install future versions of FontMachine as well as other FontMachine's resources.\n"
  94.                      "It is strongly suggested to let the Installer do it."))
  95.     (help @startup-help)
  96.     (command ("Assign >NIL: FontMachine: \"%s\"\n" defdest))
  97.     (command ("Assign >NIL: FONTS: \"%s\" Add" (tackon defdest "Fonts")))
  98. )
  99. (makeassign "FontMachine" defdest)
  100. (complete 100)
  101.  
  102. (exit)
  103.