Klasický výherní automat Daytona Classic 750 samozřejmě s trochu odlišnou grafikou.
Delphi & Pascal (česká wiki)
Kategória: Grafika
Autor: 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
Autor: 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
- 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 SetBet0; Begin Bet:=2; BetMulti:=0; BetCounter:=0; If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=0; Lista[0].Enable:=True; Lista[1].Enable:=False; Lista[0].Sazka[0]:=True; Lista[0].Sazka[1]:=False; End; Procedure SetBet; Begin Case BetCounter of 0: Begin If Credit>=4 then Begin Bet:=4; BetMulti:=0; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=0; Lista[0].Enable:=True; Lista[1].Enable:=False; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=True; End else SetBet0; End; 1: Begin If ((Credit>=5) and (MultiWin>=5)) then Begin Bet:=5; BetMulti:=5; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=1; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 2: Begin If ((Credit>=5) and (MultiWin>=15)) then Begin Bet:=5; BetMulti:=15; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=2; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 3: Begin If ((Credit>=5) and (MultiWin>=25)) then Begin Bet:=5; BetMulti:=25; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=3; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 4: Begin If ((Credit>=5) and (MultiWin>=35)) then Begin Bet:=5; BetMulti:=35; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=4; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 5: Begin If ((Credit>=5) and (MultiWin>=45)) then Begin Bet:=5; BetMulti:=45; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=5; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 6: Begin If ((Credit>=5) and (MultiWin>=55)) then Begin Bet:=5; BetMulti:=55; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=6; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 7: Begin If ((Credit>=5) and (MultiWin>=65)) then Begin Bet:=5; BetMulti:=65; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=7; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 8: Begin If ((Credit>=5) and (MultiWin>=75)) then Begin Bet:=5; BetMulti:=75; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=8; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 9: Begin If ((Credit>=5) and (MultiWin>=85)) then Begin Bet:=5; BetMulti:=85; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=9; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 10: Begin If ((Credit>=5) and (MultiWin>=95)) then Begin Bet:=5; BetMulti:=95; Inc(BetCounter); If DatRec.SBEnable=True then SBPlayRaw(20) else PlaySound(10); Nasobic:=10; Lista[0].Enable:=False; Lista[1].Enable:=True; Lista[0].Sazka[0]:=False; Lista[0].Sazka[1]:=False; End else SetBet0; End; 11: SetBet0; End; {Case End} End;