hedgewars/uScript.pas
changeset 10131 4b4a043111f4
parent 10129 cd2a64a1f4aa
child 10143 3636106f5b70
equal deleted inserted replaced
10130:a9d509848390 10131:4b4a043111f4
   207     i,c: LongWord;
   207     i,c: LongWord;
   208     s: shortstring;
   208     s: shortstring;
   209 begin
   209 begin
   210     if lua_gettop(L) = 1 then
   210     if lua_gettop(L) = 1 then
   211         begin
   211         begin
   212         t:= lua_tolstring(L,1,@c);
   212         t:= lua_tolstring(L, 1, Psize_t(@c));
   213 
   213 
   214         for i:= 1 to c do s[i]:= t[i-1];
   214         for i:= 1 to c do s[i]:= t[i-1];
   215         s[0]:= char(c);
   215         s[0]:= char(c);
   216 
   216 
   217         ParseCommand(s, true, true);
   217         ParseCommand(s, true, true);