[sytluk]

Witam,

Tworzę grę w Turbo Pascalu, w której buduje się miasto. Jak w każdym mieście należy zarabiać na podatkach obywateli. Podatki powinny wpływać co jakiś czas do kasy miasta. Jak stworzyć czas w grze, aby podatki zostały opłacane regularnie?

Za odpowiedzi z góry dziękuję.

[Maciek]

Jest taka funkcja jak gettime, poszukaj coś o niej. Zwraca czas w danej chwili, ale teraz szczegółów nie pamiętam. Jak coś znajde to napisze .

[ExeQtoR]

W TP jest trudno ale jak byś robił to w Delphi to tam masz coś takiego jak Timer i zakładkę interval i tam ustawiasz dokładność danego zdarzenia do 0,001s

A jeśli chodzi o TP to ja na razie proponuje coś takiego:

Kod:

Var  H,M,S,St,H0,M0,S0,St0: Word; Begin  GetTime(H0,M0,S0,St0); End;

I następnie bym pobierał czas w pętli do:

Kod:

Begin  GetTime(H,M,S,St); End;

No i Odejmował wtedy otrzymasz konkretne liczby

Kod:

roznica_czasu:=(h0*360000+m0*6000+s0*100+st0)-(h*360000+m*6000+s*100+st);

I załużmy:

Kod:

If roznica_czasu >= 12000 Then  Begin   h0:=h; m0:=m; s0:=s; st0:=st;    ....  End;

No i to wszystko w jakiejś pętli A linijka ta z tym: "h0:=h; m0:=m; s0:=s; st0:=st;" Jest po to aby do zmiennych "0" przypisać czas aktualny i wtedy nie musisz zwiększać tego np: "1000" w warunku logicznym a jeśli chcesz aby był wyświetlany czas gry no to musisz mieć jeszcze jakieś zmienne

PS:
Nie pamiętam już czy w Pascalu są setne sekundy czy tysięczne Ale podałem na setnych 12000=2minuty