hedgewars/uScript.pas
changeset 13348 5f6208031658
parent 13340 85644a45e988
child 13349 40742f3f7dd9
equal deleted inserted replaced
13347:e7b89e87a1b3 13348:5f6208031658
  3321 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3321 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3322 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3322 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3323 var mybuf: PChar;
  3323 var mybuf: PChar;
  3324     i: LongInt;
  3324     i: LongInt;
  3325 begin
  3325 begin
  3326     SetRandomSeed(cSeed,true);
       
  3327     mybuf := physfsReader(L, f, sz);
  3326     mybuf := physfsReader(L, f, sz);
  3328     if (mybuf <> nil) and ((sz^) > 0) then
  3327     if (mybuf <> nil) and ((sz^) > 0) then
  3329         begin
  3328         begin
  3330             for i:= 0 to sz^-1 do
  3329             for i:= 0 to sz^-1 do
  3331                 begin
  3330                 begin