hedgewars/uGears.pas
changeset 1010 583667e81d21
parent 1009 b1f335aed35a
child 1011 4fe2c4c57d10
equal deleted inserted replaced
1009:b1f335aed35a 1010:583667e81d21
   572 						0);
   572 						0);
   573 				defaultPos:= false
   573 				defaultPos:= false
   574 				end;
   574 				end;
   575 			gtPickHammer,
   575 			gtPickHammer,
   576 			gtTeleport: defaultPos:= false;
   576 			gtTeleport: defaultPos:= false;
       
   577 			gtWhip: begin
       
   578 				DrawRotatedF(sprWhip,
       
   579 						hwRound(Gear^.X) + 1 + WorldDx,
       
   580 						hwRound(Gear^.Y) - 3 + WorldDy,
       
   581 						1,
       
   582 						hwSign(Gear^.dX),
       
   583 						0);
       
   584 				defaultPos:= false
       
   585 				end;
   577 			gtKamikaze: begin
   586 			gtKamikaze: begin
   578 						if CurAmmoGear^.Pos = 0 then
   587 						if CurAmmoGear^.Pos = 0 then
   579 							DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   588 							DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   580 									hwSign(Gear^.dX),
   589 									hwSign(Gear^.dX),
   581 									1,
   590 									1,
   664 			amKamikaze: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   673 			amKamikaze: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   665 						hwSign(Gear^.dX),
   674 						hwSign(Gear^.dX),
   666 						1,
   675 						1,
   667 						5,
   676 						5,
   668 						0);
   677 						0);
       
   678 			amWhip: begin
       
   679 				DrawRotatedF(sprWhip,
       
   680 						hwRound(Gear^.X) + 1 + WorldDx,
       
   681 						hwRound(Gear^.Y) - 3 + WorldDy,
       
   682 						0,
       
   683 						hwSign(Gear^.dX),
       
   684 						0);
       
   685 				defaultPos:= false
       
   686 				end;
   669 		else
   687 		else
   670 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   688 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   671 				hwSign(Gear^.dX),
   689 				hwSign(Gear^.dX),
   672 				0,
   690 				0,
   673 				4,
   691 				4,