!#TM80:S2/211/2/1;
!?TM80;
!!UN:X?y1/?y2; [y1/y2 - размер карты]
!!VRy3:Sy1 *y1 -1; [y3 - кол-во квадратов карты]
!!DO33333/0/y3/1:Py1/3/0/y1; [Покрыть снегом (3) всю поверхность (0)]
!!DO33333/0/y3/1&y2>0:Py1/3/1/y1; [Покрыть снегом (3) всю подземку (1)]
!!UN:R1; [обновляем экран]
!?FU33333;
!!FU|x2<0/x2>7/x2=1:E; [выход, если задан некорректный тип почвы]
!!VRy1:Sx16 %x1; !!VRy2:Sx16 :x1; [y1/y2 - координаты клетки]
!!TRy1/y2/x3:T?y3/?y4/d/d/d/d/d/d; [y3/y4/y7 - тип/подтип почвы/зеркало на данной клетке]
!!VRy4&y3=0/x2>1/y4>20:+28; [смещаем подтип почты, если оригинальная - грязь (у нее мало подтипов)]
!!VRy4&y3=0/x2>1/y4<21:+20; [смещаем подтип почты, если оригинальная - грязь (у нее мало подтипов)]
!!VRy4&y3>1/x2=0/y4>=20/y4<40:-20; [смещаем подтип почты, если замещающая - грязь (у нее мало подтипов), а орининальная - НЕ песок]
!!VRy4&y3>1/x2=0/y4>=40/y4<72:-28; [смещаем подтип почты, если замещающая - грязь (у нее мало подтипов), а орининальная - НЕ песок]
!!VRy4&y3>1/x2=0/y4>=72:-35; [смещаем подтип почты, если замещающая - грязь (у нее мало подтипов), а орининальная - НЕ песок]
!!if&y3=1; [смещаем подтип почты, если оригинальная - песок]
** определение побережья для песка
!!VRy11:Sy1; !!VRy11&y1>0:-1;
!!VRy12:Sy1; !!VRy12&y1<x4:+1;
!!VRy13:Sy2; !!VRy13&y2>0:-1;
!!VRy14:Sy2; !!VRy14&y2<x4:+1;
!!TRy11/y2/v4&y1>0:T?y21/d/d/d/d/d/d/d;
!!TRy12/y2/v4&y1<x4:T?y22/d/d/d/d/d/d/d;
!!TRy11/y13/v4&y1>0/y2>0:T?y23/d/d/d/d/d/d/d;
!!TRy12/y13/v4&y1<x4/y2>0:T?y24/d/d/d/d/d/d/d;
!!TRy11/y14/v4&y1>0/y2<y10:T?y25/d/d/d/d/d/d/d;
!!TRy12/y14/v4&y1<x4/y2<y10:T?y26/d/d/d/d/d/d/d;
!!TRy1/y13/v4&y2>0:T?y27/d/d/d/d/d/d/d;
!!TRy1/y14/v4&y2<x4:T?y28/d/d/d/d/d/d/d;
!!if|y21>7/y22>7/y23>7/y24>7/y25>7/y26>7/y27>7/y28>7; [если клетка - побережье]
!!VRy4&x2=0:S21; [замещающая - грязь]
!!VRy4&x2>1:S49; [замещающая - НЕ грязь]
!!el; [если клетка - НЕ побережье]
!!VRy4&x2=0/y4=0:+1; [замещающая - грязь]
!!VRy4&x2=0:+20; [замещающая - грязь]
!!VRy4&x2>1:+49; [замещающая - НЕ грязь]
!!en;
!!en;
!!TRy1/y2/x3&y3<8:Tx2/y4/d/d/d/d/d/d; [если не вода или пропасть, устанавливаем новый тип почвы]