home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / abank11r.lha / abank / install / Install < prev    next >
Encoding:
Text File  |  1995-02-04  |  20.9 KB  |  540 lines
  1. ; Install Harddisk script for ABank
  2. ; $VER: ABank_Install 1.1
  3.  
  4. (set @default-dest "")
  5.  
  6. (set P1 "/")
  7. (set P2 "/")
  8.  
  9. (if (< (/ (getversion) 65536) 37)
  10.     (
  11.     (set reqtoolslib (cat P1 "Libs/13/reqtools.library"))
  12.     (set defguide 0)
  13.     )
  14.     (
  15.     (set reqtoolslib (cat P1 "Libs/20/reqtools.library"))
  16.     (set defguide 1)
  17.     )
  18. )
  19. (set pplib (cat P1 "Libs/powerpacker.library"))
  20. (set amoslib (cat P1 "Libs/amos.library"))
  21. (set modpath (cat P1 "AGUI/Mod/ABank/"))
  22. (set devpath (cat P2 "AGUI/Development/ABank/"))
  23. (set docpath (cat P2 "Documentation"))
  24. (set datapath (cat P1 "Datas"))
  25. (set expath (cat P2 "Examples"))
  26. (set prog (cat P1 "ABank"))
  27. (set prefs "Prefs")
  28.  
  29. (set #prog "ABank 1.1")
  30. (set #copyright "\nABank © 1994-1955 David Gaussinel\n")
  31. (set #address "\nDavid Gaussinel\n18 rue Fénelon\n24200 Sarlat\nFRANCE")
  32.  
  33. ;***************************************************************************
  34. ; English strings
  35. ;
  36. ; Translation: Native
  37. ;***************************************************************************
  38.  
  39. (set default_lang 1)
  40. (set def_lang 0)
  41.  
  42. (set #copying-reqtoolslib "Copying reqtools.library to Libs:...")
  43. (set #copying-pplib "Copying powerpacker.library to Libs:...")
  44. (set #copying-amoslib "Do you want to copy amos.library to Libs:...")
  45. (set #copying-mod "Select interface(s) to install...")
  46. (set #copying-dev "Select development file(s) to copy...")
  47. (set #copying-doc "Select documentation(s) to copy...")
  48. (set #copying-abank "Copying ABank to ABank drawer...")
  49. (set #select-agui "Please select a place for the AGUI drawer")
  50. (set #select-abank "Please select a place for the ABank drawer")
  51. (set #select-mod "Please select your default interface for ABank")
  52. (set #select-logo "Please select bank logos to install...")
  53. (set #select-ex "Please select examples to install...")
  54. (set #assign-agui "Now the AGUI assignement will be included into your user-startup file.")
  55. (set #create-prefs "Saving preferences file.")
  56. (set #header-prefs (cat #prog " preferences file."))
  57. (set #copy-format "What file format do you want to copy ?")
  58. (set #copy-example "Do you want to copy Examples ?")
  59. (set #copy-dev "Do you want to copy Development files ?")
  60. (set #copy "Yes")
  61. (set #cancel "No")
  62.  
  63. (set #aguidir-help
  64. (cat "Select the directory where you want to install AGUI. Installer will create a drawer named AGUI.\n\n" @askdir-help))
  65. (set #aguistartup-help
  66. (cat "Installer will modify your user-startup to create a AGUI assignement line. It's indispensable to ABank runs.\n\n" @startup-help))
  67. (set #abankdir-help
  68. (cat "Select the directory where you want to install ABank. Installer will create a drawer named ABank.\n\n" @askdir-help))
  69. (set #copyabank-help
  70. (cat "ABank will be copied in the ABank drawer.\n\n" @copyfiles-help))
  71. (set #asklogo-help
  72. (cat "Tick the bank logo that you want install on your harddisk. Choose your country.\n\n" @askoptions-help))
  73. (set #askdoc-help
  74. (cat "Tick the language of the documentation files that you want to install.\n\n" @askoptions-help))
  75. (set #askformat-help
  76. (cat "Ascii files can be read with More. Guide files need AmigaGuide or MultiView.\n\n" @askoptions-help))
  77. (set #askex-help
  78. "If you want to install examples on your harddisk, choose Yes else No.")
  79. (set #selectex-help
  80. (cat "Tick the example(s) that you want install on your harddisk. You can choose your language.\n\n" @askoptions-help))
  81. (set #selectmod-help
  82. (cat "Tick the interface(s) that you want install on your harddisk. You can choose your language.\n\n" @askoptions-help))
  83. (set #askdev-help
  84. "If you want to install Development AGUI files on your harddisk, choose Yes else No.\n\n Only advanced users can use Development AGUI files, and you must have AGUI Editor.")
  85. (set #selectdev-help
  86. (cat "Tick the Development file(s) that you want install on your harddisk.\n\n" @askoptions-help))
  87. (set #prefsmod-help
  88. (cat "Tick the default interface that ABank must load at startup. You can choose your language, but you MUST choose a interface installed on your harddisk.\n\n" @askoptions-help))
  89. (set #prefs-help
  90. "ABank preferences file will be created. If you don't want (?), choose No.")
  91. (set #amos-help
  92. (cat "Amos.library hasn't a version number. So you must copy amos.library if Installer says. Version of Amos.library included is 2.00\n\n" @copyfiles-help))
  93.  
  94. (set #install-choice "Choose mode installation")
  95. (set #install-help 
  96. (cat "Choose an installation mode.\n"
  97.      "Simple installation will copy some files ABank needed on your system disc. It's the installation you must choose if you have a floppy based system.\n\n"
  98.      "Complete installation will install all the distribution of ABank on your hard disk.\n\n"
  99.      "Simple or complete, think to boot your Amiga from the system disc where you want to install ABank.\n\n"
  100.      "If you was already registered user for ABank, before to proceed installation, select option Update keyfile. It'll copy your keyfile from your original ABank disc."
  101. ))
  102. (set #install-complete "Complete installation")
  103. (set #install-simple "Simple installation")
  104. (set #install-update "Update keyfile")
  105. (set #original "\nInsert your orignal ABank disc\nand then click on Yes.\n\nIf you don't have this disc, click on No.")
  106. (set #original-help "If you was already registered user, Installer will update ABank after you insert the original ABank disc.")
  107.  
  108. (set #install-msg
  109. (cat "\n\n" #prog " installation script.\n"
  110.      "This script installs " #prog " on your Amiga.\n\n"
  111.      "Read the documentation file for\n"
  112.      "more information on the distribution,\n"
  113.      "shareware and usage of ABank.\n"
  114.      #copyright
  115.      "All rights reserved."
  116. ))
  117. (set #quit-msg
  118. (cat    "\nABank is now installed on your Amiga.\n\n"
  119.         "ABank is shareware. In this demo version,\n"
  120.         "you  can't  enter  more  than  50 operations.\n"
  121.         "To  own  the complete version of this product,\n"
  122.         "you must send a contribution, at less than\n"
  123.         "20$ or 12 £ or 25 DM or 100 FF to the author :\n"
  124.         #address
  125. ))
  126. (set #reg-msg
  127. (cat    "\nABank is now installed on your Amiga.\n\n"
  128.         "You are a ABank's registered user.\n"
  129.         "Please do not copy your version.\n"
  130.         "ABank is protected against piracy.\n"
  131.         "Your name and address have been crypted\n"
  132.         "and will be displayed in ABank.\n\n"
  133.         #address
  134. ))
  135. ;***************************************************************************
  136. ; Français strings
  137. ;
  138. ; Translation: David Gaussinel (07.01.95)
  139. ;***************************************************************************
  140. (if (= @language "français")
  141. (
  142. (set default_lang 2)
  143. (set def_lang 1)
  144.  
  145. (set #copying-reqtoolslib "Copions reqtools.library en Libs:...")
  146. (set #copying-pplib "Copions powerpacker.library en Libs:...")
  147. (set #copying-amoslib "Voulez-vous copier amos.library en Libs:...")
  148. (set #copying-mod "Choisissez les interfaces à installer...")
  149. (set #copying-dev "Choisissez les fichiers Development à copier...")
  150. (set #copying-doc "Choisissez les documentations à copier...")
  151. (set #copying-abank "Copions ABank dans le répertoire ABank...")
  152. (set #select-agui "Veuillez choisir un endroit pour le répertoire AGUI")
  153. (set #select-abank "Veuillez choisir un endroit pour le répertoire ABank")
  154. (set #select-mod "Veuillez choisir votre interface par défaut pour ABank")
  155. (set #select-logo "Veuillez choisir les logos de banque à installer...")
  156. (set #select-ex "Veuillez choisir les exemples à installer...")
  157. (set #assign-agui "Maintenant l'assignation AGUI va être ajoutée à votre fichier user-startup.")
  158. (set #create-prefs "Sauvons le fichier préférences.")
  159. (set #header-prefs (cat #prog " preferences file."))
  160. (set #copy-format "Quel format de documentation copier ?")
  161. (set #copy-example "Voulez-vous copier les exemples ?")
  162. (set #copy-dev "Voulez-vous copier les fichiers Development ?")
  163. (set #copy "Oui")
  164. (set #cancel "Non")
  165.  
  166. (set #aguidir-help
  167. (cat "Choisissez le répertoire où vous voulez installer AGUI. Installer va créer un tiroir nommé AGUI.\n\n" @askdir-help))
  168. (set #aguistartup-help
  169. (cat "Installer va modifier votre user-startup pour créer une ligne d'assignation AGUI. Ceci est indispensable au lancement d'ABank.\n\n" @startup-help))
  170. (set #abankdir-help
  171. (cat "Choisissez le répertoire où vous voulez installer ABank. Installer va créer un tiroir nommé ABank.\n\n" @askdir-help))
  172. (set #copyabank-help
  173. (cat "ABank va être copié dans le tiroir ABank.\n\n" @copyfiles-help))
  174. (set #asklogo-help
  175. (cat "Cochez les logos de banque que vous voulez installer sur votre disque dur. Choisissez votre pays.\n\n" @askoptions-help))
  176. (set #askdoc-help
  177. (cat "Cochez la langue des fichiers documentation que vous voulez installer.\n\n" @askoptions-help))
  178. (set #askformat-help
  179. (cat "Les fichiers Ascii sont lisibles avec More. Les fichiers Guide ont besoin d'AmigaGuide ou de MultiView.\n\n" @askoptions-help))
  180. (set #askex-help
  181. "Si vous voulez installer les exemples sur votre disque dur, choisissez Oui sinon Non.")
  182. (set #selectex-help
  183. (cat "Cochez les exemples que vous voulez installer sur votre disque dur. Vous pouvez choisir votre langue.\n\n" @askoptions-help))
  184. (set #selectmod-help
  185. (cat "Cochez les interfaces que vous voulez installer sur votre disque dur. Vous pouvez choisir votre langue.\n\n" @askoptions-help))
  186. (set #askdev-help
  187. "Si vous voulez installer les fichiers AGUI Development sur votre disque dur, choisissez Oui sinon Non.\n\n Seuls les utilisateurs avancés peuvent utiliser les fichiers AGUI Development, et vous devez avoir AGUI Editor.")
  188. (set #selectdev-help
  189. (cat "Cochez les fichiers Development que vous voulez installer sur votre disque dur.\n\n" @askoptions-help))
  190. (set #prefsmod-help
  191. (cat "Cochez l'interface par défaut que ABank doit charger au démarrage. Vous pouvez choisir votre langue, mais vous DEVEZ choisir une interface installée sur votre disque dur.\n\n" @askoptions-help))
  192. (set #prefs-help
  193. "Le fichier ABank préférences va être créé. Si vous ne voulez pas (?), choisissez Non.")
  194. (set #amos-help
  195. (cat "Amos.library n'a pas de numéro de Version. Aussi vous devez copier amos.library si Installer le dit. La version d'Amos.library incluse est 2.00\n\n" @copyfiles-help))
  196.  
  197. (set #install-choice "Quelle installation voulez-vous effectuer ?")
  198. (set #install-help 
  199. (cat "Choisissez un des deux modes d'installations.\n"
  200.      "Installation simple va copier quelques fichiers nécessaires à ABank sur votre disque système. C'est l'installation que vous devez choisir si vous avez un système basé sur disquettes.\n\n"
  201.      "Installation complète va installer tous les fichiers d'ABank sur votre disque dur.\n\n"
  202.      "Dans les deux cas, veillez à avoir démarrer votre Amiga depuis le disque système sur lequel vous voulez installer ABank.\n\n"
  203.      "Si vous êtes déjà utilisateur enregitré ABank, avant de procéder à une installation, sélectionnez l'option Mise à jour fichier clé qui va copier votre fichier clé depuis votre disquette originale ABank."
  204. ))
  205. (set #install-complete "Installation complète")
  206. (set #install-simple "Installation simple")
  207. (set #install-update "Mise à jour fichier clé")
  208. (set #original "\nInsérez votre disquette ABank originale\npuis cliquez sur Oui.\n\nSi vous n'avez pas cette disquette, cliquez sur Non.")
  209. (set #original-help "Si vous êtes utilisateur enregistré, Installer va mettre à jour ABank après que vous ayez inséré la disquette originale ABank.")
  210.  
  211. (set #install-msg
  212. (cat "\n\nScript d'installation d'" #prog ".\n"
  213.      "Ce script installe " #prog " sur votre Amiga.\n\n"
  214.      "Lisez les fichiers documentations pour\n"
  215.      "plus d'informations sur la distribution,\n"
  216.      "le shareware and l'utilisation d'ABank.\n"
  217.      #copyright
  218.      "Tous droits réservés."
  219. ))
  220. (set #quit-msg
  221. (cat    "\nABank est maintenant installé sur votre Amiga.\n\n"
  222.         "ABank est shareware. Dans cette version demo,\n"
  223.         "vous ne pouvez entrer plus de 50 opérations.\n"
  224.         "Pour recevoir la version complète de ce produit,\n"
  225.         "vous devez envoyer une contribution, d'au moins\n"
  226.         "20$ ou 12 £ ou 25 DM ou 100 FF à l'auteur :\n"
  227.         #address
  228. ))
  229. (set #reg-msg
  230. (cat    "\nABank est maintenant installé sur votre Amiga.\n\n"
  231.         "Vous êtes un utilisateur enregistré d'ABank.\n"
  232.         "Merci de ne pas copier votre version.\n"
  233.         "ABank est protégé contre le piratage.\n"
  234.         "Votre nom et adresse ont été cryptés\n"
  235.         "et vont être affichés dans ABank.\n\n"
  236.         #address
  237. ))
  238. ))
  239.  
  240. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  241. ; PROC quit
  242. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  243. (procedure quit
  244. (if (exists "L:ABank.key")
  245. (message #reg-msg)
  246. (message #quit-msg)
  247. )
  248. (exit (quiet))
  249. )
  250.  
  251. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  252. ; PROC copy library & copy keyfile on Hard or Floppy
  253. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  254. (Procedure install_lib
  255.     (copylib
  256.             (prompt "\n" #copying-reqtoolslib)
  257.             (help @copylib-help)
  258.             (source reqtoolslib)
  259.             (newname "reqtools.library")
  260.             (dest "Libs:")
  261.             (confirm)
  262.     )
  263.     (copylib
  264.             (prompt "\n" #copying-pplib)
  265.             (help @copylib-help)
  266.             (source pplib)
  267.             (dest "Libs:")
  268.             (confirm)
  269.     )
  270.     (if (<> (getsize "LIBS:amos.library") (getsize amoslib)) (
  271.         (copyfiles
  272.             (prompt "\n" #copying-amoslib)
  273.             (help #amos-help)
  274.             (source amoslib)
  275.             (dest "Libs:")
  276.             (confirm)
  277.         )
  278.     ))
  279.   (if (exists (cat P1 "L/ABank.key"))
  280.       (copyfiles (source (cat P1 "L/ABank.key")) (dest "L:"))
  281.   )
  282. )
  283.  
  284. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  285. ; PROC install complete ABank distribution
  286. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  287. (Procedure install_complete
  288. (complete 0)
  289. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  290. ; Install AGUI directory
  291. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  292. (if (NOT (exists "AGUI:" (noreq)))
  293.     (
  294.     (set AGUIdir
  295.     (tackon
  296.         (askdir
  297.             (prompt #select-agui)
  298.             (default "")
  299.             (help #aguidir-help)
  300.         )
  301.         "AGUI"
  302.     ))
  303.  
  304.     (makedir AGUIdir (infos))
  305.     (makeassign "AGUI" AGUIdir)
  306.     (makedir "AGUI:Development" (infos))
  307.     (makedir "AGUI:Mod" (infos))
  308.     (makedir "AGUI:Prefs" (infos))
  309.     (startup "AGUI"
  310.         (prompt #assign-agui)
  311.         (help #aguistartup-help)
  312.         (command 'Assign AGUI: "' AGUIdir '"\n')
  313.     )
  314.     )
  315. )
  316. (complete 10)
  317. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  318. ; install ABank files
  319. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  320. (set ABANKdir
  321. (tackon
  322.     (askdir
  323.         (prompt #select-abank)
  324.         (default "")
  325.         (help #abankdir-help)
  326.     )
  327.     "ABank"
  328. ))
  329. (makedir ABANKdir (infos))
  330. ; ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­copy ABank
  331. (copyfiles
  332.         (prompt "\n" #copying-abank)
  333.         (help #copyabank-help)
  334.         (source prog)
  335.         (dest ABANKdir)
  336.         (infos)
  337.         (confirm)
  338. )
  339. (complete 15)
  340. ; ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­copy datas (icons & logos)
  341. (set ABANKdata (cat ABANKdir "/Datas"))
  342. (copyfiles
  343.     (source (cat datapath "/DefIcon.info"))
  344.     (dest ABANKdata)
  345.     (files)
  346. )
  347.  
  348. (copyfiles
  349.     (source (cat datapath "/Accounts"))
  350.     (dest (cat ABANKdata "/Accounts"))
  351.     (all)
  352. )
  353. (set bank
  354.     (askoptions
  355.         (prompt "\n" #select-logo)
  356.         (help #asklogo-help)
  357.         (choices "Suisse" "France" "Germany")
  358.     )
  359. )
  360. (makedir (cat ABANKdata "/Banks") (infos))
  361. (if (IN bank 0) (
  362.     (makedir (cat ABANKdata "/Banks/Suisse"))
  363.     (copyfiles (source (cat datapath "/Banks/Suisse")) (dest (cat ABANKdata "/Banks/Suisse")) (all))
  364. ))
  365. (if (IN bank 1) (                                                                         
  366.     (makedir (cat ABANKdata "/Banks/France"))
  367.     (copyfiles (source (cat datapath "/Banks/France")) (dest (cat ABANKdata "/Banks/France")) (all))
  368. ))
  369. (if (IN bank 2) (
  370.     (makedir (cat ABANKdata "/Banks/Germany"))
  371.     (copyfiles (source (cat datapath "/Banks/Germany")) (dest (cat ABANKdata "/Banks/Germany")) (all))
  372. ))
  373. (complete 35)
  374. ; ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­copy documentations
  375. (set ABANKdoc (cat ABANKdir "/Documentation"))
  376. (if (NOT (exists ABANKdoc)) (makedir ABANKdoc (infos)))
  377. (set lang
  378.     (askoptions
  379.         (prompt "\n" #copying-doc)
  380.         (help #askdoc-help)
  381.         (choices "English" "Français" "Deutsch")
  382.         (default default_lang)
  383.     )
  384. )
  385. (if (<> 0 lang) (
  386.     (set format (askoptions (prompt "\n" #copy-format) (help #askformat-help) (choices "Ascii" "AmigaGuide")))
  387.  
  388. (if (<> 0 format) (
  389.     (if (AND (IN lang 0) (IN format 0)) (copyfiles (source (cat docpath "/English.doc")) (dest ABANKdoc) (files) (infos)))
  390.     (if (AND (IN lang 1) (IN format 0)) (copyfiles (source (cat docpath "/Français.doc")) (dest ABANKdoc) (files) (infos)))
  391.     (if (AND (IN lang 2) (IN format 0)) (copyfiles (source (cat docpath "/Deutsch.doc")) (dest ABANKdoc) (files) (infos)))
  392.     (if (AND (IN lang 0) (IN format 1)) (copyfiles (source (cat docpath "/English.guide")) (dest ABANKdoc) (files) (infos)))
  393.     (if (AND (IN lang 1) (IN format 1)) (copyfiles (source (cat docpath "/Français.guide")) (dest ABANKdoc) (files) (infos)))
  394.     (if (AND (IN lang 2) (IN format 1)) (copyfiles (source (cat docpath "/Deutsch.guide")) (dest ABANKdoc) (files) (infos)))
  395. ))
  396. ))
  397. (complete 50)
  398. ; ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­copy examples
  399. (if
  400.     (= 1
  401.     (askbool
  402.         (prompt #copy-example)
  403.         (help #askex-help)
  404.         (choices #copy #cancel)
  405.         (default 1)
  406.     ))
  407. (
  408.     (set ABANKex (cat ABANKdir "/Examples"))
  409.     (copyfiles
  410.         (prompt #select-ex)
  411.         (help #selectex-help)
  412.         (source expath)
  413.         (dest ABANKex)
  414.         (all)
  415.         (infos)
  416.         (confirm)
  417.     )
  418. ))
  419. (complete 60)
  420. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  421. ; install module files of ABank
  422. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  423. (if (NOT (exists "AGUI:Mod/ABank/")) (makedir "AGUI:Mod/ABank" (infos)))
  424. (set lang
  425.     (askoptions
  426.         (prompt "\n" #copying-mod)
  427.         (help #selectmod-help)
  428.         (choices "English" "Français" "Deutsch")
  429.         (default default_lang)
  430.     )
  431. )
  432. (if (IN lang 0) (copyfiles (source (cat modpath "English")) (dest "AGUI:Mod/ABank/") (infos)))
  433. (if (IN lang 1) (copyfiles (source (cat modpath "Français")) (dest "AGUI:Mod/ABank/") (infos)))
  434. (if (IN lang 2) (copyfiles (source (cat modpath "Deutsch")) (dest "AGUI:Mod/ABank/") (infos)))
  435. (complete 70)
  436. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  437. ; install development files of ABank
  438. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  439. (if
  440.     (= 1
  441.     (askbool
  442.         (prompt #copy-dev)
  443.         (help #askdev-help)
  444.         (choices #copy #cancel)
  445.         (default 0)
  446.     ))
  447. (
  448. (if (NOT (exists "AGUI:Development/ABank/")) (makedir "AGUI:Development/ABank" (infos)))
  449. (copyfiles
  450.         (prompt "\n" #copying-dev)
  451.         (help #selectdev-help)
  452.         (source devpath)
  453.         (all)
  454.         (dest "AGUI:Development/ABank/")
  455.         (confirm)
  456. )
  457. ))
  458. (complete 85)
  459. (create_prefs)
  460. (complete 90)
  461. (install_lib)
  462. (complete 100)
  463. (quit)
  464. )
  465. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  466. ; PROC create prefs file
  467. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  468. (Procedure create_prefs
  469. (set modname
  470.     (select
  471.         (askchoice
  472.             (prompt #select-mod)
  473.             (help #prefsmod-help)
  474.             (choices "English" "Français" "Deutsch")
  475.             (default def_lang)
  476.         )
  477.     "English" "Français" "Deutsch"
  478.     )
  479. )
  480. (textfile
  481.         (prompt #create-prefs)
  482.         (help #prefs-help)
  483.         (dest "AGUI:Prefs/ABank.prefs")
  484.         (append #header-prefs "\n")
  485.         (append "\n")
  486.         (append "MODULE=" modname "\n")
  487.         (include prefs)
  488.         (confirm)
  489. )
  490. )
  491. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  492. ; PROC install simple
  493. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  494. (Procedure install_simple
  495. (complete 0)
  496. (install_lib)
  497. (complete 50)
  498. (if (NOT (exists "AGUI:" (noreq)))
  499.     (makeassign "AGUI" "/AGUI")
  500. )
  501. (complete 60)
  502. (create_prefs)
  503. (complete 100)
  504. (quit)
  505. )
  506. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  507. ; PROC update key
  508. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  509. (Procedure update
  510. (if
  511.     (= 1 (askbool (prompt #original) (help #original-help) (choices #copy #cancel) (default 0)))
  512. (
  513.     (if (exists "df0:L/ABank.key")
  514.         (
  515.         (copyfiles (source "df0:L/ABank.key") (dest (cat P1 "L/")))
  516.     ))
  517. ))
  518. )
  519. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  520. ; main loop
  521. ;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  522. (message #install-msg)
  523. (welcome)
  524.  
  525. (until (< 2 menu)
  526.  
  527. (set menu
  528.     (askchoice
  529.         (prompt #install-choice)
  530.         (help #install-help)
  531.         (choices #install-simple #install-complete #install-update)
  532.     )
  533. )
  534.  
  535. (if (= 0 menu) (install_simple))
  536. (if (= 1 menu) (install_complete))
  537. (if (= 2 menu) (update))
  538.  
  539. )
  540.