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ória: Hry
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
Súbor 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 WaitButton(Klavesa: Byte);
Begin
  Inc(ButtonDelay);
  If ButtonDelay<ButtonSpeed
  then Wait(1) else Begin Key[Klavesa]:=False; ButtonDelay:=0; End;
End;
 
 
Procedure WaitMouseButton1;
Begin
  Inc(ButtonDelay);
  If ButtonDelay<ButtonSpeed
  then Wait(1) else Begin StahovaniMultiwinu1:=0; ButtonDelay:=0; End;
End;
 
 
Procedure WaitButton1;
Begin
  Inc(ButtonDelay);
  If ButtonDelay<ButtonSpeed
  then Wait(1) else Begin Button1Waiting:=0; ButtonDelay:=0; End;
End;