equal
deleted
inserted
replaced
3033 begin |
3033 begin |
3034 if not inComment and (mybuf[i] = '"') and (lastChar <> '\') then |
3034 if not inComment and (mybuf[i] = '"') and (lastChar <> '\') then |
3035 inQuote := not inQuote; |
3035 inQuote := not inQuote; |
3036 if (lastChar = '-') and (mybuf[i] = '-') then |
3036 if (lastChar = '-') and (mybuf[i] = '-') then |
3037 inComment := true; |
3037 inComment := true; |
3038 // gonna add any non-magic whitespace and skip - just to make comment avoidance easier |
|
3039 if not inComment and not inQuote and |
3038 if not inComment and not inQuote and |
3040 ((mybuf[i] = '(') or |
3039 ((mybuf[i] = '(') or |
3041 (mybuf[i] = ')') or |
3040 (mybuf[i] = ')') or |
3042 (mybuf[i] = '+') or |
3041 (mybuf[i] = '+') or |
3043 (mybuf[i] = '#') or |
3042 (mybuf[i] = '#') or |
3083 exit; |
3082 exit; |
3084 |
3083 |
3085 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp')); |
3084 hedgewarsMountPackage(Str2PChar(copy(s, 1, length(s)-4)+'.hwp')); |
3086 |
3085 |
3087 physfsReaderSetBuffer(@buf); |
3086 physfsReaderSetBuffer(@buf); |
3088 if Pos('Data/Locale',s) <> 0 then |
3087 if Pos('Locale/',s) <> 0 then |
3089 ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s)) |
3088 ret:= lua_load(luaState, @ScriptLocaleReader, f, Str2PChar(s)) |
3090 else ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s)); |
3089 else ret:= lua_load(luaState, @ScriptReader, f, Str2PChar(s)); |
3091 pfsClose(f); |
3090 pfsClose(f); |
3092 |
3091 |
3093 if ret <> 0 then |
3092 if ret <> 0 then |