Remember all those awesome sprites in RPG maker that we all used and are all over the web, wouldn't it be awesome to use those in your game?? well this program takes a sprite file and converts it into picture files for you. Put the picture into a folder called "raw" in the same folder, and create another folder with the main program called "done". It will take a pic out of raw and put it finished into a folder called its picture name within done.
it works pretty well, could be improved a bit but it's very useful nonetheless
| Turing: |
var win := Window.Open ("graphics:500;500,nobuttonbar")
var pic : int
var picname : string
var width : int
var height : int
var picsample : int
var name : string
var dir := "left"
var num := 1
put "Please enter the name of the picture you would like split:"
get picname
pic := Pic.FileNew ("raw/" + picname )
width := ((Pic.Width (pic ) div 12) * 3)
height := ((Pic.Height (pic ) div 8) * 3) - 1
pic := Pic.Scale (pic, Pic.Width (pic ) * 3, Pic.Height (pic ) * 3)
cls
Pic.Draw (pic, 0, 0, picMerge)
put "Press any key to start cutting out pieces:" ..
Input.Pause
for Y : 1 .. 2
for X : 1 .. 4
Pic.Draw (pic, (-width * 3 * (X - 1)), (-height * 4 * (Y - 1)) + 1, picMerge)
Pic.ScreenSave (0, 0, width, height, "temp.bmp")
cls
picsample := Pic.FileNew ("temp.bmp")
Pic.Draw (picsample, 0, 0, picMerge)
put "What is this character called?:"
get name
Dir.Create ("done/" + name )
Pic.Save (picsample, "done/" + name + "/" + name + dir + intstr (num ) + ".bmp")
for y : 1 .. 4
if y = 1 then
dir := 'left'
elsif y = 2 then
dir := 'down'
elsif y = 3 then
dir := 'right'
else
dir := 'up'
end if
for x : 1 .. 3
put "Piece complete press any key to continue:" ..
Input.Pause
Pic.Draw (pic, -width * 3 * (X - 1) - width * (x - 1), -height * 4 * (Y - 1) - height * (y - 1), picMerge)
Pic.ScreenSave (0, 0, width, height, "done/" + name + "/" + name + dir + intstr (x ) + ".bmp")
cls
picsample := Pic.FileNew ("done/" + name + "/" + name + dir + intstr (x ) + ".bmp")
Pic.Draw (picsample, 0, 0, picMerge)
end for
end for
end for
end for
cls
put "Everything is finished," ..
delay (200)
put " press any key to quit:" ..
Window.Close (win )
|
|