1157 //var HHGear: PGear;

  1157 begin

  1158 begin

  1158 inc(Gear^.Timer);

  1159 //HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;

  1159 if Gear^.Timer = 65 then

  1160 //HHGear^.Y:= HHGear^.Y + HHGear^.dY;

  1160 	begin

  1161 //HHGear^.dY:= HHGear^.dY + cGravity;

  1161 	Gear^.Timer:= 0;

  1162 //if TestCollisionYwithGear(HHGear, 1) then

  1162 	inc(Gear^.Pos);

  1163 //   begin

  1163 	if Gear^.Pos = 11 then

  1164    DeleteGear(Gear);

  1164 		begin

  1165    AfterAttack

  1165 		DeleteGear(Gear);

  1166 //   end

  1166 		AfterAttack

  1167 		end

  1168 	end

  1178         begin

  1180 		begin

  1179         HHGear^.Message:= HHGear^.Message and not gm_Attack;

  1181 		HHGear^.Message:= HHGear^.Message and not gm_Attack;

  1180         HHGear^.State:= HHGear^.State and not gstAttacking;

  1182 		HHGear^.State:= HHGear^.State and not gstAttacking;

  1181         HHGear^.State:= HHGear^.State or gstHHChooseTarget;

  1183 		HHGear^.State:= HHGear^.State or gstHHChooseTarget;

  1182         DeleteGear(Gear);

  1184 		DeleteGear(Gear);

  1183         isCursorVisible:= true

  1185 		isCursorVisible:= true

  1184         end

  1186 		end

  1185    else begin

  1187 	else begin

  1186         DeleteCI(HHGear);

  1188 		DeleteCI(HHGear);

  1187         SetAllHHToActive;

  1189 		SetAllHHToActive;

  1188         Gear^.doStep:= @doStepTeleportAfter;

  1190 		Gear^.doStep:= @doStepTeleportAfter;

  1189         HHGear^.X:= int2hwFloat(TargetPoint.X);

  1191 		Gear^.X:= HHGear^.X;

  1190         HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1192 		Gear^.Y:= HHGear^.Y;

  1191         HHGear^.State:= HHGear^.State or gstMoving

  1193 		HHGear^.X:= int2hwFloat(TargetPoint.X);

  1192         end;

  1194 		HHGear^.Y:= int2hwFloat(TargetPoint.Y);

  1195 		HHGear^.State:= HHGear^.State or gstMoving

  1196 		end;