From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 8 Apr 2016 03:31:35 +0000 (+0300)
Subject: i'm an idiot, and forgot '+1'
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=b953ad027f47e5e6bd0eb86e3133f936253dadf3;p=d2df-sdl.git

i'm an idiot, and forgot '+1'
---

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 899b354..7acbf0b 100644
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -2873,9 +2873,9 @@ begin
   while sm <> '' do
   begin
     i := Pos('|', sm);
-    if i = 0 then i := length(sm);
+    if i = 0 then i := length(sm)+1;
     sc := Copy(sm, 1, i-1);
-    Delete(sm, 1, i);;
+    Delete(sm, 1, i);
     if FindFirst(path+sc, faAnyFile, SR) = 0 then repeat AddItem(SR.Name); until FindNext(SR) <> 0;
     FindClose(SR);
   end;