Klasický výherní automat Daytona Classic 750 samozřejmě s trochu odlišnou grafikou.

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Hry
gambler.pngAutor: 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
POZOR:
  • 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 RollSetup;
Var I,A: Byte;
Begin
  For I:=0 to 2 do
  Begin
    Valec[I].Rotate:=True;
    Valec[I].Scroll:=0;
    Slow[I].Mode:=0;
  End;
 
  For I:=1 to 5 do WinConf.Vyhra[I]:=False;
  For I:=1 to 9 do WinConf.Symbol[I]:=0;
 
  Valec[0].Counter:=239+Random(7)*24;
  Valec[1].Counter:=479+Random(7)*24;
  Valec[2].Counter:=719+Random(7)*24;
 
  {SlowDown Valce}
    A:=Random(2);
    If A=0 then
    Begin
      Randomize;
      A:=Random(3);
      For I:=0 to A do Slow[Random(3)].Mode:=1;
    End;
    For I:=0 to 2 do If Slow[I].Mode=1 then Inc(Valec[I].Counter,720);
 
  {Odstraneni Vyhry}
    WildJoker:=False;
    Vyhra.Castka:=0;
 
    PreValec[0].Counter:=Valec[0].Counter;
    PreValec[1].Counter:=Valec[1].Counter;
    PreValec[2].Counter:=Valec[2].Counter;
 
    For I:=0 to 2 do
    Begin
      PreValec[I].SymbolCounter:=Valec[I].SymbolCounter;
      For A:=0 to 4 do PreValec[I].Symbol[A]:=Valec[I].Symbol[A];
      PreValec[I].Rotate:=True;
      PreValec[I].Scroll:=0;
    End;
 
    AllStopedPre:=False;
    Repeat
      RollPre;
    Until AllStopedPre=True;
 
    BezEfektu:=True;
    WinBude:=False;
    TestWin;
    If WinBude=True then
    Begin
      Obtiznost:=Random(65535);
      If Lista[0].Enable=True then
      Begin
        If Bet=2 then
        Begin
          If Obtiznost>=DatRec.Nahoda[0] then {8192}
          For I:=0 to 2 do Inc(Valec[I].Counter,Random((4)+1)*24);
        End;
        If Bet=4 then
        Begin
          If Obtiznost>=DatRec.Nahoda[1] then {32000}
          For I:=0 to 2 do Inc(Valec[I].Counter,Random((4)+1)*24);
        End
      End;
      If Lista[1].Enable=True then
      Begin
        If Obtiznost>=DatRec.Nahoda[2] then {20000}
        For I:=0 to 2 do Inc(Valec[I].Counter,Random((4)+1)*24);
      End;
    End;
    BezEfektu:=False;
 
    For I:=0 to 2 do
    Begin
      Valec[I].SymbolCounter:=PreValec[I].SymbolCounter;
      For A:=0 to 4 do Valec[I].Symbol[A]:=PreValec[I].Symbol[A];
    End;
 
  RiskSpeed:=2;
  RiskSpeedCounter:=3;
  RiskSPDCounter:=2;
 
  SoundValce:=0;
  WildJoker:=False;
  Vyhra.Castka:=0;
End;