equal
deleted
inserted
replaced
187 |
187 |
188 procedure doStepHealthTag(Gear: PGear); |
188 procedure doStepHealthTag(Gear: PGear); |
189 var s: shortstring; |
189 var s: shortstring; |
190 font: THWFont; |
190 font: THWFont; |
191 begin |
191 begin |
192 AllInactive:= false; |
|
193 if Gear^.Kind = gtHealthTag then |
192 if Gear^.Kind = gtHealthTag then |
194 begin |
193 begin |
|
194 AllInactive:= false; |
195 font:= fnt16; |
195 font:= fnt16; |
196 Gear^.dY:= -_0_08 |
196 Gear^.dY:= -_0_08 |
197 end else |
197 end else |
198 begin |
198 begin |
199 font:= fntSmall; |
199 font:= fntSmall; |