hedgewars/uGearsHedgehog.pas
changeset 7763 6ab7307fcec3
parent 7754 e81dc9bef8b8
child 7783 ad238b677572
equal deleted inserted replaced
7762:d2fd8040534f 7763:6ab7307fcec3
   966     // hide target cursor if current hog is drowning
   966     // hide target cursor if current hog is drowning
   967     if (Gear^.State and gstDrowning) <> 0 then
   967     if (Gear^.State and gstDrowning) <> 0 then
   968         if (CurrentHedgehog^.Gear = Gear) then
   968         if (CurrentHedgehog^.Gear = Gear) then
   969             isCursorVisible:= false
   969             isCursorVisible:= false
   970     end;
   970     end;
   971 // IMO this should trigger homerun based on leftX/rightX + someval instead - that is 'knocking it out of the park'
       
   972 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   971 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
   973     begin
   972     begin
   974     inc(Gear^.FlightTime);
   973     inc(Gear^.FlightTime);
   975     if Gear^.FlightTime = 3000 then
   974     if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < leftX-250) or (hwRound(Gear^.X) > rightX+250))  then
   976         begin
   975         begin
       
   976         Gear^.FlightTime:= 0;
   977         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
   977         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
   978         PlaySound(sndHomerun)
   978         PlaySound(sndHomerun)
   979         end;
   979         end;
   980     end
   980     end
   981 else
   981 else