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 ResetVyhernosti; Begin {Limit 65535 WORD} DatRec.Nahoda[0]:=8000; {RollSetup bet 2, cim mensi tim min vyher} DatRec.Nahoda[1]:=25000; {RollSetup bet 4, cim mensi tim min vyher} DatRec.Nahoda[2]:=20000; {RollSetup bet 5, cim mensi tim min vyher} DatRec.Nahoda[3]:=18000; {TestWin bet 2J, cim mensi tim vic vyher} DatRec.Nahoda[4]:=47000; {TestWin bet 2J, cim mensi tim min vyher} DatRec.Nahoda[5]:=24000; {TestWin bet 4J, cim mensi tim vic vyher} DatRec.Nahoda[6]:=40000; {TestWin bet 4J, cim mensi tim min vyher} DatRec.Nahoda[7]:=48000; {TestWin bet 5J, cim mensi tim min vyher} DatRec.Nahoda[8]:=34000; {Risking vyhernost cim mensi tim min vyher} End; Procedure SaveLoad(Save: Boolean); Var I: Byte; Begin FindFirst('gambler.dat',Archive,DirInfo); Case DosError Of 0: Begin {OK -> LOAD or SAVE} Assign(F,'gambler.dat'); If Save=True then Begin {SAVE} ReWrite(F,1); BlockWrite(F,DatRec,SizeOf(DatRec)); End else Begin {LOAD} Reset(F,1); BlockRead(F,DatRec,SizeOf(DatRec)) End; Close(F); End; 18: Begin {Not found -> Create new} Assign(F,'gambler.dat'); ReWrite(F,1); DatRec.fpsProdleva:=15; DatRec.RollSpeed:=1; DatRec.RawEnable:=True; DatRec.HiScore:=0; DatRec.Pub.Vklady:=0; DatRec.Pub.Vyplaceno:=0; DatRec.SBEnable:=True; DatRec.PS3:=True; DatRec.Hotovost:=0; For I:=0 to 13 do Begin DatRec.vec[I]:=True; VecProdata[I]:=False; End; ResetVyhernosti; DatRec.NahodnyRisk:=True; BlockWrite(F,DatRec,SizeOf(DatRec)); Close(F); End; End; {Case End} End; Procedure SaveLoadHistorie(Save: Boolean); Var I: Byte; Begin FindFirst('gambler.sav',Archive,DirInfo); Case DosError Of 0: Begin {OK -> LOAD or SAVE} Assign(F,'gambler.sav'); If Save=True then Begin {SAVE} ReWrite(F,1); BlockWrite(F,DatRec2,SizeOf(DatRec2)); End else Begin {LOAD} Reset(F,1); BlockRead(F,DatRec2,SizeOf(DatRec2)) End; Close(F); End; 18: Begin {Not found -> Create new} Assign(F,'gambler.sav'); ReWrite(F,1); For I:=0 to MaxHistorie do Begin DatRec2.Vklad[I]:=0; DatRec2.Vyplaceno[I]:=0; End; DatRec2.JackPot:=0; DatRec2.JackPotCounter:=9; BlockWrite(F,DatRec2,SizeOf(DatRec2)); Close(F); End; End; {Case End} End;