后使用快捷导航没有帐号？
查看: 3224|回复: 0
新人欢迎积分1 阅读权限40积分815精华0UID帖子金钱3524 威望1
Lv.4, 积分 815, 距离下一级还需 185 积分
UID帖子威望1 多玩草0 草
怎么没人用，发个视频
视频中脚本运行一半发现打开包裹时是兑换栏，又关了脚本重新运行的
附件，好多图，可能是我电脑问题，包里的东西在不同位置要截不同的图
附件解压放C盘根目录
交蓝萤石，上交三清石，跑环，拍照(正在欢呼，正在大笑),开祥云锦囊等等，不保证所有功能都能实现
所有快捷键必须是系统默认的，ESC(系统)&&B(包裹) M(地图)N(宠物)P(礼仪)U(门派) 等等。。。。
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetWindowRect(Hwnd)
Dim windowarray
windowarray=Split(sRect, &|&)& &
w1=clng(windowarray(0))
h1 = clng(windowarray(1))
w2 = clng(windowarray(2))
h2 = clng(windowarray(3))
Call Plugin.Window.Size(Hwnd, 800, 600)
Call Plugin.Window.Move(Hwnd, 0, 0)
Set dm = createobject(&dm.dmsoft&)
dm_ret = dm.SetPath(&C:\门派任务\&)
dm_ret = dm.SetDict(0, &门派跑环.txt&)
dm_ret = dm.BindWindow(hwnd,&dx&,&dx&,&dx&,1)
Delay 5000
mpwzb = 0 //门派物资包
Dim ddd，eee
eee= False
ddd = False
If dm.FindPic(0, 0, 50, 650, &关闭聊天.bmp&, &303030&, 0.9, 0, intX, intY) = 0 Then
& & dm.MoveTo intx + 3, inty + 3
& & Delay 100
& & dm.LeftClick
& & Delay 2000
& & eee=True
End If
dm.KeyPress 27//选择3D视角
Delay 5000
Rem cba
If dm.FindPic(0, 0, 800, 600, &系统设置.bmp&, &303030&, 0.8, 0, intX, intY)= 0 Then
& & dm.MoveTo intx + 5, inty + 3
& & Delay 100
& & dm.LeftClick
& & Delay 2000
& & If dm.FindPic(0, 0, 800, 600, &是3D视角.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && &&&dm.MoveTo intx + 5, intY + 5
& && &&&Delay 100
& && &&&dm.LeftClick
& && &&&Delay 500
& && &&&dm.MoveTo intx + 128, intY + 88
& && &&&Delay 100
& && &&&dm.LeftClick
& && &&&ddd = true
& && &&&Delay 500
& & Else
& && &&&dm.KeyPress 27
& & End If
Else
& & dm.KeyPress 27
& & Goto cba
End If
Delay 1000
dm.KeyPress 27
If openznf = 1 Then
& & Delay 1000
& & If dm.FindPic(0,0,800,600,&门派广场.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && &&&dm.MoveTo intx + 5, inty + 10
& && &&&dm.LeftClick
& && &&&Delay 1000
& && &&&If dm.FindPic(0, 0, 800, 600, &出发.bmp&, &202020&, 0.9, 0, intX, intY) =0&&Then
& && && && &dm.MoveTo intx + 5, inty + 10
& && && && &dm.LeftClick
& && && && &Delay 5000
& && &&&End If
& & End If
& & If clicknpc(&指&) &&0 Then
& && &&&js
& & End If
& & jlys
& & If clicknpc(&发&) &&0 Then
& && &&&wc
& && &&&js
& & End If
& & //调用跑环NPC
& & phnpc
& & If findNPC(&重要地点-执书道人&) = 1 Then
& && &&&Delay 2000
& && &&&If clicknpc(&书&) &&0 Then
& && && && &If dm.FindPic(0, 0, 800, 600, &执书道人点姓名.bmp&, &101010&, 0.8, 0, intX, intY)= 0 Then
& && && && && & dm.MoveTo intx, inty
& && && && && & dm.LeftClick
& && && && && & Delay 500
& && && && && & wc
& && && && &Else
& && && && && & If dm.FindPic(0, 0, 800, 600, &持剑道人定修行.bmp&, &101010&, 0.8, 0, intX, intY)= 0 Then
& && && && && && &&&dm.MoveTo intx, inty
& && && && && && &&&dm.LeftClick
& && && && && && &&&Delay 500
& && && && && & Else
& && && && && && &&&dm.KeyPress 27
& && && && && & End If
& && && && &End If
& && && && &js
& && &&&End If
& & End If
End If
If dm.FindStrFast(0, 0, 800, 600, &持&, &7f6fee-505050&, 0.7, intx,inty)=0 Then
& & dm.MoveTo intx+10, inty+5
& & dm.LeftClick
& & Delay 500
& & xunlu
& & Delay 5000
& & Do
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 600, &持剑道人定修行.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx + 5, inty + 5
& && && && &Delay 100
& && && && &dm.LeftClick
& && && && &Delay 1000
& && && && &wc
& && && && &Delay 1000
& && && && &dm.KeyPress 27
& && && && &Exit Do
& && &&&End If
& & Loop
End if
If dm.FindStrFast(0, 0, 800, 600, &掌&, &7f6fee-505050&, 0.8, intx,inty)=0 Then
& & dm.MoveTo intx+10, inty+5
& & dm.LeftClick
& & Delay 500
& & xunlu
& & Delay 3000
& & Do
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 600, &掌炉道人教掌炉.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx, inty
& && && && &dm.LeftClick
& && && && &Delay 500
& && && && &wc
& && && && &js
& && && && &Exit Do
& && &&&End If
& & Loop
End If
If dm.FindStrfast(0, 0, 800, 650, &罗&, &7f6fee-505050&, 0.8, intx,inty)= 0 Then
& & dm.MoveTo intx, inty+5
& & dm.LeftClick
& & Delay 500
& & xunlu
& & Delay 3000
& & Do
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 600, &仙法道人神通灵.bmp&, &202020&, 0.8, 0, intX, intY)=0 Then
& && && && &dm.MoveTo intx, inty
& && && && &dm.LeftClick
& && && && &Delay 500
& && && && &wc
& && && && &Exit Do
& && &&&ElseIf dm.FindPic(0, 0, 800, 600, &需要验证.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx + 54, inty + 170
& && && && &dm.LeftClick
& && && && &Delay 500
& && && && &Exit Do
& && &&&End If
& & Loop
End If
If dm.FindStrFast(0, 0, 800, 600, &树&, &7f6fee-707070&, 0.8, intx,inty)= 0 Then
& & dm.MoveTo intx, inty+5
& & dm.LeftClick
& & Delay 500
& & xunlu
& & Delay 3000
& & Do
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 600, &门派指引勤点名.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx,inty
& && && && &dm.LeftClick
& && && && &Delay 2000
& && && && &wc
& && && && &Exit Do
& && &&&End If
& & Loop
End If
If openznf = 1 Then
& & Delay 1000
& & If dm.FindPic(0,0,800,600,&门派广场.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && &&&dm.MoveTo intx + 5, inty + 10
& && &&&dm.LeftClick
& && &&&Delay 1000
& && &&&If dm.FindPic(0, 0, 800, 600, &出发.bmp&, &202020&, 0.9, 0, intX, intY) =0&&Then
& && && && &dm.MoveTo intx + 5, inty + 10
& && && && &dm.LeftClick
& && && && &Delay 5000
& && &&&End If
& & End If
End if
//还视角
Function openznf//
& & If dm.FindPic(550, 0, 800, 650, &指南符.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && &&&dm.MoveTo intx + 10, intY + 10
& && &&&dm.rightclick
& && &&&openznf = 1
& && &&&Exit Function
& & ElseIf dm.FindPic(0, 500, 800, 650, &指南符2.bmp&, &101010&, 0.8, 0, intX, intY)=0 Then
& && &&&dm.MoveTo intx + 10, intY + 10
& && &&&dm.rightclick
& && &&&openznf = 1
& && &&&Exit Function
& & Else
& && &&&dm.KeyPress 66
& && &&&Delay&&1000
& && &&&If dm.FindPic(0, 0, 800, 600, &指南符1.bmp&, &101010&, 0.8, 0, intX, intY)=0 Then
& && && && &dm.MoveTo intx + 10, intY + 10
& && && && &dm.rightclick
& && &&&End if
& && &&&dm.KeyPress 66
& && &&&openznf = 1
& && &&&Exit Function
& & End If
& & openznf=0
End Function
Function findNPC(string)//打开地图查找NPC
& & dm.KeyPress 77
& & Delay 500
& & If dm.FindPic(0, 0, 800, 700, left(string,instr(string,&-&)-1)&&.bmp&, &101010&, 0.8, 0, intX, intY)=0 Then
& && &&&dm.MoveTo intx, intY + 5
& && &&&dm.LeftClick
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 700, string & &.bmp&, &101010&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx+20, intY + 5
& && && && &dm.LeftClick
& && && && &Delay 500
& && && && &dm.KeyPress 77
& && && && &xunlu
& && && && &findNPC = 1
& && && && &Exit Function
& && &&&End If
& & Else
& && &&&findNPC =0
& & End If
& & dm.KeyPress 77
End Function
Function xunlu
& & If dm.FindPic(0, 0, 800, 700, &寻路.bmp&, &202020&, 0.8, 0, intX, intY)=-1 Then
& && &&&dm.KeyPress 78
& && &&&Delay 500
& && &&&If dm.FindPic(0, 0, 800, 700, &召唤.bmp&, &101010&, 0.8, 0, intX, intY)=-1 Then
& && && && &If dm.FindPic(0, 0, 800, 700, &侍从.bmp&, &101010&, 0.8, 0, intX, intY)=0 Then
& && && && && & dm.MoveTo intx+5, intY +20
& && && && && & dm.LeftClick
& && && && && & Delay 500
& && && && && & dm_ret = dm.FindPic(0, 0, 800, 700, &召唤.bmp&, &101010&, 0.8, 0, intX, intY)
& && && && &End If
& && &&&End If
& && &&&If intx & 0 and intY & 0 Then
& && && && &dm.MoveTo intx+5, intY +5
& && && && &dm.LeftClick
& && && && &Delay 2000
& && &&&End If
& && &&&dm.KeyPress 78
& && &&&dm_ret = dm.FindPic(0, 0, 800, 700, &寻路.bmp&, &202020&, 0.8, 0, intX, intY)
& & End If
& & If intx & 0 and intY & 0 Then
& && &&&dm.MoveTo intx + 12, intY + 12
& && &&&Delay 100
& && &&&dm.LeftClick
& && &&&Delay 3000
& && &&&xunlu = 1
& & Else
& && &&&xulu=0
& & End If
End Function
Function photo(action)
& & Dim xly, yly, xxj, yxj//定义礼仪坐标，相机坐标
& & dm.KeyPress 80
& & Delay 1000
& & dm.KeyPress 66
& & Delay&&1000
& & dm_ret = dm.FindPic(0, 0, 800, 700, action & &.bmp&, &101010&, 0.8, 0, intX, intY)
& & xly = intx + 5
& & yly=inty+5
& & dm_ret = dm.FindPic(0, 0, 800, 700, &照相机.bmp|照相机1.bmp|照相机2.bmp&, &101010&, 0.8, 0, intX, intY)
& & xxj = intx + 5
& & yxj = inty + 5
& & If xly & 5 and xxj & 5 Then
& && &&&dm.KeyPress 112
& && &&&dm.MoveTo xly, yly
& && &&&Delay 200
& && &&&dm.RightClick
& && &&&Delay 1000
& && &&&dm.MoveTo xxj, yxj
& && &&&Delay 200
& && &&&dm.RightClick
& && &&&Delay 100
& & End If
& & dm.KeyPress 80
& & Delay 100
& & dm.KeyPress 66
& & Delay 500
End Function
Function clicknpc(str)//查找NPC并点击
& & For i = 0 To 300
& && &&&Delay 500
& && &&&If dm.FindStrFast(0, 120, 550, 500, str, &ffffff-606060&, 0.8, intx, inty) = 0 Then
& && && && &px = intx + 10
& && && && &py=intY+80
& && && && &dm.MoveTo px,py
& && && && &Delay 200
& && && && &For j= 0 to 8
& && && && && & If dm.FindStrFast(730,200,795,437, str, &00ff00-707070&, 0.7, intx1, inty1)= 0 Then
& && && && && && &&&dm.LeftClick
& && && && && && &&&clicknpc = px&&,&&py
& && && && && && &&&Delay 1000
& && && && && && &&&Exit Function
& && && && && & Else
& && && && && && &&&px = px - 15 + (j mod 3) * 15
& && && && && && &&&py=py+(j\3)*20
& && && && && && &&&dm.MoveTo px,py
& && && && && && &&&Delay 100
& && && && && & End If
& && && && &Next
& && &&&End If
& && &&&dm.KeyPress 102
& & Next
& & clicknpc=0
End Function
Function wc()//查找完成并点击，返回1，找到，0没找到
& & For i = 0 To 3
& && &&&Delay 200
& && &&&If dm.FindPic(0,100,700,650, &完成.bmp&, &101010&, 0.9, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx + 5, inty + 5
& && && && &Delay 100
& && && && &dm.LeftClick
& && && && &Delay 100
& && && && &dm.MoveTo 0,0
& && && && &Delay 500
& && && && &wc = 1
& && && && &Exit Function
& && &&&End If
& & Next
& & wc=0
End Function
Function qd()//查找接受并点击，返回1，找到，0没找到
& & For i = 0 To 3
& && &&&Delay 200
& && &&&If dm.FindPic(0,100,700,650, &确定.bmp&, &303030&, 0.8, 0, intX, intY)=0 Then
& && && && &dm.MoveTo intx + 5, inty + 5
& && && && &Delay 100
& && && && &dm.LeftClick
& && && && &Delay 100
& && && && &dm.MoveTo 0,0
& && && && &Delay 500
& && && && &qd = 1
& && && && &Exit Function
& && &&&End If
& & next
& & qd = 0
End Function
Function js()//查找接受并点击，返回1，找到，0没找到
& & For i = 0 To 3
& && &&&Delay 200
& && &&&If dm.FindPic(0,100,700,650, &接受.bmp&, &101010&, 0.9, 0, intX, intY)=0 Then
& && && && &dm.MoveTo intx , inty
& && && && &Delay 100
& && && && &dm.LeftClick
& && && && &Delay 100
& && && && &dm.MoveTo 0,0
& && && && &Delay 100
& && && && &js = 1
& && && && &Exit Function
& && &&&End If
& & Next
& & js=0
End Function
Function 门派传送(add)
& & For i = 0 To 300
& && &&&Delay 500
& && &&&If dm.FindStrFast(0, 120, 550, 500, &阵&, &ffffff-303030&, 0.8, intx,inty)= 0 Then
& && && && &dm.MoveTo intx +5, intY +5
& && && && &Delay 200
& && && && &dm.LeftClick
& && && && &Delay 2000
& && && && &If dm.FindPic(0, 0, 800, 600, &门派广场.bmp&, &202020&, 0.8, 0, intX, intY)=0 Then
& && && && && & dm.MoveTo intx + 20, inty + add * 23
& && && && && & Delay 200
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & If dm.FindPic(0, 0, 800, 600, &出发.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && && && && && &&&dm.moveto intx+5,intY+4
& && && && && && &&&Delay 100
& && && && && && &&&dm.LeftClick
& && && && && && &&&Delay 5000
& && && && && && &&&门派传送=1
& && && && && && &&&Exit Function
& && && && && & Else
& && && && && && &&&门派传送=0
& && && && && && &&&Exit Function
& && && && && & End If
& && && && &Else
& && && && && & 门派传送=0
& && && && && & Exit Function
& && && && &End If
& && &&&Else
& && && && &dm.KeyPress 102
& && && && &Delay 500
& && &&&End If
& & Next
& & 门派传送=0
End Function
Function jlys()//交蓝银石
& & If 门派传送(1) = 1 Then
& && &&&Delay 1000
& && &&&dm.MoveTo 190, 220
& && &&&Delay 100
& && &&&dm.LeftClick //移动到NPC中间
& && &&&Delay 3000
& && &&&If dm.FindStrFast(0, 0, 800, 600, &设&, &ffffff-606060&, 0.8, intx,inty)= 0 Then
& && && && &Dim xlys,ylys
& && && && &Delay 1000
& && && && &xlys = intx
& && && && &ylys = intY + 90
& && && && &Rem startNPC
& && && && &dm.MoveTo xlys,ylys
& && && && &Delay 100
& && && && &If dm.FindStrFast(730,200,795,450, &设&, &00ff00-606060&, 0.8, intx1, inty1)=0 Then
& && && && && & dm.LeftClick
& && && && && & Delay 500
& && && && && & wc
& && && && && & If js=1&&Then //找到接受
& && && && && && &&&Goto startNPC
& && && && && & Else
& && && && && && &&&dm.KeyPress 27
& && && && && & End If
& && && && &Else
& && && && && & xlys = xlys+int((40*rnd)+1)-20
& && && && && & ylys = ylys + Int((100 * Rnd) + 1) - 50
& && && && && & Goto startNPC
& && && && &End If
& && && && &//////下面交三清石开门派资金
& && && && &dm.KeyPress 66//打开背包b
& && && && &Delay 1000
& && && && &Do
& && && && && & dm.MoveTo 0,0
& && && && && & Delay&&200
& && && && && & dm_ret=dm.FindPic(0, 0, 800, 600, &门派资金.bmp|门派资金1.bmp|门派资金2.bmp&, &303030&, 0.8, 0, intX, intY)
& && && && && & If intx& 0 Then
& && && && && && &&&dm.MoveTo intx + 15, inty + 15
& && && && && && &&&Delay 200
& && && && && && &&&dm.rightClick
& && && && && && &&&Delay 100
& && && && && && &&&dm.moveto 0,0
& && && && && & Else
& && && && && && &&&Exit Do
& && && && && & End If
& && && && &Loop
& && && && &//开门派资金结束
& && && && &//开低级门派材料箱
& && && && &Delay 1000
& && && && &count_djmpclx = 0
& && && && &If kbsl& 3 Then
& && && && && & Do
& && && && && && &&&dm_ret=dm.FindPic(0, 0, 800, 650, &低级门派材料箱.bmp|低级门派材料箱1.bmp|低级门派材料箱2.bmp&, &303030&, 0.8, 0, intX, intY)
& && && && && && &&&If intx & 0 Then
& && && && && && && && &count_djmpclx=count_djmpclx+1
& && && && && && && && &dm.MoveTo intx + 15, inty + 15
& && && && && && && && &Delay 200
& && && && && && && && &dm.rightClick
& && && && && && && && &Delay 100
& && && && && && && && &dm.MoveTo 0,0
& && && && && && && && &Delay 1800
& && && && && && &&&Else
& && && && && && && && &Exit Do
& && && && && && &&&End If
& && && && && & Loop
& && && && && & If count_djmpclx & 0 Then//上交三清石，三清银
& && && && && && &&&dm.KeyPress 85//打开门派U
& && && && && && &&&Delay 1000
& && && && && && &&&If dm.FindPic(0, 0, 800, 600, &门派财产.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && && && && && && && &dm.moveto intx + 5, intY + 5
& && && && && && && && &dm.LeftClick //点开财产
& && && && && && && && &Delay 500
& && && && && && && && &If dm.FindPic(0, 0, 800, 600, &三清石.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then //三清石
& && && && && && && && && & dm.moveto intx + 5, intY + 5
& && && && && && && && && & dm.LeftDoubleClick
& && && && && && && && && & Delay 500
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, & 门派材料上交数量.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then //三清石
& && && && && && && && && && &&&dm.moveto intx1 + 24, intY1 + 5
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.moveto intx1 - 45, inty1 + 52
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&Delay 500
& && && && && && && && && & End If
& && && && && && && && && & dm.moveto intx + 5, intY + 25
& && && && && && && && && & dm.LeftDoubleClick
& && && && && && && && && & Delay 500
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, & 门派材料上交数量.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then //三清银
& && && && && && && && && && &&&dm.moveto intx1 + 24, intY1 + 5
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.KeyPress 57
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.moveto intx1 - 45, inty1 + 52
& && && && && && && && && && &&&Delay 200
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&Delay 500
& && && && && && && && && & End If
& && && && && && && && &End if
& && && && && && &&&End if
& && && && && && &&&dm.KeyPress 85//关闭门派U
& && && && && && &&&Delay 500
& && && && && & End If
& && && && &End If
& && && && &dm.KeyPress 66// 关闭背包
& && &&&End If
& & End If//传到凌霄殿
End Function
Function kbsl()//查找空包数量
& & cou = 0
& & Dim xkb, ykb
& & xkb = 0
& & ykb = 0
& & x2kb = 800
& & y2kb = 600
& & Do
& && &&&If dm.FindPic(xkb, ykb, x2kb,y2kb, &包空位置.bmp&, &.9, 0, intX, intY) = 0 Then
& && && && &cou = cou + 1
& && && && &xkb = intx+20
& && && && &ykb = inty
& && && && &y2kb=ykb+30
& && &&&Else
& && && && &If ykb & 0 Then
& && && && && & ykb = ykb +30
& && && && && & x2kb = 800
& && && && && & y2kb = 600
& && && && && & xkb=0
& && && && && & If dm.FindPic(xkb, ykb, x2kb, y2kb, &包空位置.bmp&, &000000&, 0.9, 0, intX, intY) = 0 Then
& && && && && && &&&cou = cou + 1
& && && && && && &&&xkb = intx+30
& && && && && && &&&ykb = inty
& && && && && && &&&y2kb = ykb + 30
& && && && && & Else
& && && && && && &&&Exit Do
& && && && && & End If
& && && && &Else
& && && && && & Exit Do
& && && && &End If
& && &&&End If
& & Loop
& & kbsl=cou
End Function
Function phnpc()//跑环
& & If findNPC(&重要地点-门派贡献执事&) = 1 Then
& && &&&stringgx=clicknpc(&贡献&)
& && &&&If stringgx && 0 Then
& && && && &Dim xgx, ygx //贡献执事坐标
& && && && &Dim zzhh, zzdx//正在欢呼，正在大笑
& && && && &dim jscount//接受任务+1
& && && && &Dim gxisopen//NPC是否打开状态
& && && && &Dim rwyc //任务异常
& && && && &rwyc = False
& && && && &zzhh = False
& && && && &zzdx = False
& && && && &jscount = 0
& && && && &gxarray = Split(stringgx,&,&)
& && && && &xgx = gxarray(0)
& && && && &ygx=gxarray(1)
& && && && &Delay 1000
& && && && &If dm.FindPic(0, 0, 800, 600, &任务异常.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && && & rwyc=true
& && && && &End If
& && && && &Delay 200
& && && && &If dm.FindPic(0, 0, 800, 600, &门派指引勤点名.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && && & dm.MoveTo intx,inty
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & wc
& && && && && & js
& && && && &End If
& && && && &Delay 200
& && && && &If dm.FindPic(0, 0, 800, 600, &日出席以求精进.bmp&, &303030&, 0.8, 0, intX, intY)= 0 Then
& && && && && & dm.MoveTo intx,inty
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & If js = 1 Then
& && && && && && &&&dm.MoveTo xgx, ygx
& && && && && && &&&If dm.FindStrFast(730,350,795,437,&贡献&, &00ff00-707070&, 0.7, intx1, inty1)= 0 Then
& && && && && && && && &dm.LeftClick
& && && && && && && && &Delay 1000
& && && && && && &&&Else
& && && && && && && && &stringgx=clicknpc(&贡献&)
& && && && && && && && &If stringgx && 0 Then
& && && && && && && && && & myarray = Split(stringgx,&,&)
& && && && && && && && && & xgx = myarray(0)
& && && && && && && && && & ygx=myarray(1)
& && && && && && && && &End if
& && && && && && &&&End If
& && && && && && &&&If dm.FindPic(0, 0, 800, 600, &日出席以求精进.bmp&, &303030&, 0.8, 0, intX, intY)= 0 Then
& && && && && && && && &dm.MoveTo intx,inty
& && && && && && && && &dm.LeftClick
& && && && && && && && &Delay 1000
& && && && && && &&&End If
& && && && && & End If
& && && && && & wc
& && && && && & js
& && && && &ElseIf dm.FindPic(0, 0, 800, 600, &执书道人点姓名.bmp&, &202020&, 0.8, 0, intX, intY)=0 Then
& && && && && & dm.MoveTo intx,inty
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & js
& && && && &End If
& && && && &Delay 200
& && && && &If dm.FindPic(0, 0, 800, 600, &勤勉力光大门楣.bmp&, &202020&, 0.8, 0, intX, intY)=0 Then
& && && && && & dm.MoveTo intx,inty
& && && && && & dm.LeftClick
& && && && && & Delay 1000
& && && && && & If js = 1 Then
& && && && && && &&&dm.MoveTo xgx, ygx
& && && && && && &&&If dm.FindStrFast(730,350,795,437,&贡献&, &00ff00-707070&, 0.7, intx1, inty1)= 0 Then
& && && && && && && && &dm.LeftClick
& && && && && && && && &Delay 1000
& && && && && && &&&Else
& && && && && && && && &stringgx=clicknpc(&贡献&)
& && && && && && && && &If stringgx && 0 Then
& && && && && && && && && & myarray = Split(stringgx,&,&)
& && && && && && && && && & xgx = myarray(0)
& && && && && && && && && & ygx=myarray(1)
& && && && && && && && &End if
& && && && && && &&&End If
& && && && && && &&&dm_ret = dm.FindPic(0, 0, 800, 600, &勤勉力光大门楣.bmp&, &202020&, 0.8, 0, intX, intY)//
& && && && && && &&&If intx & 0 and intY & 0 Then
& && && && && && && && &dm.MoveTo intx,inty
& && && && && && && && &dm.LeftClick
& && && && && && && && &Delay 2000
& && && && && && &&&End If
& && && && && & End If
& && && && && & wc
& && && && && & js
& && && && &ElseIf dm.FindPic(0, 0, 800, 600, &掌炉道人教掌炉.bmp&, &202020&, 0.8, 0, intX, intY)=0 Then
& && && && && & dm.MoveTo intx,inty
& && && && && & dm.LeftClick
& && && && && & Delay 2000
& && && && && & js
& && && && &End If
& && && && &//这里开始跑环,NPC应该点开状态
& && && && &gxisopen = False
& && && && &Rem jcl
& && && && &If zzhh Then
& && && && && & photo (&礼仪欢呼&)
& && && && && & zzhh = False
& && && && &ElseIf zzdx Then
& && && && && & photo (&礼仪大笑&)
& && && && && & zzdx=False
& && && && &End If
& && && && &If gxisopen Then
& && && && && & dm.MoveTo xgx,ygx
& && && && && & If dm.FindStrFast(730,350,795,437,&贡献&, &00ff00-707070&, 0.7, intx1, inty1)= 0 Then
& && && && && && &&&dm.LeftClick
& && && && && && &&&Delay 1000
& && && && && & Else
& && && && && && &&&stringgx=clicknpc(&贡献&)
& && && && && && &&&If stringgx && 0 Then
& && && && && && && && &myarray = Split(stringgx,&,&)
& && && && && && && && &xgx = myarray(0)
& && && && && && && && &ygx=myarray(1)
& && && && && && &&&End if
& && && && && & End If
& && && && &End If
& && && && &gxisopen=True
& && && && &If rwyc Then //跑环有修复时
& && && && && & dm_ret =dm.FindPic(0, 0, 800, 600, &门派环可交100.bmp|门派环可交90.bmp&, &202020&, 0.8, 0, intX, intY)
& && && && && & If intx& 0 Then //找到可交
& && && && && && &&&dm.MoveTo intx,inty
& && && && && && &&&dm.LeftClick
& && && && && && &&&Delay 500
& && && && && && &&&If wc = 1 Then
& && && && && && && && &jscount=0
& && && && && && && && &For ii = 0 To 5
& && && && && && && && && & Delay 200
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, &接受.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && && && && && && && && && &&&If dm.FindPic(0, 0, 800, 600, &正在大笑.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then
& && && && && && && && && && && && &zzdx=True
& && && && && && && && && && &&&ElseIf dm.FindPic(0, 0, 800, 600, &正在欢呼.bmp&, &202020&, 0.8, 0, intX1, intY1)=0 Then
& && && && && && && && && && && && &zzhh=True
& && && && && && && && && && &&&End If
& && && && && && && && && && &&&dm.MoveTo intx + 2, inty + 2
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&jscount=jscount+1
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&Call qb
& && && && && && && && && && &&&Goto jcl
& && && && && && && && && & End If
& && && && && && && && &Next
& && && && && && && && &Call qb
& && && && && && &&&End If
& && && && && & Else
& && && && && && &&&dm_ret=dm.FindPic(0, 0, 800, 600, &门派环可接100.bmp|门派环可接90.bmp&, &202020&, 0.8, 0, intX, intY)
& && && && && && &&&If intx& 0 Then
& && && && && && && && &dm.MoveTo intx, inty
& && && && && && && && &Delay 100
& && && && && && && && &dm.LeftClick
& && && && && && && && &Delay 500
& && && && && && && && &For ii = 0 To 5
& && && && && && && && && & Delay 200
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, &接受.bmp&, &202020&, 0.8, 0, intX, intY) =0&&Then
& && && && && && && && && && &&&If dm.FindPic(0, 0, 800, 600, &正在大笑.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then
& && && && && && && && && && && && &zzdx=True
& && && && && && && && && && &&&ElseIf dm.FindPic(0, 0, 800, 600, &正在欢呼.bmp&, &202020&, 0.8, 0, intX1, intY1)=0 Then
& && && && && && && && && && && && &zzhh=True
& && && && && && && && && && &&&End If
& && && && && && && && && && &&&dm.MoveTo intx, inty
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.LeftClick
& && && && && && && && && && &&&jscount=jscount+1
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&If jscount & 2 Then
& && && && && && && && && && && && &Goto jcl
& && && && && && && && && && &&&End If
& && && && && && && && && & End If
& && && && && && && && &Next
& && && && && && &&&Else
& && && && && && && && &dm.KeyPress 27
& && && && && && &&&End If
& && && && && & End If
& && && && &Else //门派没有修复时
& && && && && & If wc = 1 Then
& && && && && && &&&jscount=0
& && && && && && &&&For ii = 0 To 5
& && && && && && && && &Delay 200
& && && && && && && && &If dm.FindPic(0, 0, 800, 600, &接受.bmp&, &202020&, 0.8, 0, intX, intY) =0&&Then
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, &正在大笑.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then
& && && && && && && && && && &&&zzdx=True
& && && && && && && && && & ElseIf dm.FindPic(0, 0, 800, 600, &正在欢呼.bmp&, &202020&, 0.8, 0, intX1, intY1)=0 Then
& && && && && && && && && && &&&zzhh=True
& && && && && && && && && & End If
& && && && && && && && && & dm.MoveTo intx, inty
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.LeftClick
& && && && && && && && && & jscount=jscount+1
& && && && && && && && && & Delay 500
& && && && && && && && && & Call qb
& && && && && && && && && & Goto jcl
& && && && && && && && &End If
& && && && && && &&&next
& && && && && && &&&Call qb
& && && && && & Else
& && && && && && &&&For ii = 0 To 5
& && && && && && && && &Delay 200
& && && && && && && && &If dm.FindPic(0, 0, 800, 600, &接受.bmp&, &202020&, 0.8, 0, intX, intY) =0&&Then
& && && && && && && && && & If dm.FindPic(0, 0, 800, 600, &正在大笑.bmp&, &202020&, 0.8, 0, intX1, intY1) = 0 Then
& && && && && && && && && && &&&zzdx=True
& && && && && && && && && & ElseIf dm.FindPic(0, 0, 800, 600, &正在欢呼.bmp&, &202020&, 0.8, 0, intX1, intY1)=0 Then
& && && && && && && && && && &&&zzhh=True
& && && && && && && && && & End If
& && && && && && && && && & dm.MoveTo intx, inty
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.LeftClick
& && && && && && && && && & jscount=jscount+1
& && && && && && && && && & Delay 500
& && && && && && && && && & If jscount & 2 Then
& && && && && && && && && && &&&Goto jcl
& && && && && && && && && & Else
& && && && && && && && && && &&&Exit For
& && && && && && && && && & End If
& && && && && && && && &ElseIf dm.FindPic(0, 0, 800, 600, &放弃.bmp&, &202020&, 0.8, 0, intX, intY) = 0 Then
& && && && && && && && && & dm.KeyPress 27
& && && && && && && && && & Exit for
& && && && && && && && &End If
& && && && && && &&&Next
& && && && && & End If
& && && && &End If
& && &&&End If
& & End If
End Function
Function qb()// 清包
& & dm.KeyPress 66
& & Delay 1000
& & If kbsl& 2 Then
& && &&&Do
& && && && &Delay 500
& && && && &dm_ret =dm.FindPic(0, 0, 800, 650, &祥云锦囊.bmp|祥云锦囊1.bmp|祥云锦囊2.bmp&, &202020&, 0.8, 0, intX, intY)
& && && && &If intx & 0 Then
& && && && && & dm.MoveTo intx + 10, intY + 10
& && && && && & Delay 500
& && && && && & If dm.FindStrFast(0, 0, 800, 600, &祥&, &ffffff-707070&, 0.8, intx, inty) = 0 Then
& && && && && && &&&dm.rightClick
& && && && && && &&&Delay 3500
& && && && && && &&&dm_ret =dm.FindPic(0, 0, 800, 650, &流云符.bmp|流云符1.bmp|流云符2.bmp|流云符3.bmp&, &202020&, 0.8, 0, intX, intY)
& && && && && && &&&If&&intx&0 Then
& && && && && && && && &dm.MoveTo intx + 10, intY + 10
& && && && && && && && &Delay 200
& && && && && && && && &If dm.FindStrFast(0, 0, 800, 600, &流&, &ffffff-707070&, 0.8, intx, inty) = 0 Then
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay 200
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay 200
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay 200
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay&&100
& && && && && && && && &End If
& && && && && && &&&End If
& && && && && && &&&If dm.FindPic(0, 0, 800, 600, &智慧仙囊.bmp&, &303030&, 0.8, 0, intX, intY) = 0 Then
& && && && && && && && &dm.MoveTo intx + 10, intY + 10
& && && && && && && && &dm.rightClick
& && && && && && && && &Delay 100
& && && && && && && && &dm.moveto 0,0
& && && && && && && && &Delay 200
& && && && && && &&&End If
& && && && && && &&&If dm.FindPic(0, 0, 800,600, &修为丹.bmp|修为丹1.bmp|修为丹2.bmp&, &202020&, 0.8, 0, intX, intY) &-1 Then //开修为丹
& && && && && && && && &dm.MoveTo intx + 10, intY + 10
& && && && && && && && &dm.rightClick
& && && && && && && && &Delay 100
& && && && && && && && &dm.moveto 0,0
& && && && && && && && &Delay 3500
& && && && && && &&&End If
& && && && && && &&&dm_ret =dm.FindPic(0, 0, 800, 650, &冲斗碎片.bmp|冲斗碎片1.bmp|冲斗碎片2.bmp&, &101010&, 0.8, 0, intX, intY)
& && && && && && &&&If intx&0 Then //扔冲斗碎片
& && && && && && && && &dm.MoveTo intx + 10, intY + 10
& && && && && && && && &Delay 100
& && && && && && && && &dm.Leftclick
& && && && && && && && &dm.moveto 10, 38
& && && && && && && && &Delay 100
& && && && && && && && &dm.Leftclick
& && && && && && && && &Delay 200
& && && && && && && && &qd
& && && && && && && && &Delay 100
& && && && && && && && &dm.moveto 0,0
& && && && && && &&&End If
& && && && && && &&&dr_ret = dm.FindPic(0, 0, 800, 600, &门派物资包.bmp|门派物资包1.bmp|门派物资包2.bmp&, &303030&, 0.8, 0, intX, intY)
& && && && && && &&&If intx & 0 Then //门派物资包
& && && && && && && && &//
& && && && && && && && &///
& && && && && && && && &Select Case mpwzb
& && && && && && && && &Case 0
& && && && && && && && && & dm.MoveTo intx + 10, intY + 10
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.moveto 0,0
& && && && && && && && && & Delay 200
& && && && && && && && && & dr_ret = dm.FindPic(0, 0, 800, 600, &门派物资包.bmp|门派物资包1.bmp|门派物资包2.bmp&, &303030&, 0.8, 0, intX, intY)
& && && && && && && && && & If intx & 0 Then
& && && && && && && && && && &&&mpwzb = 2
& && && && && && && && && && &&&dm.MoveTo intx + 10, intY + 10
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.Leftclick
& && && && && && && && && && &&&dm.moveto 10, 38
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.Leftclick
& && && && && && && && && && &&&Delay 500
& && && && && && && && && && &&&qd
& && && && && && && && && && &&&Delay 100
& && && && && && && && && && &&&dm.moveto 0,0
& && && && && && && && && & Else
& && && && && && && && && && &&&mpwzb=1
& && && && && && && && && & End If
& && && && && && && && &Case 1
& && && && && && && && && & dm.MoveTo intx + 10, intY + 10
& && && && && && && && && & dm.rightClick
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.moveto 0,0
& && && && && && && && && & Delay 200
& && && && && && && && &Case 2
& && && && && && && && && & dm.MoveTo intx + 10, intY + 10
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.Leftclick
& && && && && && && && && & dm.moveto 10, 38
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.Leftclick
& && && && && && && && && & Delay 500
& && && && && && && && && & qd
& && && && && && && && && & Delay 100
& && && && && && && && && & dm.moveto 0,0
& && && && && && && && &End Select
& && && && && && &&&End If
& && && && && && &&&dr_ret=dm.FindPic(0, 0, 800, 600, &青书囊.bmp|青书囊1.bmp|青书囊2.bmp&, &202020&, 0.8, 0, intX, intY)
& && && && && && &&&If&&intx&0 Then
& && && && && && && && &dm.MoveTo intx + 10, intY + 10
& && && && && && && && &dm.rightClick
& && && && && && && && &Delay 100
& && && && && && && && &dm.moveto 0,0
& && && && && && && && &Delay 200
& && && && && && &&&End If
& && && && && & End If
& && && && && & dm.MoveTo 0, 0
& && && && && & Delay 200
& && && && &Else
& && && && && & Exit Do
& && && && &End If
& && &&&Loop
& & End If
& & Delay 500
& & dm.KeyPress 66
End Function
Sub OnScriptExit()
& & Delay 2000
& & If ddd Then
& && &&&Do
& && && && &dm.KeyPress 27
& && && && &Delay 3000
& && && && &If dm.FindPic(0, 0, 800, 600, &系统设置.bmp&, &303030&, 0.8, 0, intX, intY)= 0 Then
& && && && && & dm.MoveTo intx+5,inty+3
& && && && && & dm.LeftClick
& && && && && & Delay 3000
& && && && && & If dm.FindPic(0, 0, 800, 600, &不是3D视角.bmp&, &202020&, 0.8, 0, intX, intY)= 0 Then
& && && && && && &&&dm.MoveTo intx + 5, intY + 5
& && && && && && &&&dm.LeftClick
& && && && && && &&&Delay 500
& && && && && && &&&dm.MoveTo intx + 128, intY +88
& && && && && && &&&dm.LeftClick
& && && && && && &&&Exit Do
& && && && && & Else
& && && && && && &&&dm.KeyPress 27
& && && && && && &&&Exit Do
& && && && && & End If
& && && && &End If
& && && && &Delay 1000
& && && && &Delay 100
& && &&&Loop
& && &&&dm.KeyPress 27
& & End If
& & If eee Then
& && &&&If dm.FindPic(650, 400, 800, 650, &打开聊天.bmp&, &303030&, 0.8, 0, intX, intY)= 0 Then
& && && && &dm.MoveTo intx+5,inty+3
& && && && &dm.LeftClick
& && && && &Delay 2000
& && &&&End If
& & End If
& & Delay 2000
& & Call Plugin.Window.Size(Hwnd, w2 - w1, h2 - h1)
& & Call Plugin.Window.Move(Hwnd, w1,h1)
& & dm_ret = dm.UnBindWindow()
End Sub复制代码 本帖最后由 火___火 于
22:57 编辑
附件: 你需要才可以下载或查看附件。没有帐号？
----------------------------------------------------------------------------
需要金钱：1100
手机盒子客户端点击或扫描下载
Powered by