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í
Category: KMP (Club of young programmers)
trojky.pngAuthor: 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
need: ,  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 HiScoreSaveLoad(Save: Boolean);
Begin
  FindFirst('trojky.dat',Archive,DirInfo);
  Case DosError Of
  0: Begin {OK -> LOAD or SAVE}
       Assign(F,'trojky.dat');
       If Save=True then Begin {SAVE}
                           ReWrite(F,1);
                           BlockWrite(F,HiScore,4);
                           BlockWrite(F,fps.prodleva,2);
                           BlockWrite(F,SB,1);
                         End
                    else Begin {LOAD}
                           Reset(F,1);
                           BlockRead(F,HiScore,4);
                           BlockRead(F,fps.prodleva,2);
                           BlockRead(F,SB,1);
                         End;
       Close(F);
     End;
 18: Begin {Not found -> Create new}
       Assign(F,'trojky.dat');
       ReWrite(F,1);
       HiScore:=DefaultHiScore;
       fps.prodleva:=50;
       SB:=False;
       BlockWrite(F,HiScore,4);
       BlockWrite(F,fps.prodleva,2);
       BlockWrite(F,SB,1);
       Close(F);
     End;
  End; {Case End}
End;