Klasický výherní automat Daytona Classic 750 samozřejmě s trochu odlišnou grafikou.

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Grafika
gambler.pngAutor: Martin Koleček
Program: Daytona.pas,  Default.pas,  Loading.pas,  Main.pas,  Maingame.pas,  Misc.pas,  Ovladani.pas,  Risk.pas,  Riskscr.pas,  Roll.pas,  Rollproc.pas,  Rolsetup.pas,  Saveload.pas,  Score.pas,  Screen.pas,  Servis.pas,  Setbet.pas,  Testwin.pas,  Waitbtn.pas,  Winblink.pas,  Wrivalce.pas
Soubor exe: Gambler.zip

Klasický výherní automat "Daytona Classic 750" samozřejmě s trochu odlišnou grafikou.
  • Podporuje Sound Blaster nebo PC Speaker
  • ovládání je ve hře popsáno
POZOR:
  • doporučená hodnota cycles pro DOSBox není "cycles=max" ale "cycles=5000" !!
  • než se objeví hra tak se to načítá poměrně velmi velmi dlouho takže buďte trpěliví
  • pokud nevíte co přesně děláte tak servisní nastavení raději nechte bez povšimnutí
  • reset v servisním nastavení resetuje pouze počítadlo výher a vkladů, ne nastavení hry
  • pokud už jste stačili popřehazovat servisní nastavení a hra je špatně hratelná, tak vymažte soubor GAMBLER.DAT, hra se uvede do "továrního nastavení"
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;