Jeden stary projekt v Pascale...

3.10.2010 22:00 | Přečteno: 1569× | 3 | poslední úprava: 3.10.2010 21:48

Zdravim davam do plena jeden starsi projekt napisany v pascale (fpc) ktory som dnes vytiahol zo 6 rokov stareho archivu najdeneho na jednom archivnom CD-R. Jedna sa o hru s nazvom Burza...

Ma mnoho chyb (urcite ) ale kedze uz na nu cas najskor nebudem mat, tak nech sa niekto do toho pozrie a ked ma pochopi ci najde chyby budem len rad... Pribeh hry je jednoduchy na zaciatku dostanete isty obnost penazi (defaultne 2000€ - predtym bolo dolarov, dnes som to uz zmenil ) a mate 31 dni ich co najlepsie vyuzit na obchodvanie na burze a ziskat co najvacsi zisk... Co viac dodat... Snad len kompilacia spustenim suboru ./compile.sh a spustenie (v debug mode) prikaz ./run.sh Skuste si

       

Komentáře

[Michal Fecko]

Příloha:

• burza.tar.bz2 (3304 bytů)

^^^^^^^^^^ Zdojaky programu v prilohe....

[hikikomori82]

daj tam uses sysutils, choice zmen z integer na string a kontroluj takto:

case StrToIntDef(choice,0) of 
   1: begin
        from_how(false);
        buy(_w,_h);
      end; 
   2: begin
        ...
      end;
   3: begin
        ...
      end;
   4: begin
        ...
      end;
   else
     ... zla volba
   end;
end;