tc开发天龙八部脚本源码

//**************************************循环挂机***************//
功能 循环挂机(下标)
    变量 地图名, 挂机地图
    //dm数组[下标].KeyPress("27")
    等待(500)
    检查暂停(下标)
    等待(1000)
    杀怪暂停(下标)
    等待(1000)
    加蓝暂停(下标)
    等待(1000)
    召唤坐骑(下标)
    等待(1000)
    地图名 = 获取当前地图(下标)//接收代码49行变量
    如果(地图名 == "大理")//角色所在地图是大理执行以下代码
        挂机地图 = 下拉框获取文本("下拉框9")//获取下拉框7用户选择挂机地图存在变量"挂机地图"中
        选择(挂机地图)//选择挂机地图
            条件 "西湖"//用户选择挂机地图跟这个条件相同执行以下线路
            场景传送("大理传送苏州", 下标)//先执行场景传送185行代码 条件 "大理传送苏州"
            场景传送("苏州传送西湖", 下标)//再执行场景传送198行代码条件 "苏州传送西湖"
            场景传送("西湖传送挂机点", 下标)
            条件 "火焰谷"//用户选择挂机地图跟这个条件相同执行以下线路
            场景传送("大理传楼兰", 下标)//先执行场景传送185行代码 条件 "大理传送苏州"
            调试输出("大理传楼兰完成")
            场景传送("楼兰传高昌", 下标) //再执行场景传送198行代码条件 "苏州传送西湖"
            调试输出("楼兰传高昌完成")
            场景传送("高昌传火焰山", 下标)
            场景传送("火焰山传火焰谷", 下标)
            场景传送("寻路到火焰谷挂机点", 下标)
        结束
        
    结束
    如果(地图名 == "洛阳")//角色所在地图是大理执行以下代码
        挂机地图 = 下拉框获取文本("下拉框9")//获取下拉框7用户选择挂机地图存在变量"挂机地图"中
        选择(挂机地图)//选择挂机地图
            条件 "西湖"//用户选择挂机地图跟这个条件相同执行以下线路
            场景传送("大理传送苏州", 下标)//先执行场景传送185行代码 条件 "大理传送苏州"
            场景传送("苏州传送西湖", 下标)//再执行场景传送198行代码条件 "苏州传送西湖"
            场景传送("西湖传送挂机点", 下标)
            条件 "火焰谷"//用户选择挂机地图跟这个条件相同执行以下线路
            场景传送("洛阳传楼兰", 下标)//先执行场景传送185行代码 条件 "大理传送苏州"
            调试输出("洛阳传楼兰完成")
            场景传送("楼兰传高昌", 下标) //再执行场景传送198行代码条件 "苏州传送西湖"
            调试输出("楼兰传高昌完成")
            场景传送("高昌传火焰山", 下标)
            场景传送("火焰山传火焰谷", 下标)
            场景传送("寻路到火焰谷挂机点", 下标)
        结束
    结束
    
    等待(100)
    如果(地图名 == "苏州")//角色所在地图是要执行以下代码
        挂机地图 = 下拉框获取文本("下拉框9")
        选择(挂机地图)
            条件 "西湖"//用户选择挂机地图跟这个条件相同执行以下线路
            //场景传送("苏州")
            场景传送("苏州传西湖", 下标)
            场景传送("西湖传送挂机点", 下标)
        结束
    结束
    等待(100)
    如果(地图名 == "西湖")//角色所在地图西湖是要执行以下代码
        挂机地图 = 下拉框获取文本("下拉框9")
        选择(挂机地图)
            条件 "西湖"//用户选择挂机地图跟这个条件相同执行以下线路
            //场景传送("苏州")
            场景传送("西湖传送挂机点", 下标)
        结束
    结束
    如果(地图名 == "火焰谷")
        挂机地图 = 下拉框获取文本("下拉框9")
        选择(挂机地图)
            条件 "火焰谷"//要去的挂机地方
            场景传送("寻路到火焰谷挂机点", 下标)
        结束
    结束
    //    //到达挂机点()
    //    等待(900)
    //    收回坐骑(下标)
    //    //等待(200)
    //    //寻路到火焰谷挂机点()
    //    等待(1000)
    //    初始化加蓝(下标)
    //    等待(1000)
    //    初始化检查(下标)
    //    等待(1000)
    //    初始化杀怪(下标)
    //    等待(200)
    //    //循环杀怪(下标)
结束
//**************************************获取当前地图***************//
功能 获取当前地图(下标)
    变量 所在地图名, X, Y
    循环(循环开关)
        所在地图名 = dm数组[下标].FindPic(1263, 4, 1408, 108, "洛阳.bmp|苏州.bmp|楼兰.bmp|大理.bmp|凤鸣1.bmp|四绝庄内.bmp|西湖.bmp|火焰谷.bmp|高昌.bmp", "020202", 0.6, 0, X, Y)
        调试输出("所在地图名:" & 所在地图名)
        如果(X >= 0 && Y >= 0)
            选择(所在地图名)
                条件 0
                返回 "洛阳"
                条件 1
                返回 "苏州"
                条件 2
                返回 "楼兰"
                条件 3
                返回 "大理"
                条件 4
                返回 "风鸣镇"
                条件 5
                返回 "四绝庄副本内"
                条件 6
                返回 "西湖"
                条件 7
                返回 "火焰谷"
                条件 8
                返回 "高昌"                  
            结束
        结束
        等待(100)
    结束 
结束
//***********************************场景传送*****************//
功能 场景传送(地图名, 下标)
    选择(地图名)
        条件  "大理传楼兰"
        大理传楼兰(下标)
        条件  "洛阳传楼兰"
        洛阳传楼兰(下标)
        条件 "楼兰传高昌"
        楼兰传高昌(下标)
        条件 "高昌传火焰山"
        高昌传火焰山(下标)
        条件 "火焰山传火焰谷"
        火焰山传火焰谷(下标)
        条件  "寻路到火焰谷挂机点"//场景传送("寻路到火焰谷挂机点")意思一样,执行以下代码
        寻路到火焰谷挂机点(下标)
        条件 "大理传送苏州"//传送目的地西湖
        大理传送苏州(下标)
        条件 "苏州传送西湖"//传送目的地西湖
        苏州传送西湖(下标)
        条件 "西湖传送挂机点"//传送目的地西湖
        西湖传送挂机点(下标)        
        条件 "大理"
        
        条件  "风鸣镇"
        
        条件  "楼兰"
        
    结束
结束
//************************************到达挂机点****************************//
功能 到达挂机点(下标)
    
结束    
功能 循环杀怪(下标)//因为这里是一个循环,会不停的调用释放技能,所以下面不需要循环了,
    变量 X, Y, 返回值, X1, Y1, 标题, 角色名, 杀怪数量, t2, 用户自定义杀怪数
    角色名 = dm数组[下标].ReadString(窗口句柄集[下标], "[[[[" & 基址 & "]+" & 一级偏移 & "]+" & 二级偏移 & "]+" & 三级偏移 & "]+" & 名字偏移, 0, 0)
    调试输出(角色名)
    等待(200)
    编辑框读取执行("编辑框0", 文件路径 & 角色名 & ".ini", "配置")
    等待(300)
    用户自定义杀怪数 = 编辑框获取文本("编辑框0")
    如果(用户自定义杀怪数 == 假)
        消息框("请设置杀怪数量", 标题 = "")
    结束 
    变量 起始时间 = 当前时间()
    循环(杀怪开关1)//这个相当于一个死循环了,会一直不停的找怪刷怪,直到手动停止脚本,
        变量 技能键 = 随机数(112, 117)//每次会在2--8产生一个随机数,
        返回值 = dm数组[下标].FindColor(316, 30, 325, 40, "ea1200-050505", 0.9, 0, X, Y)//发现怪,有条
        如果(X >= 0 && Y >= 0)//找到血条打怪,吧要按得技能键传进去,这个找色
            调试输出("[循环杀怪]放技能打怪")
            写日志("[循环杀怪] 循环杀怪+1")
            释放技能(技能键, 起始时间, 下标)
        否则
            调试输出("[循环杀怪]打死怪了" & 杀怪数量)//我洗澡了准备,有问题,
            调试输出(每天杀怪数)
            按键组合键("Ctrl", "Tab", dm数组[下标])
            //dm对象.KeyPress(49)//没找到找怪,这个是啥键1//用这个命令就行
            等待(50) 
            //dm对象.FindColor(318,26,333,39,"ff8d80-020202",0.9,0,X1,Y1)//别人抢怪时候不对593,69,837,119,
            //            dm数组[下标].FindPic(636, 99, 673, 122, "经验.bmp", "020202", 0.9, 0, X1, Y1)// 636,99,673,122,不错
            //            如果(X1 >= 0 && Y1 >= 0)
            //                等待(100) 
            //                杀怪数量++
            //                //取角色每天刷怪数()
            //                杀怪数量 = 杀怪数量 - 2
            //            结束
            如果(获取系统时间() - t2 > 1 * 120 * 1000)
                等待(200)
                杀怪数量 = dm数组[下标].ReadInt(窗口句柄集[下标], "[[[[" & 基址 & "]+" & 一级偏移 & "]+" & 二级偏移 & "]+" & 三级偏移 & "]+" & 杀怪数偏移, 0)
                等待(300)
                自动返回挂机点(下标)
                调试输出("时间间隔到了检查坐标是否偏远")
                t2 = 获取系统时间()
            结束
            
        结束
        等待(100)
        如果(杀怪数量 >= 用户自定义杀怪数)
            
            //返回城市()
            跳出
        结束
        等待(100)
    结束
    等待(100)
结束  
//**************************************************//
功能 释放技能(技能键, 起始时间, 下标)
    如果(技能是否可以释放(技能键, 起始时间, 下标) == 1)//判断传进来得技能键是不是在冷却中,不在就释放他,
        dm数组[下标].KeyPress(技能键)
    否则
        dm数组[下标].KeyPress(112)//技能在冷却就普通攻击
    结束 
结束
//***************有问题**************//
功能 技能是否可以释放(技能键, 起始时间, 下标)//F7是召唤坐骑？
    //技能是否可以释放应该找图就能判断出来,
    变量 技能名, 冷却时间
    选择(技能键)
        条件 112
        如果(复选框获取状态("复选框11"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
        条件 113
        如果(复选框获取状态("复选框12"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
        条件 114
        如果(复选框获取状态("复选框13"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
        条件 115
        如果(复选框获取状态("复选框14"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
        条件 116
        如果(复选框获取状态("复选框15"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
        条件 117
        如果(复选框获取状态("复选框16"))
            冷却时间 = 编辑框获取文本("编辑框17")
            如果(时间间隔("s", 起始时间, 当前时间()) > 冷却时间)
                起始时间 = 当前时间()
                返回 1
            结束
        结束
    结束
结束
功能 自动寻路状态(状态, 下标)
    变量 起始时间
    选择(状态)
        条件 "开"
        起始时间 = 当前时间()
        循环(时间间隔("s", 起始时间, 当前时间()) < 10)//10
            如果(大漠找图(1215, 437, 1367, 567, "坐标2.bmp", dm数组[下标]) == 1)
                //写日志("[自动寻路状态] 自动寻路窗口已打开")
                返回
            否则
                鼠标移动单击(1328, 183, 1, 2, dm数组[下标])
                等待(500)
            结束
            等待(随机数(50, 80))
        结束
        
        条件 "关"
        起始时间 = 当前时间()
        循环(时间间隔("s", 起始时间, 当前时间()) < 3)
            如果(大漠找图(1215, 437, 1367, 567, "坐标2.bmp", dm数组[下标]) == 1)
                鼠标移动单击(1328, 183, 1, 2, dm数组[下标])
                等待(500)
            结束
            等待(随机数(50, 80))
        结束
        
    结束
结束

//*************************************传送//
功能 洛阳传楼兰(下标)
    自动寻路状态("开", 下标)
    等待(1000)
    循环(循环开关)
        变量 X, Y
        如果(大漠找图(3, 78, 265, 269, "汪旱.bmp", dm数组[下标], 0.7, 2, 0) == 1)//找到跳出循环,没有找到一直执行否则里面内容直接到目的地停止
            //写日志("大理传楼兰 自动寻路完成")
            等待(200)
            如果(大漠找图(1, 120, 267, 477, "洛阳传楼兰.bmp", dm数组[下标]) == -1)//没有找到大理传楼兰.bmp,被任物挡住了
                鼠标移动单击(243, 287, 2, 3, dm数组[下标])//鼠标点这里可以找到传楼兰.bmp
                等待(200)
                dm数组[下标].FindPic(1, 120, 267, 477, "洛阳传楼兰.bmp", "020202", 0.8, 0, X, Y)
                如果(X >= 0 && Y >= 0)
                    等待(100)
                    dm数组[下标].MoveTo(X, Y)
                    等待(200)
                    dm数组[下标].LeftClick()//鼠标左键单击头像
                    等待(200)
                    dm数组[下标].LeftClick()//鼠标左键单击头像
                    等待(2000)
                    调试输出("开始跳出")
                    返回 
                结束
            结束
            
        否则
            调试输出("执行洛阳传楼兰否则")
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
                等待(随机数(100, 200))
            结束//+
            dm数组[下标].MoveTo(1278, 300)
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(200)
            dm数组[下标].LeftClick()
            等待(200)
            dm数组[下标].MoveTo(1286, 337)
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            dm数组[下标].LeftClick()
            
        结束
        等待(50)
    结束
    
结束
功能 大理传楼兰(下标)
    自动寻路状态("开", 下标)
    //召唤坐骑(下标)//＋的
    等待(1000)
    循环(循环开关)
        变量 X, Y
        如果(大漠找图(142, 345, 384, 558, "再见.bmp", dm数组[下标]) == 1)//找到跳出循环,没有找到一直执行否则里面内容直接到目的地停止
            //写日志("大理传楼兰 自动寻路完成")
            等待(200)
            如果(大漠找图(1, 120, 267, 477, "大理传楼兰.bmp", dm数组[下标]) == -1)//没有找到大理传楼兰.bmp,被任物挡住了
                鼠标移动单击(243, 287, 2, 3, dm数组[下标])//鼠标点这里可以找到传楼兰.bmp
                等待(200)
                dm数组[下标].FindPic(1, 120, 267, 477, "大理传楼兰.bmp", "020202", 0.7, 0, X, Y)
                如果(X >= 0 && Y >= 0)
                    等待(100)
                    dm数组[下标].MoveTo(X, Y)
                    等待(200)
                    dm数组[下标].LeftClick()//鼠标左键单击头像
                    等待(200)
                    dm数组[下标].LeftClick()//鼠标左键单击头像
                    等待(2000)
                    调试输出("开始跳出")
                    跳出
                结束
            结束
            
        否则
            调试输出("执行大理传楼兰否则")
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
                等待(随机数(100, 200))
            结束//+
            鼠标移动单击(1279, 299, 0, 0, dm数组[下标])
            等待(500)
            鼠标移动双击(1288, 336, 0, 0, dm数组[下标])
        结束
        等待(50)
    结束
    自动寻路状态("关", 下标)
结束
功能  楼兰传高昌(下标)
    等待(2000)
    变量 X1, Y1, X, Y, 返回X, 返回Y
    自动寻路状态("开", 下标)
    //召唤坐骑(下标)//＋的
    等待(1000)
    循环(循环开关)
        调试输出("楼兰传高昌")
        如果(大漠找图(1216, 212, 1420, 550, "楼兰传高昌.bmp", dm数组[下标], 0.8, 3, 0) == 1)//我+防止别人关自动寻路出错
            dm数组[下标].MoveTo(1278, 301)
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(200)
            dm数组[下标].MoveTo(1325, 422)
            等待(200)
            dm数组[下标].LeftClick()
            等待(100)
            dm数组[下标].LeftClick()
            等待(1100)
            //找图返回坐标(x1,y1,x2,y2,图片名,对象,&返回X,&返回Y,t=0,方向=0)
            
            如果(找图返回坐标(343, 81, 1079, 681, "确定.bmp", dm数组[下标], 返回X, 返回Y, 5, 0) == 1)
                dm数组[下标].MoveTo(返回X, 返回Y)
                dm数组[下标].LeftClick()
                等待(100)
                dm数组[下标].LeftClick()
                等待(6000)
                返回 
            否则
                等待(6000)
                返回 
            结束   
        否则
            调试输出("执行楼兰传高昌兰否则")
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
                等待(随机数(100, 200))
            结束//+
            鼠标移动单击(1278, 300, 1, 2, dm数组[下标])
            等待(500)
            鼠标移动双击(1323, 420, 1, 1, dm数组[下标])
            
        结束
        等待(50)
        
    结束     
结束

功能 高昌传火焰山(下标)
    自动寻路状态("开", 下标)
    等待(3000)
    变量 X3, Y3
    循环(循环开关)
        如果(大漠找图(499, 166, 907, 490, "场景切换.bmp", dm数组[下标], 0.8, 5, 0) == 1)
            
            //如果(大漠找色1(1322,114,1363,146,"f53b00-222222",dm数组[下标],5,0)==1)//找到跳出循环,没有找到一直执行否则里面内容直接到目的地停止
            //写日志("[寻路到四绝庄] 自动寻路完成,接任务")
            等待(2500)
            跳出
        否则
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//我+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
            结束//我+
            dm数组[下标].MoveTo(1278, 300)//1326,331//020405有问题高昌传火焰山,有时候传迷宫
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            dm数组[下标].MoveTo(1326, 331)//1328, 296
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            //鼠标移动单击(1278, 301, 1, 2, dm数组[下标])
            //等待(500)
            //鼠标移动双击(1327, 336, 1, 2, dm数组[下标])
            //等待(500)
            //            如果(大漠找图(499,166,907,490,"场景切换.bmp",dm数组[下标],0.8,50,0) == 1)//我+防止别人关自动寻路出错
            //                等待(200)
            //                返回
            //            结束//我+
        结束
        等待(100)
    结束
    自动寻路状态("关", 下标)
结束
功能 火焰山传火焰谷(下标)
    变量 X3, Y3, X2, Y2, 返回X, 返回Y
    自动寻路状态("开", 下标)
    等待(2000)
    循环(循环开关)
        dm数组[下标].FindPic(379, 87, 1002, 530, "确定.bmp", "020202", 0.7, 0, X2, Y2)
        如果(X2 >= 0 && Y2 >= 0)
            dm数组[下标].MoveTo(X2, Y2)
            等待(100)
            dm数组[下标].LeftClick()
            等待(200)
            
        结束
        如果(大漠找图(499, 166, 907, 490, "场景切换.bmp", dm数组[下标], 0.8, 5, 0) == 1)//找到跳出循环,没有找到一直执行否则里面内容直接到目的地停止
            //写日志("[寻路到四绝庄] 自动寻路完成,接任务")
            等待(1200)
            跳出
        否则
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//我+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
            结束//我+
            dm数组[下标].MoveTo(1278, 299)
            等待(200)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            dm数组[下标].MoveTo(1328, 354)
            等待(100)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            dm数组[下标].LeftClick()//鼠标左键单击头像
            等待(100)
            //如果(找图返回坐标(379,87,1002,530,"确定.bmp",dm数组[下标],返回X,返回Y,2,0)==1)
            
            //            如果(大漠找图(499,166,907,490,"场景切换.bmp",dm数组[下标],0.9,50,0) == 1)//我+防止别人关自动寻路出错
            //                等待(200)
            //                跳出               
            //            结束//我+
        结束
        等待(160)
    结束
    自动寻路状态("关", 下标)
结束
功能 寻路到火焰谷挂机点(下标)
    自动寻路状态("开", 下标)
    变量 返回X, 返回Y, 挂机点开关 = 真
    等待(1300)
    dm数组[下标].UseDict(1)//这里用1号字库,天龙数字
    变量 目的地x = 转整型(编辑框获取文本("编辑框14"))
    变量 目的地y = 转整型(编辑框获取文本("编辑框15"))
    
    循环(挂机点开关)
        变量 当前x = 转整型(dm数组[下标].Ocr(1344, 1, 1374, 20, "fdff73-000000", 1.0))
        变量 当前y = 转整型(dm数组[下标].Ocr(1374, 3, 1404, 20, "fdff73-000000", 1.0))
        
        如果(目的地x != 当前x && 目的地y != 当前y)//判断是否到目的地
            如果(大漠找图(142, 345, 384, 558, "坐标.bmp", dm数组[下标]) == -1)//我+防止别人关自动寻路出错
                自动寻路状态("开", 下标)
            结束//我+
            dm数组[下标].MoveTo(1311, 498)//坐标x
            等待(110)
            dm数组[下标].LeftClick()//鼠标左键单击坐标x位置
            等待(110)
            dm数组[下标].LeftClick()
            等待(200)
            dm数组[下标].SendString(窗口句柄集[下标], 目的地x)
            等待(300)
            dm数组[下标].MoveTo(1344, 498)//坐标y
            等待(110)
            dm数组[下标].LeftClick()//鼠标左键单击坐标y位置
            等待(110)
            dm数组[下标].LeftClick()
            等待(200)
            dm数组[下标].SendString(窗口句柄集[下标], 目的地y)
            等待(300)
            如果(找图返回坐标(1319, 342, 1421, 573, "移动.bmp", dm数组[下标], 返回X, 返回Y, 3, 0) == 1)
                dm数组[下标].MoveTo(返回X, 返回Y)//坐标x
                等待(110)
                dm数组[下标].LeftClick()//鼠标左键单击坐标x位置
                等待(110)
                dm数组[下标].LeftClick()
                等待(1500)
                如果(寻路颜色判断(1368, 84, 1297, 70, dm数组[下标], 循环开关) == 1)//判断是否到目的地
                    等待(1000)
                    //收回坐骑(下标)
                    等待(2000)
                    自动寻路状态("关", 下标)
                    等待(2000)
                    初始化杀怪(下标)
                    等待(2000)
                    初始化检查(下标)
                    等待(1000)
                    初始化加蓝(下标)
                    等待(1000)
                    挂机点开关 = 假
                    //循环杀怪1(下标)
                结束
                
            否则
                调试输出("当前x" & 当前x)
                调试输出("当前y" & 当前y)
            结束
            等待(100)
        结束
        
    结束
结束
//******************************//
功能  大理传送苏州(下标)
    变量 X, Y, X1, Y1, X2, Y2, X0, Y0, X3, Y3
    自动寻路(下标)
    等待(500)
    变量 崔逄九 = dm数组[下标].FindPic(1256, 270, 1409, 508, "崔逢九.bmp", "020202", 0.8, 0, X2, Y2)
    如果(X2 >= 0 && Y2 >= 0)
        dm数组[下标].MoveTo(X2, Y2)//鼠标移动到自动寻路
        等待(随机数(300, 500))
        dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
        等待(100)
        dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
        等待(随机数(300, 500))
        寻路颜色判断(1368, 84, 1297, 70, dm数组[下标], 循环开关)//判断是否到目的地
        等待(随机数(600, 800))
        变量 大理向下 = dm数组[下标].FindPic(5, 106, 274, 478, "向下.bmp", "020202", 0.9, 0, X3, Y3)
        如果(X3 >= 0 && Y3 >= 0)
            dm数组[下标].MoveTo(X3, Y3)//鼠标移动到自动寻路
            等待(随机数(300, 500))
            dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
            等待(随机数(300, 500))
            dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
            等待(随机数(300, 500))
            变量 楼传苏州 = dm数组[下标].FindPic(14, 223, 263, 464, "楼传苏州.bmp", "020202", 0.9, 0, X0, Y0)
            如果(X0 >= 0 && Y0 >= 0)
                dm数组[下标].MoveTo(X0, Y0)//鼠标移动到自动寻路
                等待(随机数(300, 500))
                dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
                等待(随机数(300, 500))
                //切换场景("苏州")
            否则
                调试输出("没有找到楼传苏州图片")
            结束
        否则
            调试输出("没有找到向下图片")
        结束                    
    结束
结束
功能 苏州传送西湖(下标)
    变量 X, Y, X1, Y1, X2, Y2, X3, Y3
    自动寻路(下标)
    等待(600)
    变量 崔逄九 = dm数组[下标].FindPic(1246, 246, 1428, 510, "传西湖.bmp", "020202", 0.8, 0, X2, Y2)
    如果(X2 >= 0 && Y2 >= 0)
        dm数组[下标].MoveTo(X2, Y2)//鼠标移动到自动寻路
        等待(700)
        dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
        等待(100)
        dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
        等待(随机数(300, 500))
        寻路颜色判断(1368, 84, 1297, 70, dm数组[下标], 循环开关)//判断是否到目的地
        等待(1000)
        变量 确定2 = dm数组[下标].FindPic(509, 134, 882, 408, "确定2.bmp", "020202", 0.9, 0, X3, Y3)
        如果(X3 >= 0 && Y3 >= 0)
            dm数组[下标].MoveTo(X3, Y3)//鼠标移动到自动寻路
            等待(随机数(300, 500))
            dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
            等待(随机数(300, 500))
            //切换场景("西湖")
            等待(1000)
            //到达挂机点()
        否则
            等待(500)
            //切换场景("西湖")
            等待(1000)
            //到达挂机点()
        结束
    结束
结束
功能 西湖传送挂机点(下标)
    变量   X, Y, X1, Y1, X2, Y2
    自动寻路(下标)
    等待(600)
    变量 自动寻 = dm数组[下标].FindPic(1258, 238, 1424, 514, "怪.bmp", "020202", 0.9, 0, X1, Y1)
    如果(X1 >= 0 && Y1 >= 0)
        dm数组[下标].MoveTo(X1, Y1)//鼠标移动到自动寻路
        等待(随机数(300, 500))
        dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
        等待(随机数(300, 500))
        变量 自动寻怪字 = dm数组[下标].FindPic(1258, 238, 1424, 514, "柳鬼.bmp", "020202", 0.9, 0, X2, Y2)
        如果(X2 >= 0 && Y2 >= 0)
            dm数组[下标].MoveTo(X2, Y2)//鼠标移动到自动寻路
            等待(随机数(300, 500))
            //dm对象.LeftDoubleClick()//鼠标2键单击
            dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
            等待(100)
            dm数组[下标].LeftClick()//鼠标左键单击dm.LeftClick
            等待(随机数(300, 500))
            寻路颜色判断(1368, 84, 1297, 70, dm数组[下标], 循环开关)//判断是否到目的地
            等待(1000)
            关闭自动寻路(下标)
            等待(1000)
            //收回坐骑()
        否则
            调试输出("没有找到柳鬼图片")
        结束
    否则
        调试输出("没有找到怪图片")
    结束
结束