home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Utilities / Gurus2000 / Install < prev    next >
Text File  |  2000-08-01  |  2KB  |  83 lines
  1. ; $VER: Install Gurus2000
  2. ; © by Demon 2000
  3.  
  4. (complete 0)
  5.  
  6. (set #Language (askchoice (prompt "Gurus2000") (help (cat @askchoice-help))
  7. (default 0) (choices "Deutsch" "English")) )
  8.  
  9. (if (= #language 0)
  10. ((set #welcome
  11. (cat "\n\n\nHerzlich willkommen beim Gurus2000 - Installer\n\n"
  12. "Dieser Installer installiert Gurus2000 auf deinen Amiga\n\n"
  13. "(Bitte alte Version vorher löschen)\n\n\n"
  14. "Gurus2000  © by Demon 2000"))
  15. (set #choose-text
  16. (cat "Wähle das Verzeichnis wohin Gurus2000 installiert werden soll. Ein Verzeichnis namens Gurus2000 wird dort angelegt."))
  17. (set #choose-pic
  18. (cat "Wähle deinen liebsten Bildanzeiger:"))
  19. (set #exit
  20. (cat "\n\nViel Spaß mit Gurus2000")) ))
  21.  
  22. (if (= #language 1)
  23. ((set #welcome
  24. (cat "\n\n\nWelcome to the Gurus2000 - installer\n\n"
  25. "This installer will install Gurus2000 on your Amiga\n\n"
  26. "(Please delete previous version)\n\n\n"
  27. "Gurus2000  © by Demon 2000"))
  28. (set #choose-text
  29. (cat "Choose the destination drawer for the Gurus2000 archive. A directory called Gurus2000 will be created there."))
  30. (set #choose-pic
  31. (cat "Choose your favourite picture viewer:"))
  32. (set #exit
  33. (cat "\n\nHave fun with Gurus2000")) ))
  34.  
  35. ;----------------------------------------
  36.  
  37. (message #welcome)
  38.  
  39. (welcome)
  40.  
  41. (set @default "SYS:")
  42. (set @default (askdir (prompt #choose-text) (help (cat @askdir-help)) (default @default)) )
  43.  
  44. (complete 1)
  45.  
  46. ;----------------------------------------
  47.  
  48. (copyfiles (source ".inf") (dest @default) (newname "Gurus2000.info"))
  49.  
  50. (makedir @default)
  51.  
  52. (set @default (tackon @default "Gurus2000"))
  53.  
  54. (complete 2)
  55.  
  56. ;----------------------------------------
  57.  
  58. (if (= #Language 0)
  59. ((copyfiles (source "deutsch") (dest @default) (pattern "#?")) ))
  60.  
  61. (if (= #Language 1)
  62. ((copyfiles (source "english") (dest @default) (pattern "#?")) ))
  63.  
  64. (complete 80)
  65.  
  66. ;----------------------------------------
  67.  
  68. (copyfiles (source "!") (dest @default) (pattern "#?"))
  69.  
  70. (complete 98)
  71.  
  72. ;----------------------------------------
  73.  
  74. (set @pic (askfile (prompt #choose-pic) (help (cat @askfile-help)) (default "c:")) )
  75.  
  76. (copyfiles (source @pic) (dest (tackon @default "data/")) (newname "V"))
  77.  
  78. (complete 100)
  79.  
  80. ;----------------------------------------
  81.  
  82. (EXIT #exit (quiet))
  83.