Procedure SetBet0; Begin Bet:=2; BetMulti:=0; BetCounter:=0; If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=0; Lista[0].Enable:=True; Lista[1].Enable:=False; Lista[0].Sazka[0]:=True; Lista[0].Sazka[1]:=False; End; Procedure SetBet; Begin Case BetCounter of 0: Begin If Credit>=4 then Begin Bet:=4; BetMulti:=0; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=0; Lista[0].Enable:=True; Lista[1].Enable:=False; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=True; End else SetBet0; End; 1: Begin If ((Credit>=5) and (MultiWin>=5)) then Begin Bet:=5; BetMulti:=5; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=1; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 2: Begin If ((Credit>=5) and (MultiWin>=15)) then Begin Bet:=5; BetMulti:=15; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=2; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 3: Begin If ((Credit>=5) and (MultiWin>=25)) then Begin Bet:=5; BetMulti:=25; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=3; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 4: Begin If ((Credit>=5) and (MultiWin>=35)) then Begin Bet:=5; BetMulti:=35; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=4; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 5: Begin If ((Credit>=5) and (MultiWin>=45)) then Begin Bet:=5; BetMulti:=45; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=5; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 6: Begin If ((Credit>=5) and (MultiWin>=55)) then Begin Bet:=5; BetMulti:=55; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=6; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 7: Begin If ((Credit>=5) and (MultiWin>=65)) then Begin Bet:=5; BetMulti:=65; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=7; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 8: Begin If ((Credit>=5) and (MultiWin>=75)) then Begin Bet:=5; BetMulti:=75; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=8; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 9: Begin If ((Credit>=5) and (MultiWin>=85)) then Begin Bet:=5; BetMulti:=85; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=9; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 10: Begin If ((Credit>=5) and (MultiWin>=95)) then Begin Bet:=5; BetMulti:=95; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=10; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 11: SetBet0; End; {Case End} End;