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.pasDefault.pasLoadgfx.pasLoadsnds.pasMain.pasMaingame.pasMisc.pasReaction.pasScorfile.pasScreenpl.pasSetup.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 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;