hedgewars/uGears.pas
changeset 987 0fcd3fadda41
parent 984 dd5f16f69926
child 994 ea415d03968c
equal deleted inserted replaced
986:434b95f00211 987:0fcd3fadda41
   560 							0);
   560 							0);
   561 					defaultPos:= false
   561 					defaultPos:= false
   562 					end;
   562 					end;
   563 				gtPickHammer,
   563 				gtPickHammer,
   564 				gtTeleport: defaultPos:= false;
   564 				gtTeleport: defaultPos:= false;
       
   565 				gtKamikaze: begin
       
   566 							if CurAmmoGear^.Pos = 0 then
       
   567 								DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
       
   568 										hwSign(Gear^.dX),
       
   569 										1,
       
   570 										6,
       
   571 										0)
       
   572 							else
       
   573 								DrawRotatedF(sprKamikaze,
       
   574 										hwRound(Gear^.X) + WorldDx,
       
   575 										hwRound(Gear^.Y) + WorldDy,
       
   576 										CurAmmoGear^.Pos - 1,
       
   577 										1,
       
   578 										DxDy2Angle(Gear^.dY, Gear^.dX));
       
   579 										
       
   580 							defaultPos:= false
       
   581 							end;
   565 			end;
   582 			end;
   566 
   583 
   567 			case CurAmmoGear^.Kind of
   584 			case CurAmmoGear^.Kind of
   568 				gtShotgunShot,
   585 				gtShotgunShot,
   569 				gtDEagleShot,
   586 				gtDEagleShot,
   630 							hwSign(Gear^.dX),
   647 							hwSign(Gear^.dX),
   631 							1,
   648 							1,
   632 							3,
   649 							3,
   633 							0);
   650 							0);
   634 				amTeleport: DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, 0, hwSign(Gear^.dX), 0);
   651 				amTeleport: DrawRotatedF(sprTeleport, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy, 0, hwSign(Gear^.dX), 0);
       
   652 				amKamikaze: DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
       
   653 							hwSign(Gear^.dX),
       
   654 							1,
       
   655 							5,
       
   656 							0);
   635 			else
   657 			else
   636 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   658 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   637 					hwSign(Gear^.dX),
   659 					hwSign(Gear^.dX),
   638 					0,
   660 					0,
   639 					4,
   661 					4,