home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1997 December / Hrac_16_1997-12_cd.bin / __DAT__ / S.S < prev    next >
Text File  |  1997-04-02  |  7KB  |  359 lines
  1. ; HRAC CD ....
  2. ; HRAC CD ....
  3. ; HRAC CD ....
  4. ; HRAC CD ....
  5. ; HRAC CD ....
  6. DestDir=c:\games\xeno\
  7. ; Total files in archive. CHANGE TO PROPER VALUE!
  8. files=1
  9. ; Disk space needed to extract files, bytes. CHANGE TO PROPER VALUE!
  10. diskneed=10000000
  11. ; Define filebar
  12. defbar BLACK,WHITE,WHITE,BLACK,14,7,52
  13. ; Print out the standard ansi comment ──────────────────────────────────────
  14. clrscr
  15. outtext ansi on
  16. RAR Installation SFX module
  17. Created by RAR 2.00
  18.  
  19. outtext ansi off
  20.  
  21.  
  22. ; Main background
  23. setcolor DARKGRAY,BLACK
  24. window 1,1,80,25
  25. clrscr 219
  26. ; Main window
  27. window 1,1,80,25
  28.  
  29.  
  30. window 1,1,80,25
  31. ; Bottom line
  32. setcolor LIGHTCYAN,DARKGRAY
  33. gotoxy 1,25
  34. text "                         Stlac F1 pre pomoc, ATL-X pre unik                     "
  35.  
  36. ; Shadow on the meadow
  37. setcolor DARKGRAY,BLACK
  38. window 25,17,56,17
  39. clrscr 177
  40. window 54,11,56,17
  41. clrscr 177
  42. window 1,1,80,25
  43.  
  44. ; Sound on the same meadow
  45. sound 90,1
  46.  
  47. ; Installation Menu:
  48.  
  49. Menu:
  50.  
  51. Choice = menu 25,10,BLACK,WHITE,1," Menu pre instalaciu","  Cesta pre instalaciu ","       Instaluj     ","        Koniec      "
  52.  
  53. if Choice == 0
  54.       goto Quit
  55. endif
  56.  
  57.  
  58.  
  59. if Choice == 1
  60.      savescr 1
  61.      setcolor WHITE,CYAN
  62.      window 11,10,67,15
  63.      clrscr
  64.      box 4,2,54,5,WHITE,CYAN,SINGLE
  65.      gotoxy 20,2
  66.      text " Cesta pre instalaciu "
  67.      window 15,12,63,13
  68.      clrscr
  69.      setcolor WHITE,CYAN
  70.      gotoxy 4,1
  71.      text "Zadaj cestu pre instalaciu"
  72.      window 18,13,60,13
  73.      Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
  74.      restscr 1
  75.      window 1,1,80,25
  76.      goto Menu
  77. endif
  78.  
  79. if Choice == 2
  80.   box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
  81.   setcolor LIGHTCYAN,BLUE
  82.   gotoxy 27,11
  83.   text " Priebeh instalacie: "
  84.   window 7,12,75,23
  85.   clrscr
  86. ; Check free space
  87.   DiskSpace=getdfree
  88.   KDiskSpace=DiskSpace/1024
  89.   KDiskNeed=diskneed/1024
  90.   text "Zacala instalacia.\n"
  91.   text "Potrebny priestor:  ",KDiskNeed," Kb\n"
  92.   text "Volny priestor: ",KDiskSpace," Kb\n"
  93.   inswrow=4
  94.   window 1,1,80,25
  95.  
  96.   if DiskSpace < diskneed
  97.           savescr 1
  98.           window 1,1,80,25
  99.           sound 2300,25
  100.           delay 100
  101.           sound 1450,25
  102.           delay 100
  103.           sound 2300,100
  104.           Choice = menu 24,16,WHITE,RED,1,"Niet dost priestoru na disku","Pokracovanie instalacie","Koniec"
  105.           if Choice == 0
  106.                goto Quit
  107.           endif
  108.           if Choice == 2
  109.                goto Quit
  110.           endif
  111.           restscr 1
  112.      endif
  113.      endif
  114. endif
  115.  
  116. if Choice == 3
  117. Quit:
  118.      setcolor WHITE,BLACK
  119.      clrscr
  120.      gotoxy 2,3
  121.      text "Este to nebolo rozbalene."
  122.      sound 380,25
  123.      delay 210
  124.      sound 190,25
  125.      exit 1
  126.      goto Menu
  127. endif
  128.  
  129. ; HERE INSTALLATION STARTS!
  130. ; ctext "Instalacia zacala."
  131.  
  132. proc OnKey
  133.      window 1,1,80,25
  134.      if Par1 == 3
  135.           savescr 15
  136.           Par1=-1
  137.           sound 2300,25
  138.           delay 100
  139.           sound 1450,100
  140.           Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break","  Koniec instalacie","Pokracuj v instalacii"
  141.           if Choice == 1
  142.                exit 1
  143.           endif
  144.           restscr 15
  145.      endif
  146.  
  147.      if Par1 == 301
  148.            goto Quit
  149.      endif
  150.  
  151.      if Par1 == 315
  152.           savescr 15
  153.           call OutHelp
  154.           Par1=-1
  155.           restscr 15
  156.      endif
  157. endp
  158.  
  159. proc ChangeVol
  160.  
  161.      window 7,12,75,23
  162.      setcolor YELLOW,BLUE
  163.      gotoxy 1,inswrow
  164.  
  165.      if Par2 == 0
  166.            text ".. VOLUME #",Par1," should be installed."
  167.            savescr 14
  168.            Par1=-1
  169.            sound 2300,25
  170.            delay 100
  171.            sound 1450,100
  172.            sound 5450,50
  173.            sound 7450,25
  174.            sound 1450,100
  175.  
  176.            Choice=Menu 22,11,WHITE,GREEN,1," Change volume ","   Process the next volume        ","         Exit immediately    "
  177.  
  178.            restscr 14
  179.  
  180.            if Choice == 2
  181.                  window 7,12,75,23
  182.                  inswrow=inswrow+1
  183.                  gotoxy 1,inswrow
  184.                  text " Volume not found. Exiting..          "
  185.                  exit 1
  186.  
  187.  
  188.            endif
  189.      endif
  190.  
  191.      if Par2 != 0
  192.            setcolor LIGHTCYAN,BLUE
  193.            text ".. VOLUME #",Par1," has been processed."
  194.      endif
  195.  
  196.      if inswrow = 12
  197.            text "\n"
  198.      endif
  199.  
  200.      if inswrow < 12
  201.            inswrow=inswrow+1
  202.      endif
  203.      window 1,1,80,25
  204. endp
  205.  
  206. proc FileDone
  207.      gotoxy 49,11
  208.      setcolor LIGHTCYAN,BLUE
  209.      Percent=Par1*100
  210.      Percent=Percent/files
  211. ;     text Percent,"%% "
  212.      window 7,12,75,23
  213.      setcolor LIGHTCYAN,BLUE
  214.      gotoxy 1,inswrow
  215.      text DestFileName
  216.      if inswrow = 12
  217.            text "\n"
  218.      endif
  219.      if inswrow < 12
  220.            inswrow=inswrow+1
  221.      endif
  222.      window 1,1,80,25
  223. endp
  224.  
  225. proc Error
  226.  
  227.      window 7,12,75,23
  228.      setcolor LIGHTCYAN,BLUE
  229.      gotoxy 1,inswrow
  230.  
  231.      Title="Error"
  232.  
  233.      ; Par1 is assigned with error code:
  234.  
  235.      if Par1 == 1
  236.            Message="Fatalna chyba"
  237.            call ErrMsg
  238.      endif
  239.  
  240.      if Par1 == 2
  241.            Message="CRC chyba, zly archiv"
  242.            call ErrMsg
  243.      endif
  244.  
  245.      if Par1 == 3
  246.            Message="Nedokazem zapisovat"
  247.            call ErrMsg
  248.      endif
  249.  
  250.      if Par1 == 4
  251.            Message="Nedokazem vytvorit subor"
  252.            call ErrMsg
  253.      endif
  254.  
  255.      if Par1 == 5
  256.            Message="Nedokazem citat"
  257.            call ErrMsg
  258.      endif
  259.  
  260.      if Par1 == 6
  261.            Message="Nedokazem zatvorit subor"
  262.            call ErrMsg
  263.      endif
  264.  
  265.      if Par1 == 7
  266.            Message="Nedokazem otvorit subor"
  267.            call ErrMsg
  268.      endif
  269.  
  270.      if Par1 == 8
  271.            Message="Niet dost pamate"
  272.            call ErrMsg
  273.      endif
  274.  
  275.      if inswrow = 12
  276.            text "\n"
  277.      endif
  278.  
  279.      if inswrow < 12
  280.            inswrow=inswrow+1
  281.      endif
  282.      window 1,1,80,25
  283. endp
  284.  
  285. proc ErrMsg
  286.      window 17,14,62,21
  287.      setcolor WHITE,RED
  288.      clrscr
  289.      window 1,1,80,25
  290.      box 20,15,59,20,WHITE,RED,DOUBLE
  291.      gotoxy 1,15
  292.      ctext " ",Title," "
  293.      gotoxy 1,17
  294.      ctext Message
  295.      setcolor WHITE,BLACK
  296.      gotoxy 1,19
  297.      ctext " Ok "
  298.      sound 20,5
  299.      sound 80,50
  300.      delay 15000
  301.      window 1,1,80,25
  302. endp
  303.  
  304. proc ArcDone
  305.      sound 3300,25
  306.      delay 100
  307.      sound 2450,100
  308.      window 7,12,75,23
  309.      setcolor LIGHTCYAN,BLUE
  310.      gotoxy 1,inswrow
  311.      text "Hotovo. Instalacia bola ukoncena."
  312.      delay 500
  313.      savescr 2
  314.      Title="Stav instalacie"
  315.      Message=" Hotovo "
  316.      call OkMsg
  317.      restscr 2
  318. endp
  319.  
  320. proc OkMsg
  321.      window 24,14,57,21
  322.      setcolor BLACK,WHITE
  323.      clrscr
  324.      window 1,1,80,25
  325.      box 27,15,53,20,BLACK,WHITE,DOUBLE
  326.      gotoxy 1,15
  327.      ctext " ",Title," "
  328.      gotoxy 1,17
  329.      ctext Message
  330.      setcolor WHITE,BLACK
  331.      gotoxy 1,19
  332.      ctext " Ok "
  333.      delay 50000
  334.      window 1,1,80,25
  335. endp
  336.  
  337. proc OutHelp
  338.      setcolor BLACK,CYAN
  339.      box 14,6,65,20,BLACK,CYAN,SINGLE
  340.      gotoxy 37,6
  341.      text " Pomoc "
  342.      window 15,7,64,19
  343.      clrscr
  344.      outtext on
  345.  
  346.      Nastav cestu pre instalovanu hru
  347.      a potom spusti instalaciu v menu.
  348.      Instalacia sa da hocikedy zastavit
  349.      pomocou CTRL-BREAK.
  350.      Instalacia sa pozera na potrebny
  351.      volny priestor na disku
  352.      takze si s tym nerob starosti.
  353.  
  354.      Vytvorene specialne pre HRAC CD.
  355.  
  356.      outtext off
  357.      delay
  358. endp
  359.