hedgewars/uScript.pas
changeset 12848 076d00110223
parent 12847 1aba77b2e4ac
child 12910 383445810e42
equal deleted inserted replaced
12847:1aba77b2e4ac 12848:076d00110223
  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     SetRandomSeed(cSeed,true);
  3063     mybuf := physfsReader(L, f, sz);
  3063     mybuf := physfsReader(L, f, sz);
  3064     if (mybuf <> nil) and ((sz^) > 0) then
  3064     if (mybuf <> nil) and ((sz^) > 0) then
  3065         begin
  3065         begin
  3066             for i:= 0 to sz^-1 do
  3066             for i:= 0 to sz^-1 do
  3067                 begin
  3067                 begin