home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / varie / lotto / install next >
Text File  |  2000-06-05  |  1KB  |  50 lines
  1. ; $VER: Install-Lotto v2.0 (27.05.00)
  2. ; Geschrieben von Mario Qualmann
  3.  
  4. (set #welcome "\nHerzlich willkommen bei Lotto!\n© 1999-2000 by MAQ (Mario Qualmann)\n\nDie aktuellste Version finden Sie immer im Aminet oder auf meiner Homepage:\n\http://home.t-online.de/home/MQualmann/\n")
  5. (set #endmsgs "Lotto wurde erfolgreich auf Ihrem System installiert.\n\nViel Spaß beim Benutzen und viel Glück beim Tippen! ;-)\n")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; Zielverzeichnis erstellen
  12.  
  13. (set destination
  14.     (askdir (prompt "Bitte wählen Sie ein Ziellaufwerk/-schublade für Lotto aus.\nEin Verzeichnis \"Lotto\" wird automatisch erstellt.")
  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 "Lotto"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.     (message "Es befindet sich bereits ein Lotto-Verzeichnis im angegebenen Pfad.\nEs wird umbenannt in Lotto.bak, Sie können es später löschen.")
  28.     (run (cat "rename \"" destination "\" \"" destination ".bak\""))
  29.     (run (cat "delete \"" destination ".info\" >nil:"))
  30. ))
  31.  
  32. (makedir destination)
  33. (run (cat "copy " "/Lotto.info \"" destination ".info\""))
  34.  
  35. (complete 50)
  36.  
  37. ; Hauptprogramm kopieren
  38.  
  39. (copyfiles
  40.         (prompt "Kopiere ...")
  41.         (source "")
  42.         (pattern "#?")
  43.         (dest destination)
  44.         (help @copyfiles-help)
  45. )
  46.  
  47. (complete 100)
  48. (message #endmsgs)
  49. (exit)
  50.