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

---

/ Classic Fond 34 / ClassicFond34.iso / install.exe / rar

File Comment
DestDir="C:\\classic\\gamebase"
files=42
diskneed=1000000
defbar BLACK,WHITE,WHITE,BLACK,14,7,52
clrscr
 
setcolor DARKGRAY,BLACK
window 1,1,80,25
clrscr 219
window 1,1,80,25
box 3,3,68,8,YELLOW,BLUE,SINGLE
setcolor YELLOW,BLUE
gotoxy 19,3
text " ￾⪠ ଠ  த "
setcolor DARKGRAY,BLACK
window 5,9,69,9
clrscr 177
window 69,4,69,9
clrscr 177
window 4,4,67,7
setcolor LIGHTCYAN,BLUE
clrscr
 
gotoxy 1,1
text "  :       ᠫ쭠  , ᪨ 1-37 "
gotoxy 1,2
text "  ⮢⥫:   -= Classic Fond =-"
gotoxy 1,3
text "  Version:        1.1"
gotoxy 1,4
text "  :            窠         "
 
window 1,1,80,25
 
setcolor LIGHTCYAN,DARKGRAY
gotoxy 1,25
text "                         F1 - ,  Esc - 室                       "
 
setcolor DARKGRAY,BLACK
window 25,20,56,20
clrscr 177
window 54,14,56,20
clrscr 177
window 1,1,80,25
 
 
sound 90,1
 
 
Menu:
 
Choice = menu 25,13,BLACK,WHITE,1," ⠫樨","       த "," ४ 祭 ","      ⠫","         室"
 
if Choice == 0
      goto Quit
endif
 
if Choice==1
     savescr 1
FirstPage:
     window 1,1,80,25
     setcolor LIGHTCYAN,BLUE
     clrscr
     box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
     gotoxy 1,1
     ctext " ᠫ쭠   -= Classic Fond =- "
     gotoxy 1,1
     window 2,2,80,25
     setcolor YELLOW,BLUE
     sound 140,5
     outtext on
 
 
     ⠭ ணࠬ ন  ᪨
     -= Classic Fond =-    ⠭
     ᪥.
 
     ।祭:
     -  짮⥫ ᪮ -= Classic Fond =-, 
       ஡  ⮩;
     -  ⭮  । ᫥ .
 
      ணࠬ ⠪   ⠭  18- ᪮
     -= Classic Fond =-
 
     ⥫ ଠ .  䠩 readme.txt 
     help.exe
 
     outtext off
GetKey1:
     Key=getkey
     if Key==27
           restscr 1
           goto Menu
     endif
     goto GetKey1
endif
 
if Choice == 2
     savescr 1
     setcolor WHITE,CYAN
     window 11,10,67,15
     clrscr
     box 4,2,54,5,WHITE,CYAN,SINGLE
     gotoxy 20,2
     text " ४ 祭 "
     window 15,12,63,13
     clrscr
     setcolor WHITE,CYAN
     gotoxy 4,1
     text "   祭"
     window 18,13,60,13
     Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
     restscr 1
     window 1,1,80,25
     goto Menu
endif
 
if Choice == 3
  box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
  setcolor LIGHTCYAN,BLUE
  gotoxy 27,11
  text "  ⠫樨: "
  window 7,12,75,23
  clrscr
 
  DiskSpace=getdfree
  KDiskSpace=DiskSpace/1024
  KDiskNeed=diskneed/1024
  text "⠫ .\n"
  text "ॡ ᢮ ࠭⢮ ᪠:  ",KDiskNeed," Kb\n"
  text "㯭 ࠭⢮: ",KDiskSpace," Kb\n"
  inswrow=4
  window 1,1,80,25
 
  if DiskSpace < diskneed
          savescr 1
          window 1,1,80,25
          sound 2300,25
          delay 100
          sound 1450,25
          delay 100
          sound 2300,100
          Choice = menu 24,16,WHITE,RED,1," 墠⠥   ᪥","த","室"
          if Choice == 0
               goto Quit
          endif
          if Choice == 2
               goto Quit
          endif
          restscr 1
     endif
endif
 
if Choice == 4
Quit:
     setcolor WHITE,BLACK
     clrscr
     gotoxy 2,3
     text "⠫  뫠 祭"
     sound 380,25
     delay 210
     sound 190,25
     exit 1
     goto Menu
endif
 
proc OnKey
     window 1,1,80,25
     if Par1 == 3
          savescr 15
          Par1=-1
          sound 2300,25
          delay 100
          sound 1450,100
          Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break","                        ","   த   "
          if Choice == 1
               exit 1
          endif
          restscr 15
     endif
 
     if Par1 == 301
           goto Quit
     endif
 
     if Par1 == 315
          savescr 15
          call OutHelp
          Par1=-1
          restscr 15
     endif
endp
 
proc ChangeVol
 
     window 7,12,75,23
     setcolor YELLOW,BLUE
     gotoxy 1,inswrow
 
     if Par2 == 0
           text ".. VOLUME #",Par1," should be installed."
           savescr 14
           Par1=-1
           sound 2300,25
           delay 100
           sound 1450,100
           sound 5450,50
           sound 7450,25
           sound 1450,100
 
           Choice=Menu 22,11,WHITE,GREEN,1," Change volume ","   Process the next volume        ","         Exit immediately    "
 
           restscr 14
 
           if Choice == 2
                 window 7,12,75,23
                 inswrow=inswrow+1
                 gotoxy 1,inswrow
                 text " Volume not found. Exiting..          "
                 exit 1
           endif
     endif
 
     if Par2 != 0
           setcolor LIGHTCYAN,BLUE
           text ".. VOLUME #",Par1," has been processed."
     endif
 
     if inswrow = 12
           text "\n"
     endif
 
     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
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"
 
     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
 
     clrscr
     sound 3300,25
     delay 100
     sound 2450,100
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
     text " ଠ쭮. ⠫ 祭"
     delay 500
     savescr 2
     Title=" ⠫樨"
     Message=" 祭 "
     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
 
proc OutHelp
     setcolor BLACK,CYAN
     box 14,6,65,20,BLACK,CYAN,SINGLE
     gotoxy 37,6
     text "  "
     window 15,7,64,19
     clrscr
     outtext on
 
     ⠫樨   
    ⠫樨, <४ 祭>
    ⥬  <⠫>
 
     㬮砭 ணࠬ ⠭
     c:\classic\gamebase
 
    ᫥ ⠫樨  䠩 
     ⠭  ࠭ ४ਨ.
    (. readme.txt)
 
     outtext off
     delay
endp

Directories (2)

Name	# Files		Name	# Files
BASES	37		QPV	4

Text (1)

Name	Format	# Lines	Size	Date
README.TXT	Text File	9	401b	1997-07-28

Other Files (4)

Executable
Name	Format	Size	Date
BASE.EXE	MS-DOS/Windows Executable	46KB	1997-09-12
HELP.EXE	MS-DOS/Windows Executable	52KB	1997-12-26
UNRAR.EXE	MS-DOS/Windows Executable	30KB	1996-04-20
UNRAR32.EXE	MS-DOS/Windows Executable	78KB	1997-03-12