不知道这个是不是龙之谷源代码 莫名其妙搜到的 求大神鉴定啊 如果是真的大家顶啊为了广大的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
表示看不懂 也不知道是不是源代码
还有这个
|
[复制链接]
发表于 2013-4-15 22:56:00
楼主
