Here is a mega update
This supports converting RM2K sprite sheets into MS format sprites. Here's an example RM2K sprite sheet:
Attachment:
chara01_a.png [ 27.79 KiB | Viewed 5562 times ]
And here is the code (replace Sub SplitImage with this):
Code:
Sub SplitImage()
Dim i As Long
Dim x As Long
Dim y As Long
frmMain.picConversion.Width = ((Val(frmMain.txtFrames) * Val(frmMain.txtSizeX)) * 4) * Screen.TwipsPerPixelX
frmMain.picConversion.Height = Val(frmMain.txtSizeY) * Screen.TwipsPerPixelY
For x = 0 To 3
For y = 0 To 1
For i = 0 To 3
BitBlt frmMain.picConversion.hDC, _
((frmMain.txtFrames * frmMain.txtSizeX) * i), _
0, _
frmMain.picImage.ScaleWidth, _
Val(frmMain.txtSizeY), _
frmMain.picImage.hDC, _
x * (frmMain.picConversion.ScaleWidth / 4), _
i * Val(frmMain.txtSizeY) + (y * (frmMain.txtSizeY * 4)), _
vbSrcCopy
Next
TotalSpritesSaved = TotalSpritesSaved + 1
SavePicture frmMain.picConversion.Image, App.Path & "\Splitted Images\sprite" & TotalSpritesSaved & Extension
AddToLog "sprite" & TotalSpritesSaved & Extension & " saved."
frmMain.picConversion.Cls
Next
Next
End Sub
Also don't forget to put size X as 48 and size Y as 64.
_________________
Nean wrote:
Yes harold. Give it to me.