|
|
.版本 2
.程序集 窗口程序集1
.程序集变量 参考色, 整数型, , "8"
.程序集变量 动作数据, 动作结构, , "8"
.程序集变量 k, 整数型
.程序集变量 x, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 配置文件名, 文本型
.局部变量 计数器, 整数型
.局部变量 节名数组, 文本型, , "0"
编辑框1.加入文本 (“======使用说明======”, #换行符, #换行符, “1、按 Ctrl+F1 键启动；”, #换行符, “2、按 Ctrl+F2 键停止；”, #换行符, “3、如果你选刷一个怪的地方挂机（如石巨人、沙漠蝎子、黄沙鬼等），请选中”, #左引号, 选择框1.标题, #右引号, “；”, #换行符, “4、如果你想抓住一个怪物后打死再换另一个，请选中”, #左引号, 选择框2.标题, #右引号, #换行符, “5、如果需要设定每怪轮流攻击的时间，请选择”, #左引号, 选择框3.标题, #右引号, “并设定延时时间；”, #换行符, “6、做脚本的方法与 <按键精灵> 的抓点方法类似，将鼠标移到至怪物身上按 Ctrl+数字键(见提示)即可。”, #换行符, #换行符, “      少林：一柱”)
组合框1.加入项目 (“连点器”, )
配置文件名 ＝ 取运行目录 () ＋ “\type.ini”
.如果真 (文件是否存在 (配置文件名) ＝ 真)
    节名数组 ＝ 取配置节名 (配置文件名)
    .计次循环首 (取数组成员数 (节名数组), 计数器)
        组合框1.加入项目 (节名数组 [计数器], )
    .计次循环尾 ()
.如果真结束
k ＝ 0
启动热键.时钟周期 ＝ 60
.子程序 _启动热键_周期事件
.如果真 (处理热键 (#Ctrl键) 且 处理热键 (#F1键))
    启动热键.时钟周期 ＝ 0
    .如果真 (喊话 ＝ 真)
        要喊话.时钟周期 ＝ 喊话周期
    .如果真结束
    .如果真 (组合框1.现行选中项 ≠ -1)
        查身边.时钟周期 ＝ 80
    .如果真结束
.如果真结束
.子程序 _组合框1_列表项被选择
.局部变量 一点, 文本型
.局部变量 怪物, 文本型
.局部变量 计数器, 整数型
.如果 (组合框1.现行选中项 ＝ 0)
    选择框2.禁止 ＝ 真
    选择框3.禁止 ＝ 真
    x ＝ 0
.否则
    选择框2.禁止 ＝ 假
    选择框3.禁止 ＝ 假
    怪物 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
    .计次循环首 (8, 计数器)
        一点 ＝ 读配置项 (取运行目录 () ＋ “\type.ini”, 怪物, 到文本 (计数器), )
        动作数据 [计数器].水平坐标 ＝ 到数值 (取文本左边 (一点, 3))
        动作数据 [计数器].垂直坐标 ＝ 到数值 (取文本中间 (一点, 5, 3))
        动作数据 [计数器].颜色 ＝ 到数值 (取文本右边 (一点, 8))
    .计次循环尾 ()
.如果结束
小化.获取焦点 ()
.子程序 _抓点_被单击
启动热键.时钟周期 ＝ 0
是否是抓点 ＝ 真
窗口1.可视 ＝ 真
载入 (窗口1, , 真)
.子程序 _查身边_周期事件
.局部变量 i, 整数型
.局部变量 tpos, 指针结构
.如果真 (处理热键 (#Ctrl键) 且 处理热键 (#F2键))
    查身边.时钟周期 ＝ 0
    启动热键.时钟周期 ＝ 60
    返回 ()
.如果真结束
.如果 (组合框1.现行选中项 ＝ 0)
    .如果真 (选择框1.选中 ＝ 真)
        .如果真 (x ≥ 40)
            按下某键 (#F2键)
            放开某键 (#F2键)
        .如果真结束
    .如果真结束
    取得坐标 (tpos)
    按下某键 (#Shift键)
    鼠标单击 (tpos.水平坐标, tpos.垂直坐标)
    鼠标单击 (tpos.水平坐标, tpos.垂直坐标)
    放开某键 (#Shift键)
    .如果 (x ≥ 40)
        x ＝ 0
    .否则
        x ＝ x ＋ 1
    .如果结束
    延时 (500)
.否则
    .计次循环首 (8, i)
        .如果真 (处理热键 (#Ctrl键) 且 处理热键 (#F2键))
            查身边.时钟周期 ＝ 0
            启动热键.时钟周期 ＝ 60
            返回 ()
        .如果真结束
        .如果真 (取颜色 (动作数据 .水平坐标, 动作数据 .垂直坐标) ＝ 动作数据 .颜色)
            k ＝ i
            开打 (动作数据 .水平坐标, 动作数据 .垂直坐标)
            延时 (到数值 (编辑框2.内容) × 1000)
            .如果真 (选择框2.选中 ＝ 真 或 选择框1.选中 ＝ 真)
                查身边.时钟周期 ＝ 0
                怪死否.时钟周期 ＝ 100
            .如果真结束
            跳出循环 ()
        .如果真结束
    .计次循环尾 ()
.如果结束
.子程序 _删除_被单击
.局部变量 当前脚本, 文本型
.如果 (组合框1.现行选中项 ≠ 0)
    .如果 (组合框1.现行选中项 ≠ -1)
        当前脚本 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
        .如果 (信息框 (“你确实要删除{” ＋ 当前脚本 ＋ “}脚本？”, 36, “真的吗？”) ＝ #是钮)
            组合框1.删除项目 (组合框1.现行选中项)
            写配置项 (取运行目录 () ＋ “\type.ini”, 当前脚本, , )
        .否则
        .如果结束
    .否则
        信息框 (“未选择脚本！”, #警告图标, “删除”)
    .如果结束
.否则
    信息框 (“嘿嘿，你休想！”, #错误图标, “删除”)
.如果结束
.子程序 _小化_被单击
_启动窗口.位置 ＝ 2
_启动窗口.可视 ＝ 假
置托盘图标 (#托盘图, “柱杀 V1.0”)
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.判断开始 (操作类型 ＝ #单击左键)
    可视 ＝ 真
    _启动窗口.位置 ＝ 0
    置托盘图标 (, )
.默认
.判断结束
.子程序 _修改_被单击
.如果 (组合框1.现行选中项 ＝ 0)
    信息框 (“不让修改的！”, #错误图标, “你弄错了”)
.否则
    .如果 (组合框1.取项目文本 (组合框1.现行选中项) ＝ “”)
        信息框 (“请选择待修改脚本!”, 48, “笨!  d^o^b”)
    .否则
        启动热键.时钟周期 ＝ 0
        是否是抓点 ＝ 假
        窗口1.可视 ＝ 真
        载入 (窗口1, , 真)
    .如果结束
.如果结束
.子程序 开打
.参数 横坐标, 整数型
.参数 纵坐标, 整数型
设置鼠标位置 (横坐标, 纵坐标)
按下某键 (#Shift键)
鼠标双击 (横坐标, 纵坐标)
延时 (450)
鼠标双击 (横坐标, 纵坐标)
延时 (450)
鼠标双击 (横坐标, 纵坐标)
放开某键 (#Shift键)
设置鼠标位置 (100, 100)
.子程序 _怪死否_周期事件
.局部变量 未死, 逻辑型
.如果真 (处理热键 (#Ctrl键) 且 处理热键 (#F2键))
    查身边.时钟周期 ＝ 0
    怪死否.时钟周期 ＝ 0
    启动热键.时钟周期 ＝ 60
    返回 ()
.如果真结束
未死 ＝ 假
.计次循环首 (70, )
    .如果 (取颜色 (动作数据 [k].水平坐标, 动作数据 [k].垂直坐标) ＝ 动作数据 [k].颜色)
        未死 ＝ 真
    .否则
    .如果结束
    延时 (35)
.计次循环尾 ()
.如果 (未死 ＝ 假)
    怪死否.时钟周期 ＝ 0
    .如果真 (选择框1.选中 ＝ 真)
        按下某键 (#F2键)
        放开某键 (#F2键)
    .如果真结束
    查身边.时钟周期 ＝ 80
.否则
    开打 (动作数据 [k].水平坐标, 动作数据 [k].垂直坐标)
    延时 (到数值 (编辑框2.内容) × 1000)
.如果结束
.子程序 _退出_被单击
结束 ()
.子程序 _选择框3_被单击
.如果 (选择框3.选中 ＝ 真)
    编辑框2.可视 ＝ 真
    标签3.可视 ＝ 真
    编辑框2.内容 ＝ “0”
.否则
    编辑框2.可视 ＝ 假
    标签3.可视 ＝ 假
.如果结束
.子程序 _喊话_被单击
喊话窗口.可视 ＝ 真
载入 (喊话窗口, , 真)
.子程序 _要喊话_周期事件
.如果真 (处理热键 (#Ctrl键) 且 处理热键 (#F2键))
    要喊话.时钟周期 ＝ 0
    启动热键.时钟周期 ＝ 60
    返回 ()
.如果真结束
按下某键 (#Ctrl键)
按下某键 (#V键)
放开某键 (#V键)
放开某键 (#Ctrl键)
按下某键 (#回车键)
放开某键 (#回车键)
.子程序 _编辑框1_内容被改变
http://yunpan.cn/QXY372tm9uKXG |
|
发表于 2013-8-23 09:59:52