home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / cdrom / groovyplayer / groovy_install_m < prev    next >
Text File  |  1997-02-19  |  8KB  |  232 lines
  1. ;*******************************************************
  2. ;*    $VER: GroovyPlayer Install 1.08 (19.02.97)       *
  3. ;*               Copyright ©1996 Alan                  *
  4. ;*           Install script by Stef & Alan             *
  5. ;*                                                     *
  6. ;*              Hungarian version V1.08                *
  7. ;*                                                     *
  8. ;*******************************************************
  9. ;* Magyar szövegek  *
  10. ;********************
  11. ((if @language "magyar")
  12.         (set @default-dest "SYS:")
  13.         (set #echotxt "echo \"Telepítek...\"\n" )
  14.  
  15.  
  16.  
  17.         (complete 0)
  18. ;************************
  19. ;The text message area                       
  20. ;************************
  21.         (set #Intro-Txt
  22.             (cat "Üdvözöllek a GroovyPlayer telepítõ programjában.\n\n"
  23.             "\n"
  24.             "Köszönöm, hogy regisztráltad a programomat!\n"
  25.                 "Használata remélem, sok örömet szerez majd.\n\n\n\n"
  26.             "                                          Alan\n"
  27.             )
  28.         )
  29.         (set #Guide-Txt
  30.                 (cat "\n\nÉrdemes elolvasnod az AmigaGuide dokumentációt,\n"
  31.                 "ami különösen kezdõ felhasználók számára hasznos, bár azt\n"
  32.                 "hiszem, mindenki könnyebben eligazodik a funkciók között,\n"
  33.                 "ha már elolvasta a dokumentációt."
  34.                 )
  35.         )
  36.         (set #Warning-Txt
  37.             (cat "FIGYELEM!\n\n\n"
  38.             "A telepítéshez 0.5 Mbyte üres helyre van szükség a\n"
  39.                 "winchesteren, valamint 250Kbyte szabad memóriára\n"
  40.             "(Ha szükséges, a kiszemelt partícióról törölj le\n"
  41.                 "egy-két file-t, és lesz hely a GroovyPlayer-nek).\n"
  42.             )
  43.         )
  44.         (set #Path-Txt
  45.             (cat "Válaszd ki a célkönyvtárat!\n\n"
  46.             "Ide készíteni fogok egy 'GroovyPlayer' nevû alkönyvtárat.\n"
  47.             )
  48.         )
  49.         (set #Decrunch-Txt
  50.             (cat "Kisûrítem a CD-katalógust a RAM: egységre. \n\n"
  51.             "Ebben a katalógusban 816 különbözõ stílusú CD számai\n"
  52.                 "szerepelnek a reggae-tõl a rock-ig, sõt, még néhány\n"
  53.                 "Aminet CD is. Ezeket a CD-ket a program behelyezés után\n"
  54.                 "automatikusan felismeri.\n"
  55.                 )
  56.         )
  57. ;************************
  58. ; End text message area
  59. ;************************
  60.         (message #Intro-Txt)
  61.  
  62.         (message #Warning-Txt)
  63.             (set target_dir
  64.         (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  65.             )
  66.         )
  67.         ;Making the directories
  68.         (set directory_name (substr target_dir (- (strlen target_dir) 1) 1))
  69.         (set Groovy_dir (tackon target_dir "GroovyPlayer"))
  70.              (if (NOT (exists Groovy_dir))
  71.                  (makedir Groovy_dir))
  72.         (set doc_dir (cat Groovy_dir "/Doc"))
  73.              (if (NOT (exists Doc_dir))
  74.                  (makedir Doc_dir))
  75.         (complete 10)
  76. ;*************************************************
  77. ; Copy the guide files to destdir/GroovyPlayer/doc
  78. ;*************************************************
  79.         (message #Guide-Txt)
  80.         (set @default-dest target_dir)
  81.                 (copyfiles
  82.                         (prompt "\nA GroovyPlayer angol nyelvû dokumentációját másolom...")
  83.                         (help @copy-files-help)
  84.                         (source "GroovyPlayer_E.guide")
  85.                         (dest doc_dir)
  86.                         (confirm)
  87.                 )
  88.  
  89.         (set @default-dest target_dir)
  90.                 (copyfiles
  91.                         (prompt "\nA GroovyPlayer magyar nyelvû dokumentációját másolom...")
  92.                         (help @copy-files-help)
  93.                         (source "GroovyPlayer_M.guide")
  94.                         (dest doc_dir)
  95.                         (confirm)
  96.                 )
  97.         (complete 20)
  98. ;***************************************
  99. ; Copy GroovyPlayer fonts to FONTS:
  100. ;***************************************
  101.         (
  102.             (copyfiles
  103.                         (prompt "\nA GroovyPlayer betûkészleteit másolom a FONTS: egységre...")
  104.                 (help @copyfiles-help)
  105.                 (source "Fonts/")
  106.                 (dest "FONTS:")
  107.                         (pattern "#?")
  108.                 (confirm)
  109.             )
  110.         )
  111.         (complete 30)
  112. ;***************************************
  113. ; Copy GroovyPlayer locale to LOCALE:
  114. ;***************************************
  115.         (
  116.             (copyfiles
  117.                         (prompt "\nA GroovyPlayer katalógusait másolom a LOCALE: egységre...")
  118.                 (help @copyfiles-help)
  119.                 (source "Locale/")
  120.                 (dest "LOCALE:")
  121.                         (pattern "#?")
  122.                 (confirm)
  123.             )
  124.         )
  125.         (complete 35)
  126. ;******************************************
  127. ; Install GroovyPlayer main program
  128. ;******************************************
  129.         (
  130.             (copyfiles
  131.                         (prompt "\nA GroovyPlayer-t másolom a célkönyvtárba...")
  132.                 (help @copyfiles-help)
  133.                 (source "GroovyPlayer")
  134.                 (dest Groovy_dir)
  135.                 (confirm)
  136.             )
  137.         )
  138.         (complete 40)
  139. ;******************************************
  140. ; Install GroovyPlayer.info
  141. ;******************************************
  142.         (
  143.             (copyfiles
  144.                         (prompt "\nA GroovyPlayer ikonját másolom a célkönyvtárba...")
  145.                 (help @copyfiles-help)
  146.                 (source "GroovyPlayer.info")
  147.                 (dest Groovy_dir)
  148.                 (confirm)
  149.             )
  150.         )
  151.         (complete 45)
  152. ;**********************************
  153. ; Install iconify icon
  154. ;**********************************
  155.         (
  156.             (copyfiles
  157.                         (prompt "\nA GroovyPlayer appikonját másolom az ENVARC: egységre...")
  158.                 (help @copyfiles-help)
  159.                 (source "envarc/")
  160.                 (dest "ENVARC:")
  161.                 (pattern "#?")
  162.                 (confirm)
  163.             )
  164.         )
  165.         (run (cat "resident" c:delete))
  166.         (complete 50)
  167. ;***********************
  168. ; Decrunch CD Titles.lzx
  169. ;***********************
  170.  
  171.         (message #Decrunch-Txt)
  172.  
  173.         (
  174.             (copyfiles
  175.                 (source "CDTitles.lzx")
  176.                 (dest "RAM:")
  177.                 (pattern "#?")
  178.             )
  179.         )
  180.         (set decrunch "SYS:C/LZX >CON:0/0/320/60/LZX/AUTO x RAM:CDTitles.lzx #? ")
  181.         (set decrunch (cat decrunch Groovy_dir))
  182.         (set decrunch (cat decrunch "/"))
  183.         (run decrunch)
  184.         (complete 80)
  185. ;**********************************************
  186. ; Copy RAM:CD Titles directory to destination
  187. ;**********************************************
  188.         (
  189.             (copyfiles
  190.                         (prompt "\nA CD-katalógust másolom...")
  191.                 (help @copyfiles-help)
  192.                 (source "RAM:")
  193.                 (dest Groovy_dir)
  194.                 (pattern "CD#?")
  195.                 (confirm)
  196.             )
  197. ;       )
  198. ;       (complete 90)
  199. ;        (message "\nEgy kis meglepetés...")
  200. ;        (run "assign GPSHOW: Presentation")
  201. ;        (run "ScalaMMPlayer GroovyPlayerDemo_M.script")
  202. ;        (run "assign GPSHOW: remove")
  203. ;       (
  204.     (set doc1 (askchoice
  205.                 (prompt "Milyen nyelven szeretnéd most elolvasni a dokumentációt?")
  206.                 (help @askchoice-help)
  207.                 (choices "Magyarul" "Angolul" "Ma nem olvasok többet :-)")
  208.                 (default 0)
  209.  
  210.                   )
  211.         )
  212.  
  213. ;****************************
  214. ; Let the user read a guide file
  215. ;****************************
  216.          (if (= doc1 0)
  217.                  (run ("SYS:Utilities/MultiView GroovyPlayer_M.guide"))
  218.  
  219.          )
  220.          (if (= doc1 1)
  221.                  (run ("SYS:Utilities/MultiView GroovyPlayer_E.guide"))
  222.  
  223.          )
  224.         )
  225. ;****************************
  226. ; Delete decrunched directory
  227. ;****************************
  228.  (run ("c:delete ram:CDTitles.lzx noreq"))
  229. )
  230.         (complete 100)
  231. (exit)
  232.