[Данил]

наитупейший алгоритм.

For n:Int = 1 To 10

For x:Int=1 To 28
For y:Int=1 To 28
Local ind:Int

If (mass[x,y]>=n )
ind:+1
EndIf
If (mass[x+1,y]>=n)
ind:+2
EndIf
If (mass[x+1,y+1]>=n )
ind:+4
EndIf
If (mass[x,y+1]>=n)
ind:+8
EndIf


If ind<> 0 Then DrawImage(img[n],32*x,32*y,ind)' DrawText(n,32*x+10,32*y+10)

Next
Next
Next

самое обидное, рисуется сначала тайлом 1 все, что больше в ячейке нуля, затем тайлом 2 все, что больше еденички. т.е. на одном месте на сто раз перерисовывается. думаю, как обойти.

а так, в той исходной картинке убрал альфой не нужное.
и получается 3 картинки, чтобы тайлы не были одинаковыми.