[impersonalis]

вот

Data 1,1,1,1,1,1
Data 1,0,2,0,0,1
Data 1,0,0,0,0,1
Data 1,2,4,0,2,1
Data 1,0,2,0,0,1
Data 1,1,1,1,1,1

Const xworldsize=6
Const yworldsize=6

Dim MAP(xworldsize,yworldsize)


Function EPI(x,y)
MAP(x,y)=0
Local R=1;<========Raidus
Local C

C=0
For i=x+1 To xworldsize
If C=R Exit
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0
DebugLog "del "+i+";"+y
Exit
EndIf
C=C+1
Next
C=0
For i=x-1 To 1 Step -1
If C=R Exit
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0
DebugLog "del "+i+";"+y
Exit
EndIf
C=C+1
Next
C=0
For i=y+1 To yworldsize
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
C=0
For i=y-1 To 1 Step -1
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
End Function

Function drawmap()
Cls:Locate 0,0
For iy=1 To yworldsize
s$=""
For ix=1 To xworldsize
s=s+MAP(ix,iy)
Next
Print s
Next
Print "["+MilliSecs()+"] press any key For Next draw"
WaitKey()
End Function

;=load
For iy=1 To yworldsize
For ix=1 To xworldsize
Read MAP(ix,iy)
Next
Next
;=
Graphics 800,600,32
SetFont LoadFont("arial",20)
FlushKeys()
drawmap()
;=bomb
For iy=1 To yworldsize
For ix=1 To xworldsize
If MAP(ix,iy)=4
EPI(ix,iy)
EndIf
Next
Next
drawmap()