hedgewars/uAmmos.pas
branchqmlfrontend
changeset 10886 99273b7afbff
parent 10818 f642a28cab0c
child 11046 47a8c19ecb60
equal deleted inserted replaced
10823:1ff3dd3705b1 10886:99273b7afbff
   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;