home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / wb / gurus97 / install < prev    next >
Encoding:
Text File  |  1997-07-30  |  2.9 KB  |  157 lines
  1. ; $VER: Install Gurus97
  2. ; © by Demon 1997
  3. ;======================
  4.  
  5. (complete 0)
  6.  
  7. (IF (= @language "deutsch")
  8. (
  9. (set Opt 1)
  10. (set #welcome
  11.   (cat
  12.     "\n\n\nWillkommen beim Gurus97 - Installer.\n\n"
  13.     "Dieses Programm installiert Gurus97 auf deinem Rechner.\n\n\n"
  14.     "Gurus97  © by Demon 1997."
  15.   ))
  16.  
  17. (set #choose-text
  18.  (cat "Wähle das Verzeichnis wohin Gurus97 installiert werden soll. Ein  Verzeichnis namens Gurus97 wird dort angelegt."
  19.   ))
  20.  
  21. (set #choose-help
  22.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichnis kopiert."
  23.   ))
  24.  
  25. (set #inst-main
  26.   (cat "Installiere Guide-File"
  27.   ))
  28.  
  29. (set #inst-data
  30.   (cat "Installiere das Verzeichnis data"
  31.   ))
  32.  
  33. (set #inst-showguru
  34.   (cat "Installiere das Verzeichnis showguru"
  35.   ))
  36.  
  37. (set #inst-Gurus97.html
  38.   (cat "Installiere HTML-File"
  39.   ))
  40.  
  41. (set #inst-fonts
  42.   (cat "Installiere Font ..."
  43.   ))
  44.  
  45. (SET #exit-Msg
  46.   (CAT "\n\nViel Spaß mit Gurus97\n\n wünscht\n\n"
  47.                    "Heiko Gyrok"
  48.   ))
  49. ))
  50.  
  51. ;**************************************************
  52.  
  53. (message #welcome)
  54.  
  55. (welcome)
  56.  
  57. (set @default-dest (getassign "Work" "dva"))
  58.   (if (= @default-dest "")
  59.    (set @default-dest "SYS:"))
  60.   
  61. (set @default-dest (askdir
  62.     (prompt #choose-text)
  63.     (help #choose-help)
  64.     (default @default-dest))
  65.   ) 
  66.   
  67. (set @default-dest (tackon @default-dest "Gurus97"))
  68.  
  69. (makedir @default-dest (prompt #create-maindir)(infos))
  70.   
  71. ;**************************************************
  72.  
  73. (copyfiles
  74.     (prompt    #inst-main)
  75.     (help    @copyfiles-help)
  76.     (source "Gurus97")
  77.     (dest    @default-dest)
  78.         (confirm "EXPERT")
  79.         (optional "force" "askuser")
  80.     (infos)
  81. )
  82.  
  83. (complete 5)
  84.  
  85. (makedir (tackon @default-dest "data")
  86.  (prompt #create-dir)
  87. )
  88.  
  89. (copyfiles
  90.     (prompt    #inst-data)
  91.     (help    @copyfiles-help)
  92.     (source "data")
  93.     (dest    (tackon @default-dest "data"))
  94.        (pattern "#?")
  95.        (optional "force" "askuser")
  96.        (confirm "EXPERT")
  97.        (files)
  98. )
  99.  
  100. (complete 80)
  101.  
  102. (makedir (tackon @default-dest "showguru")
  103.  (prompt #create-dir)
  104. )
  105.  
  106. (copyfiles
  107.     (prompt    #inst-showguru)
  108.     (help    @copyfiles-help)
  109.     (source "showguru")
  110.     (dest    (tackon @default-dest "showguru"))
  111.        (pattern "#?")
  112.        (optional "force" "askuser")
  113.        (confirm "EXPERT")
  114.        (files)
  115. )
  116.  
  117. (complete 90)
  118.  
  119. (copyfiles
  120.     (prompt    #inst-Gurus97.html)
  121.     (help    @copyfiles-Gurus97.html)
  122.     (source "Gurus97.html")
  123.     (dest    @default-dest)
  124.        (pattern "#?")
  125.        (optional "force" "askuser")
  126.        (confirm "EXPERT")
  127.        (files)
  128. )
  129.  
  130. (complete 95)
  131.  
  132. (copyfiles
  133.     (prompt    #inst-fonts)
  134.     (help    @copyfiles-help)
  135.     (source "data/fonts/")
  136.     (dest    "Fonts:")
  137.        (pattern "#?")
  138.        (optional "force" "askuser")
  139.        (confirm "EXPERT")
  140. )
  141. (complete 100)
  142.  
  143. ;**************************************************
  144.  
  145. (set #Loadpath (getassign "Work" "dva"))
  146.   (if (= #Loadpath "")
  147.     (tooltype
  148.     (prompt "Set Tooltype")
  149.     (help @askchoice-help)
  150.     (dest (tackon @default-dest "Gurus97"))
  151.         (confirm "EXPERT")
  152.         (optional "force" "askuser")
  153.     (settooltype "LOADDIR" "SYS:")
  154.   ))
  155.  
  156. (EXIT #exit-Msg )
  157.