Procedure Roll;
Var NextVyhra: Word;
    I: Byte;
    N: Byte;
    BetStore: Byte;
    BetMultiStore:Byte;
    RiskRandom1: Byte;
    RiskRandom2: Byte;
    RiskRandom3: Byte;
    RiskRandom4: Byte;
    RiskAuto: Boolean;
Begin
  AllStoped:=False;
  RollSetup;
  Repeat
    RollProc;
    KresliValce2;
    Wait(DatRec.RollSpeed);
    TestStopAutoStart;
  Until AllStoped=True;
 
 
  KresliValce;
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
 
  TestWin;
 
  KresliValce;
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
 
 
  If Lista[1].Enable=True then
  Begin
    If Vyhra.Castka>0 then
    Begin
      Vyhra.Castka:=Vyhra.Castka*Nasobic;
      VyhraShow:=True;
      CreditShow:=False;
      MainGameScreen;
      For I:=0 to 79 do
      Begin
        TestStopAutoStart;
        Wait(DatRec.fpsProdleva);
      End;
    End;
  End;
 
  {DOLNI HRA}
  If ((Lista[0].Enable=True) and (Vyhra.Castka>0)) then {RISK}
  Begin
    Risk.Enable:=True;
    Risk.Blinking:=True;
    For I:=0 to 8 do Btn[I].Blinking:=False;
    For I:=0 to 8 do Btn[I].Phase:=0;
    Btn[0].Blinking:=True;
    Btn[4].Blinking:=True;
    Btn[5].Blinking:=True;
    If DatRec.SBEnable=True
    then Begin
           If DatRec.RawEnable=True then SBPlayRaw(1)
                                    else SBPlayRaw(24);
         End
    else Begin
          If DatRec.RawEnable=True then PlayRaw(1)
                                   else PlaySound(14);
         End;
 
    Randomize;
    RiskRandom3:=Random(2);
    If RiskRandom3=0 then Risk.Phase:=0
                     else Risk.Phase:=1;
 
    If AutoStart=True then
    Begin
      RiskRandom1:=Random(2); {nula nebo jedna}
      RiskRandom2:=Random(10)+30; {counter}
      RiskRandom4:=Random(6); {0..5}
      RiskAuto:=True;
    End;
    Repeat
       RiskScreen;
       If AutoStart=True then
       Begin
         Dec(RiskRandom2);
         If RiskRandom2=0 then
         Begin
           If RiskRandom1=0 then Begin {RiskRandom1=1 ... 1/6 chance}
                                   If RiskRandom4=0 then
                                   Begin {WIN}
                                     If Hlava.Enable=True then
                                     Begin
                                       Key[35]:=True;   {HLAVA AUTO TRUE}
                                       Key[24]:=False;  {OREL AUTO FALSE}
                                     End;
                                     If Orel.Enable=True then
                                     Begin
                                       Key[35]:=False;  {HLAVA AUTO FALSE}
                                       Key[24]:=True;   {OREL AUTO TRUE}
                                     End;
                                   End else
                                   Begin {LOSE}
                                     If Hlava.Enable=True then
                                     Begin
                                       Key[35]:=False;  {HLAVA AUTO FALSE}
                                       Key[24]:=True;   {OREL AUTO TRUE}
                                     End;
                                     If Orel.Enable=True then
                                     Begin
                                       Key[35]:=True;   {HLAVA AUTO TRUE}
                                       Key[24]:=False;  {OREL AUTO FALSE}
                                     End;
                                   End;
                                 End
                                 else Begin {RiskRandom1=1 ... 1/3 chance}
                                   If RiskRandom4<2 then
                                   Begin {WIN}
                                     If Hlava.Enable=True then
                                     Begin
                                       Key[35]:=True;   {HLAVA AUTO TRUE}
                                       Key[24]:=False;  {OREL AUTO FALSE}
                                     End;
                                     If Orel.Enable=True then
                                     Begin
                                       Key[35]:=False;  {HLAVA AUTO FALSE}
                                       Key[24]:=True;   {OREL AUTO TRUE}
                                     End;
                                   End else
                                   Begin {LOSE}
                                     If Hlava.Enable=True then
                                     Begin
                                       Key[35]:=False;  {HLAVA AUTO FALSE}
                                       Key[24]:=True;   {OREL AUTO TRUE}
                                     End;
                                     If Orel.Enable=True then
                                     Begin
                                       Key[35]:=True;   {HLAVA AUTO TRUE}
                                       Key[24]:=False;  {OREL AUTO FALSE}
                                     End;
                                   End;
 
                                 End;
           RiskAuto:=False;
         End;
       End;
       For N:=0 to DatRec.fpsProdleva+1 do
       Begin
{HLAVA}  If Key[35]=True then
         Begin
           If AutoStart=False then While Key[35]=True do Begin End;
           If Key[35]=True then Key[35]:=False;
           NextVyhra:=Vyhra.Castka*2;
           If NextVyhra<750 then
           Begin
             If Hlava.Enable=True then Begin
                                         Vyhra.Castka:=Vyhra.Castka*2;
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(1)
                                                                         else SBPlayRaw(26);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(1)
                                                                         else PlaySound(16);
                                              End;
                                         For I:=0 to 49 do Wait(DatRec.fpsProdleva);
                                       End
                                  else Begin
                                         Vyhra.Castka:=0;
                                         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;
             Randomize;
             RiskRandom3:=Random(2);
             If RiskRandom3=0 then Risk.Phase:=0
                              else Risk.Phase:=1;
           End else
           Begin
             If Hlava.Enable=True then Begin
                                         NextVyhra:=750;
                                         Vyhra.Castka:=750;
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(1)
                                                                         else SBPlayRaw(26);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(1)
                                                                         else PlaySound(16);
                                              End;
                                         For I:=0 to 49 do Wait(DatRec.fpsProdleva);
                                       End
                                  else Begin
                                         Vyhra.Castka:=0;
                                         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;
           End;
         End;
 
{OREL}   If Key[24]=True then
         Begin
           If AutoStart=False then While Key[24]=True do Begin End;
           If Key[24]=True then Key[24]:=False;
           NextVyhra:=Vyhra.Castka*2;
           If NextVyhra<750 then
           Begin
             If Orel.Enable=True then Begin
                                        Vyhra.Castka:=Vyhra.Castka*2;
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(1)
                                                                         else SBPlayRaw(26);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(1)
                                                                         else PlaySound(16);
                                              End;
                                        For I:=0 to 49 do Wait(DatRec.fpsProdleva);
                                      End
                                 else Begin
                                        Vyhra.Castka:=0;
                                         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;
             Randomize;
             RiskRandom3:=Random(2);
             If RiskRandom3=0 then Risk.Phase:=0
                              else Risk.Phase:=1;
           End else
           Begin
             If Orel.Enable=True then Begin
                                        NextVyhra:=750;
                                        Vyhra.Castka:=750;
                                         If DatRec.SBEnable=True
                                         then Begin
                                                If DatRec.RawEnable=True then SBPlayRaw(1)
                                                                         else SBPlayRaw(26);
                                              End
                                         else Begin
                                                If DatRec.RawEnable=True then PlayRaw(1)
                                                                         else PlaySound(16);
                                              End;
                                        For I:=0 to 49 do Wait(DatRec.fpsProdleva);
                                      End
                                 else Begin
                                        Vyhra.Castka:=0;
                                         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;
           End;
         End;
 
{MULTI}  If ((Key[50]=True) or (Key[57]=True)) then
         Begin
           While Key[50]=True do Begin End;
           While Key[57]=True do Begin End;
           Risk.Enable:=False;
           Risk.Blinking:=False;
           For I:=0 to 8 do Btn[I].Blinking:=False;
           For I:=0 to 8 do Btn[I].Phase:=0;
           AddScore(Vyhra.Castka);
         End;
 
         If ((RiskRandom2=0) and (RiskAuto=False)) then
         Begin
           Risk.Enable:=False;
           Risk.Blinking:=False;
           For I:=0 to 8 do Btn[I].Blinking:=False;
           For I:=0 to 8 do Btn[I].Phase:=0;
           If Vyhra.Castka>0 then AddScore(Vyhra.Castka);
         End;
 
         TestStopAutoStart;
         Wait(1);
       End;
    Until ((Vyhra.Castka=0) or (NextVyhra=750));
    Risk.Enable:=False;
    Risk.Blinking:=False;
    For I:=0 to 8 do Btn[I].Blinking:=False;
    For I:=0 to 8 do Btn[I].Phase:=0;
    If Vyhra.Castka>0 then AddScore(Vyhra.Castka);
    VyhraShow:=False;
    CreditShow:=True;
    RiskScreen;
  End else
  Begin
    VyhraShow:=False;
    CreditShow:=True;
    MainGameScreen;
  End;
 
  {HORNI HRA}
  If ((Lista[1].Enable=True) and (Vyhra.Castka>0)) then {BONUS}
  Begin
    For I:=0 to 8 do Btn[I].Blinking:=False;
    For I:=0 to 8 do Btn[I].Phase:=0;
    If Vyhra.Castka>750 then
    Begin
      Inc(Bonus,Vyhra.Castka);
      Vyhra.Castka:=0;
      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;
      WinGamble.Enable:=True;
      MainGameScreen;
      BetStore:=Bet;
      BetMultiStore:=BetMulti;
 
      Randomize;
      While ((Credit>=5) and (Bonus>0)) do
      Begin
        Dec(Credit,5);
        MainGameScreen;
 
        For I:=0 to 8 do Btn[I].Blinking:=False;
        For I:=0 to 8 do Btn[I].Phase:=0;
        MainGameScreen;
 
        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;
          TestStopAutoStart;
        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-750>=0 then
               Begin
                 Bonus750:=750;
                 Dec(Bonus,750);
               End else
               Begin
                 Bonus750:=Bonus;
                 Bonus:=0;
               End;
               AddScore(Bonus750);
             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;
      Bet:=BetStore;
      BetMulti:=BetMultiStore;
      WinGamble.Enable:=False;
      TestBetDown;
    End else AddScore(Vyhra.Castka);
    MainGameScreen;
  End else
  Begin
    VyhraShow:=False;
    CreditShow:=True;
    MainGameScreen;
  End;
End;