home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 134 / af134a.adf / OnyxBase.lzx / OnyxBase / OnyxBase-Install < prev    next >
Text File  |  2000-01-04  |  2KB  |  99 lines
  1. ; $VER: Install-OnyxBase v2.0 (24.11.99)
  2. ; Installer made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to OnyxBase 2.0 installer.\n© 1998-99 Stefan Blixth, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "OnyxBase 2.0 has now been installed on your system.\n\nDon't forget to register your copy at : onyxbase@onyxsoft.nu\n\nIt's totaly free!!!\n")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.     (askdir (prompt "Please select the destination directory for OnyxBase.\nA sub-directory \"OnyxBase\" will be created.")
  15.             (default @default-dest)
  16.             (help @askdir-help)
  17.     )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "OnyxBase"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.     (message "There is an older installation of OnyxBase in the same directory.\nI'll rename it to OnyxBase_old, so you can delete it later.")
  28.     (run (cat "rename \"" destination "\" \"" destination "_old\""))
  29.     (run (cat "delete \"" destination ".info\" >nil:"))
  30. ))
  31.  
  32. (makedir destination)
  33. (run (cat "copy " "/OnyxBase.info \"" destination ".info\""))
  34.  
  35. (complete 25)
  36.  
  37. ; - copy main program
  38.  
  39. (copyfiles
  40.         (prompt "Copying ...")
  41.         (source "")
  42.         (pattern "O#?")
  43.         (dest destination)
  44.         (help @copyfiles-help)
  45. )
  46.  
  47. (complete 50)
  48.  
  49. ; - copy examples..
  50.  
  51. (makedir (cat destination "/Examples"))
  52.  
  53. (copyfiles
  54.         (prompt "Copying ...")
  55.         (source "Examples/")
  56.         (pattern "#?")
  57.         (infos)
  58.         (dest (cat destination "/Examples"))
  59.         (help @copyfiles-help)
  60. )
  61.  
  62. (complete 75)
  63.  
  64. ; - copy catalog
  65.  
  66.  
  67. (if (<> 0 (exists "LOCALE:" (noreq)))
  68.  
  69.  (set choice
  70.          (askchoice
  71.              (prompt "Please select the language for the program OnyxBase")
  72.              (choices "English (built in)" "Deutsch" "Svenska")
  73.              (default 0)
  74.              (help @askoptions-help)
  75.          )
  76.  )
  77.  
  78.  (if (= 1 choice)
  79.   (copyfiles
  80.           (prompt "Copying ...")
  81.           (source "catalogs/deutsch/OnyxBase.catalog")
  82.           (dest "LOCALE:catalogs/deutsch/")
  83.           (help @copyfiles-help)
  84.   )
  85.  )
  86.  (if (= 2 choice)
  87.   (copyfiles
  88.           (prompt "Copying ...")
  89.           (source "catalogs/svenska/OnyxBase.catalog")
  90.           (dest "LOCALE:catalogs/svenska/")
  91.           (help @copyfiles-help)
  92.   )
  93.  )
  94.  
  95. )
  96.  
  97. (complete 100)
  98. (message #endmsgs)
  99. (exit)