home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #5 / AmigaPlus_Extra-CD_5-97.iso / online-tools / mail / bomb!2.0_install / bomb!_install < prev    next >
Text File  |  1996-10-02  |  15KB  |  600 lines
  1. ; $VER: Bomb!-Install 2.0 (01.10.96)
  2. ; Original Bomb! Installer script by Luca De Santis <Luca_De_Santis@amp.flashnet.it>
  3. ; Inspired by the RO's installing script.
  4.  
  5. ;========================================================
  6. ; Set Strings
  7. (set #str1 "Which language for the installer ?")
  8. (set #lanit "Italiano")
  9. (set #laneng "English")
  10.  
  11. (complete 0)
  12.  
  13. (set langtype
  14.         (askchoice
  15.                 (prompt #str1)
  16.                 (help @askchoice-help)
  17.                 (choices
  18.                         #laneng
  19.                         #lanit
  20.                 )
  21.                 (default 0)
  22.         )
  23. )
  24.  
  25. (if (= langtype 0)
  26.  
  27.  
  28. (
  29. (set #nokick
  30. (cat "You must be using Kickstart 2.04 to use Bomb!. Aborting!"
  31. ))
  32.  
  33. (set #nomui
  34. (cat "You need version 3.3 of MUI or better. Aborting!"
  35. ))
  36.  
  37. (set #startmsg
  38. (cat "\n\Bomb! installation script.\n"
  39.      "This script installs Bomb! on your Amiga.\n\n"
  40.      "Read the Documentation files for\n"
  41.      "more information on the distribution.\n"
  42.      "Bomb! 2.0 © 1994-1996 Luca De Santis\n"
  43.      "All rights reserved."
  44. ))
  45.  
  46. (set #icons "Which type of icons would you like to install")
  47. (set #magicwbicons "MagicWB-Style Icons; 8 colors")
  48. (set #classicicons "Classic-WB-Style Icons; 4 colors")
  49.  
  50. (set #gadgets "Which type of gadgets would you like to install")
  51. (set #xen13gad "XEN 13 style gadgets (1:1 screens)")
  52. (set #xen11gad "XEN 11 style gadgets (2:1 screens)")
  53.  
  54. (set #install "\n\nInstalling Bomb! to\n\n")
  55. (set #drawer
  56. (cat "In which disk or drawer should Bomb! be installed?\n"
  57.      "(A drawer \"Bomb!\" will be created there)"
  58. ))
  59.  
  60. (set #update
  61. (cat "A drawer \"Bomb!\" already exists in the specified disk "
  62.      "or drawer. This version is NOT COMPATIBLE with the "
  63.      "older versions of the program ( < 2.0 ). You should install "
  64.      "Bomb! in another drawer or delete the old one\n"
  65.      "Check the documentation as some additional configuration "
  66.      "keywords might be introduced by this update.\n\n"
  67.      "Should I continue the installation procedure?"
  68. ))
  69.  
  70. (set #lang "Which languages should be installed? (English is built-in)")
  71. (set #own
  72. (cat    "\n\nIf you want to create own versions of\n"
  73.         "the catalogs please contact me:\n"
  74.         "I will send you the .cd & .ct files.\n"
  75. ))
  76.  
  77. (set #filt "Which filters should be installed?")
  78.  
  79. (set #install-docs (cat "Would you like to install Bomb!'s documentation?"
  80.                         "(Installing AmigaGuide documentation is recommended)"
  81.                    )
  82. )
  83. (set #doclang "Which language do you prefer for the documentation?")
  84.  
  85. (set #install-pref "Would you like to install default preferences?")
  86.  
  87. (set #exitmsg
  88. (cat "Please support the shareware concept!\n\n"
  89.      "If you like Bomb!, please send $18. / DM 25. / UK £12  to\n\n"
  90.      "Luca De Santis\n"
  91.      "Via Male' 61\n"
  92.      "00124 Roma (Infernetto)\n"
  93.      "Italy/Europe"
  94. ))
  95. ))
  96.  
  97.  
  98.  
  99.  
  100. (if (= langtype 1)
  101. (
  102. (set locale 6)
  103. (set #nokick
  104. (cat "Devi avere almeno il Kickstart 2.04 per poter usare Bomb!. Aborting!"
  105. ))
  106.  
  107. (set #nomui
  108. (cat "Hai bisogno almeno della versione 3.3 di MUI. Aborting!"
  109. ))
  110.  
  111. (set #startmsg
  112. (cat "\n\Script di installazione per Bomb!.\n"
  113.      "Questo script installa Bomb! sul tuo Amiga.\n\n"
  114.      "Leggi i file di documentazione per\n"
  115.      "maggiori informazioni sulla distribuzione.\n"
  116.      "Bomb! 2.0 © 1994-1996 Luca De Santis\n"
  117.      "All rights reserved."
  118. ))
  119.  
  120. (set #icons "Quale tipo di icone vuoi installare ?")
  121. (set #magicwbicons "MagicWB-Style Icons; 8 colors")
  122. (set #classicicons "Classic-WB-Style Icons; 4 colors")
  123.  
  124. (set #gadgets "Quale tipo di gadget vuoi installare")
  125. (set #xen13gad "XEN 13 style gadgets (per schermi 1:1)")
  126. (set #xen11gad "XEN 11 style gadgets (per schermi 2:1)")
  127.  
  128. (set #install "\n\nInstallo Bomb! in\n\n")
  129. (set #drawer
  130. (cat "In quale disco o cassetto vuoi che Bomb! sia installato?\n"
  131.      "(Un cassetto chiamato \"Bomb!\" verra' creato li')"
  132. ))
  133.  
  134. (set #update
  135. (cat "Un cassetto \"Bomb!\" gia' esiste nel disco o cassetto "
  136.      "specificato. Questa versione NON E' COMPATIBILE con le "
  137.      "versioni precedenti di Bomb! ( < 2.0 ). Conviene installare "
  138.      "Bomb! in un altro cassetto o cancellare il vecchio\n"
  139.      "Controlla la documentazione dato che il formato di alcuni "
  140.      "file di preference puo' essere cambiato in questa versione\n\n"
  141.      "Continuo con la procedura di installazione?"
  142. ))
  143.  
  144. (set #lang "Quali linguaggi vuoi che siano installati? (L'inglese e' built-in)")
  145. (set #own
  146. (cat    "\n\nSe vuoi crearti una tua versione \n"
  147.         "dei cataloghi, contattami:\n"
  148.         "ti manderò i file .cd e .ct dei cataloghi\n"
  149. ))
  150.  
  151. (set #filt "Quali filtri vuoi che siano installati?")
  152.  
  153. (set #install-docs (cat "Vuoi installare la documentazione di Bomb! ?"
  154.                         "(E' consigliata l'installazione della documentazione Amigaguide)"
  155.                    )
  156. )
  157. (set #doclang "Quale linguaggio preferisci per la documentazione?")
  158.  
  159. (set #install-pref "Vuoi installare le preference di default?")
  160.  
  161. (set #exitmsg
  162. (cat "Per favore, supporta i programmi shareware!\n\n"
  163.      "Se Bomb! ti piace, manda 25.000 lire - a\n\n"
  164.      "Luca De Santis\n"
  165.      "Via Male' 61\n"
  166.      "00124 Roma (Infernetto)\n"
  167.      "Italy/Europe"
  168. ))
  169. ))
  170.  
  171.  
  172.  
  173. ;========================================================
  174.  
  175. (if (< (/ (getversion) 65536) 37)
  176. (
  177.     (abort #nokick)
  178. ))
  179.  
  180. (if (= (exists "LIBS:muimaster.library" (noreq)) 1)
  181. (
  182.         (if (>= (run "c:Version muimaster.library VERSION 14 REVISION 106") 5)
  183.         (
  184.                 (abort #nomui)
  185.         ))
  186. )
  187. (
  188.         (abort #nomui)
  189. ))
  190.  
  191. ;=========================================================
  192.  
  193. (message #startmsg)
  194.  
  195. (complete 10)
  196.  
  197.  
  198. ;=========================================================
  199.  
  200. (set TargetDir
  201.         (askdir
  202.                 (prompt #drawer)
  203.                 (default "SYS:Tools")
  204.                 (help @askdir-help)
  205.         )
  206. )
  207.  
  208. (set DestDir (tackon TargetDir "Bomb!"))
  209. (set @default-dest DestDir)
  210.  
  211. (if (= (exists DestDir) 2)
  212.  
  213.    (message #update)
  214.  
  215. )
  216.  
  217. (complete 20)
  218.  
  219. ;=========================================================
  220.  
  221. (set IconType
  222.         (askchoice
  223.                 (prompt #icons)
  224.                 (help @askchoice-help)
  225.                 (choices
  226.                         #magicwbicons
  227.                         #classicicons
  228.                 )
  229.                 (default 0)
  230.         )
  231. )
  232.  
  233. (complete 30)
  234.  
  235. ;=========================================================
  236.  
  237. (makedir DestDir
  238.     (prompt #install DestDir)
  239. )
  240.  
  241. (if (= IconType 0)
  242. (
  243.         (copyfiles
  244.         (source "gfx_icons/mwb")
  245.         (choices "Bomb!.info" "ReadMe.info" "RegForm.info")
  246.             (dest DestDir)
  247.     )
  248.  
  249.         (copyfiles
  250.                 (source "gfx_icons/mwb")
  251.                 (choices "Bomb!.guide.info")
  252.                 (dest (tackon DestDir "docs"))
  253.         )
  254.  
  255.  
  256.         (copyfiles
  257.                 (source "gfx_icons/mwb/Drawer.info")
  258.                 (dest TargetDir)
  259.                 (newname "Bomb!.info")
  260.         )
  261.  
  262.         (copyfiles
  263.                 (source "gfx_icons/mwb/bomblogo")
  264.                 (dest (tackon DestDir "gadgets"))
  265.                 (newname "bomblogo")
  266.         )
  267.  
  268. ))
  269.  
  270. (if (= IconType 1)
  271. (
  272.         (copyfiles
  273.         (source "gfx_icons/st")
  274.         (choices "Bomb!.info" "ReadMe.info" "RegForm.info")
  275.             (dest DestDir)
  276.     )
  277.  
  278.         (copyfiles
  279.                 (source "gfx_icons/st")
  280.                 (choices "Bomb!.guide.info")
  281.                 (dest (tackon DestDir "docs"))
  282.         )
  283.  
  284.         (copyfiles
  285.                 (source "gfx_icons/st/Drawer.info")
  286.                 (dest TargetDir)
  287.                 (newname "Bomb!.info")
  288.         )
  289.  
  290.         (copyfiles
  291.                 (source "gfx_icons/st/bomblogo")
  292.                 (dest (tackon DestDir "gadgets"))
  293.                 (newname "bomblogo")
  294.         )
  295. ))
  296.  
  297. (complete 40)
  298.  
  299. ;=========================================================
  300.  
  301. (set GadType
  302.         (askchoice
  303.                 (prompt #gadgets)
  304.                 (help @askchoice-help)
  305.                 (choices
  306.                         #xen13gad
  307.                         #xen11gad
  308.                 )
  309.                 (default 0)
  310.         )
  311. )
  312.  
  313. (complete 50)
  314.  
  315. ;=========================================================
  316.  
  317.  
  318. (if (= GadType 0)
  319. (
  320.  
  321.         (copyfiles
  322.                 (source "gadgets/xen13")
  323.                 (dest (tackon DestDir "gadgets"))
  324.                 (all)
  325.         )
  326.  
  327. ))
  328.  
  329. (if (= GadType 1)
  330. (
  331.  
  332.         (copyfiles
  333.                 (source "gadgets/xen11")
  334.                 (dest (tackon DestDir "gadgets"))
  335.                 (all)
  336.         )
  337. ))
  338.  
  339. (complete 30)
  340.  
  341. (copyfiles
  342.         (help @copyfiles-help)
  343.         (source "Bomb!")
  344.         (dest DestDir)
  345.         (newname "Bomb!")
  346. )
  347.  
  348.  
  349. (complete 60)
  350.  
  351. ;========================================================
  352. ; Install Filters
  353. (set Filterdir ( tackon DestDir "filters" ) )
  354.  
  355. (
  356.         (set Filt
  357.                 (askoptions
  358.                         (prompt #filt)
  359.                         (help @askoptions-help)
  360.                         (choices "POP3.imp" "SMTP.exp" "QWK.imp" "QWK.exp" "amp.imp" "amp.exp" "mclink.imp" "mclink.exp" )
  361.                         (default -1)
  362.                 )
  363.         )
  364.  
  365.  
  366.         (if (IN Filt 0)
  367.                 (copyfiles
  368.                         (source "filters/pop3.imp")
  369.                         (dest Filterdir)
  370.                         (newname "pop3.imp")
  371.                 )
  372.         )
  373.  
  374.         (if (IN Filt 1)
  375.                 (copyfiles
  376.                         (source "filters/smtp.exp")
  377.                         (dest Filterdir)
  378.                         (newname "smtp.exp")
  379.                 )
  380.         )
  381.  
  382.         (if (IN Filt 2)
  383.                 (copyfiles
  384.                         (source "filters/qwk.imp")
  385.                         (dest Filterdir)
  386.                         (newname "qwk.imp")
  387.                 )
  388.         )
  389.  
  390.         (if (IN Filt 3)
  391.                 (copyfiles
  392.                         (source "filters/qwk.exp")
  393.                         (dest Filterdir)
  394.                         (newname "qwk.exp")
  395.                 )
  396.         )
  397.  
  398.  
  399.         (if (IN Filt 4)
  400.                 (copyfiles
  401.                         (source "filters/amp.imp")
  402.                         (dest Filterdir)
  403.                         (newname "amp.imp")
  404.                 )
  405.         )
  406.  
  407.         (if (IN Filt 5)
  408.                 (copyfiles
  409.                         (source "filters/amp.exp")
  410.                         (dest Filterdir)
  411.                         (newname "amp.exp")
  412.                 )
  413.         )
  414.  
  415.         (if (IN Filt 6)
  416.                 (copyfiles
  417.                         (source "filters/mclink.imp")
  418.                         (dest Filterdir)
  419.                         (newname "mclink.imp")
  420.                 )
  421.         )
  422.  
  423.         (if (IN Filt 7)
  424.                 (copyfiles
  425.                         (source "filters/mclink.exp")
  426.                         (dest Filterdir)
  427.                         (newname "mclink.exp")
  428.                 )
  429.         )
  430.  
  431. ;        (if (IN Filt 8)
  432. ;                (copyfiles
  433. ;                        (source "filters/agora.imp")
  434. ;                        (dest Filterdir)
  435. ;                        (newname "agora.imp")
  436. ;                )
  437. ;        )
  438. ;
  439. ;        (if (IN Filt 9)
  440. ;                (copyfiles
  441. ;                        (source "filters/agora.exp")
  442. ;                        (dest Filterdir)
  443. ;                        (newname "agora.exp")
  444. ;                )
  445. ;        )
  446. )
  447.  
  448.  
  449. (complete 70)
  450.  
  451. ;========================================================
  452. ; Install Locale
  453. (set Catalogdir ( tackon DestDir "catalogs" ) )
  454. (makedir Catalogdir)
  455.  
  456.  
  457. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  458. (
  459.  
  460.         (set Lang
  461.                 (askoptions
  462.                         (prompt #lang)
  463.                         (help @askoptions-help)
  464.                         (choices "Italiano")
  465.                         (default 0)
  466.                 )
  467.         )
  468.  
  469.  
  470.         (if (IN Lang 0)
  471.                 (copyfiles
  472.                         (source "catalogs/italiano")
  473.                         (all)
  474.                         (dest ( tackon Catalogdir "italiano" ))
  475.                 )
  476.         )
  477.  
  478.  
  479.         (message #own)
  480. ))
  481.  
  482. (complete 80)
  483.  
  484. ;========================================================
  485. ; Install Misc
  486. (set Workdir ( tackon DestDir "Workdir" ) )
  487. (makedir Workdir)
  488.  
  489.  
  490. (if (askbool (help @askbool-help) (prompt #install-pref))
  491. (
  492.  
  493.         (copyfiles
  494.         (source "workdir")
  495.         (choices
  496.                         ".prefs"
  497.                 )
  498.             (dest Workdir)
  499.     )
  500.  
  501. ))
  502.  
  503. (complete 90)
  504.  
  505. ;=========================================================
  506. ; Install Documentation
  507.  
  508. ;(if (askbool (help @askbool-help) (prompt #install-docs))
  509. ;(
  510.  
  511.         (
  512.  
  513.                 (set doclang
  514.                         (askchoice
  515.                                 (prompt #doclang)
  516.                                 (help @askchoice-help)
  517.                                 (choices
  518.                                         "English"
  519.                                         "Italiano"
  520.                                 )
  521.                                 (default 0)
  522.                         )
  523.                 )
  524.         )
  525.  
  526.         (
  527.  
  528.                 (if (= doclang 0)
  529.                 (
  530.                         (copyfiles
  531.                                 (source "Docs/Bomb!.guide_english")
  532.                                 (dest (tackon DestDir "docs"))
  533.                                 (newname "Bomb!.guide")
  534.                         )
  535.  
  536.                         (copyfiles
  537.                                 (source "Docs/readme_english")
  538.                                 (dest DestDir)
  539.                                 (newname "Readme")
  540.                         )
  541.  
  542.                         (copyfiles
  543.                                 (source "Docs/RegForm_english")
  544.                                 (dest DestDir )
  545.                                 (newname "RegForm")
  546.                         )
  547.  
  548.                         (copyfiles
  549.                         (source "workdir")
  550.                         (choices
  551.                                         "Bomb!.bubble"
  552.                                 )
  553.                             (dest Workdir)
  554.                         )
  555.  
  556.                 ))
  557.  
  558.                 (if (= doclang 1)
  559.                 (
  560.                         (copyfiles
  561.                                 (source "Docs/Bomb!.guide_italiano")
  562.                                 (dest (tackon DestDir "docs"))
  563.                                 (newname "Bomb!.guide")
  564.                         )
  565.  
  566.                         (copyfiles
  567.                                 (source "Docs/readme_italiano")
  568.                                 (dest DestDir)
  569.                                 (newname "ReadMe")
  570.                         )
  571.  
  572.                         (copyfiles
  573.                                 (source "Docs/RegForm_italiano")
  574.                                 (dest DestDir )
  575.                                 (newname "RegForm")
  576.                         )
  577.  
  578.                         (copyfiles
  579.                         (source "workdir/Bomb!.bubble_italiano")
  580.                         (dest Workdir)
  581.                         (newname "Bomb!.bubble")
  582.                         )
  583.  
  584.  
  585.                 ))
  586.  
  587.  
  588.         )
  589.  
  590.  
  591. ;)
  592. ;(
  593. ;        (delete (tackon DestDir "docs/Bomb!.guide.info"))
  594. ;))
  595.  
  596. (complete 100)
  597.  
  598. ;==========================================================
  599. (exit #exitmsg)
  600.