Delay 1000 Gosub 等按钮 EndIf EndIf EndIf EndIf EndIf EndWhile Return 查找码头导航员 Sub 查找交易所老板 //Delay 1000 NPC_Find = 0 KeyDown 27,1 Delay 600 While NPC_Find = 0 KeyPress 9,1 Delay 2000 PosX = 634 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 653 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 669 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 679 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 699 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 NPC_Find = 1 KeyUp 27,1 Delay 600 KeyPress 13,1 Delay 1000 Gosub 等按钮 EndIf EndIf EndIf EndIf EndIf EndWhile Return 查找交易所老板 Sub 查找银行职员 //Delay 1000 NPC_Find = 0 KeyDown 27,1 Delay 600 While NPC_Find = 0 KeyPress 9,1 Delay 2000 PosX = 630 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 654 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 670 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 PosX = 683 PosY = 328 Gosub 坐标转换 IfColor PosX,PosY,FFFFFF,2 NPC_Find = 1 KeyUp 27,1 Delay 600 KeyPress 13,1 Delay 3000 //Gosub 等按钮 KeyPress 13,1 Delay 3000 EndIf EndIf EndIf EndIf EndWhile Return 查找银行职员 //====================================================================================== //坐标转换(参数PosX,PosY) Sub 坐标转换 Plugin winRect=Window.GetClientRect(hwn) winPoint = Split(winRect, "|", -1, 1) AbsX = CInt(winPoint(0)) + PosX AbsY = CInt(winPoint(1)) + PosY PosX = AbsX PosY = AbsY Return 坐标转换 //商品坐标转换 Sub 商品坐标转换