diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index e5ef3d9c28acdff92c10e22ddf19ef8beb635e92..bd3f50e76b3f2049e0ce6d9b41d63db4da9c8cf8 100644 (file)
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
function b_Text_Format(S: string): string;
function b_Text_Unformat(S: string): string;
function b_Text_Wrap(S: string; LineLen: Integer): string;
+function b_Text_LineCount(S: string): Integer;
var
gmon_dbg_los_enabled: Boolean = true;
Result := WrapText(S, ''#10, [#10, ' ', '-'], LineLen);
end;
+function b_Text_LineCount(S: string): Integer;
+var
+ I: Integer;
+begin
+ Result := IfThen(S = '', 0, 1);
+ for I := 1 to High(S) do
+ if S[I] = #10 then
+ Inc(Result);
+end;
+
end.