hedgewars/hwengine.pas
changeset 3976 abaf741a4e21
parent 3971 5c82ee165ed5
child 4004 b1c2c2f6fc5e
child 4046 cfdbddc4b385
equal deleted inserted replaced
3975:3f605cca9215 3976:abaf741a4e21
   173         end; // end while SDL_PollEvent(@event) <> 0
   173         end; // end while SDL_PollEvent(@event) <> 0
   174 
   174 
   175         if isTerminated = false then
   175         if isTerminated = false then
   176         begin
   176         begin
   177             CurrTime:= SDL_GetTicks;
   177             CurrTime:= SDL_GetTicks;
   178             if PrevTime + cTimerInterval <= CurrTime then
   178             if PrevTime + longword(cTimerInterval) <= CurrTime then
   179             begin
   179             begin
   180                 DoTimer(CurrTime - PrevTime);
   180                 DoTimer(CurrTime - PrevTime);
   181                 PrevTime:= CurrTime
   181                 PrevTime:= CurrTime
   182             end
   182             end
   183             else SDL_Delay(1);
   183             else SDL_Delay(1);