Procedure Default; Var I: Byte; Begin DatRec.fpsProdleva:=20; SetPal(ColorGreenDark,0,40,0); SetPal(ColorGreenBright,0,63,0); SetPal(ColorRedDark,20,0,0); SetPal(ColorRedBright,63,0,0); SetPal(ColorBlack,0,0,0); SetPal(ColorWhite,63,63,63); SetPal(ColorYellow,63,63,0); SetPal(ColorTexter,19,22,63); SetPal(ColorCtecka,30,17,9); ButtonDelay:=20; For I:=0 to 8 do Begin Btn[I].Blinking:=False; Btn[I].Phase:=0; Btn[I].Counter:=0; End; Lista[0].Enable:=True; Lista[0].Sazka[0]:=True; Lista[0].Sazka[1]:=False; Lista[1].Enable:=False; Risk.Enable:=False; CreditShow:=True; VyhraShow:=False; VkladShow:=False; WinGamble.Enable:=False; JackPotPadl:=False; Credit:=0; Vyhra.Castka:=0; MultiWin:=0; Bonus:=0; Bet:=2; BetMulti:=0; BetCounter:=0; Nasobic:=0; AutoStart:=False; AutoStartTyp:=0; VkladyTMP:=0; VyplacenoTMP:=0; Obrazek:=0; Randomize; For I:=0 to 2 do Valec[I].SymbolCounter:=Random(25); End;