再爆一个完整的源代码，可以解压龙之谷资源包，打包，定制定，制作自动补丁

2024-7-16更新

16440

不知道这个是不是龙之谷源代码  莫名其妙搜到的  求大神鉴定啊
如果是真的大家顶啊为了广大的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, “打包”)

;ProgressBarGadget(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