mname=get_save_filename("MapGameMaker|*.mgm",'NewMap')
smap = file_text_open_write(mname);
{действия которые записывают данные в файл}
file_text_close(smap);

mname=get_save_filename("MapGameMaker|*.mgm",'NewMap')  
if mname<>""{
smap = file_text_open_write(mname);  
{действия которые записывают данные в файл}  
file_text_close(smap)};

n=30
m=25
a=irandom_range(5,n - 5)
b=irandom_range(5,m - 5)
c=irandom_range(50,70)

// ========= генерация =========
// заполнение водой
for (i=1;i<n;i+=1)
     {for (j=1;j<m;j+=1)
     {karta[i,j]=0
     }}
// построение земли
i = a
j = b
for (a=1;a<c;a+=1){
             karta[i,j]=1
             d=irandom_range(1,4)
             if d=1 {if i+1<n i=i+1}
             if d=2 {if i-1>1 i=i-1}
             if d=3 {if j+1<m j=j+1}
             if d=4 {if j+1>1 j=j-1}
                     }     
                      
// ======== визуализация =========
for (i=1;i<n;i+=1)
     {for (j=1;j<m;j+=1){
     if karta[i,j]=0 instance_create(i*16,j*16,obj_water)
     if karta[i,j]=1 instance_create(i*16,j*16,obj_grass)
                         }
     }