|
发表于 2023-2-16 02:06:04
|
显示全部楼层
再爆一个完整的源代码,可以解压龙之谷资源包,打包,定制定,制作自动补丁
不知道这个是不是龙之谷源代码 莫名其妙搜到的 求大神鉴定啊 如果是真的大家顶啊为了广大的DN玩家不再受到SD的摧残 谢谢
Global _OpenResName$
Global _SaveResName$
Global _OpenResPath$
Global _SaveResPath$
Global _IsUnPackRun
Global _IsPackRun
Global _IsCloseWin100
Global _IsCloseWin200
;虚拟文件的结构
Structure TypeVirFile
VirName$ ; 虚拟文件的虚拟全路径
VirSize.l ; 虚拟文件的大小
ExtSize.l ; 虚拟文件解压后的大小
KeepSize.l ; 虚拟文件占用的空间的大小
VirAddress.l ; 虚拟文件内容在资源中的指针地址
IdxAddress.l ; 虚拟文件索引在资源文件的指针地址
EndStructure
;虚拟文件的结构
Structure TypeVirFolder
VirPath$ ; 虚拟文件的虚拟路径
StartList.l ; 符合虚拟路径的虚拟文件的开始索引号
EndList.l ; 符合虚拟路径的虚拟文件的结束索引号
EndStructure
Global NewList _ListAllVirFile.TypeVirFile() ;虚拟文件的索引集
Global NewList _ListAllVirFolder.TypeVirFolder() ;虚拟文件的路径集
Global NewList _ResFilesToPacking$() ;虚拟文件的索引集
Global _CountResFilesToPacking ;虚拟文件的索引集
;- 设置集---------------------------------------------------------------------------------------------------------
Procedure UseParserRes_ReadUIPrefs() ;<<<<<<<<<<OK
OnErrorResume() ;出错继续运行程序
OpenPreferences("set.prefs")
PreferenceGroup("FileName")
_OpenResName$ = ReadPreferenceString ("OpenResName", "")
_SaveResName$ = ReadPreferenceString ("SaveResName", "")
_OpenResPath$ = ReadPreferenceString ("OpenResPath", "")
_SaveResPath$ = ReadPreferenceString ("SaveResPath", "")
ClosePreferences()
EndProcedure
;保存UI设置
Procedure UseParserRes_SaveUIPrefs() ;<<<<<<<<<<OK
OnErrorResume() ;出错继续运行程序
If CreatePreferences("set.prefs")
PreferenceGroup("FileName")
WritePreferenceString ("OpenResName", _OpenResName$)
WritePreferenceString ("SaveResName", _SaveResName$)
WritePreferenceString ("OpenResPath", _OpenResPath$)
WritePreferenceString ("SaveResPath", _SaveResPath$)
ClosePreferences()
EndIf
EndProcedure
;- 构建控件---------------------------------------------------------------------------------------------------------
; 构建主窗体控件
Procedure CreateWin_MainWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(0, 0, 0, 620, 200, "迷路[龙之谷]客户端解析器 V1.00", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(0)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
UseParserRes_ReadUIPrefs()
Frame3DGadget(100, 010, 010 000, 600, 080,"解析成明文文件库")
TextGadget (101, 025, 033 000, 080, 020, "资 源 地址:")
StringGadget (103, 100, 030 000, 400, 020, "")
ButtonGadget (105, 510, 030 000, 020, 020, "..")
TextGadget (102, 025, 063 000, 080, 020, "明文库地址:")
StringGadget (104, 100, 060 000, 400, 020, "")
ButtonGadget (106, 510, 060 000, 020, 020, "..")
ButtonGadget (107, 540, 030 000, 055, 050, "解析")
Frame3DGadget(200, 010, 010 100, 600, 080,"打包成资源文件")
TextGadget (201, 025, 033 100, 080, 020, "明文库地址:")
StringGadget (203, 100, 030 100, 400, 020, "")
ButtonGadget (205, 510, 030 100, 020, 020, "..")
TextGadget (202, 025, 063 100, 080, 020, "新资源地址:")
StringGadget (204, 100, 060 100, 400, 020, "")
ButtonGadget (206, 510, 060 100, 020, 020, "..")
ButtonGadget (207, 540, 030 100, 055, 050, "打包")
rogressBarGadget(300, 010, 200, 600, 20, 0, 100 )
SetGadgetText(103, _OpenResName$)
SetGadgetText(104, _SaveResPath$)
SetGadgetText(203, _OpenResPath$)
SetGadgetText(204, _SaveResName$)
;SetGadgetState (300, 100)
EndProcedure
Procedure CreateWin_UnPackingWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(100, 0, 0, 400, 110, "正在解析[" GetFilePart(_OpenResName$) "]资源", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(100)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
Text$ = "[共有: " Str(CountList(_ListAllVirFolder())) "个文件夹] 正在创建文件夹..."
TextGadget(1000, 10, 20, 270, 20, Text$)
TextGadget(1001, 280, 20, 110, 20, "[耗时 ms] 0%",#PB_Text_Right)
ProgressBarGadget(1002, 10, 40, 380, 20, 0, 100 )
ButtonGadget (1003, 300, 70, 80, 30, "取消" )
SetGadgetState (1002,0)
DisableWindow(0, 1)
DisableGadget(1003, 1)
EndProcedure
Procedure CreateWin_PackingWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(200, 0, 0, 400, 110, "正在打包[" GetFilePart(_SaveResName$) "]资源库", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(200)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
Text$ = "正在检测资源库文件..."
TextGadget(2000, 10, 20, 270, 20, Text$)
TextGadget(2001, 280, 20, 110, 20, "[耗时 ms]",#PB_Text_Right)
ProgressBarGadget(2002, 10, 40, 380, 20, 0, 100 )
ButtonGadget (2003, 300, 70, 80, 30, "打包" )
ButtonGadget (2004, 300, 70, 80, 30, "取消" )
CheckBoxGadget (2005, 10, 70, 200, 30, "打包空文件" )
SetGadgetState (2002,0)
DisableWindow(0, 1)
HideGadget(2003, 1) : HideGadget(2004, 1)
EndProcedure
表示看不懂 也不知道是不是源代码
还有这个
解压后请用c-free5 打开源代码
Global _OpenResName$
Global _SaveResName$
Global _OpenResPath$
Global _SaveResPath$
Global _IsUnPackRun
Global _IsPackRun
Global _IsCloseWin100
Global _IsCloseWin200
;虚拟文件的结构
Structure TypeVirFile
VirName$ ; 虚拟文件的虚拟全路径
VirSize.l ; 虚拟文件的大小
ExtSize.l ; 虚拟文件解压后的大小
KeepSize.l ; 虚拟文件占用的空间的大小
VirAddress.l ; 虚拟文件内容在资源中的指针地址
IdxAddress.l ; 虚拟文件索引在资源文件的指针地址
EndStructure
;虚拟文件的结构
Structure TypeVirFolder
VirPath$ ; 虚拟文件的虚拟路径
StartList.l ; 符合虚拟路径的虚拟文件的开始索引号
EndList.l ; 符合虚拟路径的虚拟文件的结束索引号
EndStructure
Global NewList _ListAllVirFile.TypeVirFile() ;虚拟文件的索引集
Global NewList _ListAllVirFolder.TypeVirFolder() ;虚拟文件的路径集
Global NewList _ResFilesToPacking$() ;虚拟文件的索引集
Global _CountResFilesToPacking ;虚拟文件的索引集
;- 设置集---------------------------------------------------------------------------------------------------------
Procedure UseParserRes_ReadUIPrefs() ;<<<<<<<<<<OK
OnErrorResume() ;出错继续运行程序
OpenPreferences("set.prefs")
PreferenceGroup("FileName")
_OpenResName$ = ReadPreferenceString ("OpenResName", "")
_SaveResName$ = ReadPreferenceString ("SaveResName", "")
_OpenResPath$ = ReadPreferenceString ("OpenResPath", "")
_SaveResPath$ = ReadPreferenceString ("SaveResPath", "")
ClosePreferences()
EndProcedure
;保存UI设置
Procedure UseParserRes_SaveUIPrefs() ;<<<<<<<<<<OK
OnErrorResume() ;出错继续运行程序
If CreatePreferences("set.prefs")
PreferenceGroup("FileName")
WritePreferenceString ("OpenResName", _OpenResName$)
WritePreferenceString ("SaveResName", _SaveResName$)
WritePreferenceString ("OpenResPath", _OpenResPath$)
WritePreferenceString ("SaveResPath", _SaveResPath$)
ClosePreferences()
EndIf
EndProcedure
;- 构建控件---------------------------------------------------------------------------------------------------------
; 构建主窗体控件
Procedure CreateWin_MainWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(0, 0, 0, 620, 200, "迷路[龙之谷]客户端解析器 V1.00", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(0)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
UseParserRes_ReadUIPrefs()
Frame3DGadget(100, 010, 010 000, 600, 080,"解析成明文文件库")
TextGadget (101, 025, 033 000, 080, 020, "资 源 地址:")
StringGadget (103, 100, 030 000, 400, 020, "")
ButtonGadget (105, 510, 030 000, 020, 020, "..")
TextGadget (102, 025, 063 000, 080, 020, "明文库地址:")
StringGadget (104, 100, 060 000, 400, 020, "")
ButtonGadget (106, 510, 060 000, 020, 020, "..")
ButtonGadget (107, 540, 030 000, 055, 050, "解析")
Frame3DGadget(200, 010, 010 100, 600, 080,"打包成资源文件")
TextGadget (201, 025, 033 100, 080, 020, "明文库地址:")
StringGadget (203, 100, 030 100, 400, 020, "")
ButtonGadget (205, 510, 030 100, 020, 020, "..")
TextGadget (202, 025, 063 100, 080, 020, "新资源地址:")
StringGadget (204, 100, 060 100, 400, 020, "")
ButtonGadget (206, 510, 060 100, 020, 020, "..")
ButtonGadget (207, 540, 030 100, 055, 050, "打包")
rogressBarGadget(300, 010, 200, 600, 20, 0, 100 )
SetGadgetText(103, _OpenResName$)
SetGadgetText(104, _SaveResPath$)
SetGadgetText(203, _OpenResPath$)
SetGadgetText(204, _SaveResName$)
;SetGadgetState (300, 100)
EndProcedure
Procedure CreateWin_UnPackingWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(100, 0, 0, 400, 110, "正在解析[" GetFilePart(_OpenResName$) "]资源", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(100)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
Text$ = "[共有: " Str(CountList(_ListAllVirFolder())) "个文件夹] 正在创建文件夹..."
TextGadget(1000, 10, 20, 270, 20, Text$)
TextGadget(1001, 280, 20, 110, 20, "[耗时 ms] 0%",#PB_Text_Right)
ProgressBarGadget(1002, 10, 40, 380, 20, 0, 100 )
ButtonGadget (1003, 300, 70, 80, 30, "取消" )
SetGadgetState (1002,0)
DisableWindow(0, 1)
DisableGadget(1003, 1)
EndProcedure
Procedure CreateWin_PackingWindow()
WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(200, 0, 0, 400, 110, "正在打包[" GetFilePart(_SaveResName$) "]资源库", WinFlags )
If WinHwnd = 0 : ProcedureReturn #True : EndIf ;构建主窗体
If CreateGadgetList(WindowID(200)) = 0 : ProcedureReturn #True : EndIf ;构建主窗体
Text$ = "正在检测资源库文件..."
TextGadget(2000, 10, 20, 270, 20, Text$)
TextGadget(2001, 280, 20, 110, 20, "[耗时 ms]",#PB_Text_Right)
ProgressBarGadget(2002, 10, 40, 380, 20, 0, 100 )
ButtonGadget (2003, 300, 70, 80, 30, "打包" )
ButtonGadget (2004, 300, 70, 80, 30, "取消" )
CheckBoxGadget (2005, 10, 70, 200, 30, "打包空文件" )
SetGadgetState (2002,0)
DisableWindow(0, 1)
HideGadget(2003, 1) : HideGadget(2004, 1)
EndProcedure
表示看不懂 也不知道是不是源代码
还有这个
解压后请用c-free5 打开源代码 |
|