@David Gervais
Thank you for creating these fantastic tiles, they will be very useful.
@All
My current game needed individual images of some of the tiles so I created the following bit of code to create individual images from the whole sheet.
I am sure there are other ways of doing this, it is just a quick program that I needed, it is commented, so if you think it could be useful to you, feel free to modify for your own use.
rem Sprite Sheet Splitter
rem by Tone Dialer
rem October 13th 2013
rem An AGK Application designed to split PNG image(Sprite) sheets
rem into individual images.
rem Under Windows the indiviual image files are created (by default) in
rem Documents/AGK/[Project Name]/media
Setvirtualresolution(640,480)
ResetTimer()
//Set the filename of the Sprite Sheet Image .PNG file
//which should be in the [Project Name]/media/images subfolder
s_file$="letters.png"
//Set indidual sprite dimensions
sprite_x=64
sprite_y=64
//Load the Sprite Sheet Image
ID=Loadimage("images\"+s_file$)
//Calculate number of rows and columns of sprites
n_col=GetImageWidth(ID)/sprite_x
n_row=GetImageHeight(ID)/sprite_y
//Create a sprite to work on
CreateSprite(ID)
Render()
//Set initial filename suffix
file_no=1
//Scan and Create
For r=1 to n_row
For c= 1 to n_col
//Get individual images
ID=GetImage((c-1)*sprite_x,(r-1)*sprite_y,sprite_x,sprite_y)
//Build file name and save image file
save_n$=Left(s_file$,Len(s_file$)-4)+"("+str(file_no)+")"+".png"
SaveImage(ID,save_n$)
//Move to next image
Inc file_no
Next c
Next r
//All done, auto close application
SetClearColor(50,50,100)
CreateText(1,"ALL DONE: Individual files created in")
SetTextSize(1,20)
SetTextPosition(1,10,440)
CreateText(2,GetWritePath()+"media")
SetTextSize(2,20)
SetTextPosition(2,10,460)
Do
If Timer()>20 Then Exit
Sync()
Loop
End
