hedgewars/GearDrawing.inc
changeset 4023 8de77872ef21
parent 4018 7f2c71638466
child 4024 1ffb84b3823d
equal deleted inserted replaced
4022:6042256178a8 4023:8de77872ef21
   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, hwRound(Gear^.X) + WorldDx,
   282                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
   282                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
       
   283                 DrawRotated(sprCross, hwRound(CurAmmoGear^.X) + WorldDx,
       
   284                         hwRound(CurAmmoGear^.Y) + WorldDy + (CurAmmoGear^.Power), 0, 0);
   283                 defaultPos := false;
   285                 defaultPos := false;
   284                 Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
   286                 Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
   285                 DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
   287                 DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
   286                 Tint($FF, $FF, $FF, $FF);
   288                 Tint($FF, $FF, $FF, $FF);
   287                 end;
   289                 end;