home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Muzyczne / Sid4Amiga.lha / Sid4Amiga / Install_Sid4Amiga < prev    next >
Text File  |  2000-02-07  |  11KB  |  331 lines
  1. ; **********************************************
  2. ; ** Sid4Amiga Install - Getting Better....   **
  3. ; **                                          **
  4. ; **********************************************
  5.  
  6. (set #welcome  (cat "Welcome to Sid4Amiga\nThe new generation Sid Player for your Amiga\n"
  7.                 "\nAmiga Version, Global Prefs & MUI Multi Play Interface"
  8.                 "\nBy\nPaul Heams"
  9.                 "\n\nArtwork and Web Design by Chris Andrews"
  10.                 "\nOriginal Linux code base by Michael schwendt\n"
  11.                 "\n\n© Copyright 1999/2000 Paul Heams - Atlantech Productions")
  12. )
  13.  
  14. (set #backup   (cat "\n\nA Directory with this name already exists.\nIf a previous version has been "
  15.                     "installed here it will be overwriten\n\n"
  16.                     "Do you wish to proceed with the install?")
  17. )
  18.  
  19. (set #s4aDetected   (cat "\n\n..NOTE..\n\nIt appears that a version of Sid4Amiga is Running at the moment\n"
  20.                         "Please quit the existing application and re-run the Installation\n\n"
  21.                         "A reboot may be preferable.")
  22. )
  23. (set #s4aClear      (cat "\n\n..OK..\n\nIt appears that your system is ready to install Sid4Amiga\n"
  24.                      "Do not start Sid4Amiga until the\n"
  25.                         "installation has completed.")
  26. )
  27.  
  28. (set #IconCopy      ("\nWhat Icons do you wish to install by default?\n")
  29. )
  30.  
  31. (set #startup-prompt (cat "\nAn assign for Sid4Amiga is usefull for some advanced functions.\n\n"
  32.                           "Your user-startup file will be altered and an Assign for 'S4A' will point to:\n\n")
  33. )
  34. (set #startup-prompt-2 ("\n\nIt is recommended you proceed with this.\n")
  35. )
  36.  
  37.  
  38. (complete 0)
  39.  
  40. (message #welcome)
  41.  
  42. ;*************************************************************************
  43. ;** Make sure that an older version of Sid4Amiga is not already running **
  44. ;*************************************************************************
  45. (if (run "S4AInstall/SidRunning")
  46.     ( (message #s4aDetected) (exit (quiet)) )
  47.         ( (message #s4aClear)                   )
  48. )
  49.  
  50. ;************************************
  51. ;** Get Avail Command if it exists **
  52. ;************************************
  53. (set #avail 0)
  54. (if (> (exists ("c:avail")) 0)   (set #avail "c:") )
  55. (if (> (exists ("sys:avail")) 0) (set #avail "sys:") )
  56.  
  57. ;*************
  58. ;** Install **
  59. ;*************
  60. (set #name
  61.    (askdir
  62.       (prompt "Sid4AmigaV3.32\n\nWhere would you like to install Sid4Amiga?\nA new directory called ''Sid4Amiga'' will be created.\n"
  63.       )
  64.       (help   "\nChoose the directory where Sid4Amiga should be"
  65.               "\ninstalled or updated."
  66.       )
  67.       (default "sys:")
  68.    )
  69. )
  70.  
  71. (set #Dname (tackon #name "Sid4Amiga"))
  72.  
  73. (if (exists #Dname)
  74.     (message #backup)
  75. )
  76.  
  77. (makedir #Dname
  78.  (infos)
  79. )
  80.  
  81. ; *************************
  82. ; ** modify user-startup **
  83. ; *************************
  84. ((startup "S4A"
  85.     (prompt (cat
  86.             #startup-prompt
  87.             #Dname
  88.             #startup-prompt-2
  89.     ))
  90.     (command (cat "Assign S4A: " #Dname))
  91.     (help @startup-help)
  92. )
  93. (makeassign "S4A" #Dname (safe)))
  94.  
  95.  
  96. ; ***********************
  97. ; ** Get type of icons **
  98. ; ***********************
  99. (set #icontype 0)
  100. (set #PickIcon 0)
  101. (set #PickIcon (askchoice (choices "Combined Original and OS3.5" "OS3.5" "New Icons")
  102.                         (prompt #IconCopy)
  103.                         (help "Select your icons set.\nif you are unsure I suggest you select the topmost option.")
  104.                         (default #icontype)
  105.             )
  106. ) 
  107.  
  108. ;***************
  109. ;** Main Copy **
  110. ;***************
  111. (set destdir #Dname)
  112.  
  113. (copyfiles (prompt "Copying Sid4AmigaMUI")         (source "Sid4AmigaMUI")     (dest destdir) )
  114. (copyfiles (prompt "Copying Sid4AmigaGlobalPrefs")     (source "S4A_Preferences")     (dest destdir) )
  115. (copyfiles (prompt "Copying Guide")             (source "Sid4Amiga.guide")     (dest destdir) )
  116.  
  117. ;** ICONS **
  118. (if (= #PickIcon 0)
  119. (
  120.     (copyfiles (prompt "Copying Sid4AmigaMUI Icon (STD)") (source "Sid4AmigaMUI.info") (dest destdir) )
  121.     (copyfiles (prompt "Copying Sid4AmigaGlobalPrefs Icon (STD)") (source "S4A_Preferences.info") (dest destdir) )
  122.     (copyfiles (prompt "Copying Guide Icon (STD)") (source "Sid4Amiga.guide.info") (dest destdir) )
  123.     (copyfiles (prompt "Copying Drawer Icon (STD)") (source "/Sid4Amiga.info") (dest #name))
  124. ))
  125.  
  126. (if (= #PickIcon 1)
  127. (
  128.     (copyfiles (prompt "Copying Sid4AmigaMUI Icon (OS3.5)") (source "Icons/OS3.5/Sid4AmigaMUI.info") (dest destdir) )
  129.     (copyfiles (prompt "Copying Sid4AmigaGlobalPrefs Icon (OS3.5)") (source "Icons/OS3.5/S4A_Preferences.info") (dest destdir) )
  130.     (copyfiles (prompt "Copying Guide Icon (OS3.5)") (source "Icons/OS3.5/Sid4Amiga.guide.info") (dest destdir) )
  131.     (copyfiles (prompt "Copying Drawer Icon (OS3.5)") (source "Icons/OS3.5/Sid4Amiga.info") (dest #name))
  132. ))
  133.  
  134. (if (= #PickIcon 2)
  135. (
  136.     (copyfiles (prompt "Copying Sid4AmigaMUI Icon (NI)") (source "Icons/NewIcons/Sid4AmigaMUI.info") (dest destdir) )
  137.     (copyfiles (prompt "Copying Sid4AmigaGlobalPrefs Icon (NI)") (source "Icons/NewIcons/S4A_Preferences.info") (dest destdir) )
  138.     (copyfiles (prompt "Copying Guide Icon (NI)") (source "Icons/NewIcons/Sid4Amiga.guide.info") (dest destdir) )
  139.     (copyfiles (prompt "Copying Drawer Icon (NI)") (source "Icons/NewIcons/Sid4Amiga.info") (dest #name))
  140. ))
  141.  
  142. (complete 35)
  143. ; ***********************************
  144. ; ** Copy over correct CPU Version **
  145. ; ***********************************
  146. (set #cpu 2)
  147. (set #S4Acpu "Which CPU do you have?")
  148. (set #PickCPU 2)
  149.  
  150.  
  151. (set #PickCPU (askchoice (choices "68020" "68040FPU" "PPC (WarpOS)")
  152.                         (prompt #S4Acpu)
  153.                         (help "Please select the main processor of your machine - If you don't know then select 68020!")
  154.                         (default #cpu)
  155.             )
  156. ) 
  157.  
  158. (if (= #PickCPU 0) (set #mainfile "Sid4Amiga680x0/Sid4Amiga020") )
  159. (if (= #PickCPU 1) (set #mainfile "Sid4Amiga680x0/Sid4Amiga040fpu") )
  160. (if (= #PickCPU 2) (set #mainfile "Sid4Amiga") )
  161.  
  162. (complete 50)
  163. (set mainsource #mainfile)
  164. (copyfiles (prompt "Copying Main Executable")
  165.            (source mainsource)
  166.            (dest destdir)
  167.            (newname "Sid4Amiga") 
  168. )
  169.  
  170. ;*******************************
  171. ;** Copy GUI / Graphics Etc.. **
  172. ;*******************************
  173. (complete 65)
  174. (set #Tname (tackon #Dname "Images"))
  175. (makedir #Tname)
  176. (set destimages #Tname)
  177.  
  178. ;******************************************************************************
  179. ;** If the Images already exist and we do not have avail then do not copy    **
  180. ;** them over - this is because of a lock which avail will flush             **
  181. ;******************************************************************************
  182. (if (<> #avail 0)
  183.     (
  184.     (run (tackon #avail "avail") "flush >nil:")
  185.         (copyfiles (prompt "Copying Sid Logo") (source "Images/newsidupright_s.iff") (dest destimages))
  186.         (copyfiles (prompt "Copying C64 Logo") (source "Images/CKey.iff") (dest destimages))
  187.     )
  188.     (
  189.     (set #NEWname (tackon destimages "newsidupright_s.iff"))
  190.     (if (= (exists #NEWname) 0)
  191.         (copyfiles (prompt "Copying Sid Logo") (source "Images/newsidupright_s.iff") (dest destimages))
  192.  
  193.     )
  194.     (set #NEWname (tackon destimages "CKey.iff"))
  195.     (if (= (exists #NEWname) 0)
  196.         (copyfiles (prompt "Copying C64 Logo") (source "Images/CKey.iff") (dest destimages))
  197.     )
  198.     )
  199. )
  200.  
  201. (complete 70)
  202. (set #Tname (tackon #Dname "Images/Gadgets"))
  203. (makedir #Tname)
  204. (set destgadgets #Tname)
  205. (copyfiles (prompt "Copying Gadgets") (source "Images/Gadgets/") (dest destgadgets) (pattern "#?"))
  206.  
  207. ; ************************
  208. ; ** Copy Example Tunes **
  209. ; ************************
  210. (complete 80)
  211. (set #Tname (tackon #Dname "SidTunes"))
  212. (if (= (exists #Tname) 0)
  213.   (
  214.     (makedir #Tname)
  215.  
  216.     (if (= #PickIcon 0)
  217.         (copyfiles (prompt "Copying Drawer Icon (STD)") (source "SidTunes.info") (dest destdir)) 
  218.     )
  219.     (if (= #PickIcon 1)
  220.         (copyfiles (prompt "Copying Drawer Icon (OS3.5)") (source "Icons/OS3.5/SidTunes.info") (dest destdir)) 
  221.     )
  222.     (if (= #PickIcon 2)
  223.         (copyfiles (prompt "Copying Drawer Icon (NI)") (source "Icons/NewIcons/SidTunes.info") (dest destdir)) 
  224.     )
  225.  
  226.   )
  227. )
  228.  
  229. (set desttunes #Tname)
  230. (copyfiles (prompt "Copying SidTunes")
  231.            (source "SidTunes/")
  232.            (dest desttunes)
  233.            (pattern "#?")
  234. )
  235.  
  236. ;*******************
  237. ;** Play List Dir **
  238. ;*******************
  239. (complete 86)
  240. (set #Tname (tackon #Dname "PlayLists"))
  241. (if (= (exists #Tname) 0)
  242.   (
  243.     (makedir #Tname)
  244.  
  245.     (if (= #PickIcon 0)
  246.         (copyfiles (prompt "Copying Drawer Icon (STD)") (source "PlayLists.info") (dest destdir)) 
  247.     )
  248.     (if (= #PickIcon 1)
  249.         (copyfiles (prompt "Copying Drawer Icon (OS3.5)") (source "Icons/OS3.5/PlayLists.info") (dest destdir)) 
  250.     )
  251.     (if (= #PickIcon 2)
  252.         (copyfiles (prompt "Copying Drawer Icon (NI)") (source "Icons/NewIcons/PlayLists.info") (dest destdir)) 
  253.     )
  254.  
  255.   )
  256. )
  257.  
  258. ;******************
  259. ;** AltIcons Dir **
  260. ;******************
  261. (set #IconD (tackon #Dname "Icons"))
  262. (if (= (exists #IconD) 0)
  263.   (
  264.     (makedir #IconD)
  265.  
  266.     (if (= #PickIcon 0)
  267.         (copyfiles (prompt "Copying Drawer Icon (STD)") (source "Icons.info") (dest destdir)) 
  268.     )
  269.     (if (= #PickIcon 1)
  270.         (copyfiles (prompt "Copying Drawer Icon (OS3.5)") (source "Icons/OS3.5/Icons.info") (dest destdir)) 
  271.     )
  272.     (if (= #PickIcon 2)
  273.         (copyfiles (prompt "Copying Drawer Icon (NI)") (source "Icons/NewIcons/Icons.info") (dest destdir)) 
  274.     )
  275.   )
  276. )
  277. (set desticons #IconD)
  278. (copyfiles (prompt "Copying Alternative Icons") (source "Icons") (dest desticons) (pattern "#?"))
  279.  
  280. ; ***************
  281. ; ** Copy Libs **
  282. ; ***************
  283. (complete 90)
  284. (if (exists "libs:")
  285.    (copyfiles (prompt "Copying Sid4Amiga.library") (source "Libs/Sid4Amiga.library") (dest "libs:"))
  286. )
  287.  
  288. (complete 93)
  289. (set #multiview 0)
  290.  
  291. (if (> (exists ("c:multiview")) 0) (set #multiview "c:") )
  292. (if (> (exists ("sys:Utilities/multiview")) 0) (set #multiview "sys:Utilities") )
  293. (if (> (exists ("sys:Tools/multiview")) 0) (set #multiview "sys:Tools") )
  294.  
  295. (if (<> #multiview 0)
  296.     ((run (tackon #multiview "multiview ") "S4AInstall/Welcome.text")))
  297.  
  298. (complete 95) 
  299. (run "S4A_preferences")
  300.  
  301. ; **********************
  302. ; ** Delete old Files **
  303. ; **********************
  304. (complete 96) 
  305. (set #OldFile (tackon #Dname "Sid4AmigaGUI"))
  306. (if (exists #OldFile) (delete #OldFile)
  307. )
  308. (set #OldFile (tackon #Dname "Sid4AmigaPPC.guide"))
  309. (if (exists #OldFile) (delete #OldFile)
  310. )
  311. (set #OldFile (tackon #Dname "Sid4AmigaPPC.guide.info"))
  312. (if (exists #OldFile) (delete #OldFile)
  313. )
  314. (set #OldFile (tackon #Dname "Sid4AmigaGUI.info"))
  315. (if (exists #OldFile) (delete #OldFile)
  316. )
  317.  
  318. ; ********************
  319. ; ** Flush old libs **
  320. ; ********************
  321. (complete 97)
  322. (if (<> #avail 0)
  323.     ((run (tackon #avail "avail") "flush >nil:"))
  324. )
  325. (complete 99)
  326. (message "\nInstallation complete."
  327.          "\n\nStart Sid4Amiga by clicking the GUI icon\nor running the executable ''Sid4Amiga'' by CLI."
  328. )
  329.  
  330. (exit (quiet))
  331.