home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / dema / dd2 / dd2-hdinstall.bak < prev    next >
Text File  |  1997-03-22  |  9KB  |  287 lines
  1. ; $VER: DanceDiverse2 Installer v1.0 (1-1-95)
  2. ; Copyright © 1994-1995 by Suburban Base Sweden. Written by Eracore/SUB.
  3. (complete 0)
  4. (set OK 0)
  5. (message "\n\nWelcome to the Dance Diverse 2 Install script.\nThis will put"
  6.      " the musicdisk on your selected device.\n\nMake sure you have 2MB"
  7.       " of diskspace and plenty of Chip Memory Available.\n\n\nSelect"
  8.      " PROCEED if you want to continue, hit ABORT otherwise.")
  9. (complete 5)
  10. (set DestPath
  11.     (askdir    (prompt    "Where should DanceDiverse2 by installed?")
  12.         (help    "\n DanceDiverse2 will be copied to the choosen path"
  13.             " in directory called DD2.\n")
  14.         (default "SYS:")))
  15. (if (= (substr destpath (- (strlen destpath) 1) 1) ":")
  16.     (set dummy "42" )
  17.     (set destpath (cat destpath "/") ))
  18. (set @default-dest destpath)
  19. (if (< (getdiskspace destpath) 13000000)
  20.     (abort     "There is not enough diskspace avaiable in " DestPath
  21.         ".\n\nPlease select an other directory or device.")
  22.     (set dummy "42"))
  23. (if    (askbool
  24.         (prompt    "\n\nAre you sure, that DanceDiverse2 should be\n"
  25.             "installed to " DestPath "\n\n\nA new directory"
  26.             " called 'DD2' will be created, where you will find"
  27.             " the necessary files.\n")
  28.         (help     "\n If you don't want to install DD2 in the\n"
  29.                 "choosen directory, select the NO Gadget.\n\n"
  30.                 " If you confirm the selected directory\n"
  31.                 "then press YES."))
  32.     (set OK 1))
  33. (if (= OK 1)
  34.     (    (complete 10)
  35.         (set FinalPath (cat (tackon DestPath "DD2")))
  36.         (makedir
  37.             (FinalPath))
  38.         ;    (infos))
  39.          (askdisk
  40.             (prompt "\n\n\n\nPlease insert the first disk\n\n"
  41.                 "of DanceDiverse2 in any drive")
  42.             (help     "\n Insert Disk 1 of DanceDiverse2 Musicdisk.\n"
  43.                       "\nOtherwise press Abort Install.")
  44.             (dest     "dANCe_dIVERSe_#2_01"))
  45.         (complete 15)
  46.  
  47.         (copyfiles
  48.                 (prompt "Copying Files to ")
  49.                         FinalPath
  50.                         (".")
  51.             (source "dANCe_dIVERSe_#2_01:")
  52.             (dest     FinalPath)
  53.             (pattern "#?")
  54.             (optional "force")
  55.             (files))
  56.          (askdisk
  57.             (prompt "\n\n\n\nPlease insert the second disk\n\n"
  58.                 "of DanceDiverse2 in any drive")
  59.             (help     "\n Insert Disk 2 of DanceDiverse2 Musicdisk.\n"
  60.                       "\nOtherwise press Abort Install.")
  61.             (dest     "dANCe_dIVERSe_#2_02"))
  62.         (complete 20)
  63.         (copyfiles
  64.                 (prompt "Copying Files to ")
  65.                         FinalPath
  66.                         (".")
  67.             (source "dANCe_dIVERSe_#2_02:")
  68.             (dest     FinalPath)
  69.             (pattern "#?")
  70.             (optional "force")
  71.             (files))
  72.          (askdisk
  73.             (prompt "\n\n\n\nPlease insert the third disk\n\n"
  74.                 "of DanceDiverse2 in any drive")
  75.             (help     "\n Insert Disk 3 of DanceDiverse2 Musicdisk.\n"
  76.                       "\nOtherwise press Abort Install.")
  77.             (dest     "dANCe_dIVERSe_#2_03"))
  78.         (complete 25)
  79.         (copyfiles
  80.                 (prompt "Copying Files to ")
  81.                         FinalPath
  82.                         (".")
  83.             (source "dANCe_dIVERSe_#2_03:")
  84.             (dest     FinalPath)
  85.             (pattern "#?")
  86.             (optional "force")
  87.             (files))
  88.          (askdisk
  89.             (prompt "\n\n\n\nPlease insert the fourth disk\n\n"
  90.                 "of DanceDiverse2 in any drive")
  91.             (help     "\n Insert Disk 4 of DanceDiverse2 Musicdisk.\n"
  92.                       "\nOtherwise press Abort Install.")
  93.             (dest     "dANCe_dIVERSe_#2_04"))
  94.         (complete 30)
  95.         (copyfiles
  96.                 (prompt "Copying Files to ")
  97.                         FinalPath
  98.                         (".")
  99.             (source "dANCe_dIVERSe_#2_04:")
  100.             (dest     FinalPath)
  101.             (pattern "#?")
  102.             (optional "force")
  103.             (files))
  104.          (askdisk
  105.             (prompt "\n\n\n\nPlease insert the fifth disk\n\n"
  106.                 "of DanceDiverse2 in any drive")
  107.             (help     "\n Insert Disk 5 of DanceDiverse2 Musicdisk.\n"
  108.                       "\nOtherwise press Abort Install.")
  109.             (dest     "dANCe_dIVERSe_#2_05"))
  110.         (complete 35)
  111.         (copyfiles
  112.                 (prompt "Copying Files to ")
  113.                         FinalPath
  114.                         (".")
  115.             (source "dANCe_dIVERSe_#2_05:")
  116.             (dest     FinalPath)
  117.             (pattern "#?")
  118.             (optional "force")
  119.             (files))
  120.          (askdisk
  121.             (prompt "\n\n\n\nPlease insert the sixth disk\n\n"
  122.                 "of DanceDiverse2 in any drive")
  123.             (help     "\n Insert Disk 6 of DanceDiverse2 Musicdisk.\n"
  124.                       "\nOtherwise press Abort Install.")
  125.             (dest     "dANCe_dIVERSe_#2_06"))
  126.         (complete 40)
  127.         (copyfiles
  128.                 (prompt "Copying Files to ")
  129.                         FinalPath
  130.                         (".")
  131.             (source "dANCe_dIVERSe_#2_06:")
  132.             (dest     FinalPath)
  133.             (pattern "#?")
  134.             (optional "force")
  135.             (files))
  136.          (askdisk
  137.             (prompt "\n\n\n\nPlease insert the seventh disk\n\n"
  138.                 "of DanceDiverse2 in any drive")
  139.             (help     "\n Insert Disk 7 of DanceDiverse2 Musicdisk.\n"
  140.                       "\nOtherwise press Abort Install.")
  141.             (dest     "dANCe_dIVERSe_#2_07"))
  142.         (complete 45)
  143.         (copyfiles
  144.                 (prompt "Copying Files to ")
  145.                         FinalPath
  146.                         (".")
  147.             (source "dANCe_dIVERSe_#2_07:")
  148.             (dest     FinalPath)
  149.             (pattern "#?")
  150.             (optional "force")
  151.             (files))
  152.          (askdisk
  153.             (prompt "\n\n\n\nPlease insert the eigth disk\n\n"
  154.                 "of DanceDiverse2 in any drive")
  155.             (help     "\n Insert Disk 8 of DanceDiverse2 Musicdisk.\n"
  156.                       "\nOtherwise press Abort Install.")
  157.             (dest     "dANCe_dIVERSe_#2_08"))
  158.         (complete 50)
  159.         (copyfiles
  160.                 (prompt "Copying Files to ")
  161.                         FinalPath
  162.                         (".")
  163.             (source "dANCe_dIVERSe_#2_08:")
  164.             (dest     FinalPath)
  165.             (pattern "#?")
  166.             (optional "force")
  167.             (files))
  168.          (askdisk
  169.             (prompt "\n\n\n\nPlease insert the nineth disk\n\n"
  170.                 "of DanceDiverse2 in any drive")
  171.             (help     "\n Insert Disk 9 of DanceDiverse2 Musicdisk.\n"
  172.                       "\nOtherwise press Abort Install.")
  173.             (dest     "dANCe_dIVERSe_#2_09"))
  174.         (complete 55)
  175.         (copyfiles
  176.                 (prompt "Copying Files to ")
  177.                         FinalPath
  178.                         (".")
  179.             (source "dANCe_dIVERSe_#2_09:")
  180.             (dest     FinalPath)
  181.             (pattern "#?")
  182.             (optional "force")
  183.             (files))
  184.          (askdisk
  185.             (prompt "\n\n\n\nPlease insert the tenth disk\n\n"
  186.                 "of DanceDiverse2 in any drive")
  187.             (help     "\n Insert Disk 10 of DanceDiverse2 Musicdisk.\n"
  188.                       "\nOtherwise press Abort Install.")
  189.             (dest     "dANCe_dIVERSe_#2_10"))
  190.         (complete 60)
  191.         (copyfiles
  192.                 (prompt "Copying Files to ")
  193.                         FinalPath
  194.                         (".")
  195.             (source "dANCe_dIVERSe_#2_10:")
  196.             (dest     FinalPath)
  197.             (pattern "#?")
  198.             (optional "force")
  199.             (files))
  200.          (askdisk
  201.             (prompt "\n\n\n\nPlease insert the eleventh disk\n\n"
  202.                 "of DanceDiverse2 in any drive")
  203.             (help     "\n Insert Disk 11 of DanceDiverse2 Musicdisk.\n"
  204.                       "\nOtherwise press Abort Install.")
  205.             (dest     "dANCe_dIVERSe_#2_11"))
  206.         (complete 65)
  207.         (copyfiles
  208.                 (prompt "Copying Files to ")
  209.                         FinalPath
  210.                         (".")
  211.             (source "dANCe_dIVERSe_#2_11:")
  212.             (dest     FinalPath)
  213.             (pattern "#?")
  214.             (optional "force")
  215.             (files))
  216.          (askdisk
  217.             (prompt "\n\n\n\nPlease insert the twelveth disk\n\n"
  218.                 "of DanceDiverse2 in any drive")
  219.             (help     "\n Insert Disk 12 of DanceDiverse2 Musicdisk.\n"
  220.                       "\nOtherwise press Abort Install.")
  221.             (dest     "dANCe_dIVERSe_#2_12"))
  222.         (complete 70)
  223.         (copyfiles
  224.                 (prompt "Copying Files to ")
  225.                         FinalPath
  226.                         (".")
  227.             (source "dANCe_dIVERSe_#2_12:")
  228.             (dest     FinalPath)
  229.             (pattern "#?")
  230.             (optional "force")
  231.             (files))
  232.         (askdisk
  233.             (prompt "\n\n\n\nPlease insert the thirteenth disk\n\n"
  234.                 "of DanceDiverse2 in any drive")
  235.             (help     "\nInsert Disk 13 of DanceDiverse2 Musicdisk.\n"
  236.                       "\nOtherwise press Abort Install.")
  237.             (dest     "dANCe_dIVERSe_#2_13"))
  238.         (complete 75)
  239.         (copyfiles
  240.                 (prompt "Copying Files to ")
  241.                         FinalPath
  242.                         (".")
  243.             (source "dANCe_dIVERSe_#2_13:")
  244.             (dest     FinalPath)
  245.             (pattern "#?")
  246.             (optional "force")
  247.             (files))))
  248. (complete 80)
  249. (startup "DanceDiverse2"
  250.     (prompt "\n\nAre you ready to modify \"S:User-Startup\" so"
  251.         " DanceDiverse2 can be used with your system?")
  252.        (help     "\nAssign dANCe_dIVERSe_#2_01: " Finalpath
  253.         "\nAssign dANCe_dIVERSe_#2_02: " Finalpath
  254.         "\nAssign dANCe_dIVERSe_#2_03: " Finalpath
  255.         "\nAssign dANCe_dIVERSe_#2_04: " Finalpath
  256.         "\nAssign dANCe_dIVERSe_#2_05: " Finalpath
  257.         "\nAssign dANCe_dIVERSe_#2_06: " Finalpath
  258.         "\nAssign dANCe_dIVERSe_#2_07: " Finalpath
  259.         "\nAssign dANCe_dIVERSe_#2_08: " Finalpath
  260.         "\nAssign dANCe_dIVERSe_#2_09: " Finalpath
  261.         "\nAssign dANCe_dIVERSe_#2_10: " Finalpath
  262.         "\nAssign dANCe_dIVERSe_#2_11: " Finalpath
  263.         "\nAssign dANCe_dIVERSe_#2_12: " Finalpath
  264.             "\nAssign dANCe_dIVERSe_#2_13: " Finalpath
  265.         "\nPath dANCe_dIVERSe_#2_01: add\n"
  266.             "\nThese lines will be added to S:User-Startup")
  267.     (command "Assign dANCe_dIVERSe_#2_01: " Finalpath "\n"
  268.          "Assign dANCe_dIVERSe_#2_02: " Finalpath "\n"
  269.          "Assign dANCe_dIVERSe_#2_03: " Finalpath "\n"
  270.          "Assign dANCe_dIVERSe_#2_04: " Finalpath "\n"
  271.          "Assign dANCe_dIVERSe_#2_05: " Finalpath "\n"
  272.          "Assign dANCe_dIVERSe_#2_06: " Finalpath "\n"
  273.          "Assign dANCe_dIVERSe_#2_07: " Finalpath "\n"
  274.          "Assign dANCe_dIVERSe_#2_08: " Finalpath "\n"
  275.          "Assign dANCe_dIVERSe_#2_09: " Finalpath "\n"
  276.          "Assign dANCe_dIVERSe_#2_10: " Finalpath "\n"
  277.          "Assign dANCe_dIVERSe_#2_11: " Finalpath "\n"
  278.          "Assign dANCe_dIVERSe_#2_12: " Finalpath "\n"
  279.          "Assign dANCe_dIVERSe_#2_13: " Finalpath "\n"
  280.               "Path dANCe_dIVERSe_#2_01: add\n"))
  281. (complete 90)
  282. (set default-dest DestPath)
  283. (message "\n\nInstallation is now complete!\n\n"
  284.      "To run DanceDiverse2 reboot HardDisk and run 'DanceDiverse2!'\n")
  285. (complete 100)
  286. (exit)
  287.