hedgewars/uGearsHedgehog.pas
changeset 7623 addc5b262617
parent 7615 b39beffcf05e
child 7646 3c18ad8af8a2
equal deleted inserted replaced
7622:172fb1c7615b 7623:addc5b262617
  1012     // hide target cursor if current hog is drowning
  1012     // hide target cursor if current hog is drowning
  1013     if (Gear^.State and gstDrowning) <> 0 then
  1013     if (Gear^.State and gstDrowning) <> 0 then
  1014         if (CurrentHedgehog^.Gear = Gear) then
  1014         if (CurrentHedgehog^.Gear = Gear) then
  1015             isCursorVisible:= false
  1015             isCursorVisible:= false
  1016     end;
  1016     end;
  1017 
  1017 // IMO this should trigger homerun based on leftX/rightX + someval instead - that is 'knocking it out of the park'
  1018 if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
  1018 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
  1019     begin
  1019     begin
  1020     inc(Gear^.FlightTime);
  1020     inc(Gear^.FlightTime);
  1021     if Gear^.FlightTime = 3000 then
  1021     if Gear^.FlightTime = 3000 then
  1022         begin
  1022         begin
  1023         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
  1023         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);