RM** Sprites Converter

[GIAKEN]

Here is a mega update This supports converting RM2K sprite sheets into MS format sprites. Here's an example RM2K sprite sheet:

[ATTACHMENT NOT FOUND]

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.