hedgewars/hwengine.pas
changeset 2905 f3c79f7193a9
parent 2825 db7c35a0e9c1
child 2947 803b277e4894
equal deleted inserted replaced
2904:209a0c573917 2905:f3c79f7193a9
    87 {$ENDIF}
    87 {$ENDIF}
    88 
    88 
    89 ////////////////////////////////
    89 ////////////////////////////////
    90 procedure DoTimer(Lag: LongInt);
    90 procedure DoTimer(Lag: LongInt);
    91 {$IFNDEF IPHONEOS}
    91 {$IFNDEF IPHONEOS}
    92 var s: string;
    92 var s: shortstring;
    93 {$ENDIF}
    93 {$ENDIF}
    94 begin
    94 begin
    95 	inc(RealTicks, Lag);
    95 	inc(RealTicks, Lag);
    96 
    96 
    97 	case GameState of
    97 	case GameState of