[Данил]

Local a:TPixmap, numberimage:Int

For i = 0 To 59
For j = 0 To 59
GrabingMap[i, j] = Int(ReadLine(in))

If GrabingMap[i, j] = 1 Then // считаем карту , если есть область, которую надо рисовать => рисуем картинку.
CAMERAX = (i * 600)
CAMERAY = (j * 600)
Cls
TileImage2 (FON, GW, GH, - CAMERAX, - CAMERAY, 0)
// тут рисуем все декорации
Next
a = GrabPixmap (0, 0, 600, 600)
SavePixmapJPeg(a, numberimage + ".jpg", 100)
numberimage:+1
GCCollect()

End If
Next
GCCollect()
Next
GCCollect()

// тут убиваем все декорации.
numberimage = 0
For i = 0 To 59
For j = 0 To 59
If GrabingMap[i, j] = 1 Then
Create_Terrain (i * 600 + 300, j * 600 + 300, 0, 255, 255, 255, 1, 1, TypeManager.Create_Manager(numberimage + ".jpg", 0, ""), "", 0)
// создаем декорацию
numberimage:+1
End If
Next
Next

вот такая вот ерунда.