hedgewars/uScript.pas
changeset 12847 1aba77b2e4ac
parent 12749 1df909b46c05
child 12848 076d00110223
equal deleted inserted replaced
12846:e5c461729fe3 12847:1aba77b2e4ac
  3057 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3057 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3058 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3058 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3059 var mybuf: PChar;
  3059 var mybuf: PChar;
  3060     i: LongInt;
  3060     i: LongInt;
  3061 begin
  3061 begin
       
  3062     SetRandomSeed(cSeed,false);
  3062     mybuf := physfsReader(L, f, sz);
  3063     mybuf := physfsReader(L, f, sz);
  3063     if (mybuf <> nil) and ((sz^) > 0) then
  3064     if (mybuf <> nil) and ((sz^) > 0) then
  3064         begin
  3065         begin
  3065             for i:= 0 to sz^-1 do
  3066             for i:= 0 to sz^-1 do
  3066                 begin
  3067                 begin