hedgewars/uGears.pas
changeset 9818 ff07ac765f45
parent 9779 b67979a7cc52
child 9950 2759212a27de
child 9951 b776cd642d0b
equal deleted inserted replaced
9817:2f2f4f0f671d 9818:ff07ac765f45
   844     if i <> 0 then
   844     if i <> 0 then
   845         text:= copy(s, 4, Length(s) - 1)
   845         text:= copy(s, 4, Length(s) - 1)
   846     else if x < 4 then
   846     else if x < 4 then
   847         text:= copy(s, 3, Length(s) - 1)
   847         text:= copy(s, 3, Length(s) - 1)
   848     else text:= copy(s, 2, Length(s) - 1);
   848     else text:= copy(s, 2, Length(s) - 1);
       
   849 
       
   850     if text = '' then text:= '...';
   849 
   851 
   850     (*
   852     (*
   851     if CheckNoTeamOrHH then
   853     if CheckNoTeamOrHH then
   852         begin
   854         begin
   853         ParseCommand('say ' + text, true);
   855         ParseCommand('say ' + text, true);