| changeset 10116 | dd27562b6f21 |
| parent 10108 | c68cf030eded |
| child 10127 | 7f29a65aa1e4 |
| 10115:794af9339726 | 10116:dd27562b6f21 |
|---|---|
24 procedure DoGameTick(Lag: LongInt); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uUtils, uInputHandler, uTeams, uIO, uAI, uGears, uSound, uLocale, uCaptions, |
29 uses 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(FormatPChar(trmsg[sidVolume], Str2PChar(s)), cWhiteColor, capgrpVolume) |
80 AddCaption(Format(trmsg[sidVolume], 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; |