Procedure StopBlinkingButtons;
Var I: Byte;
Begin
  For I:=0 to 8 do Btn[I].Blinking:=False;
  For I:=0 to 8 do Btn[I].Phase:=0;
  MainGameScreen;
End;
 
 
Procedure MakeButtons;
Var I: Byte;
Begin
  For I:=0 to 8 do Btn[I].Blinking:=False;
  If Credit>=5 then Btn[1].Blinking:=True; {WIN GAMBLE}
  If ((Credit>=4) and (WinGamble.Enable=False))
  then Btn[2].Blinking:=True; {VSADIT}
  If WinGamble.Enable=True then
  Begin
    If Credit>=5 then Btn[3].Blinking:=True; {AUTOSTART WIN GAMBLE}
    If Credit>=5 then Btn[6].Blinking:=True; {START     WIN GAMBLE}
  End else
  Begin
    If Credit>=2 then Btn[3].Blinking:=True; {AUTOSTART}
    If Credit>=2 then Btn[6].Blinking:=True; {START}
  End;
  If Credit>=2 then Btn[7].Blinking:=True;   {VYBRAT CREDIT}
  If MultiWin>=1 then Btn[8].Blinking:=True; {VYBRAT MULTIWIN}
End;
 
 
Procedure MainGame;
Var Ending: Boolean;
    CreditCounter: Byte;
    I: Byte;
Begin
  Ending:=False;
  For I:=0 to 2 do SetupSymboly(I);
  MainGameScreen;
  Repeat
    MainGameScreen;
    Wait(DatRec.fpsProdleva);
    MakeButtons;
 
{A}   If Key[30]=True then
      Begin
        StopBlinkingButtons;
        While Key[30]=True do Begin End;
        If ((WinGamble.Enable=True) and (Credit>=5)) then
        Begin
          If DatRec.SBEnable=True
          then Begin
                 If DatRec.RawEnable=True then SBPlayRaw(2)
                                          else SBPlayRaw(19);
               End
          else Begin
                 If DatRec.RawEnable=True then PlayRaw(2)
                                          else PlaySound(9);
               End;
          AutoStart:=True;
          Blok(109,157,210,165,ColorBlack,Buffer[3]);
          WriteText(Buffer[1],160,140,5,7,1,120,158,'autostart on',Buffer[3]);
          WaitRetrace;
          FlipPage(Buffer[3],Buffer[4]);
          For I:=0 to 49 do Wait(DatRec.fpsProdleva);
          Randomize;
          While ((Credit>=5) and (AutoStart=True)) do
          Begin
            Dec(Credit,5);
            MainGameScreen;
            StopBlinkingButtons;
            WinGamble.Blinking:=True;
            WinGamble.Counter:=0;
            WinGamble.Counter2:=20+10*Random(2);
            For I:=0 to WinGamble.Counter2 do
            Begin
              If WinGamble.Counter<2 then Inc(WinGamble.Counter) else
              Begin
                WinGamble.Counter:=0;
                If WinGambleGreen.Enable=True then
                Begin
                  WinGambleGreen.Enable:=False;
                  WinGambleRed.Enable:=True;
                End else
                Begin
                  WinGambleGreen.Enable:=True;
                  WinGambleRed.Enable:=False;
                End;
              End;
              TestStopAutoStart;
              If DatRec.PS3=False then Begin
                                         MainGameScreen;
                                         Wait(DatRec.fpsProdleva);
                                       End
                                  else Begin
                                         UpdateGamble;
                                         Wait(DatRec.fpsProdleva div 2);
                                       End;
            End;
            If WinGambleGreen.Enable=True
            then Begin
                   {Sound True}
                   If DatRec.SBEnable=True
                   then Begin
                          If DatRec.RawEnable=True then SBPlayRaw(35)
                                                   else SBPlayRaw(32);
                        End
                   else Begin
                          If DatRec.RawEnable=True then PlayRaw(35)
                                                   else PlaySound(22);
                        End;
                   For I:=0 to 49 do
                   Begin
                     TestStopAutoStart;
                     Wait(DatRec.fpsProdleva);
                   End;
                   If Bonus=0 then Inc(MultiWin,10)
                              else Begin
                                     If Bonus-750>=0 then
                                     Begin
                                       Bonus750:=750;
                                       Dec(Bonus,750);
                                     End else
                                     Begin
                                       Bonus750:=Bonus;
                                       Bonus:=0;
                                     End;
                                     AddScore(Bonus750);
                                   End;
                 End
            else Begin
                   {Sound False}
                   If DatRec.SBEnable=True
                   then Begin
                          If DatRec.RawEnable=True then SBPlayRaw(9)
                                                   else SBPlayRaw(31);
                        End
                   else Begin
                          If DatRec.RawEnable=True then PlayRaw(9)
                                                   else PlaySound(21);
                        End;
                   For I:=0 to 49 do
                   Begin
                     TestStopAutoStart;
                     Wait(DatRec.fpsProdleva);
                   End;
                 End;
          End;
          If AutoStart=True then
          Begin
            AutoStart:=False;
            KresliValce;
            Blok(109,157,210,165,ColorBlack,Buffer[3]);
            WriteText(Buffer[1],160,140,5,7,1,120,158,'autostart off',Buffer[3]);
            WaitRetrace;
            FlipPage(Buffer[3],Buffer[4]);
            For I:=0 to 49 do Wait(DatRec.fpsProdleva);
          End;
        End;
        WinGamble.Blinking:=False;
        WinGambleGreen.Enable:=False;
        WinGambleRed.Enable:=False;
 
        If ((WinGamble.Enable=False) and (Credit>=2)) then
        Begin
          If DatRec.SBEnable=True
          then Begin
                 If DatRec.RawEnable=True then SBPlayRaw(2)
                                          else SBPlayRaw(19);
               End
          else Begin
                 If DatRec.RawEnable=True then PlayRaw(2)
                                          else PlaySound(9);
               End;
 
          AutoStart:=True;
          Blok(109,157,210,165,ColorBlack,Buffer[3]);
          WriteText(Buffer[1],160,140,5,7,1,120,158,'autostart on',Buffer[3]);
          WaitRetrace;
          FlipPage(Buffer[3],Buffer[4]);
          For I:=0 to 49 do Wait(DatRec.fpsProdleva);
 
          While ((Credit>=Bet) and (MultiWin>=BetMulti) and (AutoStart=True)) do
          Begin
            If DatRec.SBEnable=True
            then Begin
                   If DatRec.RawEnable=True then SBPlayRaw(2)
                                            else SBPlayRaw(24);
                 End
            else Begin
                   If DatRec.RawEnable=True then PlayRaw(2)
                                            else PlaySound(14);
                 End;
            Dec(Credit,Bet);
            Dec(MultiWin,BetMulti);
            MainGameScreen;
            Roll;
            TestBetDown;
            For I:=0 to 29 do
            Begin
              TestStopAutoStart;
              Wait(DatRec.fpsProdleva);
            End;
          End;
          If AutoStart=True then
          Begin
            AutoStart:=False;
            KresliValce;
            Blok(109,157,210,165,ColorBlack,Buffer[3]);
            WriteText(Buffer[1],160,140,5,7,1,120,158,'autostart off',Buffer[3]);
            WaitRetrace;
            FlipPage(Buffer[3],Buffer[4]);
            For I:=0 to 49 do Wait(DatRec.fpsProdleva);
          End;
        End;
      End;
 
{S}   If Key[31]=True then
      Begin
        StopBlinkingButtons;
        While Key[31]=True do Begin End;
        If ((WinGamble.Enable=True) and (Credit>=5)) then
        Begin
          If DatRec.SBEnable=True
          then Begin
                 If DatRec.RawEnable=True then SBPlayRaw(2)
                                          else SBPlayRaw(24);
               End
          else Begin
                 If DatRec.RawEnable=True then PlayRaw(2)
                                          else PlaySound(14);
               End;
          Randomize;
          Dec(Credit,5);
          MainGameScreen;
          StopBlinkingButtons;
          WinGamble.Blinking:=True;
          WinGamble.Counter:=0;
          WinGamble.Counter2:=20+10*Random(2);
          For I:=0 to WinGamble.Counter2 do
          Begin
            If WinGamble.Counter<2 then Inc(WinGamble.Counter) else
            Begin
              WinGamble.Counter:=0;
              If WinGambleGreen.Enable=True then
              Begin
                WinGambleGreen.Enable:=False;
                WinGambleRed.Enable:=True;
              End else
              Begin
                WinGambleGreen.Enable:=True;
                WinGambleRed.Enable:=False;
              End;
            End;
            If DatRec.PS3=False then Begin
                                       MainGameScreen;
                                       Wait(DatRec.fpsProdleva);
                                     End
                                else Begin
                                       UpdateGamble;
                                       Wait(DatRec.fpsProdleva div 2);
                                     End;
          End;
          If WinGambleGreen.Enable=True
          then Begin
                 {Sound True}
                 If DatRec.SBEnable=True
                 then Begin
                        If DatRec.RawEnable=True then SBPlayRaw(35)
                                                 else SBPlayRaw(32);
                      End
                 else Begin
                        If DatRec.RawEnable=True then PlayRaw(35)
                                                 else PlaySound(22);
                      End;
                 If Bonus=0 then Inc(MultiWin,10)
                            else Begin
                                   If Bonus-750>=0 then
                                   Begin
                                     Bonus750:=750;
                                     Dec(Bonus,750);
                                   End else
                                   Begin
                                     Bonus750:=Bonus;
                                     Bonus:=0;
                                   End;
                                   AddScore(Bonus750);
                                 End;
               End
          else Begin
                 {Sound False}
                 If DatRec.SBEnable=True
                 then Begin
                        If DatRec.RawEnable=True then SBPlayRaw(9)
                                                 else SBPlayRaw(31);
                      End
                 else Begin
                        If DatRec.RawEnable=True then PlayRaw(9)
                                                 else PlaySound(21);
                      End;
                 For I:=0 to 49 do Wait(DatRec.fpsProdleva);
               End;
 
          WinGamble.Blinking:=False;
          WinGambleGreen.Enable:=False;
          WinGambleRed.Enable:=False;
        End;
 
        If ((WinGamble.Enable=False) and (TestRollEnable=True)) then
        Begin
          If DatRec.SBEnable=True
          then Begin
                 If DatRec.RawEnable=True then SBPlayRaw(2)
                                          else SBPlayRaw(24);
               End
          else Begin
                 If DatRec.RawEnable=True then PlayRaw(2)
                                          else PlaySound(14);
               End;
          Dec(Credit,Bet);
          Dec(MultiWin,BetMulti);
          MainGameScreen;
          Roll;
          TestBetDown;
        End;
      End;
 
{V}   If (((Key[47]=True) or (Key[28]=True)) and (Credit>=4) and (WinGamble.Enable=False)) then
      Begin
        While Key[47]=True do WaitButton(47);
        While Key[28]=True do WaitButton(28);
        SetBet;
      End;
 
{W}   If ((Key[17]=True) or (Key[75]=True) or (Key[77]=True)) then
      Begin
        While Key[17]=True do Begin End;
        While Key[75]=True do Begin End;
        While Key[77]=True do Begin End;
        If WinGamble.Enable=False then Begin
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(0)
                                                                         else SBPlayRaw(18);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(0)
                                                                         else PlaySound(8);
                                              End;
                                         WinGamble.Store[0]:=Bet;
                                         WinGamble.Store[1]:=BetMulti;
                                         BetMulti:=0;
                                         Bet:=5;
                                         WinGamble.Enable:=True;
                                         Btn[2].Blinking:=False;
                                         Btn[2].Phase:=0;
                                       End
                                  else Begin
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(0)
                                                                         else SBPlayRaw(18);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(0)
                                                                         else PlaySound(8);
                                              End;
 
                                         Bet:=WinGamble.Store[0];
                                         BetMulti:=WinGamble.Store[1];
                                         WinGamble.Enable:=False;
                                       End;
        MainGameScreen;
        Wait(DatRec.fpsProdleva);
      End;
 
{T&D} If ((Key[20]=True) or (Key[32]=True)) then
      Begin
        CreditShow:=True;
        StopBlinkingButtons;
        If ((MultiCounter=0) and (MultiWin>=1)) then MultiCounter:=1;
        While Key[20]=True do WaitButton(20);
        While Key[32]=True do WaitButton(32);
        If ((MultiCounter>=1) and (MultiCounter<10)) then {za korunu}
        Begin
          If MultiWin>=1 then
          Begin
            Dec(MultiWin);
            Inc(Credit);
            If MultiCounter<10 then Inc(MultiCounter);
            If DatRec.SBEnable=True then SBPlayRaw(15)
                                    else PlaySound(5);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If ((MultiCounter>=10) and (MultiCounter<25)) then {za 2 korun}
        Begin
          If MultiWin>=2 then
          Begin
            Dec(MultiWin,2);
            Inc(Credit,2);
            If MultiCounter<25 then Inc(MultiCounter);
            If DatRec.SBEnable=True then SBPlayRaw(16)
                                    else PlaySound(6);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If ((MultiCounter>=25) and (MultiCounter<45)) then {za 5 korun}
        Begin
          If MultiWin>=5 then
          Begin
            Dec(MultiWin,5);
            Inc(Credit,5);
            If MultiCounter<45 then Inc(MultiCounter);
            If Datrec.SBEnable=True then SBPlayRaw(17)
                                    else PlaySound(7);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If ((MultiCounter>=45) and (MultiCounter<71)) then {za 10 korun}
        Begin
          If MultiWin>=10 then
          Begin
            Dec(MultiWin,10);
            Inc(Credit,10);
            If MultiCounter<71 then Inc(MultiCounter);
            If Datrec.SBEnable=True then SBPlayRaw(12)
                                    else PlaySound(2);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If ((MultiCounter>=71) and (MultiCounter<101)) then {za 20 korun}
        Begin
          If MultiWin>=20 then
          Begin
            Dec(MultiWin,20);
            Inc(Credit,20);
            If MultiCounter<101 then Inc(MultiCounter);
            If DatRec.SBEnable=True then SBPlayRaw(13)
                                    else PlaySound(3);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If ((MultiCounter>=101) and (MultiCounter<121)) then {za 50 korun}
        Begin
          If MultiWin>=50 then
          Begin
            Dec(MultiWin,50);
            Inc(Credit,50);
            If MultiCounter<121 then Inc(MultiCounter);
            If DatRec.SBEnable=True then SBPlayRaw(14)
                                    else PlaySound(4);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
        If MultiCounter>=121 then {za 100 korun}
        Begin
          If MultiWin>=100 then
          Begin
            Dec(MultiWin,100);
            Inc(Credit,100);
            If DatRec.SBEnable=True then SBPlayRaw(14)
                                    else PlaySound(4);
            If DatRec.PS3=False then MainGameScreen
                                else UpdateCreditMulti;
          End else MultiCounter:=0;
        End;
      End else MultiCounter:=0;
 
{C}   If ((Key[46]=True) or (Key[80]=True)) then
      Begin
        While Key[46]=True do Begin End;
        While Key[80]=True do Begin End;
        CreditShow:=True;
        CreditCounter:=0;
        StopBlinkingButtons;
        While Credit>0 do
        Begin
          If CreditCounter<2 then
          Begin
            Inc(CreditCounter);
            If DatRec.PS3=False then Begin
                                       MainGameScreen;
                                       Wait(DatRec.fpsProdleva);
                                     End
                                else Begin
                                       UpdateCreditOnly;
                                       Wait(DatRec.fpsProdleva div 3);
                                     End;
          End else
          Begin
            CreditCounter:=0;
            If Credit>3500 then Begin
                                  Dec(Credit,50);
                                  Inc(DatRec.Pub.Vyplaceno,50);
                                  Inc(VyplacenoTMP,50);
                                End;
            If ((Credit<=3500) and (Credit>1500)) then Begin
                                                         Dec(Credit,20);
                                                         Inc(DatRec.Pub.Vyplaceno,20);
                                                         Inc(VyplacenoTMP,20);
                                                       End;
            If ((Credit<=1500) and (Credit>500)) then Begin
                                                        Dec(Credit,10);
                                                        Inc(DatRec.Pub.Vyplaceno,10);
                                                        Inc(VyplacenoTMP,10);
                                                      End;
            If ((Credit<=500) and (Credit>5)) then Begin
                                                     Dec(Credit,5);
                                                     Inc(DatRec.Pub.Vyplaceno,5);
                                                     Inc(VyplacenoTMP,5);
                                                   End;
            If ((Credit<=5) and (Credit>0)) then Begin
                                                   Dec(Credit,1);
                                                   Inc(DatRec.Pub.Vyplaceno,1);
                                                   Inc(VyplacenoTMP,1);
                                                 End;
            If DatRec.SBEnable=True then SBPlayRaw(11)
                                    else PlaySound(1);
            If DatRec.PS3=False then Begin
                                       MainGameScreen;
                                       Wait(DatRec.fpsProdleva);
                                     End
                                else Begin
                                       UpdateCreditOnly;
                                       Wait(DatRec.fpsProdleva div 3);
                                     End;
          End;
        End;
        TestBetDown;
        SaveLoad(True);
      End;
 
{0}   If ((Key[11]=True) or (Key[72]=True)) then
      Begin
        Inc(VkladyTMP,50);
        Inc(DatRec.Pub.Vklady,50);
        SaveLoad(True);
        VkladShow:=True;
        While ((Key[11]=True) or (Key[72]=True)) do
        Begin
          MainGameScreen;
          Wait(DatRec.fpsProdleva);
        End;
        VkladShow:=False;
        Inc(Credit,50);
        If DatRec.SBEnable=True then SBPlayRaw(10)
                                else PlaySound(0);
      End;
 
{Esc} If Key[1]=True then
      Begin
        While Key[1]=True do Begin End;
        Ending:=True;
      End;
 
  Until Ending=True;
End;