hedgewars/uGears.pas
changeset 943 a0c36a0b3ad9
parent 930 3f61bd3b08fd
child 954 0cc31e998f4e
equal deleted inserted replaced
942:b41af014d85e 943:a0c36a0b3ad9
   542 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   542 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   543 						hwSign(Gear^.dX),
   543 						hwSign(Gear^.dX),
   544 						1,
   544 						1,
   545 						3,
   545 						3,
   546 						0);
   546 						0);
       
   547 				defaultPos:= false
   547 				end;
   548 				end;
   548 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
   549 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
       
   550 			gtFirePunch: begin
       
   551 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
       
   552 						hwSign(Gear^.dX),
       
   553 						1,
       
   554 						4,
       
   555 						0);
       
   556 				defaultPos:= false
       
   557 				end;
   549 			gtPickHammer,
   558 			gtPickHammer,
   550 			gtTeleport: defaultPos:= false;
   559 			gtTeleport: defaultPos:= false;
   551 		end;
   560 		end;
   552 
   561 
   553 		case CurAmmoGear^.Kind of
   562 		case CurAmmoGear^.Kind of