Výherní automat DAYTONA GAMBLER pro dosbox který stáhnete z domovské stránky dosboxu
Category: KMP (Club of young programmers)
Author: Martin KolečekProgram: Daytona.pas, Default.pas, Histher.pas, Jackpot.pas, Loading.pas, Main.pas, Maingame.pas, Misc.pas, Mys.pas, Ovladani.pas
File exe: Gambler.zip
need: Plus1000.pas, Plus500.pas, Prodat.pas, Riskscr.pas, Roll.pas, Rollpre.pas, Rollproc.pas, Rolsetup.pas, Rskdolni.pas, Rskhorni.pas
Example: Saveload.pas, Score.pas, Screen.pas, Servis.pas, Setbet.pas, Testwin.pas, Update5.pas, Waitbtn.pas, Winblink.pas, Wrivalce.pas, Zisky.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 vechny 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 moné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:
Rychlost hry je konfigurovatelná. Experimentálně podporuje ovládání dotykovým displayem pro Androidy.
POZOR:
- 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í"
O dosboxu:
- pokud nevíte a neumíte tak se zeptejte někoho kdo ví a umí nebo si najděte informace o dosboxu na internetu
- hodnota cycles pro GAMBLERA na PC je tak 10000 až 20000
- hodnota cycles na mobilních zařízeních (tam pouívejte legální dosbox turbo) je tak 7000
- nedávejte cycles max nebo cycles auto, párkrát to zkuste a najděte si správnou přesnou hodnotu
- hra by neměla kazit zvuk nebo cukat obraz, pokud je cycles nastaveno optimálně ve jede hladce
- DAYTONA GAMBLER je podomácku vyrobený freeware takže ho bezestrachu iřte a ukazujte druhým jak se to hraje
- totéž dosbox pro PC je freeware, dosbox turbo je komerční ale stojí jen 60 korun tak nebuďte piráti
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 vechny 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 moné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:
- 2kč výhry = šance na výhru ve dvoukorunové hře {RollSetup bet 2, čím menší tím míň výher}
- 4kč výhry = šance na výhru ve čtyřkorunové hře {RollSetup bet 4, čím menší tím míň výher}
- 5kč výhry = šance na výhru v pětikorunové hře {RollSetup bet 5, čím menší tím míň výher}
- 2kč Joker A = pravděpodobnost výsměchu Jokera na dvoukorunové hře {TestWin bet 2J, čím menší tím víc výher}
- 2kč Joker B = pravděpodobnost zdvojnásobení Jokerem na dvoukorunové hře {TestWin bet 2J, čím menší tím míň výher}
- 4kč Joker A = pravděpodobnost výsměchu Jokera na čtyřkorunové hře {TestWin bet 4J, čím menší tím víc výher}
- 4kč Joker B = pravděpodobnost zdvojnásobení Jokerem na čtyřkorunové hře {TestWin bet 4J, čím menší tím míň výher}
- 5kč Joker = pravděpodobnost zdvojnásobení Jokerem na pětikorunové hře {TestWin bet 5J, čím menší tím míň výher} (na 5kč hře se joker neposmívá)
- riskovani = šance na zdvojnásobení riskem strany mince při náhodném risku {Risking vyhernost čím menší tím míň výher} (neplatí při risku postřehem; nebo při risku autostartem tam je poměr 1:1)
Procedure ScreenRisk; Begin WaitRetrace; {HLAVA OREL} Begin WriteSprite(252,104,100,116,131,131,Buffer[1],Buffer[4]); {RISK SVETLY} If Hlava.Enable=True then WriteSprite(220,120,0,140,47,179,Buffer[1],Buffer[4]) else WriteSprite(220,120,0,100,47,139,Buffer[1],Buffer[4]); If Orel.Enable=True then WriteSprite(268,120,48,140,95,179,Buffer[1],Buffer[4]) else WriteSprite(268,120,48,100,95,139,Buffer[1],Buffer[4]); End; {DISPLAY WIN + CREDIT} Blok(109,157,210,165,ColorBlack,Buffer[4]); Ramecek(108,154,211,166,ColorRedBright,Buffer[4]); Blok(118,152,138,156,ColorBlack,Buffer[4]); WriteText(Buffer[1],160,40,5,5,1,120,152,'win',Buffer[4]); Blok(168,152,206,156,ColorBlack,Buffer[4]); WriteText(Buffer[1],160,40,5,5,1,170,152,'credit',Buffer[4]); If VyhraShow=True then Begin If Vyhra.Castka<10 then WriteNumber(Buffer[1],160,96,5,7,1,130,158,Vyhra.Castka,Buffer[4]); If Vyhra.Castka>=100 then WriteNumber(Buffer[1],160,96,5,7,1,120,158,Vyhra.Castka,Buffer[4]); If ((Vyhra.Castka>=10) and (Vyhra.Castka<100)) then WriteNumber(Buffer[1],160,96,5,7,1,125,158,Vyhra.Castka,Buffer[4]); End; If CreditShow=True then Begin If Credit<10 then WriteNumber(Buffer[1],160,96,5,7,1,200,158,Credit,Buffer[4]); If ((Credit>=10) and (Credit<100)) then WriteNumber(Buffer[1],160,96,5,7,1,194,158,Credit,Buffer[4]); If ((Credit>=100) and (Credit<1000)) then WriteNumber(Buffer[1],160,96,5,7,1,188,158,Credit,Buffer[4]); If ((Credit>=1000) and (Credit<10000)) then WriteNumber(Buffer[1],160,96,5,7,1,182,158,Credit,Buffer[4]); If ((Credit>=10000) and (Credit<100000)) then WriteNumber(Buffer[1],160,96,5,7,1,176,158,Credit,Buffer[4]); If ((Credit>=100000) and (Credit<1000000)) then WriteNumber(Buffer[1],160,96,5,7,1,170,158,Credit,Buffer[4]); If ((Credit>=1000000) and (Credit<9999999)) then WriteNumber(Buffer[1],160,96,5,7,1,164,158,Credit,Buffer[4]); End; {Button HLAVA} If Btn[4].Phase=0 then Blok(204,185,241,199,ColorRedDark,Buffer[4]) else Blok(204,185,241,199,ColorYellow,Buffer[4]); Ramecek(204,185,241,199,ColorGreenDark,Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,235,187,'h',Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,206,193,'hlava',Buffer[4]); {Button OREL} If Btn[5].Phase=0 then Blok(243,185,278,199,ColorRedDark,Buffer[4]) else Blok(243,185,278,199,ColorYellow,Buffer[4]); Ramecek(243,185,278,199,ColorGreenDark,Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,272,187,'o',Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,245,193,'orel',Buffer[4]); {Button DO MULTIWINU} If Btn[0].Phase=0 then Blok(0,185,56,199,ColorRedDark,Buffer[4]) else Blok(0,185,56,199,ColorYellow,Buffer[4]); Ramecek(0,185,56,199,ColorGreenDark,Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,50,187,'m',Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,2,187,'do',Buffer[4]); WriteText(Buffer[1],160,20,5,5,1,2,193,'multiwinu',Buffer[4]); {HLAVA OREL BLINKING} If Risk.Blinking=True then Begin If Risk.Counter<DatRec.RiskSpeed then Inc(Risk.Counter) else Begin Risk.Counter:=0; If Risk.Phase=0 then Begin Risk.Phase:=1; Hlava.Enable:=False; Orel.Enable:=True; Btn[4].Phase:=0; Btn[5].Phase:=1; Btn[0].Phase:=1; End else Begin Risk.Phase:=0; Hlava.Enable:=True; Orel.Enable:=False; Btn[4].Phase:=1; Btn[5].Phase:=0; Btn[0].Phase:=0; End; End; End; End;