home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / misc / objectview / installov next >
Text File  |  1996-11-07  |  8KB  |  217 lines
  1. ;$VER: ObjectView.install V1.0 (12.7.96)
  2. ;(c) 1996 by Matthias Kraft
  3.  
  4. ;set stringvariables
  5. (if (= @language "deutsch")
  6.  (
  7.   (set #catlist 0)
  8.   (set #minkick "ObjectView benötigt OS3.0 oder besser!")
  9.   (set #infomsg "Willkommen bei ObjectView V2.10!\n\nDas Script installiert ObjectView, ObjectView.guide, OVPrefs und die Sprachkataloge, es ermittelt die CPU und wählt automatisch die zu installierende Programmversion.")
  10.   (set #prompt1 "Wohin soll ObjectView installiert werden?")
  11.   (set #prompt2 "Wohin soll die Anleitung installiert werden?")
  12.   (set #prompt3 "Wohin soll OVPrefs installiert werden?")
  13.   (set #prompt4 "Welche Sprache soll installiert werden?")
  14.   (set #prompt5 "Kopiere %s ...")
  15.   (set #byebye  "ObjectView befindet sich in %s.\nObjectView.guide befindet sich in %s.\nOVPrefs befindet sich in %s.\nInstallierte Sprache: %s.\n\nBitte lesen Sie die Anleitung!")
  16.  )
  17. )
  18. ;© of translation: ATO / Nicholas Stallard
  19. (if (= @language "english")
  20.  (
  21.   (set #catlist 1)
  22.   (set #minkick "ObjectView requires OS3.0 or better")
  23.   (set #infomsg "Welcome to ObjectView V2.10!\n\nThis script will install ObjectView, ObjectView.guide, OVPrefs and the corresponding language, it will recognize the CPU used and will automatically select the proper version.")
  24.   (set #prompt1 "In which drawer do you want ObjectView installed?")
  25.   (set #prompt2 "In which drawer do you want the instructions installed?")
  26.   (set #prompt3 "Where should OVPrefs be installed?")
  27.   (set #prompt4 "What language do you want?")
  28.   (set #prompt5 "Copying %s ...")
  29.   (set #byebye  "ObjectView resides in %s.\nObjectView.guide resides in %s.\nOVPrefs resides %s.\nInstalled language: %s.\n\nPlease read the instructions!")
  30.  )
  31. )                                           
  32. ;© of translation: ATO / Paweî Soîtysiïski
  33. (if (= @language "polski")
  34.  (
  35.   (set #catlist 2)
  36.   (set #minkick "ObjectView wymaga przynajmniej OS3.0!")
  37.   (set #infomsg "Witamy w ObjectView V2.10!\n\nTen skrypt zainstaluje ObjectView, ObjectView.guide, OVPrefs, odpowiednie wersje jëzykowe. Procesor Twojej Amigi zostanie automatycznie rozpoznany w celu zainstalowania wîaôciwej wersji oprogramowania.")
  38.   (set #prompt1 "W krórym katalogu chcesz zainstalowaê ObjectView?")
  39.   (set #prompt2 "W krórym katalogu chcesz zainstalowaê instrukcjë?")
  40.   (set #prompt3 "Gdzie chcesz zainstalowaê OVPrefs?")
  41.   (set #prompt4 "Którâ wersjë jëzykowâ chcesz zainstalowaê")
  42.   (set #prompt5 "Kopiujë %s ...")
  43.   (set #byebye  "ObjectView znajduje sië teraz w %s.\nObjectView.guide znajduje sië teraz w %s.\nOVPrefs znajdujâ sië teraz w %s.\nWybrany jëzyk : %s.\n\nPrzeczytaj instrukcjë!")
  44.  )
  45. )                                           
  46. ;© of translation: ATO / Kristoffer Larsson & Stefan Brodin
  47. (if (= @language "svenska")
  48.  (
  49.   (set #catlist 3)
  50.   (set #minkick "ObjectView kräver OS3.0 eller högre!")
  51.   (set #infomsg "Välkommen till ObjectView V2.10!\n\nDetta skript kommer att installera ObjectView, ObjectView.guide, OVPrefs och det språk du vill använda. Det kommer också att känna av vilken CPU som används och automatiskt välja den rätta versionen av programmet.")
  52.   (set #prompt1 "I vilken låda vill du installera ObjectView?")
  53.   (set #prompt2 "I vilken låda vill du installera dokumentationen?")
  54.   (set #prompt3 "Var skall OVPrefs installeras?")
  55.   (set #prompt4 "Vilket språk vill du använda?")
  56.   (set #prompt5 "Kopierar %s ...")
  57.   (set #byebye  "ObjectView ligger i %s.\nObjectView.guide ligger i %s.\nOVPrefs ligger i %s.\nInstallerat språk: %s.\n\nLäs dokumentationen!")
  58.  )
  59. )
  60. ;© of translation: ATO Greek Dept. Pantelis Kopelias, Proofreading: Manos Konstantiniadis
  61. (if (= @language "greek")
  62.  (
  63.   (set #catlist 4)
  64.   (set #minkick "Ôï ObjectView ÷ñåéÜæåôáé OS3.0 Þ íåüôåñï")
  65.   (set #infomsg "ÊáëùóÞñèáôå óôï ObjectView V2.10!\n\nÁõôü ôï ðñüãñáììá èá åãêáôáóôÞóåé ôá ObjectView, ObjectView.guide, OVPrefs êáé ôçí ãëþóóá, èá áíáãíùñßóåé ôçí CPU êáé èá åðéëÝîåé áõôüìáôá ôçí êáôÜëëçëç Ýêäïóç.")
  66.   (set #prompt1 "Óå ðïéü óõñôÜñé èÝëåôå íá åãêáôáóôáèåß ôï ObjectView ;")
  67.   (set #prompt2 "Óå ðïéü óõñôÜñé èÝëåôå íá åãêáôáóôáèïýí ïé ïäçãßåò ;")
  68.   (set #prompt3 "Ðïý èÝëåôå íá åãêáôáóôáèåß ôï OVPrefs ;")
  69.   (set #prompt4 "ÐïéÜ ãëþóóá èá èÝëáôå ;")
  70.   (set #prompt5 "ÁíôéãñáöÞ %s ...")
  71.   (set #byebye  "Ôï ObjectView âñßóêåôáé ôþñá óôï %s.\nÔï ObjectView.guide âñßóêåôáé ôþñá óôï %s.\nÔï OVPrefs âñßóêåôáé ôþñá óôï %s.\nÅãêáôåóôçìÝíç ãëþóóá: %s.\n\nÐáñáêáëþ äéáâÜóôå ôéò ïäçãßåò!")
  72.  )
  73. )                                           
  74. ;© van vertaling: ATO / Ji Yong Dijkhuis
  75. (if (= @language "nederlands")
  76.  (
  77.   (set #catlist 5)
  78.   (set #minkick "ObjectView heeft OS3.0 of hoger nodig")
  79.   (set #infomsg "Welkom bij ObjectView V2.10!\n\nDit script zal ObjectView , ObjectView.guide, OVPrefs en de corresponderende taal installeren, het zal de gebruikte CPU herkennen en zal automatisch de geschikte versie selecteren.")
  80.   (set #prompt1 "In welke lade wilt u ObjectView installeren?")
  81.   (set #prompt2 "In welke lade wilt u de Instructies installeren?")
  82.   (set #prompt3 "Waar moet OVPrefs geïnstalleerd worden?")
  83.   (set #prompt4 "Welke taal wilt u?")
  84.   (set #prompt5 "%s kopiëren ...")
  85.   (set #byebye  "ObjectView is geplaatst in %s.\nObjectView.guide is geplaatst in %s.\nOVPrefs is geplaatst in %s.\nGeïnstalleerde taal: %s.\n\nLees a.u.b. de instructies!")
  86.  )
  87. )                                           
  88.  
  89. ;script starts here-------------------------------------------------------
  90. (complete 0)
  91.  
  92. ;check kickversion, we need OS3.0+
  93. (if (< (/ (getversion) 65536) 39)
  94.  (exit #minkick)
  95. )
  96.  
  97. ;say 'hallo' ;-)...
  98. (complete 10)
  99. (message #infomsg)
  100.  
  101. ;check CPU
  102. (if
  103.  (not (patmatch "68000|68010" (database "cpu")))
  104.  (set #progname "ObjectView.020")
  105.  (set #progname "ObjectView")
  106. )
  107.  
  108. ;get dir where to install OV, def: SYS:Utilities
  109. (complete 20)
  110. (set #ovdir
  111.  (askdir
  112.   (default "SYS:Utilities")
  113.   (prompt #prompt1)
  114.   (help @askdir-help)
  115.  )
  116. )
  117.  
  118. ;get dir where to install OV.guide, def: like dir of OV
  119. (complete 30)
  120. (set #docdir
  121.  (askdir
  122.   (default #ovdir)
  123.   (prompt #prompt2)
  124.   (help @askdir-help)
  125.  )
  126. )
  127.  
  128. ;get dir where to install OVPrefs, def: SYS:Prefs
  129. (complete 40)
  130. (set #ovpdir
  131.  (askdir
  132.   (default "SYS:Prefs")
  133.   (prompt #prompt3)
  134.   (help @askdir-help)
  135.  )
  136. )
  137.  
  138. ;ask user about the language to install
  139. (complete 50)
  140. (set #catlist
  141.  (askchoice
  142.   (choices "deutsch" "english" "polski" "svenska" "greek" "nederlands")
  143.   (prompt #prompt4)
  144.   (default #catlist)
  145.   (help @askchoice-help)
  146.  )
  147. )
  148.  
  149. (if (= #catlist 0) (set #langdir "deutsch"))
  150. (if (= #catlist 1) (set #langdir "english"))
  151. (if (= #catlist 2) (set #langdir "polski"))
  152. (if (= #catlist 3) (set #langdir "svenska"))
  153. (if (= #catlist 4) (set #langdir "greek"))
  154. (if (= #catlist 5) (set #langdir "nederlands"))
  155.  
  156. ;copy (and rename) OV to selected dir
  157. (complete 60)
  158. (copyfiles
  159.  (prompt #prompt5 "ObjectView")
  160.  (source #progname)
  161.  (newname "ObjectView")
  162.  (dest #ovdir)
  163.  (infos)
  164.  (noposition)
  165. )
  166.  
  167. ;check if language/OV.guide is available and copy it, else copy the english one
  168. (complete 70)
  169. (if
  170.  (exists (tackon #langdir "ObjectView.guide") (noreq))
  171.  (copyfiles
  172.   (prompt #prompt5 "ObjectView.guide")
  173.   (source (tackon #langdir "ObjectView.guide"))
  174.   (dest #docdir)
  175.   (infos)
  176.   (noposition)
  177.  )
  178.  (copyfiles
  179.   (prompt #prompt5 "english/ObjectView.guide")
  180.   (source "english/ObjectView.guide")
  181.   (dest #docdir)
  182.   (infos)
  183.   (noposition)
  184.  )
  185. )
  186.  
  187. ;copy OVPrefs
  188. (complete 80)
  189. (copyfiles
  190.  (prompt #prompt5 "OVPrefs")
  191.  (source "OVPrefs")
  192.  (dest #ovpdir)
  193.  (infos)
  194.  (noposition)
  195. )
  196.  
  197. ;check if language/(OV.cat|OVP.cat) available and copy, else do nothing
  198. (complete 90)
  199. (if
  200.  (exists (tackon #langdir "ObjectView.catalog") (noreq))
  201.  (if
  202.   (exists (tackon #langdir "OVPrefs.catalog") (noreq))
  203.   (copyfiles
  204.    (prompt #prompt5 "ObjectView.catalog & OVPrefs.catalog")
  205.    (source #langdir)
  206.    (dest (tackon "Locale:Catalogs" #langdir))
  207.    (choices "ObjectView.catalog" "OVPrefs.catalog")
  208.    (noposition)
  209.   )
  210.  )
  211. )
  212.  
  213. ;say 'good bye' ;-)...
  214. (complete 100)
  215. (set @default-dest #ovdir)
  216. (exit (#byebye #ovdir #docdir #ovpdir #langdir ))
  217.