#define string_explode
/*
====== Napsal MEN-X ======
 Zapíše do proměnné arg3
 rozdělený string arg1
 podle znaku arg0 pomocí
 array [0-x]
==========================
argument0 = čím
argument1 = co
argument2 = název proměnné
*/

var vname,i,by,where;

by = argument0;
where = argument1;
vname = argument2;

if (!variable_local_exists(vname))
    variable_local_set(vname,"");
variable_local_array_set(vname,0,string_copy(where,0,string_pos(by,where)-1));    
for(i=0;i<string_count(by,where);i+=1)
{
    first = string_pos_ext(by,where,i+1);
    second = string_pos_ext(by,where,i+2);
    if (second = 0)
        second = string_length(where)+1;
    variable_local_array_set(vname,i+1,string_copy(where,first+1,second-first-1));
}