hedgewars/GearDrawing.inc
changeset 4044 de7170e51cc6
parent 4036 69e535a0e43a
child 4077 e7d838d063a4
equal deleted inserted replaced
4043:4bf039d637df 4044:de7170e51cc6
   276                         hwSign(Gear^.dX),
   276                         hwSign(Gear^.dX),
   277                         0);
   277                         0);
   278                 defaultPos:= false
   278                 defaultPos:= false
   279                 end;
   279                 end;
   280             gtResurrector: begin
   280             gtResurrector: begin
   281                 DrawRotated(sprHandResurrector, hwRound(Gear^.X) + WorldDx,
   281                 DrawRotated(sprHandResurrector, sx, sy, 0, 0); 
   282                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
   282                 defaultPos:= false
   283                 DrawRotated(sprCross, hwRound(CurAmmoGear^.X) + WorldDx,
       
   284                         hwRound(CurAmmoGear^.Y) + WorldDy + (CurAmmoGear^.Power), 0, 0);
       
   285                 defaultPos := false;
       
   286                 Tint($f5, $db, $35, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
       
   287                 DrawTexture(sx - 108, sy - 108 + (CurAmmoGear^.Power),
       
   288                         SpritesData[sprVampiric].Texture, 4.5);
       
   289                 Tint($FF, $FF, $FF, $FF);
       
   290                 end;
   283                 end;
   291             gtKamikaze: begin
   284             gtKamikaze: begin
   292                 if CurAmmoGear^.Pos = 0 then
   285                 if CurAmmoGear^.Pos = 0 then
   293                     DrawHedgehog(sx, sy,
   286                     DrawHedgehog(sx, sy,
   294                             hwSign(Gear^.dX),
   287                             hwSign(Gear^.dX),
   863                     else
   856                     else
   864                         Tint($C0, $C0, $00, $C0);
   857                         Tint($C0, $C0, $00, $C0);
   865                     DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 36 + Gear^.UID * 100) mod 360);
   858                     DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 36 + Gear^.UID * 100) mod 360);
   866                     Tint($FF, $FF, $FF, $FF)
   859                     Tint($FF, $FF, $FF, $FF)
   867                     end;
   860                     end;
       
   861      gtResurrector: begin
       
   862                     DrawRotated(sprCross, x, y, 0, 0);
       
   863                     Tint($f5, $db, $35, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
       
   864                     DrawTexture(x - 108, y - 108, SpritesData[sprVampiric].Texture, 4.5);
       
   865                     Tint($FF, $FF, $FF, $FF);
       
   866                     end;
   868          end;
   867          end;
   869       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);
   868       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);
   870       Gear:= Gear^.NextGear
   869       Gear:= Gear^.NextGear
   871       end;
   870       end;
   872 end;
   871 end;