Klasický výherní automat Daytona Classic 750 samozřejmě s trochu odlišnou grafikou.
Delphi & Pascal (česká wiki)
Kategorija: Krešľeňe
Zrobil: 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
Subor exe: Gambler.zip
Zrobil: 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
Subor 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
- 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;