384                           DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)

   384                           DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)

   385                       else

   385                       else

   386                           DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);

   386                           DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);

   387             vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);

   387             vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);

   388             end;

   388             end;

   390         Gear:= Gear^.NextGear

   389         Gear:= Gear^.NextGear

   391         end;

   390         end;

   392     1: while Gear <> nil do

   391     1: while Gear <> nil do

   393         begin

   392         begin

   394         Tint(Gear^.Tint);

   393         Tint(Gear^.Tint);

   406                             if Gear^.FrameTicks < 255 then

   405                             if Gear^.FrameTicks < 255 then

   407                                 Tint($FF, $FF, $FF, Gear^.FrameTicks);

   406                                 Tint($FF, $FF, $FF, Gear^.FrameTicks);

   408                             DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);

   407                             DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);

   409                             end;

   408                             end;

   410                  end;

   409                  end;

   412         Gear:= Gear^.NextGear

   410         Gear:= Gear^.NextGear

   413         end;

   411         end;

   414     2: while Gear <> nil do

   412     2: while Gear <> nil do

   415         begin

   413         begin

   416         Tint(Gear^.Tint);

   414         Tint(Gear^.Tint);

   474             vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   472             vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   475             vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   473             vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   476             vgtHealthTag: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   474             vgtHealthTag: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);

   477             vgtCircle: DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);

   475             vgtCircle: DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);

   478         end;

   476         end;

   480         Gear:= Gear^.NextGear

   477         Gear:= Gear^.NextGear

   481         end

   478         end

   483 end;

   481 end;

   484 

   482 

   485 function  VisualGearByUID(uid : Longword) : PVisualGear;

   483 function  VisualGearByUID(uid : Longword) : PVisualGear;

   486 var vg: PVisualGear;

   484 var vg: PVisualGear;

   487 begin

   485 begin