自动找图并处理一些事儿 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
dm	dmsoft
程序集_起点X	整数型		查找范围
程序集_起点Y	整数型		查找范围
程序集_屏幕宽度	整数型		查找范围
程序集_屏幕高度	整数型		查找范围
程序集_图片路径	文本型		用来存放图片的路径
程序集_寻找	自定义寻找甲	0
程序集_记录甲	整数型		用来记录当前运行
程序集_循环标记	逻辑型		进入或跳出循环所用
程序集_按下左X	整数型		当按下左键时，X移动距离
程序集_按下左Y	整数型		当按下左键时，X移动距离
程序集_找到图片X点	整数型
程序集_找到图片Y点	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

' 【程序集_寻找】数组的成员如下。
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
程序集_起点X ＝ 0
程序集_起点Y ＝ 0
程序集_屏幕宽度＝取屏幕宽度 ()
程序集_屏幕高度＝取屏幕高度 ()
程序集_图片路径＝取运行目录 () ＋ “\pic\”
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #Q键, &_按钮点鼠_被单击, 1)

子程序名	返回值类型	公开	备注
子程序初始化程数据			初始化程序集的数据

清除数组 (程序集_寻找)
程序集_记录甲＝ 1
程序集_循环标记＝真
编辑框提示信息区.内容＝ “”

子程序名	返回值类型	公开	备注
_按钮征战_被单击

变量名	类型	静态	数组	备注
局部_找图	文本型		0
计次	整数型
计次连几图	整数型

程序_延时 (1000, 0)
子程序初始化程数据 ()
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)
加入成员 (局部_找图, “征战002.bmp||左单击||30||46||1000||1”)
加入成员 (局部_找图, “征战003.bmp||左单击||16||9||1000||1”)
加入成员 (局部_找图, “征战004.bmp||左单击||16||9||3000||1”)
加入成员 (局部_找图, “征战005.bmp||左单击||18||20||2000||1”)
加入成员 (局部_找图, “征战006.bmp||左单击||30||46||2000||1”)
加入成员 (局部_找图, “征战007.bmp||左单击||8||8||2000||2”)
加入成员 (局部_找图, “征战007-1.bmp||左单击||8||8||2000||1”)

计次循环首 (取数组成员数 (局部_找图), 计次)

子程序添加数组 (局部_找图 [计次])

计次循环尾 ()
输出调试文本 (取数组成员数 (程序集_寻找))

判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)

编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容

子程序找图一 (程序集_寻找 [程序集_记录甲])

程序集_记录甲＝程序集_记录甲＋程序集_寻找 [程序集_记录甲].成员连几图

判断循环尾 ()

计次循环首 (4, 计次)

程序集_记录甲＝ 3

判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)

编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容

子程序找图一 (程序集_寻找 [程序集_记录甲])

程序集_记录甲＝程序集_记录甲＋程序集_寻找 [程序集_记录甲].成员连几图

判断循环尾 ()

计次循环尾 ()
程序集_记录甲＝ 5
编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容
子程序找图一 (程序集_寻找 [程序集_记录甲])
输出调试文本 (“=====================================”)
编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容
子程序找图一 (程序集_寻找 [程序集_记录甲])
编辑框提示信息区.内容＝ “运行完毕!” ＋ #换行符＋编辑框提示信息区.内容

子程序名	返回值类型	公开	备注
子程序找图一	逻辑型		找图最底层。
参数名	类型	参考	可空	数组	备注
参数_找图	自定义寻找甲

变量名	类型	静态	数组	备注
局部_位置	文本型
局部_位置数组	文本型		0
i	整数型
局部_X移数	整数型
局部_Y移数	整数型
计次	整数型
局部_临时甲	整数型			用来作为循环进入或退出条件
局部_临时乙	整数型			用来记录运行了几次，大于某次退出
计次连几图	整数型

局部_临时甲＝ 1

判断循环首 (局部_临时甲＝ 1)

计次循环首 (程序集_寻找 [程序集_记录甲].成员连几图, 计次连几图)

如果真 (局部_临时乙＝ 1)

dm.MoveTo (10, 10)

' 为了消除鼠标挡住图标的情况。

子程序提示信息 (“正在处理” ＋参数_找图.成员图片名＋ “图片！”)

局部_位置＝ dm.FindPicE (程序集_起点X, 程序集_起点Y, 程序集_屏幕宽度, 程序集_屏幕高度, 程序集_图片路径＋参数_找图.成员图片名, “080808”, 0.9, 0)

输出调试文本 (参数_找图.成员图片名)

输出调试文本 (局部_位置)

局部_位置数组＝分割文本 (局部_位置, “|”, )

如果 (到整数 (局部_位置数组 [1]) ＞ -1)

子程序提示信息 (“找到图片：” ＋局部_位置)

计次循环首 (3, i)

输出调试文本 (局部_位置数组 [i])

计次循环尾 ()

程序集_找到图片X点＝到整数 (局部_位置数组 [2])

程序集_找到图片Y点＝到整数 (局部_位置数组 [3])

如果真 (参数_找图.成员处理方式＝ “左单击”)

dm.MoveTo (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

输出调试文本 (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移)

输出调试文本 (到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

程序_延时 (800, 0)

dm.LeftClick ()

输出调试文本 (“左单击”)

如果真 (参数_找图.成员处理方式＝ “右单击”)

dm.MoveTo (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

输出调试文本 (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移)

输出调试文本 (到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

程序_延时 (800, 0)

dm.RightClick ()

输出调试文本 (“右单击”)

如果真 (参数_找图.成员处理方式＝ “左双击”)

dm.MoveTo (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

输出调试文本 (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移)

输出调试文本 (到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

程序_延时 (800, 0)

dm.LeftDoubleClick ()

输出调试文本 (“左双击”)

如果真 (参数_找图.成员处理方式＝ “按下左键”)

dm.MoveTo (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

输出调试文本 (到整数 (局部_位置数组 [2]) ＋参数_找图.成员相对X移)

输出调试文本 (到整数 (局部_位置数组 [3]) ＋参数_找图.成员相对Y移)

程序_延时 (800, 0)

dm.LeftDown ()

输出调试文本 (“按下左键”)

如果真 (程序集_按下左X ≠ 0 或程序集_按下左Y ≠ 0)

' 这里只能横移或竖移鼠标。

如果 (程序集_按下左X ＞ 0)

计次循环首 (程序集_按下左X, 计次)

dm.MoveR (1, 0)

程序_延时 (10, 0)

计次循环尾 ()

计次循环首 (取绝对值 (程序集_按下左X), 计次)

dm.MoveR (-1, 0)

程序_延时 (10, 0)

计次循环尾 ()

如果 (程序集_按下左Y ＞ 0)

计次循环首 (程序集_按下左Y, 计次)

dm.MoveR (0, 1)

程序_延时 (10, 0)

计次循环尾 ()

计次循环首 (取绝对值 (程序集_按下左Y), 计次)

dm.MoveR (0, -1)

程序_延时 (10, 0)

计次循环尾 ()

程序_延时 (200, 0)

dm.LeftUp ()

程序集_按下左X ＝ 0

程序集_按下左Y ＝ 0

局部_临时甲＝ 2

程序_延时 (参数_找图.成员等待毫秒, 0)

返回 (真)

程序_延时 (100, 0)

计次循环尾 ()

如果真 (局部_临时乙＞ 20)

子程序提示信息 (“找不到” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ “图片。”)

跳出循环 ()

局部_临时乙＝局部_临时乙＋ 1

程序_延时 (200, 0)

判断循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备注
子程序添加数组
参数名	类型	参考	可空	数组	备注
参数文本型	文本型

变量名	类型	静态	数组	备注
局部_临时数组	文本型		0
局部_临时甲	自定义寻找甲

' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
局部_临时数组＝分割文本 (参数文本型, “||”, )

如果真 (取数组成员数 (局部_临时数组) ≠ 6)

信息框 (“添加【程序集_寻找】数组出错”, 0, , )

返回 ()
局部_临时甲.成员图片名＝局部_临时数组 [1]
局部_临时甲.成员处理方式＝局部_临时数组 [2]
局部_临时甲.成员相对X移＝到整数 (局部_临时数组 [3])
局部_临时甲.成员相对Y移＝到整数 (局部_临时数组 [4])
局部_临时甲.成员等待毫秒＝到整数 (局部_临时数组 [5])
局部_临时甲.成员连几图＝到整数 (局部_临时数组 [6])
加入成员 (程序集_寻找, 局部_临时甲)

子程序名	返回值类型	公开	备注
_按钮酒馆_被单击

变量名	类型	静态	数组	备注
局部_找图	文本型		0
计次	整数型
计次连几图	整数型
局部_整数型个数	整数型			用来记录程序集寻找数组的个数。

程序_延时 (1000, 0)
子程序取消聊天窗口 ()
子程序初始化程数据 ()
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
加入成员 (局部_找图, “酒店001.bmp||左单击||30||46||1000||1”)
加入成员 (局部_找图, “酒店002.bmp||按下左键||5||5||1000||1”)

计次循环首 (取数组成员数 (局部_找图), 计次)

子程序添加数组 (局部_找图 [计次])

计次循环尾 ()
局部_整数型个数＝取数组成员数 (程序集_寻找)
输出调试文本 (局部_整数型个数)

判断循环首 (局部_整数型个数 ≥ 程序集_记录甲)

编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容

如果真 (程序集_记录甲＝ 2)

程序集_按下左Y ＝ 110

子程序找图一 (程序集_寻找 [程序集_记录甲])

程序集_记录甲＝程序集_记录甲＋程序集_寻找 [程序集_记录甲].成员连几图

判断循环尾 ()
编辑框提示信息区.内容＝ “酒店，操作完成！” ＋ #换行符＋编辑框提示信息区.内容

子程序名	返回值类型	公开	备注
子程序取消聊天窗口

变量名	类型	静态	数组	备注
局部_找图	文本型		0
计次	整数型
计次连几图	整数型
局部_位置	文本型

子程序初始化程数据 ()
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
加入成员 (局部_找图, “聊天001.bmp||左单击||5||5||100||1”)
加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)
加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)
加入成员 (局部_找图, “聊天002.bmp||不单击||5||5||100||1”)

计次循环首 (取数组成员数 (局部_找图), 计次)

子程序添加数组 (局部_找图 [计次])

计次循环尾 ()
输出调试文本 (取数组成员数 (程序集_寻找))

如果 (子程序找图一 (程序集_寻找 [4]))

计次＝ 10

计次＝ 100

判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲且计次＝ 10)
编辑框提示信息区.内容＝ “找” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ #换行符＋编辑框提示信息区.内容
子程序找图一 (程序集_寻找 [程序集_记录甲])
程序集_记录甲＝程序集_记录甲＋程序集_寻找 [程序集_记录甲].成员连几图

判断循环尾 ()

子程序名	返回值类型	公开	备注
子程序提示信息
参数名	类型	参考	可空	数组	备注
参数提示信息	文本型

编辑框提示信息区.内容＝参数提示信息＋到文本 (取现行时间 ()) ＋ #换行符＋编辑框提示信息区.内容

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
局部_找图	文本型		0
计次	整数型
计次连几图	整数型

程序_延时 (1000, 0)
子程序初始化程数据 ()
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】
加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)

计次循环首 (取数组成员数 (局部_找图), 计次)

子程序添加数组 (局部_找图 [计次])

输出调试文本 (计次)

计次循环尾 ()
输出调试文本 (取数组成员数 (程序集_寻找))

判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)

子程序提示信息 (“找图：” ＋程序集_寻找 [程序集_记录甲].成员图片名＋ “开始！”)

子程序找图一 (程序集_寻找 [程序集_记录甲])

程序集_记录甲＝程序集_记录甲＋程序集_寻找 [程序集_记录甲].成员连几图

判断循环尾 ()
输出调试文本 (“继续开始”)

子程序名	返回值类型	公开	备注
_按钮点鼠_被单击

如果 (按钮点鼠.标题＝ “点”)

时钟1.时钟周期＝ 500

按钮点鼠.标题＝ “停”

按钮点鼠.标题＝ “点”

时钟1.时钟周期＝ 0

子程序名	返回值类型	公开	备注
_时钟1_周期事件

dm.LeftClick ()

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

窗口_热键卸载 (_启动窗口.取窗口句柄 (), 1)

i支持库列表	支持库注释
dm	(未知支持库)

.版本 2<br />
.支持库 dm<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 dm, dmsoft<br />
.程序集变量 程序集_起点X, 整数型, , , 查找范围<br />
.程序集变量 程序集_起点Y, 整数型, , , 查找范围<br />
.程序集变量 程序集_屏幕宽度, 整数型, , , 查找范围<br />
.程序集变量 程序集_屏幕高度, 整数型, , , 查找范围<br />
.程序集变量 程序集_图片路径, 文本型, , , 用来存放图片的路径<br />
.程序集变量 程序集_寻找, 自定义寻找甲, , "0"<br />
.程序集变量 程序集_记录甲, 整数型, , , 用来记录当前运行<br />
.程序集变量 程序集_循环标记, 逻辑型, , , 进入或跳出循环所用<br />
.程序集变量 程序集_按下左X, 整数型, , , 当按下左键时，X移动距离<br />
.程序集变量 程序集_按下左Y, 整数型, , , 当按下左键时，X移动距离<br />
.程序集变量 程序集_找到图片X点, 整数型<br />
.程序集变量 程序集_找到图片Y点, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
' 【程序集_寻找】数组的成员如下。<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
程序集_起点X ＝ 0<br />
程序集_起点Y ＝ 0<br />
程序集_屏幕宽度 ＝ 取屏幕宽度 ()<br />
程序集_屏幕高度 ＝ 取屏幕高度 ()<br />
程序集_图片路径 ＝ 取运行目录 () ＋ “\pic\”<br />
窗口_热键注册 (_启动窗口.取窗口句柄 (), 2, #Q键, &_按钮点鼠_被单击, 1)<br />
<br />
<br />
.子程序 子程序初始化程数据, , , 初始化程序集的数据<br />
<br />
清除数组 (程序集_寻找)<br />
程序集_记录甲 ＝ 1<br />
程序集_循环标记 ＝ 真<br />
编辑框提示信息区.内容 ＝ “”<br />
<br />
.子程序 _按钮征战_被单击<br />
.局部变量 局部_找图, 文本型, , "0"<br />
.局部变量 计次, 整数型<br />
.局部变量 计次连几图, 整数型<br />
<br />
程序_延时 (1000, 0)<br />
子程序初始化程数据 ()<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)<br />
加入成员 (局部_找图, “征战002.bmp||左单击||30||46||1000||1”)<br />
加入成员 (局部_找图, “征战003.bmp||左单击||16||9||1000||1”)<br />
加入成员 (局部_找图, “征战004.bmp||左单击||16||9||3000||1”)<br />
加入成员 (局部_找图, “征战005.bmp||左单击||18||20||2000||1”)<br />
加入成员 (局部_找图, “征战006.bmp||左单击||30||46||2000||1”)<br />
加入成员 (局部_找图, “征战007.bmp||左单击||8||8||2000||2”)<br />
加入成员 (局部_找图, “征战007-1.bmp||左单击||8||8||2000||1”)<br />
.计次循环首 (取数组成员数 (局部_找图), 计次)<br />
    子程序添加数组 (局部_找图 [计次])<br />
.计次循环尾 ()<br />
输出调试文本 (取数组成员数 (程序集_寻找))<br />
.判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)<br />
    编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
    子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
    程序集_记录甲 ＝ 程序集_记录甲 ＋ 程序集_寻找 [程序集_记录甲].成员连几图<br />
.判断循环尾 ()<br />
.计次循环首 (4, 计次)<br />
    程序集_记录甲 ＝ 3<br />
    .判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)<br />
        编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
        子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
        程序集_记录甲 ＝ 程序集_记录甲 ＋ 程序集_寻找 [程序集_记录甲].成员连几图<br />
    .判断循环尾 ()<br />
.计次循环尾 ()<br />
程序集_记录甲 ＝ 5<br />
编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
输出调试文本 (“=====================================”)<br />
编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
编辑框提示信息区.内容 ＝ “运行完毕!” ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
<br />
.子程序 子程序找图一, 逻辑型, , 找图最底层。<br />
.参数 参数_找图, 自定义寻找甲<br />
.局部变量 局部_位置, 文本型<br />
.局部变量 局部_位置数组, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 局部_X移数, 整数型<br />
.局部变量 局部_Y移数, 整数型<br />
.局部变量 计次, 整数型<br />
.局部变量 局部_临时甲, 整数型, , , 用来作为循环进入或退出条件<br />
.局部变量 局部_临时乙, 整数型, , , 用来记录运行了几次，大于某次退出<br />
.局部变量 计次连几图, 整数型<br />
<br />
局部_临时甲 ＝ 1<br />
.判断循环首 (局部_临时甲 ＝ 1)<br />
    .计次循环首 (程序集_寻找 [程序集_记录甲].成员连几图, 计次连几图)<br />
        .如果真 (局部_临时乙 ＝ 1)<br />
            dm.MoveTo (10, 10)<br />
            ' 为了消除鼠标挡住图标的情况。<br />
        .如果真结束<br />
        子程序提示信息 (“正在处理” ＋ 参数_找图.成员图片名 ＋ “图片！”)<br />
        局部_位置 ＝ dm.FindPicE (程序集_起点X, 程序集_起点Y, 程序集_屏幕宽度, 程序集_屏幕高度, 程序集_图片路径 ＋ 参数_找图.成员图片名, “080808”, 0.9, 0)<br />
        输出调试文本 (参数_找图.成员图片名)<br />
        输出调试文本 (局部_位置)<br />
        局部_位置数组 ＝ 分割文本 (局部_位置, “|”, )<br />
        .如果 (到整数 (局部_位置数组 [1]) ＞ -1)<br />
            子程序提示信息 (“找到图片：” ＋ 局部_位置)<br />
            .计次循环首 (3, i)<br />
                输出调试文本 (局部_位置数组 <i>)<br />
            .计次循环尾 ()<br />
            程序集_找到图片X点 ＝ 到整数 (局部_位置数组 [2])<br />
            程序集_找到图片Y点 ＝ 到整数 (局部_位置数组 [3])<br />
            .如果真 (参数_找图.成员处理方式 ＝ “左单击”)<br />
                dm.MoveTo (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                输出调试文本 (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移)<br />
                输出调试文本 (到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                程序_延时 (800, 0)<br />
                dm.LeftClick ()<br />
                输出调试文本 (“左单击”)<br />
            .如果真结束<br />
            .如果真 (参数_找图.成员处理方式 ＝ “右单击”)<br />
                dm.MoveTo (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                输出调试文本 (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移)<br />
                输出调试文本 (到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                程序_延时 (800, 0)<br />
                dm.RightClick ()<br />
                输出调试文本 (“右单击”)<br />
            .如果真结束<br />
            .如果真 (参数_找图.成员处理方式 ＝ “左双击”)<br />
                dm.MoveTo (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                输出调试文本 (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移)<br />
                输出调试文本 (到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                程序_延时 (800, 0)<br />
                dm.LeftDoubleClick ()<br />
                输出调试文本 (“左双击”)<br />
            .如果真结束<br />
            .如果真 (参数_找图.成员处理方式 ＝ “按下左键”)<br />
                dm.MoveTo (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                输出调试文本 (到整数 (局部_位置数组 [2]) ＋ 参数_找图.成员相对X移)<br />
                输出调试文本 (到整数 (局部_位置数组 [3]) ＋ 参数_找图.成员相对Y移)<br />
                程序_延时 (800, 0)<br />
                dm.LeftDown ()<br />
                输出调试文本 (“按下左键”)<br />
                .如果真 (程序集_按下左X ≠ 0 或 程序集_按下左Y ≠ 0)<br />
                    ' 这里只能横移或竖移鼠标。<br />
                    .如果 (程序集_按下左X ＞ 0)<br />
                        .计次循环首 (程序集_按下左X, 计次)<br />
                            dm.MoveR (1, 0)<br />
                            程序_延时 (10, 0)<br />
                        .计次循环尾 ()<br />
                    .否则<br />
                        .计次循环首 (取绝对值 (程序集_按下左X), 计次)<br />
                            dm.MoveR (-1, 0)<br />
                            程序_延时 (10, 0)<br />
                        .计次循环尾 ()<br />
                    .如果结束<br />
                    .如果 (程序集_按下左Y ＞ 0)<br />
                        .计次循环首 (程序集_按下左Y, 计次)<br />
                            dm.MoveR (0, 1)<br />
                            程序_延时 (10, 0)<br />
                        .计次循环尾 ()<br />
                    .否则<br />
                        .计次循环首 (取绝对值 (程序集_按下左Y), 计次)<br />
                            dm.MoveR (0, -1)<br />
                            程序_延时 (10, 0)<br />
                        .计次循环尾 ()<br />
                    .如果结束<br />
                    程序_延时 (200, 0)<br />
                    dm.LeftUp ()<br />
                    程序集_按下左X ＝ 0<br />
                    程序集_按下左Y ＝ 0<br />
                .如果真结束<br />
<br />
            .如果真结束<br />
            局部_临时甲 ＝ 2<br />
            程序_延时 (参数_找图.成员等待毫秒, 0)<br />
            返回 (真)<br />
        .否则<br />
            程序_延时 (100, 0)<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
    .如果真 (局部_临时乙 ＞ 20)<br />
        子程序提示信息 (“找不到” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ “图片。”)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    局部_临时乙 ＝ 局部_临时乙 ＋ 1<br />
    程序_延时 (200, 0)<br />
.判断循环尾 ()<br />
返回 (假)<br />
<br />
<br />
.子程序 子程序添加数组<br />
.参数 参数文本型, 文本型<br />
.局部变量 局部_临时数组, 文本型, , "0"<br />
.局部变量 局部_临时甲, 自定义寻找甲<br />
<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
局部_临时数组 ＝ 分割文本 (参数文本型, “||”, )<br />
.如果真 (取数组成员数 (局部_临时数组) ≠ 6)<br />
    信息框 (“添加【程序集_寻找】数组出错”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
局部_临时甲.成员图片名 ＝ 局部_临时数组 [1]<br />
局部_临时甲.成员处理方式 ＝ 局部_临时数组 [2]<br />
局部_临时甲.成员相对X移 ＝ 到整数 (局部_临时数组 [3])<br />
局部_临时甲.成员相对Y移 ＝ 到整数 (局部_临时数组 [4])<br />
局部_临时甲.成员等待毫秒 ＝ 到整数 (局部_临时数组 [5])<br />
局部_临时甲.成员连几图 ＝ 到整数 (局部_临时数组 [6])<br />
加入成员 (程序集_寻找, 局部_临时甲)<br />
<br />
<br />
.子程序 _按钮酒馆_被单击<br />
.局部变量 局部_找图, 文本型, , "0"<br />
.局部变量 计次, 整数型<br />
.局部变量 计次连几图, 整数型<br />
.局部变量 局部_整数型个数, 整数型, , , 用来记录 程序集 寻找 数组的个数。<br />
<br />
程序_延时 (1000, 0)<br />
子程序取消聊天窗口 ()<br />
子程序初始化程数据 ()<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
加入成员 (局部_找图, “酒店001.bmp||左单击||30||46||1000||1”)<br />
加入成员 (局部_找图, “酒店002.bmp||按下左键||5||5||1000||1”)<br />
.计次循环首 (取数组成员数 (局部_找图), 计次)<br />
    子程序添加数组 (局部_找图 [计次])<br />
.计次循环尾 ()<br />
局部_整数型个数 ＝ 取数组成员数 (程序集_寻找)<br />
输出调试文本 (局部_整数型个数)<br />
.判断循环首 (局部_整数型个数 ≥ 程序集_记录甲)<br />
    编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
    .如果真 (程序集_记录甲 ＝ 2)<br />
        程序集_按下左Y ＝ 110<br />
    .如果真结束<br />
    子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
    程序集_记录甲 ＝ 程序集_记录甲 ＋ 程序集_寻找 [程序集_记录甲].成员连几图<br />
.判断循环尾 ()<br />
编辑框提示信息区.内容 ＝ “酒店，操作完成！” ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
<br />
.子程序 子程序取消聊天窗口<br />
.局部变量 局部_找图, 文本型, , "0"<br />
.局部变量 计次, 整数型<br />
.局部变量 计次连几图, 整数型<br />
.局部变量 局部_位置, 文本型<br />
<br />
子程序初始化程数据 ()<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
加入成员 (局部_找图, “聊天001.bmp||左单击||5||5||100||1”)<br />
加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)<br />
加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)<br />
加入成员 (局部_找图, “聊天002.bmp||不单击||5||5||100||1”)<br />
.计次循环首 (取数组成员数 (局部_找图), 计次)<br />
    子程序添加数组 (局部_找图 [计次])<br />
.计次循环尾 ()<br />
输出调试文本 (取数组成员数 (程序集_寻找))<br />
.如果 (子程序找图一 (程序集_寻找 [4]))<br />
    计次 ＝ 10<br />
.否则<br />
    计次 ＝ 100<br />
.如果结束<br />
.判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲 且 计次 ＝ 10)<br />
    编辑框提示信息区.内容 ＝ “找” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
    子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
    程序集_记录甲 ＝ 程序集_记录甲 ＋ 程序集_寻找 [程序集_记录甲].成员连几图<br />
.判断循环尾 ()<br />
<br />
.子程序 子程序提示信息<br />
.参数 参数提示信息, 文本型<br />
<br />
编辑框提示信息区.内容 ＝ 参数提示信息 ＋ 到文本 (取现行时间 ()) ＋ #换行符 ＋ 编辑框提示信息区.内容<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 局部_找图, 文本型, , "0"<br />
.局部变量 计次, 整数型<br />
.局部变量 计次连几图, 整数型<br />
<br />
程序_延时 (1000, 0)<br />
子程序初始化程数据 ()<br />
' 1成员图片名【文本型】、2成员处理方式【文本型】、3成员相对X移【整数型】、4成员相对Y移【整数型】、5成员等待毫秒【整数型】、6成员连几图【整数型】<br />
加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)<br />
.计次循环首 (取数组成员数 (局部_找图), 计次)<br />
    子程序添加数组 (局部_找图 [计次])<br />
    输出调试文本 (计次)<br />
.计次循环尾 ()<br />
输出调试文本 (取数组成员数 (程序集_寻找))<br />
.判断循环首 (取数组成员数 (程序集_寻找) ≥ 程序集_记录甲)<br />
    子程序提示信息 (“找图：” ＋ 程序集_寻找 [程序集_记录甲].成员图片名 ＋ “开始！”)<br />
    子程序找图一 (程序集_寻找 [程序集_记录甲])<br />
    程序集_记录甲 ＝ 程序集_记录甲 ＋ 程序集_寻找 [程序集_记录甲].成员连几图<br />
.判断循环尾 ()<br />
输出调试文本 (“继续开始”)<br />
<br />
.子程序 _按钮点鼠_被单击<br />
<br />
.如果 (按钮点鼠.标题 ＝ “点”)<br />
    时钟1.时钟周期 ＝ 500<br />
    按钮点鼠.标题 ＝ “停”<br />
.否则<br />
    按钮点鼠.标题 ＝ “点”<br />
    时钟1.时钟周期 ＝ 0<br />
.如果结束<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
dm.LeftClick ()<br />
<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
窗口_热键卸载 (_启动窗口.取窗口句柄 (), 1)