home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma68.dms / ma68.adf / Argue10 / Install < prev    next >
Text File  |  1996-08-21  |  2KB  |  77 lines
  1.  
  2. (set #install-msg               "Installing Argue 1.0...")
  3.  
  4. ;-------------------- Installation script begins here ----------------------
  5. (set olduserlevel @user-level)
  6. (user 3)
  7. (transcript "Hi!")
  8. (message "I'll now install Argue on your system...")
  9.  
  10. ;-------------------------- Get options for user install -------------------
  11.  
  12. (if (= olduserlevel 0)
  13.     (
  14.         (set destdir "C:")
  15.     )
  16.     (
  17.         (set destdir
  18.             (askdir
  19.             (help ":)")
  20.             (prompt "Choose a drawer for Argue. It should be in the command\n"
  21.                     "path anyway, best would be C:... :-)")
  22.             (default "C:")
  23.             )
  24.         )
  25.     )
  26. )
  27.  
  28. (set @default-dest destdir)
  29.  
  30. (copyfiles
  31.     (source "bin/Argue")
  32.     (dest destdir)
  33. )
  34.  
  35. (copyfiles
  36.     (source "bin/Argue.info")
  37.     (dest destdir)
  38. )
  39.  
  40. (if (= olduserlevel 0)
  41.     (
  42.         (set #logochoice 1)
  43.     )
  44.  
  45.     (
  46.         (if (= (exists "c:Argue_Logo.iff" (noreq)) 1)
  47.             (message "Warning: A logo has already been installed. MUI might already have 'locked' it for further use. The installer may not be able to replace it with another logo.\n\nAfter a reboot those 'locks' of cource won't be there any more.\n\nPlease note: This is MUI's case, not the one of Argue. I just want to tell you about.\n\nAs the 'logo part' is the last in this installation, you may quit this script with the button below now.")
  48.         )
  49.  
  50.         (set #logochoice
  51.             (askchoice
  52.                 (help ":)")
  53.                 (prompt "Argue 0.8 supports nice looking logos that are displayed at the top of the main window. Please pick one out.")
  54.                 (choices "Flyer - You like Techno?" "Nice - Pretty straight `Argue`" "Gradient - 8 color gradient ;-)" "Shell - somehow weird..." "Circles - You'll love it" "Pacman - Ehm... Experimental! :)")
  55.             )
  56.         )
  57.     )
  58. )
  59.  
  60. (select #logochoice
  61.     (set #logoname "logos/Argue_Flyer.logo")
  62.     (set #logoname "logos/Argue_Nice.logo")
  63.     (set #logoname "logos/Argue_Gradient.logo")
  64.     (set #logoname "logos/Argue_Shell.logo")
  65.     (set #logoname "logos/Argue_Circles.logo")
  66.     (set #logoname "logos/Argue_Pacman.logo")
  67. )
  68.  
  69. (copyfiles
  70.     (source #logoname)
  71.     (dest "C:")
  72.     (newname "Argue_Logo.iff")
  73. )
  74.  
  75. (message "Thank you! Argue is now ready to use! For further details a look into Argue's documentation is recommended.\n\nYou should now try out the submitted interfaces in the Examples-Drawer.")
  76.  
  77.