equal
deleted
inserted
replaced
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; |
35 s: shortstring; |
35 s: ansistring; |
36 begin |
36 begin |
37 if isPaused then |
37 if isPaused then |
38 exit; |
38 exit; |
39 |
39 |
40 if (not CurrentTeam^.ExtDriven) then |
40 if (not CurrentTeam^.ExtDriven) then |
74 i:= ChangeVolume(cVolumeDelta); |
74 i:= ChangeVolume(cVolumeDelta); |
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 s:= ansistring(inttostr(i)); |
80 AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume) |
80 AddCaption(FormatA(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; |