home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / fish / 911-930 / ff921 / capshift / install / english next >
Text File  |  1994-05-04  |  2KB  |  87 lines
  1. ; Installation program for the Commodore's Installer utility
  2.  
  3. (set local-help (cat "If you choose \"Yes\" you can have CapShift send its"
  4.                      " messages in italian.\nIf you choose \"No\", CapShift will"
  5.                      " only run in english.\nNote that if your system language"
  6.                      " is not set to 'italiano' you will still see all the "
  7.                      "messages in english"))
  8.  
  9. (complete 0)
  10.  
  11. (set name
  12.     (askdir
  13.         (prompt "Where do you want to install CapShift ?")
  14.         (help @askdir-help)
  15.         (default "SYS:WBStartup")
  16.     )
  17. )
  18.  
  19. (set @default-dest name)
  20.  
  21. (set vernum (/ (getversion) 65536))   ; se version >37: c'è localizzazione
  22.  
  23. (if (> vernum 37)
  24.     (set local
  25.         (askbool
  26.             (prompt "Do you want to install the support file for the italian language ?")
  27.             (help local-help)
  28.             (default 0)
  29.         )
  30.     )
  31.     (set local 0)
  32. )
  33.  
  34. (if local
  35.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  36.         (set sysdest
  37.             (askchoice
  38.                 (prompt "Where do you want to install the localization file ?")
  39.                 (help @askchoice-help)
  40.                 (choices "in the same drawer as CapShift" "in LOCALE:")
  41.                 (default 1)
  42.             )
  43.         )
  44.         (if (= name "SYS:WBStartup")
  45.             (set sysdest 1)
  46.             (set sysdest 0)
  47.         )
  48.     )
  49. )
  50.  
  51. (if (not (exists "LOCALE:catalogs/italiano"))
  52.     (set sysdest 0)
  53. )
  54.  
  55. (complete 50)
  56.  
  57. (copyfiles
  58.     (infos)
  59.     (source "/CapShift")
  60.     (dest name)
  61. )
  62.  
  63. (tooltype
  64.     (dest (tackon name "CapShift"))
  65.     (noposition)
  66. )
  67.  
  68. (complete 80)
  69.  
  70. (if local
  71.      (if sysdest
  72.         (copyfiles
  73.             (source "/catalogs/italiano/CapShift.catalog")
  74.             (dest "LOCALE:catalogs/italiano")
  75.         )
  76.         (
  77.             (makedir (tackon name "catalogs"))
  78.             (copyfiles
  79.                 (source "/catalogs/italiano/CapShift.catalog")
  80.                 (dest (tackon name "catalogs/italiano"))
  81.             )
  82.         )
  83.     )
  84. )
  85.  
  86. (complete 100)
  87.