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 AddScore(Number: Word); Var Counter: Byte; I: Byte; zbytek: Byte; SoundCounter: Byte; Procedure DoDeseti(N: Byte); Var A: Byte; Begin Counter:=0; While N>0 do Begin If Counter<2 then Begin Inc(Counter); TestStopAutoStart; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva div 2); End else Begin UpdateScore; Wait(DatRec.fpsProdleva div 5); End; End else Begin Counter:=0; Inc(MultiWin); Dec(N); Dec(Vyhra.Castka); If DatRec.SBEnable=True then SBPlayRaw(15) else PlaySound(5); If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva); End else Begin UpdateScore; Wait(DatRec.fpsProdleva div 2); End; End; End; End; Begin VyhraShow:=False; CreditShow:=False; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; MainGameScreen; VyhraShow:=True; CreditShow:=False; Vyhra.Castka:=Number; MainGameScreen; For I:=0 to 49 do Wait(DatRec.fpsProdleva); {prepocitani do multiwinu} If Number<=10 then DoDeseti(Number) else Begin zbytek:=Number mod 10; DoDeseti(zbytek); Dec(Number,zbytek); Counter:=0; SoundCounter:=0; While Number>0 do Begin If Counter<2 then Begin Inc(Counter); TestStopAutoStart; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva div 2); End else Begin UpdateScore; Wait(DatRec.fpsProdleva div 5); End; End else Begin Counter:=0; Inc(MultiWin,5); Dec(Number,5); Dec(Vyhra.Castka,5); If ((SoundCounter>=0) and (SoundCounter<25)) then Begin If DatRec.SBEnable=True then SBPlayRaw(15) else PlaySound(5); End; If ((SoundCounter>=25) and (SoundCounter<50)) then Begin If DatRec.SBEnable=True then SBPlayRaw(16) else PlaySound(6); End; If ((SoundCounter>=50) and (SoundCounter<75)) then Begin If DatRec.SBEnable=True then SBPlayRaw(17) else PlaySound(7); End; If ((SoundCounter>=75) and (SoundCounter<100)) then Begin If DatRec.SBEnable=True then SBPlayRaw(12) else PlaySound(2); End; If ((SoundCounter>=100) and (SoundCounter<125)) then Begin If DatRec.SBEnable=True then SBPlayRaw(13) else PlaySound(3); End; If ((SoundCounter>=125) and (SoundCounter<=150)) then Begin If DatRec.SBEnable=True then SBPlayRaw(14) else PlaySound(4); End; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva div 2); End else Begin UpdateScore; Wait(DatRec.fpsProdleva div 5); End; If SoundCounter<150 then Inc(SoundCounter); End; End; End; VyhraShow:=False; CreditShow:=True; Vyhra.Castka:=0; End;