Výherní automat DAYTONA GAMBLER pro dosbox který stáhnete z domovské stránky dosboxu

Category: KMP (Club of young programmers)
gambler.jpgAuthor: Martin Koleček
Program: Daytona.pasDefault.pasHisther.pasJackpot.pasLoading.pasMain.pasMaingame.pasMisc.pasMys.pasOvladani.pas
File exe: Gambler.zip
need: Plus1000.pasPlus500.pasProdat.pasRiskscr.pasRoll.pasRollpre.pasRollproc.pasRolsetup.pasRskdolni.pasRskhorni.pas
Example: Saveload.pasScore.pasScreen.pasServis.pasSetbet.pasTestwin.pasUpdate5.pasWaitbtn.pasWinblink.pasWrivalce.pasZisky.pas

Výherní automat podle skutečného stroje Daytona 750. Podporuje Sound Blaster.
Rychlost hry je konfigurovatelná. Experimentálně podporuje ovládání dotykovým displayem pro Androidy.

POZOR:
O dosboxu:


Nastavení výhernosti:
V servisní obrazovce klávesou TAB měníte switch a nahoru dolů manipupuje s výherností rozsahy jsou 0 až 65000 v‘echny switche a číslo na něm vyrábí poměr mezi dvěma stavy, obvykle to bývá jestli je výhra nebo není výhra a číslo teda dělí na poměr mezi těmito stavy, vždy "0 až číslo" je jedna část, třeba jestli se riskovani povede nebo nepovede a "číslo až 65000" je druhá část možného výsledku. Nakonec rozhodne náhodné číslo z rozsahu "0 až 65535" , ale záleží na poměru na switchi co je pravděpodobněj‘í interval.


SWITCHE:
Procedure Default;
Var I: Byte;
Begin
  DatRec.fpsProdleva:=20;
 
  SetPal(ColorGreenDark,0,40,0);
  SetPal(ColorGreenBright,0,63,0);
  SetPal(ColorRedDark,20,0,0);
  SetPal(ColorRedBright,63,0,0);
  SetPal(ColorBlack,0,0,0);
  SetPal(ColorWhite,63,63,63);
  SetPal(ColorYellow,63,63,0);
  SetPal(ColorTexter,19,22,63);
  SetPal(ColorCtecka,30,17,9);
 
  ButtonDelay:=20;
 
  For I:=0 to 8 do
  Begin
    Btn[I].Blinking:=False;
    Btn[I].Phase:=0;
    Btn[I].Counter:=0;
  End;
 
  Lista[0].Enable:=True;
  Lista[0].Sazka[0]:=True;
  Lista[0].Sazka[1]:=False;
  Lista[1].Enable:=False;
 
  Risk.Enable:=False;
 
  CreditShow:=True;
  VyhraShow:=False;
  VkladShow:=False;
 
  WinGamble.Enable:=False;
 
  JackPotPadl:=False;
  Credit:=0;
  Vyhra.Castka:=0;
  MultiWin:=0;
  Bonus:=0;
  Bet:=2;
  BetMulti:=0;
  BetCounter:=0;
  Nasobic:=0;
  AutoStart:=False;
  AutoStartTyp:=0;
  VkladyTMP:=0;
  VyplacenoTMP:=0;
  Obrazek:=0;
 
  Randomize;
  For I:=0 to 2 do Valec[I].SymbolCounter:=Random(25);
End;