Hi Folks,
That 'might' do it.
Later,
Jes
Function MakeForts() For i% = 1 To 4 White.Fort = New Fort White\FortX = i%*147 White\FortY = 480 White\Pic = CreateImage(64,64,1) SetBuffer ImageBuffer(White\Pic) DrawBlock FortPic,0,0 Next setbuffer backbuffer() End Function
That 'might' do it.
Later,
Jes