源文件放出( WoG辅助工具_v1.6.6)，可直接编译

jdd1cn

“  WOG_3.58F辅助工具_v1.6.6”源代码
(编译工具Inno)
并附带相关说明，
欢迎各位板油打造属于自己的脚本合集工具！


源代码及可直接编译文件（包含所有库文件）在本贴2楼放出，偶已对可修改部分进行说明，欢迎大家提出意见、建议

2楼附件下载后使用方法：
将解压出来的erm文件夹放在d盘根目录下，然后用inno对其中的1.6.6.iss进行编译即可!
其中OutputDir=D:\inno out为编译后文件的输出目录，即可执行文件在D:\inno out下

[ 本帖最后由 jdd1cn 于 2010-12-5 09:57 编辑 ]

jdd1cn

源代码已经放出
同时，本工具停止更新
谢谢各位厚爱以及长期以来对雨诺的支持
其实雨诺只是一位wog（sod）自虐爱好者，
并非所谓的编程高手，
（ps：偶所写的工具也只局限于自己爱好的某些[wiki]游戏[/wiki]而已）
如果大家对偶的其他工具有改编的想法，可以MS雨诺，
偶会在适当时候放出（或者私下提供）代码
真的非常感谢，各位陪我一起走过的日子

谢谢大家了！！！
“[wiki]WoG[/wiki]辅助工具”源代码如下（这么简单的代码，大家先自己看吧，一般情况下，都能够按照自己的意愿进行修改，编译工具inno setup。如果有疑问，请跟帖说明），最下面有附件下载：

[Setup]
AppName=WOG_3.58F辅助工具_v1.6.6            By 雨諾
AppVerName=WOG_3.58F辅助工具_v1.6.6
DefaultDirName={src}
OutputBaseFilename=WOG_3.58F辅助工具_v1.6.6
Compression=lzma/ultra64
DisableFinishedPage=true
DisableReadyPage=true
ShowTasksTreeLines=true
;设置编译后可执行文件所在的目录
OutputDir=D:\inno out
SetupIconFile=ico.ico
WizardSmallImageFile=logo.bmp
DisableDirPage=yes
SolidCompression=true
Uninstallable=false
CreateUninstallRegKey=false
UpdateUninstallLogAppName=false
VersionInfoVersion=1.6.6
VersionInfoCopyright=
VersionInfoCompany=jdd1cn
VersionInfoDescription=雨諾
InternalCompressLevel=ultra64
UseSetupLdr=yes
[Languages]
Name: default; MessagesFile: default.isl
[Files]
;需要调用的库文件
Source: descctrl.dll; Flags: dontcopy
Source: splash.gif; DestDir: {tmp}; Flags: dontcopy
Source: callnsis.dll; DestDir: {tmp}; Flags: dontcopy
Source: NewAdvSplash.dll; DestDir: {tmp}; Flags: dontcopy
;需要打包的文件及组件变量赋值，这里可自行修改
Source: D:\erm\s00\*; DestDir: {app}; Components: gf; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s78\*; DestDir: {app}; Components: yl; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s49a\*; DestDir: {app}; Components: jb\jb0\a; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s49d\*; DestDir: {app}; Components: jb\jb0\d; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s49b\*; DestDir: {app}; Components: jb\jb0\b; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s49e\*; DestDir: {app}; Components: jb\jb0\e; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s49c\*; DestDir: {app}; Components: jb\jb0\c; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s88\*; DestDir: {app}; Components: jd\jb1; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s85\*; DestDir: {app}; Components: jd\jb2; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s53a\*; DestDir: {app}; Components: jb\jb53\a; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s53b\*; DestDir: {app}; Components: jb\jb53\b; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s92\*; DestDir: {app}; Components: jd\jb3; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s95\*; DestDir: {app}; Components: jd\jb4; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s50\*; DestDir: {app}; Components: jd\jb5; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s79\*; DestDir: {app}; Components: jd\jb6; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s90\*; DestDir: {app}; Components: jd\jb7; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s89\*; DestDir: {app}; Components: jd\jb8; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s96\*; DestDir: {app}; Components: jd\jb9; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s86\*; DestDir: {app}; Components: jd\jb10; Flags: ignoreversion recursesubdirs createallsubdirs
Source: D:\erm\s99\*; DestDir: {app}; Components: jd\jb11; Flags: ignoreversion recursesubdirs createallsubdirs

[Types]
Name: full; Description: 全部定制
Name: compact; Description: 推荐定制
Name: custom; Description: 自行定制; Flags: iscustom

[Components]
;变量在组件列表中的命名，可按需要自行修改
Name: gf; Description: 官方脚本; Types: full compact custom; Flags: fixed
Name: yl; Description: WOG中文站官方脚本_元老殿堂; Types: full compact custom
Name: jb; Description: WOG中文站玩家脚本; Types: full
Name: jb\jb0; Description: 第一追随者; Types: full compact custom; Flags: checkablealone fixed
Name: jb\jb0\a; Description: 官方一追; Flags: exclusive
Name: jb\jb0\d; Description: 官方一追战旗版; Flags: exclusive
Name: jb\jb0\b; Description: 猪版一追_090628; Flags: exclusive
Name: jb\jb0\e; Description: 猪版一追之兽血沸腾版; Flags: exclusive
Name: jb\jb0\c; Description: 技能加强版一追_2.9.5; Flags: exclusive
Name: jd\jb1; Description: 第二追随者_v4.01; Flags: checkablealone; Types: full
Name: jd\jb2; Description: 第三追随者_091111; Flags: checkablealone; Types: full
Name: jb\jb53; Description: 加强龙之国; Types: full compact custom; Flags: checkablealone fixed
Name: jb\jb53\a; Description: 官方原版; Flags: exclusive
Name: jb\jb53\b; Description: 无限访问版; Flags: exclusive
Name: jd\jb3; Description: 宝物典当行_v2.61; Flags: checkablealone; Types: full
Name: jd\jb4; Description: 《老实猪》9in1特长_v1.1; Flags: checkablealone; Types: full
Name: jd\jb5; Description: 怪物强化Ⅱ_090219修正版; Flags: checkablealone; Types: full
Name: jd\jb6; Description: 生物经验溢出补丁; Flags: checkablealone; Types: full
Name: jd\jb7; Description: 选择宠物、全技能、宝物; Flags: checkablealone; Types: full
Name: jd\jb8; Description: ID查询、修改增强_v0.9; Flags: checkablealone; Types: full
Name: jd\jb9; Description: 大富翁_090825; Flags: checkablealone; Types: full
Name: jd\jb10; Description: 矿井加强_v1.0; Flags: checkablealone; Types: full
Name: jd\jb11; Description: 群英会; Flags: checkablealone; Types: full
[InstallDelete]
;运行程序前删除当前文件夹下data目录内s文件夹下的所有文件，即删除当前所有脚本
Type: filesandordirs; Name: {src}\data\s\*.*
[Messages]
BeveledLabel=程序制作：jdd1cn        文件来源：http://bbs.h3wog.com

[Code]
procedure callplug(parentwnd: Integer; pluginname,funcname,param1,param2,param3,param4,param5,param6,param7,param8,param9,param10: PChar);
external [email=]'callplug@files:callnsis.dll[/email] stdcall delayload';


//去掉关于菜单
const MF_BYPOSITION=$400;
function DeleteMenu(HMENU: HWND; uPosition: UINT; uFlags: UINT): BOOL;
external [email=]'DeleteMenu@user32.dll[/email] stdcall';
function GetSystemMenu(HWND: hWnd; bRevert: BOOL): HWND;
external [email=]'GetSystemMenu@user32.dll[/email] stdcall';
//去掉关于菜单第一部分

;运行环境判断，判断当前文件夹是否包含有zvslib1.dll文件
function InitializeSetup(): Boolean;
begin
Result:= true;
if not FileExists(ExpandConstant('{src}\zvslib1.dll')) then
begin
MsgBox('请在游戏安装目录内运行！', mbInformation, MB_OK);
Result := false;
end;
end;

;超链接制作
procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://bbs.h3wog.com/?fromuser=jdd1cn', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;


procedure AboutButtonOnClick(Sender: TObject);
begin
  MsgBox(#13+
         '       雨諾（jdd1cn）制作' #13 #13+
         'Copyright (C) bbs.h3wog.com' #13#13+
          '          2009.11.28'#13#13 '注：'#13#13+
          '本工具会删除（卸载）其它所有未定制的脚本；'#13#13+
          '如果想继续使用未收集在本工具中的脚本，'#13#13+
          '请在使用本工具前进行手工备份。', mbInformation, MB_OK);
end;

var
    AboutButton, CancelButton: TButton;
    URLLabel: TNewStaticText;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpWelcome then
WizardForm.NextButton.OnClick(WizardForm);
end;

function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external [email=]'enabledesc@files:descctrl.dll[/email] stdcall';
//ComponentsListHandle 组件框句柄
//DescLabelHandle 描述TNewStaticText句柄
//DescStrings 描述文字 英文分号分割“;”，如果描述中必须要有英文分号，请用“#3B”代替。
function disabledesc(): BOOL; external [email=]'disabledesc@files:descctrl.dll[/email] stdcall';
var
  Info: TNewStaticText;
  InfoCaption: TNewStaticText;
  InfoPanel: TPanel;
procedure DeinitializeSetup();
begin
  //释放描述控制
  disabledesc();
end;


procedure InitializeWizard();
var
  LabelDate:Tlabel;
  SplashFile: string;
begin
ExtractTemporaryFile(ExpandConstant('CallNSIS.DLL'));
ExtractTemporaryFile(ExpandConstant('NewAdvSplash.DLL'));

;加入闪图，可自行修改
ExtractTemporaryFile(ExpandConstant('splash.gif'));
SplashFile := ExpandConstant('{tmp}\Splash.gif');
// 闪屏：显示时间 1000、淡入 800、淡出 600、透明颜色 -1 （表示 gif 图像本身透明）
CALLPLUG(0,ExpandConstant('{tmp}\NewAdvSplash.dll'),'show','1000','800','600','-1',SplashFile,'','','','','');



  WizardForm.BeveledLabel.Enabled := true;
  WizardForm.BeveledLabel.Font.Color := clMaroon;
  WizardForm.BeveledLabel.Font.Style := WizardForm.BeveledLabel.Font.Style + [];
  WizardForm.BeveledLabel.Left := 65;
  WizardForm.BackButton.Enabled := false;
  WizardForm.BackButton.Height :=  0;
  WizardForm.CancelButton.Visible := False;

  { Create the pages }
WizardForm.PAGENAMELABEL.Font.Color:= clred;
WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
WizardForm.WELCOMELABEL2.Font.Color:= clblack;
   CancelButton := WizardForm.CancelButton;
     AboutButton := TButton.Create(WizardForm);
     AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
     AboutButton.Top := CancelButton.Top;
     AboutButton.Width := CancelButton.Width;
     AboutButton.Height := CancelButton.Height;
     AboutButton.Caption := 'About(&A)';
     AboutButton.OnClick := @AboutButtonOnClick;
     AboutButton.Parent := WizardForm;

  URLLabel := TNewStaticText.Create(WizardForm);
    URLLabel.Caption := 'WOG中文站';
    URLLabel.Cursor := crHand;
    URLLabel.OnClick := @URLLabelOnClick;
    URLLabel.Parent := WizardForm;
    { Alter Font *after* setting Parent so the correct defaults are inherited first }
    URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
    URLLabel.Font.Color := clred;
    URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
    URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(75);

    //去掉关于菜单
    DeleteMenu(GetSystemMenu(wizardform.handle,false),8,MF_BYPOSITION);
    DeleteMenu(GetSystemMenu(wizardform.handle,false),7,MF_BYPOSITION);
    //去掉关于菜单完毕

  // 调整组件列表的大小
  WizardForm.TYPESCOMBO.Visible:= true;
  WizardForm.TYPESCOMBO.Width := ScaleX(260)
  WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top - scaleY(20);
  WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top + scaleY(20);
  WizardForm.ComponentsList.Width := ScaleX(260);
  //创建一个虚拟的GroupBox，因为Inno Setup 没有啊。
  InfoPanel := TPanel.Create(WizardForm);
  InfoPanel.Parent := WizardForm.SelectComponentsPage;
  InfoPanel.Caption := '';
  InfoPanel.Top := WizardForm.ComponentsList.Top - ScaleY(20);
  InfoPanel.Left := ScaleX(266);
  InfoPanel.Width := ScaleX(150);
  InfoPanel.Height := WizardForm.ComponentsList.Height + ScaleY(20);
  InfoPanel.BevelInner := bvRaised;
  InfoPanel.BevelOuter := bvLowered;
  InfoCaption := TNewStaticText.Create(WizardForm);
  InfoCaption.Parent := WizardForm.SelectComponentsPage;
  InfoCaption.Caption := '简述';
  InfoCaption.Left := ScaleX(274);
  InfoCaption.Top := InfoPanel.Top - ScaleY(5);
  InfoCaption.Font.Color := clActiveCaption;

  Info := TNewStaticText.Create(WizardForm);
  Info.Parent := InfoPanel;
  Info.AutoSize := False;
  Info.Left := ScaleX(6);
  Info.Width := ScaleX(138);
  Info.Top := ScaleY(12);
  Info.Font.Color := clGreen;
  Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
  Info.Caption := '移动您的鼠标到脚本上，可以查看当前脚本的简述。'+#13+#13+'详细操作请到'+#13+'WOG中文站'+#13+'bbs.h3wog.com'+#13+'进行搜索查看';
  Info.WordWrap := true;


  // 创建描述文字，描述文字应于组件列表一一对应，可自行修改
  //激活描述控制
  enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
       'script00—77，兼容性、稳定性较好，data\s文件夹内有详细介绍;'+
       'script78，WOG中文站第一个官方脚本，安装后会替换地图上的龙堡为新的建筑物;'+
       'WOG中文站玩家编写的脚本，详细操作请到'+#13+'WOG中文站'+#13+'bbs.h3wog.com'+#13+'进行搜索查看;'+
       'script49，需在WOG设置菜单中开启相关选项，英雄信息界面，左键单击右上角颜色旗帜进行设置;'+
       '追随者选择提醒对话框将会在每次人类玩家进攻或防御战斗开始时显示，访问生物银行或攻击怪物而战斗没有发生的话不会显示该对话框;'+
       '右键点击英雄画面中右上角的旗帜可以调出一追战旗设置框；增加一追战旗设置与一追经验等级；一追经验等级与英雄等级挂钩；更换一追类型、一追阵亡都不会改变战旗设置与经验等级;'+
       '指挥官的死亡凝视；远程美杜莎石化之眼；交换一追;'+
       '全新的一追系统：特技传承、 战旗&伴侣、兽血沸腾;'+
       '英雄交换界面鼠标右键点击英雄头像进行交换；电脑一追的经验不与人类一追经验联系；自动转职需自己打开该选项;'+
       'script88，英雄信息界面，左键单击左上角英雄头像进行设置;'+
       'script85，需在WOG设置菜单中开启相关选项，英雄信息界面，左键单击经验值数值框进行设置：恢复战斗兵力；战场所有生物双剑；允许兵种转换为其他兵种或经验值；允许一追使用召唤技能;'+
       'script53，加强龙之国：在WOG设置菜单中勾选“加强龙之国”开启;'+
       '把龙堡内所有的龙都替换为暗黑龙;'+
       '把龙堡内所有的龙都替换为暗黑龙，可以无限次打龙堡;'+
       'script92，英雄信息界面，右键单击英雄装备孔间的空白进行操作;'+
       'script95，英雄信息界面，右键单击右上角颜色旗帜下面的英雄头像进行操作;'+
       'script50，在WOG设置菜单中勾选"怪物强化"选项即可，安装此脚本会替换掉官方的怪物强化脚本;'+
       'script79，修正过的生物经验溢出补丁，BT地图必备脚本;'+
       'script90，游戏开始时选择宠物类型、英雄（宠物）全技能、宠物宝物等……;'+
       'script89，游戏主界面，右键单击帐篷按钮进行操作，可以免费获得宝物、生物，极其BT;'+
       'script96，游戏主界面，右键单击钱币数量进行操作，让所有随机图都变成BT图，炒股等;'+
       'script86，根据矿井的驻守为矿井增加产量：金矿：驻守总生命值为增加的产量；木材和矿石：驻守总生命值除以400为增加的产量；其他资源：驻守总生命值除以800为增加的产量;'+
       'script99，游戏主界面，右键单击城堡图片（不是城堡按钮）进行操作，可以自定义己方所有城堡的未升级兵种;'
       );
end;

[ 本帖最后由 jdd1cn 于 2010-12-5 09:58 编辑 ]

寻梦人

期待ING

cyhken

雨诺大大顶!`````支持开源...

龙巫妖

恩 支持开源 ~~

fastarrow

要得。

songfx

其实我也对VB编程有一点基础，只是长久没用，基本上已经忘得差不多了。

songfx

为什么没有人给楼主加分呢？非要我出手……
提一个问题，有哪些级别的人拥有评分的权力？

hellmatrix

是VB的源码么？有兴趣研究一下下的

龙巫妖

七级可以评分

无心云

谢谢楼大

不过怎么听这口气,雨兄准备远行?

jdd1cn

原帖由 songfx 于 2010-12-3 19:07 发表
其实我也对VB编程有一点基础，只是长久没用，基本上已经忘得差不多了。

跟vb没太大的关系，不过基本上每个人都能搞懂

jdd1cn

原帖由 wuxinyun1999 于 2010-12-3 20:21 发表
谢谢楼大

不过怎么听这口气,雨兄准备远行?

没有远行的打算，只不过是自己一个人做太累了，
毕竟年龄大了，3张多了，P4了都，
大家自己做自己喜爱的工具会更开心，
自己开心不如大家开心，呵呵

赤膊打领带

恩，WOG就是需要楼主这样辛勤劳作的人~
尤其是对我这种喜欢拿别人的劳动成果来用的菜鸟，真是我们玩家的福音啊

hellmatrix

注释行不少啊，很专业呀

无心云

雨兄也是70年代啊，^_^，握个手！

我跟大郅一年的 ，你呢？

克招

OH，YEAH，看不懂。

寻梦人

虽然懵懵懂懂!还是要赞一个!

houwz

看的懂，是看的懂，问题是没有script49这类东西

ws11040707

完全没有接触过- -