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čekProgram: 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 WriteSymbol(x,y:Word; Symbol:Byte; Color:Boolean; Up,Down:Byte;BufferTo:Word); Var A,B: Word; Begin Case Symbol of 1: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,0,A,31,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,0,A,31,B,Buffer[2],BufferTo); End; End; 2: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,32,A,63,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,32,A,63,B,Buffer[2],BufferTo); End; End; 3: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,64,A,95,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,64,A,95,B,Buffer[2],BufferTo); End; End; 4: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,96,A,127,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,96,A,127,B,Buffer[2],BufferTo); End; End; 5: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,128,A,159,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,128,A,159,B,Buffer[2],BufferTo); End; End; 6: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,160,A,191,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,160,A,191,B,Buffer[2],BufferTo); End; End; 7: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,192,A,223,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,192,A,223,B,Buffer[2],BufferTo); End; End; 8: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,224,A,255,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,224,A,255,B,Buffer[2],BufferTo); End; End; 9: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,256,A,287,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,256,A,287,B,Buffer[2],BufferTo); End; End; 0: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,288,A,319,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,288,A,319,B,Buffer[2],BufferTo); End; End; End; {Case End} End; Procedure KresliValce2; Begin HideMouse; WriteSymbol(108,54,Valec[0].Symbol[0],False,24-Valec[0].Scroll,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll,Valec[0].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll+24,Valec[0].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll+48,Valec[0].Symbol[3],False,0,Valec[0].Scroll,Buffer[4]); WriteSymbol(144,54,Valec[1].Symbol[0],False,24-Valec[1].Scroll,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll,Valec[1].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll+24,Valec[1].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll+48,Valec[1].Symbol[3],False,0,Valec[1].Scroll,Buffer[4]); WriteSymbol(180,54,Valec[2].Symbol[0],False,24-Valec[2].Scroll,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll,Valec[2].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll+24,Valec[2].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll+48,Valec[2].Symbol[3],False,0,Valec[2].Scroll,Buffer[4]); ShowMouse; End; Procedure KresliValce; Begin WriteSymbol(108,54,Valec[0].Symbol[0],False,24-Valec[0].Scroll,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll,Valec[0].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll+24,Valec[0].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll+48,Valec[0].Symbol[3],False,0,Valec[0].Scroll,Buffer[3]); WriteSymbol(144,54,Valec[1].Symbol[0],False,24-Valec[1].Scroll,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll,Valec[1].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll+24,Valec[1].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll+48,Valec[1].Symbol[3],False,0,Valec[1].Scroll,Buffer[3]); WriteSymbol(180,54,Valec[2].Symbol[0],False,24-Valec[2].Scroll,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll,Valec[2].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll+24,Valec[2].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll+48,Valec[2].Symbol[3],False,0,Valec[2].Scroll,Buffer[3]); End;