hedgewars/uVisualGears.pas
changeset 3326 7f57fc2bf630
parent 3267 02139461250c
child 3376 faee68a28b82
equal deleted inserted replaced
3325:652a8ebdf667 3326:7f57fc2bf630
   799                                 glColor4f(1, 1, 1, Gear^.FrameTicks / 250);
   799                                 glColor4f(1, 1, 1, Gear^.FrameTicks / 250);
   800                             DrawRotatedF(sprEgg, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   800                             DrawRotatedF(sprEgg, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
   801                             if Gear^.FrameTicks < 250 then
   801                             if Gear^.FrameTicks < 250 then
   802                                 glColor4f(1, 1, 1, 1);
   802                                 glColor4f(1, 1, 1, 1);
   803                             end;
   803                             end;
   804                 vgtSplash: DrawSprite(sprSplash, hwRound(Gear^.X) + WorldDx - 64, hwRound(Gear^.Y) + WorldDy - 72, 19 - (Gear^.FrameTicks div 37));
   804                 vgtSplash: DrawSprite(sprSplash, hwRound(Gear^.X) + WorldDx - 40, hwRound(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
   805                 vgtDroplet: DrawSprite(sprDroplet, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, Gear^.Frame);
   805                 vgtDroplet: DrawSprite(sprDroplet, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, Gear^.Frame);
   806                vgtBeeTrace: begin
   806                vgtBeeTrace: begin
   807                             if Gear^.FrameTicks < 250 then
   807                             if Gear^.FrameTicks < 250 then
   808                                 glColor4f(1, 1, 1, Gear^.FrameTicks / 500)
   808                                 glColor4f(1, 1, 1, Gear^.FrameTicks / 500)
   809                             else
   809                             else