hedgewars/uGears.pas
changeset 987 0fcd3fadda41
parent 984 dd5f16f69926
child 994 ea415d03968c
--- a/hedgewars/uGears.pas	Tue Jun 10 20:40:43 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jun 11 15:42:53 2008 +0000
@@ -562,6 +562,23 @@
 					end;
 				gtPickHammer,
 				gtTeleport: defaultPos:= false;
+				gtKamikaze: begin
+							if CurAmmoGear^.Pos = 0 then
+								DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+										hwSign(Gear^.dX),
+										1,
+										6,
+										0)
+							else
+								DrawRotatedF(sprKamikaze,
+										hwRound(Gear^.X) + WorldDx,
+										hwRound(Gear^.Y) + WorldDy,
+										CurAmmoGear^.Pos - 1,
+										1,
+										DxDy2Angle(Gear^.dY, Gear^.dX));
+										
+							defaultPos:= false
+							end;
 			end;
 
 			case CurAmmoGear^.Kind of
@@ -632,6 +649,11 @@
 							3,
 							0);
 				amTeleport: DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, 0, hwSign(Gear^.dX), 0);
+				amKamikaze: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+							hwSign(Gear^.dX),
+							1,
+							5,
+							0);
 			else
 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
 					hwSign(Gear^.dX),