hedgewars/uAmmos.pas
changeset 10818 f642a28cab0c
parent 10560 9f09196d92a6
child 11046 47a8c19ecb60
equal deleted inserted replaced
10816:37410518628e 10818:f642a28cab0c
   398         if (Propz and ammoprop_Timerable) <> 0 then
   398         if (Propz and ammoprop_Timerable) <> 0 then
   399             s:= s + ansistring(', ' + IntToStr(Timer div 1000) + ' ') + trammo[sidSeconds];
   399             s:= s + ansistring(', ' + IntToStr(Timer div 1000) + ' ') + trammo[sidSeconds];
   400         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
   400         AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
   401         if (Propz and ammoprop_NeedTarget) <> 0 then
   401         if (Propz and ammoprop_NeedTarget) <> 0 then
   402             begin
   402             begin
   403             if Gear <> nil then Gear^.State:= Gear^.State or      gstHHChooseTarget;
   403             if Gear <> nil then Gear^.State:= Gear^.State or      gstChooseTarget;
   404             isCursorVisible:= true
   404             isCursorVisible:= true
   405             end
   405             end
   406         else
   406         else
   407             begin
   407             begin
   408             if Gear <> nil then Gear^.State:= Gear^.State and (not gstHHChooseTarget);
   408             if Gear <> nil then Gear^.State:= Gear^.State and (not gstChooseTarget);
   409             isCursorVisible:= false
   409             isCursorVisible:= false
   410             end;
   410             end;
   411         end
   411         end
   412     end;
   412     end;
   413 end;
   413 end;