home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / varie / tboldemo / installa < prev    next >
Encoding:
Text File  |  2000-02-08  |  1.6 KB  |  61 lines
  1. ;
  2. ; $VER: Script di Installazione di TurboBolle v1.2.0 (c) David Lo Buglio (8.2.00)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS  "TurboBolle necessita dell'OS2.0 o superiore\n")
  7. (set #TGest_dir       (cat "Scegli il cassetto o la partizione\n"
  8.                            "dove installare il cassetto TGest.\n\n"
  9.                            "Se il cassetto esiste già, allora seleziona\n"
  10.                            "il cassetto o la partizione che lo contiene\n"))
  11.  
  12. (set #done (cat "\nTurboBolle è stato installato con successo.\n\n"))
  13.  
  14. (set OS_ver (getversion "exec.library" (resident)))
  15. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  16.  
  17. (complete 0)
  18.  
  19. (set TGest_def_dir @default-dest)
  20.  
  21. (set TGest_dir
  22.         (askdir
  23.                 (default TGest_def_dir)
  24.                 (prompt  #TGest_dir)
  25.                 (help    @askdir-help)
  26.         )
  27. )
  28. (complete 10)
  29.  
  30. (set TGest_dir (tackon TGest_dir "TGest"))
  31.  
  32. (if (not (exists TGest_dir))
  33.         (makedir TGest_dir (infos))
  34. )
  35.  
  36. (if (NOT (exists (tackon TGest_dir "Doc")))
  37.    (
  38.       (makedir (tackon TGest_dir "Doc") (infos))
  39.    )
  40. )
  41. (complete 20)
  42.  
  43. (set Doc_dir (tackon TGest_dir "Doc"))
  44.  
  45. (copyfiles (source "TBolDEMO")          (dest TGest_dir) (infos) (help @copyfiles-help))
  46. (complete 70)
  47.  
  48. (copyfiles (source "Doc/ShowSystem")    (dest Doc_dir) (infos) (help @copyfiles-help))
  49. (copyfiles (source "Doc/BugReport.txt") (dest Doc_dir) (infos) (help @copyfiles-help))
  50. (complete 80)
  51.  
  52. (copyfiles (source "Doc/TBol_man")      (dest Doc_dir) (infos) (help @copyfiles-help))
  53. (complete 90)
  54.  
  55. (copyfiles (source "Doc/TBol_Storico")  (dest Doc_dir) (infos) (help @copyfiles-help))
  56. (complete 100)
  57.  
  58. (message #done "\"" TGest_dir "\"")
  59.  
  60. (exit (QUIET))
  61.