hedgewars/uScript.pas
changeset 13842 35ba3a550cad
parent 13832 10a3b80130b5
child 13851 f01798038c2e
equal deleted inserted replaced
13841:b2cc4e4e380c 13842:35ba3a550cad
  3563 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3563 // ⭒⭐⭒✨⭐⭒✨⭐☆✨⭐✨✧✨☆✨✧✨☆⭒✨☆⭐⭒☆✧✨⭒✨⭐✧⭒☆⭒✧☆✨✧⭐☆✨☆✧⭒✨✧⭒☆⭐☆✧
  3564 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3564 function  ScriptReader(L: Plua_State; f: PFSFile; sz: Psize_t) : PChar; Cdecl;
  3565 var mybuf: PChar;
  3565 var mybuf: PChar;
  3566     i: LongInt;
  3566     i: LongInt;
  3567 begin
  3567 begin
       
  3568     SetRandomSeed(cSeed,true);
  3568     mybuf := physfsReader(L, f, sz);
  3569     mybuf := physfsReader(L, f, sz);
  3569     if (mybuf <> nil) and ((sz^) > 0) then
  3570     if (mybuf <> nil) and ((sz^) > 0) then
  3570         begin
  3571         begin
  3571             for i:= 0 to sz^-1 do
  3572             for i:= 0 to sz^-1 do
  3572                 begin
  3573                 begin