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 UpdateDuchod;
Begin
  HideMouse;
  Blok(264,31,319,39,ColorBlack,Buffer[4]);
  OutNumber(264,33,DatRec.Hotovost,False,Buffer[4]);
  If ((DatRec.Hotovost>=0) and (DatRec.Hotovost<10)) then OutText(272,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=10) and (DatRec.Hotovost<100)) then OutText(278,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=100) and (DatRec.Hotovost<1000)) then OutText(284,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=1000) and (DatRec.Hotovost<10000)) then OutText(290,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=10000) and (DatRec.Hotovost<100000)) then OutText(296,32,'KŸ',Buffer[4]);
  If ((DatRec.Hotovost>=100000) and (DatRec.Hotovost<9999999)) then OutText(307,32,'KŸ',Buffer[4]);
  ShowMouse;
End;