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órie: KMP (Programy mladých programátorů)
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
Potřebné: ,  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 WriteMainScreen;
Begin
  ClearPage(Buffer[3]);
  WriteNumber(Buffer[1],160,184,16,16,1,10,10,HiScore,Buffer[3]);
  If FPS2s=True then WriteText(Buffer[1],160,136,16,16,1,75,180,'press enter',Buffer[3]);
  WriteBlok(10,68,10,68,309,135,Buffer[2],Buffer[3]);
  WriteText(Buffer[1],0,180,5,5,1,277,195,'s=setup',Buffer[3]);
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
End;
 
 
Procedure Main;
Begin
  Konec:=False;
  Randomize;
  HiScoreSaveLoad(False); {LOAD}
  LoadDefaultFont(0,180,ColorRed,Buffer[1]);
  Repeat
    WriteMainScreen;
    Wait(fps.prodleva);
    If Key[28]=True then
    Begin
      While Key[28]=True do Begin End;
      If SB=False then PlaySound(2) else SBPlayRaw(2);
      MainGame;
    End;
    If Key[31]=True then
    Begin
      While Key[31]=True do Begin End;
      Setup;
    End;
    If Key[1]=True then Konec:=True;
  Until Konec=True;
End;