home *** CD-ROM | disk | FTP | other *** search

---

/ Hráč 1998 February / Hrac_18_1998-02_cd.bin / DEMA / HL / HLDEMO.EXE / rar

File Comment
;           ￾Ŀ
;                                                       
;               There is no need to process with RAR!   
;                                                       
;                JUST RUN THIS SFX MODULE AND ENJOY!    
;                                                       
;           
;
;
;
;
;
; iSFX script will not be shown as the archive comment with RAR 1.54 and above!
DestDir="C:\\HL\\"
 
; Total files in archive. CHANGE TO PROPER VALUE!
files=9
 
; Disk space needed to extract files, bytes. CHANGE TO PROPER VALUE!
diskneed=11491662
 
; Define filebar
defbar BLACK,WHITE,WHITE,BLACK,14,7,52
; Print out the standard ansi comment 
clrscr
outtext ansi on
 
RAR Installation SFX module
Created by RAR 2.00
 
outtext ansi off
 
; Main background
setcolor DARKGRAY,BLACK
window 1,1,80,25
clrscr 219
; Main window
window 1,1,80,25
 
; Bottom line
setcolor LIGHTCYAN,DARKGRAY
gotoxy 1,25
text "                      Press Alt-X to exit or Enter to install                              "
 
 
; Installation Menu:
 
     savescr 1
     setcolor WHITE,CYAN
     window 11,10,67,15
     clrscr
     box 4,2,54,5,WHITE,CYAN,SINGLE
     gotoxy 20,2
     text " Destination directory "
     window 15,12,63,13
     clrscr
     setcolor WHITE,CYAN
     gotoxy 4,1
     text "   Enter directory to which to install"
     window 18,13,60,13
     Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
     restscr 1
     window 1,1,80,25
 
  box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
  setcolor LIGHTCYAN,BLUE
  gotoxy 27,11
  text " Installation status: "
  window 7,12,75,23
  clrscr
  DiskSpace=getdfree
  KDiskSpace=DiskSpace/1024
  KDiskNeed=diskneed/1024
  text "Installation started.\n"
  text "Disk space required:  ",KDiskNeed," Kb\n"
  text "Disk space available: ",KDiskSpace," Kb\n"
  inswrow=4
  window 1,1,80,25
  Install
endif
 
Quit:
     setcolor WHITE,BLACK
     clrscr
     gotoxy 2,3
     text "The SFX package has not yet been extracted."
     sound 380,25
     delay 210
     sound 190,25
     exit 1
     goto Menu
endif
 
; HERE INSTALLATION STARTS!
; ctext "Installation has started."
 
proc OnKey
     if Par1 == 3
          savescr 15
          Par1=-1
          sound 2300,25
          delay 100
          sound 1450,100
          Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break","             Abort           ","   Continue with installation   "
          if Choice == 1
               exit 1
          endif
          restscr 15
     endif
     if Par1 == 301
           goto Quit
     endif
     if Par1 == 28
           goto Quit
     endif
endp
 
 
proc FileDone
     gotoxy 49,11
     setcolor LIGHTCYAN,BLUE
     Percent=Par1*100
     Percent=Percent/files
     text Percent,"%% "
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
     text DestFileName
     if inswrow = 12
           text "\n"
     endif
     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
endp
 
proc Error
 
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
 
     Title="Error"
 
     ; Par1 is assigned with error code:
 
     if Par1 == 1
           Message="Fatal error"
           call ErrMsg
     endif
 
     if Par1 == 2
           Message="CRC error, broken archive"
           call ErrMsg
     endif
 
     if Par1 == 3
           Message="Write error"
           call ErrMsg
     endif
 
     if Par1 == 4
           Message="File create error"
           call ErrMsg
     endif
 
     if Par1 == 5
           Message="Read error"
           call ErrMsg
     endif
 
     if Par1 == 6
           Message="File close error"
           call ErrMsg
     endif
 
     if Par1 == 7
           Message="File open error"
           call ErrMsg
     endif
 
     if Par1 == 8
           Message="Not enough memory"
           call ErrMsg
     endif
 
     if inswrow = 12
           text "\n"
     endif
 
     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
endp
 
proc ErrMsg
     window 17,14,62,21
     setcolor WHITE,RED
     clrscr
     window 1,1,80,25
     box 20,15,59,20,WHITE,RED,DOUBLE
     gotoxy 1,15
     ctext " ",Title," "
     gotoxy 1,17
     ctext Message
     setcolor WHITE,BLACK
     gotoxy 1,19
     ctext " Ok "
     sound 20,5
     sound 80,50
     delay 15000
     window 1,1,80,25
endp
 
proc ArcDone
     sound 3300,25
     delay 100
     sound 2450,100
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
     text "Done. Installation completed"
     delay 500
     savescr 2
     Title="Installation status"
     Message=" Completed "
     call OkMsg
     restscr 2
endp
 
proc OkMsg
     window 24,14,57,21
     setcolor BLACK,WHITE
     clrscr
     window 1,1,80,25
     box 27,15,53,20,BLACK,WHITE,DOUBLE
     gotoxy 1,15
     ctext " ",Title," "
     gotoxy 1,17
     ctext Message
     setcolor WHITE,BLACK
     gotoxy 1,19
     ctext " Ok "
     delay 50000
     window 1,1,80,25
endp
 
;
;
;
;
;
;
;
;
;
;
;
;           Ŀ
;                                                       
;               There is no need to process with RAR!   
;                                                       
;                JUST RUN THIS SFX MODULE AND ENJOY!    
;                                                       
;           
;
;
;
;
;
; iSFX script will not be shown as the archive comment with RAR 1.54 and above!

Images (1)
 

Text (1)

Name	Format	# Lines	Size	Date
AGDS.CFG	Text File	20	246b	1998-01-24

Other Files (5)

Executable
Name	Format	Size	Date
DOS4GW.EXE	MS-DOS/Windows Executable	255KB	1997-10-20
HL.EXE	MS-DOS/Windows Executable	261KB	1998-01-24
Unknown
Name	Format	Size	Date
GFX.GRP	Unknown	49MB	1998-01-24
JOKES.CHR	Unknown	784b	1997-10-30
MAJER.CHR	Unknown	720b	1997-10-30