Ruleta - známa kasínová hra

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)
ruleta.pngAutor: Peter Sulko
Program: Ruleta.pas
Soubor exe: Ruleta.exe
Potřebné: Rule01.pas

Ide o známu kasínovú hru. Minimálny vklad je 10 Korún. Ľavým tlačítkom myši v hracom poli zvyšujem stávku o 10, pravým tlačítkom myši v hracom poli znižujem stávku o 10.
Kredit je teoreticky nevyčerpateľný, takže tipujte......
{ RULE01.PAS                                    Copyright (c) Sulko }
{                                                                   }
{ Ide o znamu kasinovi hru. Minimalny vklad je 10 Korun.            }
{ Lavym tlacitkom mysi v hracom poli zvysujem stavku o 10,          }
{ pravym tlacitkom mysi v hracom poli znizujem stavku o 10.         }
{ Kredit je teoreticky nevycerpatelny, takze tipujte......          }
{                                                                   }
{ Author: Peter Sulko                                               }
{ Date  : 2003                                 http://www.trsek.com }
 
Unit RULE01;
INTERFACE
  Procedure PEGAVGA;
  Procedure PGOTH;
  Procedure PLITT;
  Procedure PSANS;
  Procedure PTRIP;
IMPLEMENTATION
  Procedure PEGAVGA;  External;  {$L EGAVGA.OBJ}
  Procedure PGOTH;    External;  {$L GOTH.OBJ}
  Procedure PLITT;    External;  {$L LITT.OBJ}
  Procedure PSANS;    External;  {$L SANS.OBJ}
  Procedure PTRIP;    External;  {$L TRIP.OBJ}
END.