245 if vobVelocity = 0 then |
245 if vobVelocity = 0 then |
246 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
246 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
247 else |
247 else |
248 DrawSpriteRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);*) |
248 DrawSpriteRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);*) |
249 vgtSpeechBubble: begin |
249 vgtSpeechBubble: begin |
250 if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then |
250 if (Gear^.Tex <> nil) and (Gear^.State <= 2) then |
251 begin |
251 begin |
252 tinted:= true; |
252 // make speech bubbles of inactive teams' hogs transparent |
253 Tint($FF, $FF, $FF, $66); |
253 if ((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1) then |
254 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
254 begin |
255 end |
255 tinted:= true; |
256 else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then |
256 Tint($FF, $FF, $FF, $66); |
257 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
257 end; |
|
258 DrawTextureCentered(round(Gear^.X), round(Gear^.Y), Gear^.Tex); |
|
259 end; |
258 end; |
260 end; |
259 vgtSmallDamageTag: DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
261 vgtSmallDamageTag: DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
260 vgtHealthTag: if Gear^.Tex <> nil then |
262 vgtHealthTag: if Gear^.Tex <> nil then |
261 begin |
263 begin |
262 if Gear^.Frame = 0 then |
264 if Gear^.Frame = 0 then |