hedgewars/uScript.pas
branch0.9.24
changeset 13393 ae5d6448c5be
parent 13340 85644a45e988
child 13394 7b4726ef2308
child 13682 f60b3998ba56
equal deleted inserted replaced
13346:e461deddc942 13393:ae5d6448c5be
  3404 
  3404 
  3405 f:= pfsOpenRead(s);
  3405 f:= pfsOpenRead(s);
  3406 if f = nil then
  3406 if f = nil then
  3407     exit;
  3407     exit;
  3408 
  3408 
  3409 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp'));
  3409 hedgewarsMountPackage(Str2PChar(copy(s, 3, length(s)-6)+'.hwp'));
  3410 
  3410 
  3411 physfsReaderSetBuffer(@buf);
  3411 physfsReaderSetBuffer(@buf);
  3412 if Pos('Locale/',s) <> 0 then
  3412 if Pos('Locale/',s) <> 0 then
  3413      ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s))
  3413      ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s))
  3414 else ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s));
  3414 else ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s));