1062 

  1063 ////////////////////////////////////////////////////////////////////////////////

  1064 

  1065 procedure doStepGirder(Gear: PGear);

  1066 begin

  1067 AllInactive:= false;

  1068 writelntoconsole(inttostr(TargetPoint.X));

  1069 if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,

  1070                       TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,

  1071                       sprAmGirder, Gear^.State) then

  1072    with PHedgehog(Gear^.Hedgehog)^.Gear^ do

  1073         begin

  1074         State:= State and not gstAttacking;

  1075         Message:= Message and not gm_Attack;

  1076         isCursorVisible:= true;

  1077         with PHedgehog(Gear^.Hedgehog)^ do

  1078              State:= State or gstHHChooseTarget

  1079         end

  1080    else AfterAttack;

  1081 TargetPoint.X:= NoPointX;

  1082 DeleteGear(Gear)

  1083 end;