www.TrSek.com
 English
English 		Slovensky
Slovensky 		Česky
Česky 		Šarišsky
Šarišsky
Programs
Source in Pascal (57)
Homework in Pascal (228)
Generator of homework
Source in Pascal (KMP) (218)
Programs in C, C++ (9)
Random program
Pascal - category
Games (28)
Homework (228)
Beginers (51)
Graphics (43)
Mathematics (133)
Geometry (31)
String (48)
Projects (34)
System (37)
Documents
Manual for Pascal (lite)
Articles about Programing (slovak) (18)
Link on interenet
FAQ – flash tips (4)
Informations
Download
Add your program in Pascal
Parameters older HDD
Contacts
Your Advertisement
Send e-mail
About – Cirriculum vitae
Visitor's book

ICQ 207919468 ICQ
Status



Category: Source in Pascal (KMP)
gambler.png
Author: 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
File 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í"
Views: 147x

Procedure SetBet0;
Begin
  Bet:=2;
  BetMulti:=0;
  BetCounter:=0;
  If DatRec.SBEnable=True then SBPlayRaw(20)
                          else PlaySound(10);
  Nasobic:=0;
  Lista[0].Enable:=True;
  Lista[1].Enable:=False;
  Lista[0].Sazka[0]:=True;
  Lista[0].Sazka[1]:=False;
End;
 
 
Procedure SetBet;
Begin
  Case BetCounter of
    0: Begin
         If Credit>=4 then Begin
                             Bet:=4;
                             BetMulti:=0;
                             Inc(BetCounter);
                             If DatRec.SBEnable=True then SBPlayRaw(20)
                                                     else PlaySound(10);
                             Nasobic:=0;
                             Lista[0].Enable:=True;
                             Lista[1].Enable:=False;
                             Lista[0].Sazka[0]:=False;
                             Lista[0].Sazka[1]:=True;
                           End
                      else SetBet0;
 
       End;
    1: Begin
         If ((Credit>=5) and (MultiWin>=5))
         then Begin
                Bet:=5;
                BetMulti:=5;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=1;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    2: Begin
         If ((Credit>=5) and (MultiWin>=15))
         then Begin
                Bet:=5;
                BetMulti:=15;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=2;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    3: Begin
         If ((Credit>=5) and (MultiWin>=25))
         then Begin
                Bet:=5;
                BetMulti:=25;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=3;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    4: Begin
         If ((Credit>=5) and (MultiWin>=35))
         then Begin
                Bet:=5;
                BetMulti:=35;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=4;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    5: Begin
         If ((Credit>=5) and (MultiWin>=45))
         then Begin
                Bet:=5;
                BetMulti:=45;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=5;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    6: Begin
         If ((Credit>=5) and (MultiWin>=55))
         then Begin
                Bet:=5;
                BetMulti:=55;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=6;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    7: Begin
         If ((Credit>=5) and (MultiWin>=65))
         then Begin
                Bet:=5;
                BetMulti:=65;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=7;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    8: Begin
         If ((Credit>=5) and (MultiWin>=75))
         then Begin
                Bet:=5;
                BetMulti:=75;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=8;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
    9: Begin
         If ((Credit>=5) and (MultiWin>=85))
         then Begin
                Bet:=5;
                BetMulti:=85;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=9;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
   10: Begin
         If ((Credit>=5) and (MultiWin>=95))
         then Begin
                Bet:=5;
                BetMulti:=95;
                Inc(BetCounter);
                If DatRec.SBEnable=True then SBPlayRaw(20)
                                        else PlaySound(10);
                Nasobic:=10;
                Lista[0].Enable:=False;
                Lista[1].Enable:=True;
                Lista[0].Sazka[0]:=False;
                Lista[0].Sazka[1]:=False;
              End
         else SetBet0;
       End;
   11: SetBet0;
  End; {Case End}
End;
 
[Run] [Save] [Print] [Send e-mail] 
Visitors: 2 000 466
Nameday: Ela
Today: 24.05.2012, 15:21
Google Pagerank: 3 Counter naj.sk:

Valid HTML 4.01 Transitional
Joke in Slovak:
Patrocny chlapcek vystraja, matka mu dohovara:
- Ked nebudes dobry, dam ta jezibabe, uvidis!
- Ale, mamicka, hadam by si ma uz nechcela ozenit?
http://www.trsek.com © Copyright 2012 TrSek, product webmaster (best resolution 1024x768)