hedgewars/uFLScripts.pas
branchqmlfrontend
changeset 10612 eb3c1a289a23
parent 10517 844bd43db47a
child 10888 a04e04aaf599
--- a/hedgewars/uFLScripts.pas	Wed Dec 03 23:36:18 2014 +0300
+++ b/hedgewars/uFLScripts.pas	Thu Dec 04 00:34:40 2014 +0300
@@ -54,7 +54,7 @@
     l: Longword;
 begin
     filesList:= pfsEnumerateFiles('/Scripts/Multiplayer');
-    scriptsNumber:= 0;
+    scriptsNumber:= 1;
 
     tmp:= filesList;
     while tmp^ <> nil do
@@ -66,9 +66,16 @@
         inc(tmp)
     end;
 
-    scriptsList:= GetMem(sizeof(scriptsList^) * scriptsNumber);
+    scriptsList:= GetMem(sizeof(scriptsList^) * (scriptsNumber + 1));
 
     script:= scriptsList;
+
+    // add 'normal' script
+    script^.scriptName:= 'Normal';
+    script^.description:= 'Normal gameplay';
+    inc(script);
+
+    // fill the rest from *.lua list
     tmp:= filesList;
     while tmp^ <> nil do
     begin