| changeset 10105 | 8c5fa1d15bd5 |
| parent 10015 | 4feced261c68 |
| child 10108 | c68cf030eded |
| 10104:cb0b750bd8a3 | 10105:8c5fa1d15bd5 |
|---|---|
24 procedure DoGameTick(Lag: LongInt); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uInputHandler, uTeams, uIO, uAI, uGears, uSound, uLocale, uCaptions, |
29 uses uUtils, uInputHandler, uTeams, uIO, uAI, uGears, uSound, uLocale, uCaptions, |
30 uTypes, uVariables, uCommands, uConsts, uVisualGearsList |
30 uTypes, uVariables, uCommands, uConsts, uVisualGearsList |
31 {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}; |
31 {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}; |
32 |
32 |
33 procedure DoGameTick(Lag: LongInt); |
33 procedure DoGameTick(Lag: LongInt); |
34 var i,j : LongInt; |
34 var i,j : LongInt; |
75 if isAudioMuted and (j<>i) then |
75 if isAudioMuted and (j<>i) then |
76 AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume) |
76 AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume) |
77 else if not isAudioMuted then |
77 else if not isAudioMuted then |
78 begin |
78 begin |
79 str(i, s); |
79 str(i, s); |
80 AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume) |
80 AddCaption(FormatPChar(trmsg[sidVolume], Str2PChar(s)), cWhiteColor, capgrpVolume) |
81 end |
81 end |
82 end; |
82 end; |
83 end; |
83 end; |
84 PlayNextVoice; |
84 PlayNextVoice; |
85 i:= 1; |
85 i:= 1; |