{+++ JACKPOT +++} Procedure JackPotWin; Begin If DatRec2.JackPotCounter>0 then Begin Dec(DatRec2.JackPotCounter); MainGameScreen; End else Begin Inc(DatRec.Hotovost,DatRec2.JackPot); Inc(VyplacenoTMP,DatRec2.JackPot); Inc(DatRec.Pub.Vyplaceno,DatRec2.JackPot); MainGameScreen; DatRec2.JackPotCounter:=9; DatRec2.JackPot:=0; End; JackPotPadl:=False; {Set Ready} End;