home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / gurus98 / install < prev    next >
Encoding:
Text File  |  1998-01-31  |  2.7 KB  |  146 lines
  1. ; $VER: Install Gurus98
  2. ; © by Demon 1998
  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 Gurus98 - Installer.\n\n"
  13.     "Dieses Programm installiert Gurus98 auf deinem Rechner.\n\n\n"
  14.     "Gurus98  © by Demon 1998."
  15.   ))
  16.  
  17. (set #choose-text
  18.  (cat "Wähle das Verzeichnis wohin Gurus98 installiert werden soll. Ein Verzeichnis namens Gurus98 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 #exit-Msg
  26.   (CAT "\n\nViel Spaß mit Gurus98\n\n wünscht\n\n"
  27.                    "Heiko Gyrok"
  28.   ))
  29. ))
  30.  
  31. ;**************************************************
  32.  
  33. (message #welcome)
  34.  
  35. (welcome)
  36.  
  37. (set @default-dest (getassign "Work" "dva"))
  38.   (if (= @default-dest "")
  39.    (set @default-dest "SYS:"))
  40.   
  41. (set @default-dest (askdir
  42.     (prompt #choose-text)
  43.     (help #choose-help)
  44.     (default @default-dest))
  45.   ) 
  46.  
  47. (copyfiles (source ".inf") (dest @default-dest) (newname "Gurus98.info") (optional "nofail") )
  48.  
  49. (makedir @default-dest (prompt #create-maindir))
  50.   
  51. (set @default-dest (tackon @default-dest "Gurus98"))
  52.  
  53. ;**************************************************
  54.  
  55. (copyfiles
  56.     (prompt "Installiere Gurus98")
  57.     (help    @copyfiles-help)
  58.     (source "Gurus98")
  59.     (dest    @default-dest)
  60.    (infos)
  61. )
  62.  
  63. (run "run data/showiff Preview")
  64.  
  65. (set #GURUS
  66.     (askchoice
  67.     (prompt "Wähle deine persönliche Gurus98 - Variante")
  68.     (help (cat @askchoice-help))
  69.     (default 0)
  70.     (choices
  71.         "#1: Original"
  72.         "#2: Variante 2"
  73.         "#3: Variante 3"
  74.         )
  75.     )
  76. )
  77.  
  78. (complete 2)
  79.  
  80. (if (= #GURUS 1) (copyfiles (source "gurus98.2") (dest @default-dest) (newname
  81. "Gurus98") (optional "nofail")) )
  82. (if (= #GURUS 2) (copyfiles (source "gurus98.3") (dest @default-dest) (newname
  83. "Gurus98") (optional "nofail")) )
  84.  
  85. ;**************************************************
  86.  
  87. (copyfiles
  88.     (source "Lies_Mich")
  89.     (dest    @default-dest)
  90.       (infos)
  91. )
  92.  
  93. (complete 5)
  94.  
  95. (copyfiles
  96.     (source "data")
  97.     (dest    (tackon @default-dest "data"))
  98.        (pattern "#?")
  99. )
  100.  
  101. (complete 80)
  102.  
  103. (copyfiles
  104.     (source "Gurus98.html")
  105.     (dest    @default-dest)
  106.       (infos)
  107. )
  108.  
  109. (complete 85)
  110.  
  111. (copyfiles
  112.       (source "html")
  113.    (dest    (tackon @default-dest "html"))
  114.        (pattern "#?")
  115. )
  116.  
  117. (complete 95)
  118.  
  119. (copyfiles
  120.     (prompt "Installiere Font")
  121.     (help    @copyfiles-help)
  122.     (source "fonts/")
  123.     (dest    "Fonts:")
  124.        (pattern "#?")
  125.        (optional "force" "askuser")
  126.        (confirm "EXPERT")
  127. )
  128. (complete 100)
  129.  
  130. (run "run data/showiff Kiss.pic")
  131.  
  132. ;**************************************************
  133.  
  134. (set #Loadpath (getassign "Work" "dva"))
  135.   (if (= #Loadpath "")
  136.     (tooltype
  137.     (prompt "Set Tooltype")
  138.     (help @askchoice-help)
  139.     (dest (tackon @default-dest "Gurus98"))
  140.         (confirm "EXPERT")
  141.         (optional "force" "askuser")
  142.     (settooltype "LOADDIR" "SYS:")
  143.   ))
  144.  
  145. (EXIT #exit-Msg )
  146.