To free the TGA you would need to do the following, I assume you are using Andres Code Archive Entry:
free the image then free the bank like so:
Function FreeTGA(%image)
imghandle=peekint(image,2)
if imghandle<>0 then freeimage imghandle
freebank %image
end function
Also you may notice that in the LoadTGA command he does not close the file that was read from so you should include a "closefile file" command prior to the command "return bank"
There are ways to optimise drawing of images like this.
Because these images have to be drawn pixel by pixel, as in the DrawTGA function, a few tips would be:
1.Rather than calculating the color of an alpha blended sprite for each pixel regardless of whether it is fully transparent or fully opaque only calculate the alpha for those pixels with an alpha value of neither 0 nor 255.
2.Locking buffers does speed things up, which he does, but it is faster to do all your pixel writes in one hit than locking/unlocking buffers between each image to be drawn.
Those are some of my thoughts on the matter, hope it can help a little.
| 
