home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #6 / amigaacscoverdisc1998-061998.iso / games / shareware / gms / gmsdev / install_english < prev    next >
Text File  |  1998-06-08  |  6KB  |  220 lines
  1. ; $VER: GMSDev V1.0 Installer 28.2.98
  2. ; (Developers archive)
  3. ; Written by Michael Praschl
  4.  
  5. (complete 0)
  6.  
  7. ;*** define strings ***
  8. (set #NoGMSinstalled
  9.   (cat "Sorry, but the user's archive has to be installed before you can install "
  10.        "the developers archive. Please install it first!"
  11.   )
  12. )
  13.  
  14. (set #source-text
  15.   (cat "Which of the example sources do you want to install?\n"
  16.        "The sources will be installed to GMS:GMSDev/Source/"
  17.   )
  18. )
  19. (set #source-help
  20.   (cat "Most sources are already compiled, so you get some more demos.\n"
  21.        "The Object References are useful for any developers wanting\nto create objects for GMS."
  22.   )
  23. )
  24. (set #includes-text
  25.   (cat "Which includes do you want to install?\n"
  26.        "All includes will be copied to GMS:GMSDev/ in sub-directories "
  27.        "called EModules or Includes."
  28.   )
  29. )
  30. (set #includes-help
  31.   (cat "The includes are copied there because they shall easily be deleted on an update, "
  32.        "when a new version of GMS comes out. If they would be copied to some "
  33.        "custom directory, some includes would maybe become obsolete.\n"
  34.        "This script will also ask you which assignments you want to add to your user-startup."
  35.   )
  36. )
  37. (set #ced-text
  38.   (cat "Do you want to install ceddefaults.s to s:?"
  39.   )
  40. )
  41. (set #ced-help
  42.   (cat "This file will set the tab-stops in Cygnus Ed for good looking Asm-sources."
  43.   )
  44. )
  45. (set #assigns-text
  46.   (cat "Which assigns do you want to add?"
  47.   )
  48. )
  49. (set #assigns-help
  50.   (cat "It is suggested to create the GMSDev: assign for easy reference.\n"
  51.        "There are also two versions for C/C++ includes, as some people have "
  52.        "Includes: others have Include:. One of them should suffice."
  53.   )
  54. )
  55. (set #nowassign-text
  56.   (cat "Now adding the following assigns to s:user-startup:\n"
  57.        #gmsass #isass #iass #eass
  58.   )
  59. )
  60. (set #nowassign-help
  61.   (cat "I suggest you add the assigns you need!"
  62.   )
  63. )
  64. (set #logos-text
  65.   (cat "Do you want to install the GMS-logos?"
  66.   )
  67. )
  68. (set #logos-help
  69.   (cat "Some nice logos by *** (please enter name(s) here)"
  70.   )
  71. )
  72.  
  73. ;*** start off
  74. (welcome "Welcome to the installation of " @app-name)
  75.  
  76. (if (= (exists "GMS:" (noreq)) 2)
  77.   ( ; then
  78. ;*** ask the user first
  79.     (set #src
  80.       (askoptions (prompt #source-text) (help #source-help)
  81.         (choices "Asm" "C/C++" "AmigaE" "Object References")
  82.       )
  83.     )
  84.  
  85.     (set #includes
  86.       (askoptions (prompt #includes-text) (help #includes-help)
  87.         (choices "C/C++, Asm" "AmigaE")
  88.       )
  89.     )
  90.  
  91.     (set #logos
  92.       (askoptions (prompt #logos-text) (help #logos-help)
  93.         (choices "Fullscreen" "Fullspin")
  94.       )
  95.     )
  96.  
  97.     (set #ced
  98.       (askbool (prompt #ced-text) (help #ced-help) (default 0))
  99.     )
  100.  
  101.     (set #assigns 11)
  102.     (set #assigns
  103.       (askoptions (prompt #assigns-text) (help #assigns-help)
  104.         (choices "GMSDev:" "Includes: (C/C++)" "Include: (C/C++)" "EModules: (AmigaE)")
  105.         (default #assigns)
  106.       )
  107.     )
  108.  
  109. ;*** then copy all at once
  110.     (copyfiles (source "Utils") (dest "GMS:Utils") (all))
  111.  
  112.     (set #gmsdev (bitor #src (bitor #includes #documents)))
  113.     (if #gmsdev (makedir "GMS:GMSDev"))
  114.  
  115.     (if (<> #src 0)
  116.       ( ;then
  117.         (makedir "GMS:GMSDev/Source")
  118.         (if (IN #src 0)
  119.           (copyfiles (source "source") (dest "GMS:GMSDev/Source") (choices "Asm"))
  120.         )
  121.         (if (IN #src 1)
  122.           (copyfiles (source "source") (dest "GMS:GMSDev/Source") (choices "C"))
  123.         )
  124.         (if (IN #src 2)
  125.           (copyfiles (source "source") (dest "GMS:GMSDev/Source") (choices "E"))
  126.         )
  127.         (if (IN #src 3)
  128.           (copyfiles (source "source") (dest "GMS:GMSDev/Source") (choices "References"))
  129.         )
  130.       )
  131.     )
  132.  
  133.     (if (IN #includes 0)
  134.       ( ;then
  135.         (copyfiles (source "") (dest "GMS:GMSDev") (choices "Includes"))
  136.         (if (= (exists "DLIB:" (noreq)) 1)
  137.           (copyfiles (source "Includes/lib/dpk.o") (dest "DLIB:"))
  138.         )
  139.       )
  140.     )
  141.     (if (IN #includes 1)
  142.       (copyfiles (source "") (dest "GMS:GMSDev") (choices "Emodules"))
  143.     )
  144.  
  145.     (if (<> #logos 0)
  146.       ( ;then
  147.         (makedir "GMS:GMSDev/Logos")
  148.         (if (IN #src 0)
  149.           (copyfiles (source "logos") (dest "GMS:GMSDev/Logos") (choices "GMSLogo-FullScreen.iff"))
  150.         )
  151.         (if (IN #src 1)
  152.           (copyfiles (source "logos") (dest "GMS:GMSDev/Logos") (choices "GMSLogo-FullSpin.iff"))
  153.         )             
  154.       )
  155.     )
  156.  
  157.     (copyfiles (source "") (dest "GMS:GMSDev") (choices "Documents"))
  158.     (copyfiles (source "") (dest "GMS:GMSDev") (choices "Autodocs"))
  159.     (copyfiles (source "DEV_REGISTER.TXT") (dest "GMS:GMSDev"))
  160.     (copyfiles (source "DEV_REGISTER.TXT.info") (dest "GMS:GMSDev"))
  161.     (copyfiles (source "IMPORTANT.TXT") (dest "GMS:GMSDev"))
  162.     (copyfiles (source "IMPORTANT.TXT.info") (dest "GMS:GMSDev"))
  163.     (copyfiles (source "LICENSE.TXT") (dest "GMS:GMSDev"))
  164.     (copyfiles (source "LICENSE.TXT.info") (dest "GMS:GMSDev"))
  165.     (copyfiles (source "README.TXT") (dest "GMS:GMSDev"))
  166.     (copyfiles (source "README.TXT.info") (dest "GMS:GMSDev"))
  167.     (copyfiles (source "Extras/GMS_README.TXT") (dest "GMS:GMSDev"))
  168.  
  169.     (if #ced
  170.         (copyfiles (source "Extras/ceddefaults.s") (dest "S:"))
  171.     )
  172.  
  173.     (if (<> #assigns 0)
  174.       ( ;then
  175.         (set #gmsass "")
  176.         (set #isass "")
  177.         (set #iass "")
  178.         (set #eass "")
  179.         (if (IN #assigns 0)
  180.           (
  181.             (set #gmsass "Assign GMSDev: GMS:GMSDev\n")
  182.             (if (IN #assigns 1)
  183.               (set #isass "Assign Includes: GMSDev:Includes ADD\n")
  184.             )
  185.             (if (IN #assigns 2)
  186.               (set #iass "Assign Include: GMSDev:Includes ADD\n")
  187.             )
  188.             (if (IN #assigns 3)
  189.               (set #eass "Assign EModules: GMSDev:EModules ADD")
  190.             )
  191.           ) ( ;else
  192.             (if (IN #assigns 1)
  193.               (set #isass "Assign Includes: GMS:GMSDev/Includes ADD\n")
  194.             )
  195.             (if (IN #assigns 2)
  196.               (set #iass "Assign Include: GMS:GMSDev/Includes ADD\n")
  197.             )
  198.             (if (IN #assigns 3)
  199.               (set #eass "Assign EModules: GMS:GMSDev/EModules ADD")
  200.             )
  201.           )
  202.         )
  203.         (startup "GMSDev" (prompt #nowassign-text) (help #nowassign-help)
  204.           (command #gmsass)
  205.           (command #isass)
  206.           (command #iass)
  207.           (command #eass)
  208.         )
  209.       )
  210.     )
  211.   ) ( ;else
  212.     (message #NoGMSinstalled (all))
  213.   )
  214. )
  215.  
  216. (complete 100)
  217.  
  218. (set @default-dest "GMS:GMSDev/")
  219.  
  220.