Made.cel cel是这个游戏的图片格式，分析了一下

0280 是图片 长度 01e0是图片 高度 后面0020h起是图片 调色板

以下是 提取 made.cel 的图片

图片大小是 640*480 的。但是调色板有些不对。

================= 代码 VB6

Type iRGB
r As Integer
g As Integer
b As Integer
End Type
Public c(256) As iRGB

Type iFtou
f1 As Integer
f2 As Integer
f3 As Integer
End Type
Public iFt As iFtou

--

Private Sub Command2_Click()
Cls
Dim rgb1(2) As Byte
Dim b(0) As Byte
Open mp + "made.cel" For Binary As 1
Get 1, , iFt
Print iFt.f2
Print iFt.f3
h = iFt.f2
w = iFt.f3

i = &H20
Get 1, i, b

For j = 1 To 256
Get 1, , rgb1
'Print Hex(rgb(0)), Hex(rgb(1)), Hex(rgb(2))
c(j).r = rgb1(0)
c(j).g = rgb1(1)
c(j).b = rgb1(2)
Next j
Print Hex(rgb1(0)), Hex(rgb1(1)), Hex(rgb1(2))
'h = &H280
'w = &H1E0
For y = 1 To w
For x = 1 To h
Get 1, , b
cc = b(0)
rr = c(cc).r
gg = c(cc).g
bb = c(cc).b
Picture1.PSet (x, y), RGB(rr, gg, bb)
Next x
Next y
Close 1
End Sub

Private Sub Command3_Click()
PSet (10, 10)
End Sub

Private Sub Form_Load()
mp = "C:\vb\a52\zgc_f\"
ScaleMode = 3
Picture1.ScaleMode = 3
End Sub