#define iniBetween
/*
0 - Переменная
1 - Начальный символ
2 - Конечный символ
Достает строку между символоми арг1 и арг2 из строки арг0
*/
var z, n;
z = string_pos(argument1, argument0)+string_length(argument1);
n = string_pos(argument2, argument0);
return (string_copy(argument0, z, n-z));

#define iniClose
//ini_open_ext(name);
//-1 file does not exists
ds_map_destroy(argument0);

#define iniDeleteSpace
var i,j,s;
s = argument0
if !is_string(s) return '-1';
while string_char_at(s,1) = ' '
    s = string_delete(s,1,1)
return s;
#define iniDeleteSpaceRe
var i,j,s;
s = argument0
if !is_string(s) return '-1';
while string_char_at(s,string_length(s)) = ' '
    s = string_delete(s,string_length(s),1)
return s;
#define iniGetReal
var r;
r = ds_map_find_value(argument0,argument1+'::'+argument2)
return real(r);
#define iniGetString
return string(ds_map_find_value(argument0,argument1+'::'+argument2));
#define iniIsSection
var s;
s = iniDeleteSpace(argument0);

if string_char_at(s,1) = '[' and string_char_at(s,string_length(s)) = ']'
return iniBetween(s,'[',']');
else return '-1';
#define iniOpen
//ini_open_ext(name);
//-1 file does not exists
var map,f,txt,s,sect;
txt='';
if !file_exists(argument0) return -1;
map = ds_map_create();
ds_map_add(map,"имя",argument0);
f = file_text_open_read(argument0);
while !file_text_eof(f)
    {
     s = file_text_read_string(f);
     t = iniIsSection(s);
     if t ='-1' iniReadValue(s,map,sect)
     else {ds_map_add(map,t,t); sect = t;}
     file_text_readln(f)
    };
return map;

#define iniReadValue
var s,eq,k,v;
s = iniDeleteSpace(argument0);
eq = string_pos('=',s)-1;
k = string_copy(s,1,eq);
v = iniDeleteSpaceRe(iniDeleteSpace(string_delete(s,1,string_length(k)+1)))
k = argument2 + '::' + iniDeleteSpaceRe(iniDeleteSpace(k))
//show_message('"'+k+'"#"'+v+'"');
ds_map_add(argument1,k,v);