home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Utilities / Trekkie / InstallTrekkie next >
Text File  |  2000-01-13  |  6KB  |  276 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;
  3. ;;; Install Trekkie Version 2
  4. ;;;
  5. ;;; $VER: Install_Trekkie 1.03 (14 August 1999)
  6. ;;;
  7. ;;; Copyright © 1998 Stefan Osterburg, Brandenburg Germany
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. (set ProgramName    "Trekkie - The Star Trek database");
  11. (set ProgramBaseName    "Trekkie")
  12. (set VersionNum        "2.18")    
  13. (set @default-src "Trekkie/")
  14. (set @fonts-src "Trekkie/fonts")
  15.  
  16. (complete 0)
  17. (set #ask-where "Where do you want to install/update Trekkie?\n(No directory will be created there.)"
  18. )
  19.  
  20. (procedure copyfont
  21.   (
  22.     (working "Checking/Copying Fonts")
  23.     (
  24.          if (= (exists "fonts:trekkie.font") 0)
  25.         
  26.          (copyfiles (prompt "Copy trekkie.font to FONTS:") (help "") 
  27.          (source @fonts-src) 
  28.          (dest "fonts:")
  29.          (choices "trekkie.font")
  30.          (confirm))
  31.     )  
  32.         
  33.    (if (= (exists "fonts:trekkie/9f") 0)
  34.         (
  35.          (makedir "fonts:trekkie")        
  36.          (copyfiles (prompt "Copy trekkie.font to FONTS:") (help "") 
  37.          (source @fonts-src)
  38.          (dest "fonts:trekkie")
  39.          (choices "trekkie/9f")
  40.          (confirm))
  41.         )
  42.     )
  43.   )
  44. )
  45.  
  46.  
  47.  
  48.  
  49. (set @default-dest
  50.  (askdir (prompt #ask-where) (help @askdir-help) (default @default-dest)))
  51.  
  52. (
  53. if (exists "Trekkie.lzx")
  54. (
  55. (working "Unpacking files...")
  56. (set @default-src "T:Trekkie")
  57. (set @fonts-src "T:Trekkie/fonts")
  58. (run "unlzx -m x Trekkie.lzx #? T:" 
  59. (help "No help available.") 
  60. (prompt "Unpack files") 
  61. TRUE
  62. )
  63. )
  64. )
  65. (complete 30)
  66.  
  67.  
  68. (
  69.   if (= (exists "fonts:xen.font") 0) 
  70.   (
  71.     if (= (exists "fonts:xen/8") 0)
  72.     (copyfont)
  73.   )
  74.   (
  75.     if (exists "fonts:trekkie.font")
  76.       (
  77.         (set #con 
  78.           (askbool 
  79.              (prompt "Since you have the XEN font, you won't need Trekkie.font\nthat was found in your FONTS: directory.\nDo you want to delete it?")
  80.              (help "")
  81.              (default 1)
  82.           )
  83.         )
  84.         (if #con
  85.         (      
  86.           (delete "fonts:trekkie.font"
  87.             (prompt "Delete Trekkie.font")
  88.             (help "")
  89.             (confirm))
  90.           (delete "fonts:trekkie/9f"
  91.             (prompt "Delete fonts:trekkie/9f")
  92.             (help "")
  93.             (confirm))
  94.           (delete "fonts:trekkie"
  95.             (prompt "Delete fonts:Trekkie")
  96.             (help "")
  97.             (confirm))
  98.         ))
  99.       )
  100.   )
  101. )
  102.  
  103. (complete 35)
  104. (working "Copying files...")
  105.  
  106. (set versnumalt (getversion (tackon @default-dest "Trekkie")))
  107. (set versalt (/ versnumalt 65536))
  108. (set revalt   (- versnumalt (* versalt 65536)))
  109.  
  110. (set versnumneu (getversion (tackon @default-src "Trekkie")))
  111. (set versneu (/ versnumneu 65536))
  112. (set revneu   (- versnumneu (* versneu 65536)))
  113.  
  114. (if (= versnumalt 0)
  115. (
  116.   copyfiles
  117.   (prompt "Copy Trekkie executable")
  118.   (help "")
  119.   (source @default-src)
  120.   (dest @default-dest)
  121.   (choices "Trekkie")
  122.   (confirm)
  123. )
  124. (if (< versnumalt versnumneu)
  125. (
  126.  
  127.   copyfiles
  128.   (prompt "Update Trekkie executable\n" "Existing version: " versalt "." revalt ", Version to install: " versneu "." revneu)
  129.   (help "")
  130.   (source @default-src)
  131.   (dest @default-dest)
  132.   (choices "Trekkie")
  133.   (confirm)
  134. )
  135. )
  136. )
  137. (complete 45)
  138. (if (= (exists (tackon @default-dest "Trekkie.info")) 0)
  139. (
  140.   copyfiles
  141.   (prompt "Copy Trekkie program icon")
  142.   (help "")
  143.   (source @default-src)
  144.   (dest @default-dest)
  145.   (choices "Trekkie.info")
  146.   (confirm)
  147. ))
  148. (complete 48)
  149. (if (= (exists (tackon @default-dest "default.msk")) 0)
  150. (
  151.   copyfiles
  152.   (prompt "Copy settings file")
  153.   (help "")
  154.   (source @default-src)
  155.   (dest @default-dest)
  156.   (choices "default.msk")
  157.   (confirm)
  158. ))
  159. (complete 51)
  160. (if (= (exists (tackon @default-dest "default.srt")) 0)
  161. (
  162.   copyfiles
  163.   (prompt "Copy settings file")
  164.   (help "")
  165.   (source @default-src)
  166.   (dest @default-dest)
  167.   (choices "default.srt")
  168.   (confirm)
  169. ))
  170. (complete 54)
  171. (if (= (exists (tackon @default-dest "default.sel")) 0)
  172. (
  173.   copyfiles
  174.   (prompt "Copy settings file")
  175.   (help "")
  176.   (source @default-src)
  177.   (dest @default-dest)
  178.   (choices "default.sel")
  179.   (confirm)
  180. ))
  181. (complete 57)
  182. (if (= (exists (tackon @default-dest "default.prt")) 0)
  183. (
  184.   copyfiles
  185.   (help "")
  186.   (prompt "Copy settings file")
  187.   (source @default-src)
  188.   (dest @default-dest)
  189.   (choices "default.prt")
  190.   (confirm)
  191. ))
  192. (complete 60)
  193.  
  194. (set versnumalt 0)
  195. (set versnumalt (getversion (tackon @default-dest "Trekkie.guide")))
  196. (set versalt (/ versnumalt 65536))
  197. (set revalt   (- versnumalt (* versalt 65536)))
  198.  
  199. (set versnumneu 0)
  200. (set versnumneu (getversion ("Trekkie.guide")))
  201. (set versneu (/ versnumneu 65536))
  202. (set revneu   (- versnumneu (* versneu 65536)))
  203.  
  204. (if (= versnumalt 0)
  205. (
  206.   copyfiles
  207.   (prompt "Copy Amigaguide documentation")
  208.   (help "")
  209.   (source "")
  210.   (dest @default-dest)
  211.   (choices "Trekkie.guide")
  212.   (confirm)
  213.   (infos)
  214. )
  215. (if (< versnumalt versnumneu)
  216. (
  217.   copyfiles
  218.   (prompt "Update Amigaguide documentation\n" "Existing version: " versalt "." revalt ", Version to install: " versneu "." revneu)
  219.   (help "")
  220.   (source "")
  221.   (dest @default-dest)
  222.   (choices "Trekkie.guide")
  223.   (confirm)
  224. )
  225. )
  226. )
  227.  
  228. (complete 70)
  229.  
  230. (if (= (exists (tackon @default-dest "trek.dat")) 0)
  231. (
  232.   if (exists (tackon @default-src "trek.dat"))
  233.   (copyfiles
  234.   (prompt "Copy data file")
  235.   (help "")
  236.   (source @default-src)
  237.   (dest @default-dest)
  238.   (choices "trek.dat")
  239.   (confirm))
  240. )
  241. (
  242.   if (exists (tackon @default-src "trek.dat"))
  243.   (
  244.     (set #backnum 0)
  245.     (set #backupname (cat (tackon @default-dest "trek.bak") #backnum ".dat"))
  246.     (while (exists #backupname) 
  247.     (
  248.       (set #backnum (+ #backnum 1))
  249.       (set #backupname (cat (tackon @default-dest "trek.bak") #backnum ".dat"))
  250.     )
  251.     )
  252.     (rename (tackon @default-dest "trek.dat") #backupname
  253.      (prompt "Backup existing trek.dat to" #backupname ".")
  254.      (help "")
  255.      (confirm)
  256.     )
  257.     (copyfiles
  258.       (prompt "Copy data file")
  259.       (help "")
  260.       (source @default-src)
  261.       (dest @default-dest)
  262.       (choices "trek.dat")
  263.       (confirm)
  264.     )
  265.     (message "\nThe trek.dat file that was found at the given destination\nwas backed up as " #backupname)
  266.   )
  267. )
  268. )
  269. (complete 95)
  270. (run "delete T:Trekkie/#? all" "delete T:Trekkie.info" "delete T:Trekkie"
  271. (prompt "Tempory files have been created in your T: directory\nThey will now be deleted.") 
  272. (help "No help available")
  273. )
  274. (complete 100)
  275.  
  276.