Program Daytona;
Uses Lite,DOS;
 
Type
  TPub = Record
           Vklady: LongInt;
           Vyplaceno: LongInt;
         End;
 
  TDatRec = Record
              fpsProdleva: Byte;
              RollSpeed: Byte;
              RiskSpeed: Byte;
              RawEnable: Boolean;
              HiScore: LongInt;
              Pub: TPub;
              SBEnable: Boolean;
              PS3: Boolean;
            End;
 
  TButton = Record
              Blinking: Boolean;
              Phase: Byte;
              Counter: Byte;
            End;
 
  TLista = Record
             Enable: Boolean;
             Sazka: array[0..1] of Boolean;
             Color: Byte;
           End;
 
  TRisk = Record
            Enable: Boolean;
            Blinking: Boolean;
            Phase: Byte;
            Counter: Byte;
          End;
 
  TRisk2 = Record
             Enable: Boolean;
           End;
 
  TWinGamble = Record
                 Enable: Boolean;
                 Blinking: Boolean;
                 Phase: Byte;
                 Counter: Byte;
                 Counter2: Byte; {Random}
                 Store: array[0..1] of Byte;
               End;
 
  TWinGamble2 = Record
                  Enable: Boolean;
                End;
 
  TValec = Record
             Rotate: Boolean;
             Symbol: array [0..4] of Byte;
             Scroll: Byte;
             Counter: Word;
             SymbolCounter: Word;
           End;
 
  TVyhra = Record
             Castka: Word;
           End;
 
  TWinConf = Record
               Symbol: array[1..9] of Byte;
               Vyhra: array[1..5] of Boolean;
               Counter1: Byte;
               Counter2: Byte;
               Counter3: Byte;
               SoundSet: Byte;
             End;
Const
  ButtonSpeed = 50;
 
  ColorGreenDark   = 240;
  ColorGreenBright = 241;
  ColorRedDark     = 242;
  ColorRedBright   = 243;
  ColorBlack       = 244;
  ColorWhite       = 245;
  ColorYellow      = 246;
 
  MaxSymbolu       = 24;
 
  SymbolyA: array[0..24] of Byte = (0,1,1,1,9,2,2,2,8,2,6,7,1,8,1,3,3,3,3,4,6,4,5,4,7);
  SymbolyB: array[0..24] of Byte = (0,3,1,1,1,9,1,1,7,3,3,6,6,5,5,3,5,4,4,4,2,8,2,2,2);
  SymbolyC: array[0..24] of Byte = (0,2,2,2,2,1,1,1,1,7,3,3,3,9,8,6,4,6,4,5,4,7,5,1,5);
 
 
Var
  F: File;
  DatRec: TDatRec;
  DirInfo: SearchRec;
 
  ButtonDelay: Byte;
  Btn: array[0..8] of TButton;
  Lista: array[0..1] of TLista;
 
  Risk: TRisk;
  Hlava: TRisk2;
  Orel: TRisk2;
 
  WinGamble: TWinGamble;
  WinGambleGreen: TWinGamble2;
  WinGambleRed: TWinGamble2;
 
  Credit : LongInt;
  Vyhra  : TVyhra;
  WinConf: TWinConf;
  MultiWin: LongInt;
  MultiCounter: Byte;
  Bonus: LongInt;
  Bonus750: Word;
  Bet: Byte;
  BetMulti: Byte;
  BetCounter: Byte;
  Nasobic: Byte;
  AutoStart: Boolean;
  VkladyTMP: LongInt;
  VyplacenoTMP: LongInt;
  WildJoker: Boolean;
 
  CreditShow: Boolean;
  VyhraShow: Boolean;
  VkladShow: Boolean;
 
  Valec: array[0..2] of TValec;
  AllStoped: Boolean;
 
  SBOffsetMAX: Word;
  SBOffsetMIN: Word;
 
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
 
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\waitbtn.pas}
 
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\saveload.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\loading.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\default.pas}
 
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\wrivalce.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\riskscr.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\update0.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\update1.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\update2.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\update3.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\update4.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\screen.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\misc.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\score.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\setbet.pas}
 
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\winblink.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\testwin.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\rollproc.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\rolsetup.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\roll.pas}
 
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\maingame.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\ovladani.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\servis.pas}
{$I C:\SOURCES\PROJECTS\GAMES\GAMBLER\main.pas}
 
 
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
Begin
  InitBuffers;
  Init320x200;
  InitKeyboard;
  InitTimer;
  InitRawBuffers;
  InitSB;
 
  Default;
  Loading;
  Main;
 
  ShutdownSB;
  ShutdownRawBuffers;
  ShutdownTimer;
  ShutdownKeyboard;
  Init80x25;
  ShutdownBuffers;
End.