Jednoduchá logická hra ve které máte za úkol skládat na sebe kostky tak aby tvořily kombinace tří a více kostiček stejného symbolu.

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)
trojky.pngAutor: Martin Koleček
Program: Trojky.pas,  Default.pas,  Loadgfx.pas,  Loadsnds.pas,  Main.pas,  Maingame.pas,  Misc.pas,  Reaction.pas,  Scorfile.pas,  Screenpl.pas,  Setup.pas
Potrebné: ,  Trojky.zip

Jednoduchá logická hra ve které máte za úkol skládat na sebe kostky tak aby tvořily kombinace tří a více kostiček stejného symbolu.
  • Podporuje Sound Blaster nebo PC Speaker
  • hra samotná se ovládá šipkami a mezerníkem
POZOR:
  • doporučená hodnota cycles pro DOSBox není "cycles=max" ale "cycles=12000" !!
  • cycles 5000 pro dosbox je optimalni pri rychlosti hry 35 viz setup, tak se vyhnete zvukovym lagum pri pouzit PC-Speakeru i na slabsich strojich
  • než se objeví hra tak se to načítá poměrně velmi velmi dlouho takže buďte trpěliví
Procedure SetupScreen;
Begin
  ClearPage(Buffer[3]);
  WriteText(Buffer[1],0,180,5,5,1,270,5,'esc=exit',Buffer[3]);
  WriteText(Buffer[1],0,180,5,5,1,10,5,'l = rychlost hry =',Buffer[3]);
  WriteNumber(Buffer[1],0,195,5,5,1,120,5,51-fps.prodleva,Buffer[3]);
  WriteText(Buffer[1],0,180,5,5,1,10,15,'b = sound blaster =',Buffer[3]);
  If SB=True then WriteText(Buffer[1],0,180,5,5,1,127,15,'povoleno',Buffer[3])
             else WriteText(Buffer[1],0,180,5,5,1,127,15,'zakazano',Buffer[3]);
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
End;
 
 
Procedure Setup;
Var Ending: Boolean;
Begin
  Ending:=False;
  Repeat
    SetupScreen;
    Wait(fps.prodleva);
 
{L}   If Key[38]=True then
      Begin
        While Key[38]=True do WaitButton(38,20);
        If fps.prodleva>1 then Dec(fps.prodleva)
                          else fps.prodleva:=50;
      End;
 
{B}   If Key[48]=True then
      Begin
        While Key[48]=True do Begin End;
        If SB=True then SB:=False
                   else SB:=True;
      End;
 
{Esc} If Key[1]=True then
      Begin
        While Key[1]=True do Begin End;
        Ending:=True;
      End;
  Until Ending=True;
  HiScoreSaveLoad(True); {SAVE}
End;