|
|
.版本 2
.支持库 xplib
.支持库 shell
.程序集 窗口程序集1
.程序集变量 所有窗口信息, 窗口信息, , "0"
.程序集变量 游戏窗口句柄, 整数型
.程序集变量 钩子句柄, 整数型
.子程序 __启动窗口_创建完毕
组合框2.加入项目 (“F2”, )
组合框2.加入项目 (“F3”, )
组合框2.加入项目 (“F4”, )
组合框2.加入项目 (“F5”, )
组合框2.加入项目 (“F6”, )
组合框2.加入项目 (“F7”, )
组合框2.加入项目 (“F8”, )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server1”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server2”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server3”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server4”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server5”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server6”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server7”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server8”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server9”, ), )
组合框3.加入项目 (读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “server”, “server10”, ), )
编辑框16.内容 ＝ 读配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “root”, “sungame”, )
组合框3.现行选中项 ＝ 4
按钮10.禁止 ＝ 真
钩子句柄 ＝ 钩子安装 (14, &全局钩子函数, 取模块句柄 (0), 0)
XP风格 (3)
按钮7.禁止 ＝ 真
按钮11.禁止 ＝ 真
按钮12.禁止 ＝ 真
按钮13.禁止 ＝ 真
.子程序 _按钮3_被单击
.如果 (按钮3.标题 ＝ “开始跟随”)
.如果 (组合框2.内容 ≠ “”)
.如果 (编辑框9.内容 ≠ “”)
时钟5.时钟周期 ＝ 到数值 (编辑框9.内容) × 1000
按钮3.标题 ＝ “停止跟随”
选择框1.禁止 ＝ 真
选择框5.禁止 ＝ 真
.否则
信息框 (“请将配置信息填写正确！”, 0, “提示：”)
返回 ()
.如果结束
.否则
信息框 (“请将配置信息填写正确！”, 0, “提示：”)
返回 ()
.如果结束
.如果真 (编辑框5.内容 ≠ “”)
.如果真 (编辑框1.内容 ≠ “”)
时钟1.时钟周期 ＝ 到数值 (编辑框5.内容) × 1000
.如果真结束
.如果真结束
.如果真 (编辑框6.内容 ≠ “”)
.如果真 (编辑框2.内容 ≠ “”)
时钟2.时钟周期 ＝ 到数值 (编辑框6.内容) × 1000
.如果真结束
.如果真结束
.如果真 (编辑框7.内容 ≠ “”)
.如果真 (编辑框3.内容 ≠ “”)
时钟3.时钟周期 ＝ 到数值 (编辑框7.内容) × 1000
.如果真结束
.如果真结束
.如果真 (选择框4.选中 ＝ 真)
时钟4.时钟周期 ＝ 1000
.如果真结束
.否则
.如果真 (按钮3.标题 ＝ “停止跟随”)
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 0
时钟5.时钟周期 ＝ 0
按钮3.标题 ＝ “开始跟随”
选择框1.禁止 ＝ 假
选择框5.禁止 ＝ 假
.如果真结束
.如果结束
.子程序 _时钟1_周期事件
按键winio (键名取键码 (“键” ＋ “1”), , 100)
延时 (到数值 (编辑框1.内容) × 1000)
按键winio (键名取键码 (组合框2.内容 ＋ “键”), , 100)
延时 (500)
按键winio (键名取键码 (“键” ＋ “0”), , 100)
.子程序 _时钟5_周期事件
按键winio (键名取键码 (组合框2.内容 ＋ “键”), , 100)
延时 (500)
按键winio (键名取键码 (“键” ＋ “0”), , 100)
.子程序 _时钟2_周期事件
按键winio (键名取键码 (“键” ＋ “2”), , 100)
延时 (到数值 (编辑框2.内容) × 1000)
按键winio (键名取键码 (组合框2.内容 ＋ “键”), , 100)
延时 (500)
按键winio (键名取键码 (“键” ＋ “0”), , 100)
.子程序 _时钟3_周期事件
按键winio (键名取键码 (“键” ＋ “3”), , 100)
延时 (到数值 (编辑框3.内容) × 1000)
按键winio (键名取键码 (组合框2.内容 ＋ “键”), , 100)
延时 (500)
按键winio (键名取键码 (“键” ＋ “0”), , 100)
.子程序 _时钟4_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框4.内容), 到数值 (编辑框8.内容)) ＞ 50000)
按键winio (#键7, , )
.如果真结束
.子程序 _按钮2_被单击
载入 (窗口1, _启动窗口, 真)
.子程序 全局钩子函数, 整数型
.参数 nCode, 整数型
.参数 Wparam, 整数型, , 状态
.参数 Lparam, 整数型
.局部变量 键代码, 整数型
.如果真 (nCode ＝ 0) ' 开始传递
.如果真 (Wparam ＝ 520) ' 鼠标中键放开
.如果 (选择框1.选中 ＝ 真)
_按钮7_被单击 ()
.否则
.如果 (选择框5.选中 ＝ 真)
_按钮13_被单击 ()
.否则
_按钮3_被单击 ()
.如果结束
.如果结束
.如果真结束
.如果真结束
返回 (传递消息 (钩子句柄, nCode, Wparam, Lparam))
.子程序 __启动窗口_将被销毁
钩子卸载 (钩子句柄)
.子程序 _时钟6_周期事件
.局部变量 坐标, 坐标_
.局部变量 颜色, 整数型
坐标 ＝ 取鼠标坐标 ()
编辑框10.内容 ＝ 到文本 (坐标.x)
编辑框11.内容 ＝ 到文本 (坐标.y)
颜色 ＝ 取颜色 (, 坐标.x, 坐标.y)
编辑框12.内容 ＝ 到文本 (颜色)
.子程序 _按钮4_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟6.时钟周期 ＝ 50
.子程序 _按钮4_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟6.时钟周期 ＝ 0
.子程序 _按钮6_被单击
载入 (窗口2, _启动窗口, 真)
.子程序 _时钟7_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框10.内容), 到数值 (编辑框11.内容)) ＜ 20000)
按键winio (#键4, , )
.如果真结束
.如果真 (屏幕_取颜色 (到数值 (编辑框13.内容), 到数值 (编辑框14.内容)) ≠ 到数值 (编辑框15.内容))
按键winio (#Tab键, , )
延时 (50)
.如果真 (屏幕_取颜色 (到数值 (编辑框13.内容), 到数值 (编辑框14.内容)) ＝ 到数值 (编辑框15.内容))
按键winio (#键1, , )
.如果真结束
.如果真结束
.子程序 _按钮7_被单击
.如果真 (编辑框10.内容 ＝ “”)
信息框 (“请将配置信息填写完整！”, 0, “提示”)
返回 ()
.如果真结束
.如果真 (编辑框13.内容 ＝ “”)
信息框 (“请将配置信息填写完整！”, 0, “提示”)
返回 ()
.如果真结束
.如果 (按钮7.标题 ＝ “开始打怪”)
时钟7.时钟周期 ＝ 700
时钟8.时钟周期 ＝ 800
时钟11.时钟周期 ＝ 1000
.如果真 (编辑框24.内容 ≠ “”)
时钟18.时钟周期 ＝ 到数值 (编辑框24.内容) × 1000
.如果真结束
.如果真 (选择框2.选中 ＝ 真)
时钟10.时钟周期 ＝ 15000
.如果真结束
按钮7.标题 ＝ “停止打怪”
.否则
时钟7.时钟周期 ＝ 0
时钟8.时钟周期 ＝ 0
时钟10.时钟周期 ＝ 0
时钟11.时钟周期 ＝ 0
时钟18.时钟周期 ＝ 0
按钮7.标题 ＝ “开始打怪”
.如果结束
.子程序 _时钟9_周期事件
.局部变量 坐标, 坐标_
.局部变量 颜色, 整数型
坐标 ＝ 取鼠标坐标 ()
编辑框13.内容 ＝ 到文本 (坐标.x)
编辑框14.内容 ＝ 到文本 (坐标.y)
颜色 ＝ 取颜色 (, 坐标.x, 坐标.y)
编辑框15.内容 ＝ 到文本 (颜色)
.子程序 _按钮5_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟9.时钟周期 ＝ 50
.子程序 _按钮5_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟9.时钟周期 ＝ 0
.子程序 _选择框1_被单击
.如果 (选择框1.选中 ＝ 真)
按钮3.禁止 ＝ 真
按钮7.禁止 ＝ 假
组合框1.加入项目 (“1”, )
组合框1.加入项目 (“2”, )
组合框1.加入项目 (“3”, )
组合框1.加入项目 (“4”, )
组合框1.加入项目 (“5”, )
组合框1.加入项目 (“6”, )
组合框1.加入项目 (“7”, )
组合框1.加入项目 (“8”, )
组合框1.加入项目 (“9”, )
组合框1.加入项目 (“0”, )
选择框5.禁止 ＝ 真
.否则
按钮3.禁止 ＝ 假
按钮7.禁止 ＝ 真
选择框5.禁止 ＝ 假
.如果结束
.子程序 _时钟10_周期事件
按键winio (#Tab键, , )
.子程序 _按钮8_被单击
通用对话框1.打开 ()
编辑框16.内容 ＝ 通用对话框1.文件名
.子程序 _按钮9_被单击
.局部变量 a, 整数型
.局部变量 b, 文本型
.如果 (取文本右边 (编辑框16.内容, 11) ＝ “Sungame.exe”)
.如果真 (组合框3.内容 ＝ “”)
信息框 (“请选择服务器！”, 0, “提示”)
返回 ()
.如果真结束
a ＝ 取文本长度 (组合框3.内容)
b ＝ 取文本右边 (组合框3.内容, a － 寻找文本 (组合框3.内容, “:”, , 假))
写配置项 (取运行目录 () ＋ “\” ＋ “gpc.ini”, “root”, “sungame”, 编辑框16.内容)
执行 (4, 编辑框16.内容, “-IP:” ＋ b ＋ “ -Port:44405, index : 2”, )
.否则
信息框 (“请选择游戏路径！”, 0, “提示”)
.如果结束
.子程序 _选择框3_被单击
.局部变量 a, 整数型
.局部变量 b, 文本型
.如果 (选择框3.选中 ＝ 真)
.如果 (取文本右边 (编辑框16.内容, 11) ＝ “Sungame.exe”)
a ＝ 取文本长度 (编辑框16.内容)
b ＝ 取文本左边 (编辑框16.内容, a － 11)
写配置项 (b ＋ “3dsetup.ini”, “screen”, “FullScreen”, “0”)
.否则
选择框3.选中 ＝ 假
信息框 (“游戏路径错误！”, 0, “提示”)
返回 ()
.如果结束
.否则
.如果 (取文本右边 (编辑框16.内容, 11) ＝ “Sungame.exe”)
a ＝ 取文本长度 (编辑框16.内容)
b ＝ 取文本左边 (编辑框16.内容, a － 11)
写配置项 (b ＋ “3dsetup.ini”, “screen”, “FullScreen”, “1”)
.否则
选择框3.选中 ＝ 假
信息框 (“游戏路径错误，修改失败”, 0, “提示”)
返回 ()
.如果结束
.如果结束
.子程序 _时钟8_周期事件
按键winio (#键3, , )
.子程序 _时钟11_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框13.内容), 到数值 (编辑框14.内容)) ＝ 到数值 (编辑框15.内容))
按键winio (#键1, , )
.如果真结束
.子程序 _编辑框8_内容被改变
.子程序 _选择框4_被单击
.如果 (选择框4.选中 ＝ 真)
按钮10.禁止 ＝ 假
.否则
按钮10.禁止 ＝ 真
.如果结束
.子程序 _按钮10_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟12.时钟周期 ＝ 50
.子程序 _按钮10_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟12.时钟周期 ＝ 0
.子程序 _时钟12_周期事件
.局部变量 坐标, 坐标_
坐标 ＝ 取鼠标坐标 ()
编辑框4.内容 ＝ 到文本 (坐标.x)
编辑框8.内容 ＝ 到文本 (坐标.y)
编辑框17.内容 ＝ 到文本 (屏幕_取颜色 (坐标.x, 坐标.y))
.子程序 _按钮11_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟13.时钟周期 ＝ 50
.子程序 _按钮11_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟13.时钟周期 ＝ 0
.子程序 _时钟13_周期事件
.局部变量 坐标, 坐标_
坐标 ＝ 取鼠标坐标 ()
编辑框18.内容 ＝ 到文本 (坐标.x)
编辑框19.内容 ＝ 到文本 (坐标.y)
编辑框20.内容 ＝ 到文本 (屏幕_取颜色 (坐标.x, 坐标.y))
.子程序 _按钮12_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟14.时钟周期 ＝ 50
.子程序 _时钟14_周期事件
.局部变量 坐标, 坐标_
坐标 ＝ 取鼠标坐标 ()
编辑框21.内容 ＝ 到文本 (坐标.x)
编辑框22.内容 ＝ 到文本 (坐标.y)
编辑框23.内容 ＝ 到文本 (屏幕_取颜色 (坐标.x, 坐标.y))
.子程序 _按钮12_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟14.时钟周期 ＝ 0
.子程序 _选择框5_被单击
.如果 (选择框5.选中 ＝ 真)
按钮11.禁止 ＝ 假
按钮12.禁止 ＝ 假
按钮13.禁止 ＝ 假
组合框4.加入项目 (“F2”, )
组合框4.加入项目 (“F3”, )
组合框4.加入项目 (“F4”, )
组合框4.加入项目 (“F5”, )
组合框4.加入项目 (“F6”, )
组合框4.加入项目 (“F7”, )
组合框4.加入项目 (“F8”, )
选择框1.禁止 ＝ 真
.否则
按钮11.禁止 ＝ 真
按钮12.禁止 ＝ 真
按钮13.禁止 ＝ 真
组合框4.清空 ()
选择框1.禁止 ＝ 假
.如果结束
.子程序 _按钮13_被单击
.如果真 (组合框4.内容 ＝ “”)
信息框 (“请选择跟随辅助对象！”, 0, “提示”)
返回 ()
.如果真结束
.如果真 (编辑框18.内容 ＝ “”)
信息框 (“请先定位！”, 0, “提示”)
返回 ()
.如果真结束
.如果 (按钮13.标题 ＝ “开始跟随打怪”)
时钟15.时钟周期 ＝ 1500
时钟16.时钟周期 ＝ 2500
时钟17.时钟周期 ＝ 1000
按钮13.标题 ＝ “停止跟随打怪”
.否则
时钟15.时钟周期 ＝ 0
时钟16.时钟周期 ＝ 0
时钟17.时钟周期 ＝ 0
按钮13.标题 ＝ “开始跟随打怪”
.如果结束
.子程序 _时钟15_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框21.内容), 到数值 (编辑框22.内容)) ≠ 到数值 (编辑框23.内容))
按键winio (键名取键码 (组合框4.内容 ＋ “键”), , )
延时 (50)
按键winio (#键5, , )
延时 (50)
.如果真 (屏幕_取颜色 (到数值 (编辑框21.内容), 到数值 (编辑框22.内容)) ≠ 到数值 (编辑框23.内容))
按键winio (键名取键码 (组合框4.内容 ＋ “键”), , )
延时 (50)
按键winio (#键0, , )
.如果真结束
.如果真结束
.子程序 _时钟16_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框21.内容), 到数值 (编辑框22.内容)) ＝ 到数值 (编辑框23.内容))
按键winio (#键5, , )
延时 (50)
按键winio (#键1, , )
延时 (50)
按键winio (#键0, , )
.如果真结束
.子程序 _时钟17_周期事件
.如果真 (屏幕_取颜色 (到数值 (编辑框18.内容), 到数值 (编辑框19.内容)) ＜ 20000)
按键winio (#键4, , )
.如果真结束
.子程序 _按钮14_被单击
信息框 (“人物血条定位和怪物血条定位设置方法同打怪设置方法，请看打怪使用说明，5为助攻和攻击，1为普通攻击，4为喝药，0为跟随，开始前请选择辅助跟随对象！”, 0, “帮助”)
.子程序 _时钟18_周期事件
按键winio (键名取键码 (“键” ＋ 组合框1.内容), , )
http://yunpan.cn/QXMaL5hR5DVUi
|
|
发表于 2013-8-26 14:48:16