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:
Function EnterStiskly1: Byte;
Begin
If ((GetMouseX>=80*2) and (GetMouseX<=240*2) and
    (GetMouseY>=40) and (GetMouseY<=104) and
    (GetButton1=1)) then EnterStiskly1:=1
                    else EnterStiskly1:=0;
End;
 
 
Function AutostartStiskly1: Byte;
Begin
If ((GetMouseX>=0*2) and (GetMouseX<=62*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then AutostartStiskly1:=1
                    else AutostartStiskly1:=0;
End;
 
 
Function StartStiskly1: Byte;
Begin
If ((GetMouseX>=64*2) and (GetMouseX<=103*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then StartStiskly1:=1
                    else StartStiskly1:=0;
End;
 
 
Function WinGambleStiskly1: Byte;
Begin
If ((GetMouseX>=105*2) and (GetMouseX<=144*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then WinGambleStiskly1:=1
                    else WinGambleStiskly1:=0;
End;
 
 
Function VsaditStiskly1: Byte;
Begin
If ((GetMouseX>=146*2) and (GetMouseX<=185*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then VsaditStiskly1:=1
                    else VsaditStiskly1:=0;
End;
 
 
Function DoMultiwinuStiskly1: Byte;
Begin
If ((GetMouseX>=187*2) and (GetMouseX<=237*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then DoMultiwinuStiskly1:=1
                    else DoMultiwinuStiskly1:=0;
End;
 
 
Function HlavaStiskly1: Byte;
Begin
If ((GetMouseX>=239*2) and (GetMouseX<=278*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then HlavaStiskly1:=1
                    else HlavaStiskly1:=0;
End;
 
 
Function OrelStiskly1: Byte;
Begin
If ((GetMouseX>=280*2) and (GetMouseX<=319*2) and
    (GetMouseY>=185) and (GetMouseY<=199) and
    (GetButton1=1)) then OrelStiskly1:=1
                    else OrelStiskly1:=0;
End;
 
 
Function VybratCreditStiskly1: Byte;
Begin
If ((GetMouseX>=220*2) and (GetMouseX<=270*2) and
    (GetMouseY>=44) and (GetMouseY<=59) and
    (GetButton1=1)) then VybratCreditStiskly1:=1
                    else VybratCreditStiskly1:=0;
End;
 
 
Function VybratMultiwinStiskly1: Byte;
Begin
If ((GetMouseX>=220*2) and (GetMouseX<=270*2) and
    (GetMouseY>=62) and (GetMouseY<=76) and
    (GetButton1=1)) then VybratMultiwinStiskly1:=1
                    else VybratMultiwinStiskly1:=0;
End;
 
 
Function PadesatStiskly1: Byte;
Begin
If ((GetMouseX>=272*2) and (GetMouseX<=278*2) and
    (GetMouseY>=44) and (GetMouseY<=83) and
    (GetButton1=1)) then PadesatStiskly1:=1
                    else PadesatStiskly1:=0;
End;
 
 
Function PetSetStiskly1: Byte;
Begin
If ((GetMouseX>=279*2) and (GetMouseX<=281*2) and
    (GetMouseY>=42) and (GetMouseY<=60) and
    (GetButton1=1)) then PetSetStiskly1:=1
                    else PetSetStiskly1:=0;
End;
 
 
Function TisicStiskly1: Byte;
Begin
If ((GetMouseX>=279*2) and (GetMouseX<=281*2) and
    (GetMouseY>=61) and (GetMouseY<=78) and
    (GetButton1=1)) then TisicStiskly1:=1
                    else TisicStiskly1:=0;
End;
 
 
Function PeStiskly1: Byte;
Begin
If ((GetMouseX>=260*2) and (GetMouseX<=300*2) and
    (GetMouseY>=60) and (GetMouseY<=80) and
    (GetButton1=1)) then PeStiskly1:=1
                    else PeStiskly1:=0;
End;