《英雄传说6空之轨迹the 3rd》存档修改器
英雄传说空之轨迹the 3rd存档修改器
存档图片部分代码:
Dim s As String
Dim m As Integer, n As Integer, j As Integer, R As Long, G As Long, B As Long, Alpha As Long
Dim k As Single
Dim i As Long
s = strFolderSpec & List1.List(List1.ListIndex)
Label6.Caption = ReturnFiletime(s)
Open s For Binary As #3
Get #3, &H2D, j
For m = 1 To 120
For n = 1 To 160
Get #3, , j
i = j
If j < 0 Then i = 65536 + j
Alpha = i \ 4096
i = i - 4096 * Alpha
Alpha = 15 + Alpha * 16
k = Alpha / 255
R = i \ 256
i = i - R * 256
R = R * 17 * k
G = i \ 16
i = i - G * 16
G = G * 17 * k
B = i * 17 * k
SetPixel Picture2.hdc, n - 1, m - 1, RGB(R, G, B)
Next n
Next m
Close #3
这个修改器和SC那个样子一样,割了一些功能
附件
-
(83.15 KB)
-
2008-8-14 09:30
-
(323.66 KB)
-
2008-8-14 09:30, 下载次数: 1798