X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_basic.pas;h=e5ef3d9c28acdff92c10e22ddf19ef8beb635e92;hb=d3967cf39bf31bc5573af05576457ccfce96e9ea;hp=eba4094cb147133a49a42269fc4da56cb5b63287;hpb=c5bd8da6bf297567dffd050202ce219a7821a8eb;p=d2df-sdl.git

diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index eba4094..e5ef3d9 100644
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
@@ -89,7 +89,7 @@ function g_SetFileTime(fileName: String; time: Integer): Boolean;
 procedure SortSArray(var S: SSArray);
 function b_Text_Format(S: string): string;
 function b_Text_Unformat(S: string): string;
-
+function b_Text_Wrap(S: string; LineLen: Integer): string;
 
 var
   gmon_dbg_los_enabled: Boolean = true;
@@ -1175,4 +1175,9 @@ begin
   end;
 end;
 
+function b_Text_Wrap(S: string; LineLen: Integer): string;
+begin
+  Result := WrapText(S, ''#10, [#10, ' ', '-'], LineLen);
+end;
+
 end.