hedgewars/uScript.pas
changeset 13349 40742f3f7dd9
parent 13348 5f6208031658
child 13370 e202d58236b1
equal deleted inserted replaced
13348:5f6208031658 13349:40742f3f7dd9
  3408 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp'));
  3408 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp'));
  3409 
  3409 
  3410 physfsReaderSetBuffer(@buf);
  3410 physfsReaderSetBuffer(@buf);
  3411 if Pos('Locale/',s) <> 0 then
  3411 if Pos('Locale/',s) <> 0 then
  3412      ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s))
  3412      ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s))
  3413 else ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s));
  3413 else
       
  3414 	begin
       
  3415     SetRandomSeed(cSeed,true);
       
  3416 	ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s))
       
  3417 	end;
  3414 pfsClose(f);
  3418 pfsClose(f);
  3415 
  3419 
  3416 if ret <> 0 then
  3420 if ret <> 0 then
  3417     begin
  3421     begin
  3418     LuaError('Failed to load ' + name + '(error ' + IntToStr(ret) + ')');
  3422     LuaError('Failed to load ' + name + '(error ' + IntToStr(ret) + ')');