Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
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;