奇迹东洋刀+几宝箱出？
本回答由提问者推荐
(45条回答)
var sogou_ad_id=731547;
var sogou_ad_height=160;
var sogou_ad_width=690;你的位置：
免费MU奇迹固定古战场挂机脚本第五六季SF源代码
23:23:42 |
来源: 按键精灵资源站
本帖最后由 zgl_278 于
19:11 编辑
首先感谢一只鱼,使用了一只鱼的数字5*8..非常感谢!!
窗口800*600前台模式,支持第五、六季SF。
没有制作GUI用户,只能在古战场90,115附近挂机,就是最右边的拐角,一般SF这里都有刷怪.
使用方法:先手动走到古战场90,115,这个大直角上应该都可以挂的,启动脚本后锁定鼠标,游戏窗口致顶,八分钟清理一次背包,五十分钟回城幻术园一次,灵魂CZ,2属性套装(加减反防4个任意2个)放仓库，其他都卖商店,SF都有宝石积分功能..能捡宝石类羽毛龙王级套,眩闪套...
有需要的朋友可以测试一下,功能上有什么缺陷,欢迎提出,觉得有使用价值的朋友,给鲜花、银币、金币最好，，表示鼓励下。
祝各位朋友都能努力学好按键，制作出自己觉的最好的脚本就行！！
一个多月也走了不少弯路，特别是变量类型，一开始老不注意，按9的语法也没提示错误。。
本人也经常玩MU，所以做了个脚本，希望各位高人、大师不吝赐教。。
下面是这个脚本的源代码，，没有附图片。
//&&获取MU窗口起始坐标及尺寸
//hwnd = Plugin.Window.Find(0,&奇迹游戏乐园&)
hwnd = Plugin.Window.MousePoint()
//人物坐标x=405,y=245
Call Plugin.Window.Top(hwnd, 1)
rect = Plugin.Window.GetClientRect(hwnd)
Dim MyArray, fuzhu, GUAx, GUAy,LSx,LSy,UUx,UUy,ZHa,ZHb,SHa,SHb,MMa,MMb,i,j,bba,bbb,hca,hcb,ckx,xkyydx,ydy,zlx,zly
MyArry = Split(rect, &|&)
Ux = Clng(MyArry(0))
Uy = Clng(MyArry(1))
ZHa = now : MMa = now : bba = now : hca = now :
//& & 脚本开始
Delay 1000
Rem 开始& && && &
& &&&//PutAttachment &Attachment:&,&*.bmp&
& && &Delay 50
& && &Call zuobiao()
& && &Delay 50
& && &Call chushi()
& && &Delay 100
&&While 1& &
& & Delay 50& && &
& && & //xtsj1 = Plugin.GetSysInfo.GetTime()& && &
& && & //msgbox Abs(GUAx-100),,Abs取绝对值& && &
& &&&MoveTo 400 + Ux, 200 + Uy
& &&&Delay 200& && &&&
& &&&//Call Plugin.Bkgnd.RightDown(hwnd,400 + Ux, 200 + Uy)
& &&&RightDown 1
& &&&Delay 300
& &&&//Call MM()& && && && && &
& & Call zhaohuan()
& && &Delay 300
& & Call soubao()
& & Delay 300
& & Call diulaji()
& & Delay 300
& & hcb = now
& & Delay 50
&&If DateDiff(&n&, hca, hcb) & 65 Then& && && &
& & //Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& & RightUp 1
& & Delay 1000
& & Call xuanhuanshuyuan()
& & Delay 1000
& & Call huanshuyuan()
& & Delay 1000
& & Call hsycangku()
& & Delay 1000
& & Call hsymailaji
& & Delay 1000
& & Call yatelandisi()
& & Delay 1000
& & Call sbluanzou()
& & Delay 1000
& & Call jingjichang()
& & Delay 1000
& & hca = now : bba = now
& & Delay 200
&&Delay 200
&&Call huiwei()
&&Delay 200
&&//Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
&&RightUp 1
&&Delay 50
Sub zuobiao
Call FindColor(100 + Ux, 17 + Uy, 180 + Ux, 17 + Uy, &FFFFFF&, x, y)
& & //Delay 20
& & //查找左上坐标中间的分隔符,最下的一个白点,坐标数字5X8,窗口124,46要减去游戏画面第一点3,29得到相对坐标& &
& & Delay 20
&&If x & 0 and y & 0 Then& &&&
& && &Delay 20
& &&&IfColor x-19, y-1,&FFFFFF&,0 Then
& && && &GUAx = Plugin.RFNO.GetNumber(x - 18, y - 9, &FFFFFF&, 2)
& && && & //Delay 202
& && && &//MessageBox VarType(GUAx)
& && && &Delay 20
& && && &GUAx=Cint(GUAx)
& && & Else& && &
& && &//分隔符与y固定相隔12
& && &//刮号低数字一行,数字前一列有白点,说明坐标是2位数,没有则3位数& && &
& && && &GUAx = Plugin.RFNO.GetNumber(x - 24, y - 9, &FFFFFF&, 3)
& && && &GUAx=Cint(GUAx)
& &&&End If
& &&&IfColor x+25, y-1,&FFFFFF&,0 Then
& && && &GUAy = Plugin.RFNO.GetNumber(x + 12, y - 9, &FFFFFF&, 2)
& && && & GUAy=Cint(GUAy)
& && & Else
& && && &GUAy = Plugin.RFNO.GetNumber(x + 12, y - 9, &FFFFFF&, 3)
& && && &GUAy=Cint(GUAy)
& &&&End If
& && & MessageBox &不支持此服,抱歉!或您没把鼠标放进游戏窗口内!&
& && & Delay 500
& && & KeyPress &F12&, 1
& &Delay 300
Sub chushi
KeyPress &2&, 1
Delay 1000
RightClick 1
Delay 1000
KeyPress &1&, 1
Delay 1000
KeyPress &F2&, 1
Delay 1000
KeyPress &Enter&, 1
Delay 1000
SayString&/邀请 off&
Delay 2000
KeyPress &Enter&, 1
Delay 1000
//LockMouse
Sub soubao()
& & KeyDown &Alt&, 1
& & Delay 300
& & Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\玛雅.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()
& & End If
& & Delay 50
& &Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\生命.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()& && &
& & End If
& & Delay 50
& &Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\洛克之羽.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()
& & End If
& & Delay 50
& & Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\宝石-灵魂.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()
& & End If
& & Delay 50
& & Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\宝石-创造.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()& && && &
& &&&End If
& & Delay 50
& &&&Call FindPic(10 + Ux, 20 + Uy, 790 + Ux, 530 + Uy, &Attachment:\再生原石.bmp&, 1, BAOx, BAOy)
& & If BAOx & 0 and BAOy & 0 Then
& && &&&Call BAO()& && && &
& &&&End If
& & Delay 50
& & KeyUp &Alt&, 1
& & Delay 200
& & //Call Plugin.Bkgnd.RightDown(hwnd,400 + Ux, 200 + Uy)
& & RightDown 1
& & Delay 200
& & Delay 300
& & //Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& & RightUp 1
& & Delay 300
& & MoveTo BAOx + 23, BAOy + 30
& & Delay 600
& & LeftClick 2&&
& & Delay 1600& &
& & MoveTo 410 + Ux, 255 + Uy
& & Delay 100
& & LeftClick 2
& & Delay 230
& & LeftClick 1
& & Delay 300
& & Call soubao()
Sub huiwei()
MoveTo 400 + Ux, 180 + Uy
Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\断线图.bmp&, 1, dxx, dxy)
& && && && && && & If dxx & 0 and dxy & 0 Then
& && && && && && && &&&MoveTo 400 + Ux, 240 + Uy
& && && && && && && &&&Delay 300
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 5000
& && && && && && &&&End If
&&Call FindColor(100 + Ux, 17 + Uy, 180 + Ux, 17 + Uy, &FFFFFF&, Jx, Jy)
& & Delay 50
& &If Jx & 0 and Jy & 0 Then
& && & Delay 50
& && &IfColor Jx - 19, Jy - 1, &FFFFFF&, 0 Then
& && && &&&Delay 50
& && && &&&JIANx = Plugin.RFNO.GetNumber(Jx - 18, Jy - 9, &FFFFFF&, 2)
& && && &&&JIANx=Cint(JIANx)
& && &&&Else
& && && &&&Delay 50
& && && &&&JIANx = Plugin.RFNO.GetNumber(Jx - 24, Jy - 9, &FFFFFF&, 3)
& && && &&&JIANx=Cint(JIANx)
& && & End If
& && && &Delay 100
& && & IfColor Jx + 25, Jy - 1, &FFFFFF&, 0 Then
& && && &&&Delay 50
& && && &&&JIANy = Plugin.RFNO.GetNumber(Jx + 12, Jy - 9, &FFFFFF&, 2)
& && && && &JIANy=Cint(JIANy)
& && && &Else
& && && &&&Delay 50
& && && &&&JIANy = Plugin.RFNO.GetNumber(Jx + 12, Jy - 9, &FFFFFF&, 3)
& && && &&&JIANy=Cint(JIANy)
& && &&&End If
& &&&Delay 100&&
& && &Delay 500
& && &//Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& && &RightUp 1
& && &Delay 500
& && &EndScript
& &Delay 100
& & If Abs(GUAx - JIANx) & 1 Or Abs(GUAy - JIANy) & 1 Then
& && && && &Delay 100
& && && && &Call zoulu(GUAx,GUAy,JIANx,JIANy)&&
& & End If
Sub zoulu(ydx, ydy, zlx, zly)
//Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& && &Delay 500
& && &i = 0 : j = 0
& & MoveTo 405 + Ux, 245 + Uy
& &&&Delay 100& && &&&
& & If zlx - ydx & 0 and ydy - zly &= 0 Then&&
& &&&Delay 50
& &&&i = zlx - ydx : j = ydy - zly
& & While i & 0 or j & 0
& && &&&If j & 0 Then& && && && && && && && && && && && && && &
& && && && &MoveTo 446 + Ux, 221 + Uy
& && && &Delay 200
& && && &LeftClick 1
& && && && && &Delay 600
& && && && && &j = j - 1
& && && && & End If& && &
& && & If i & 0& &Then& && && && && && && && && && && && && &
& && && && &MoveTo 351 + Ux, 221 + Uy
& && && &Delay 200
& && && &LeftClick 1
& && && && && &Delay 600
& && && && && &i = i - 1
& && && && & End If
& && && &Wend& && && &
& &&&End If
& &&&Delay 30& &
& &&&If&&zlx - ydx &= 0 and zly - ydy & 0 Then& &
& && &&&Delay 50
& && &&&i = zlx - ydx : j = zly - ydy
& && &&&While i & 0 or j & 0
& && && & If j & 0& &&&Then& && && && && && && && &&&
& && && & MoveTo 335 + Ux, 285 + Uy
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && && & j = j - 1
& && && & End If
& && && & Delay 100& && &&&
& && && & If i & 0& &&&Then& && && && && && && && && && && && && &
& && && &MoveTo 351 + Ux, 221 + Uy& &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && && & i = i - 1
& && && & End If
& && &Wend
& &Delay 30
& &If ydx - zlx & 0 and zly - ydy &= 0 Then& &&&
& &&&Delay 50
& &&&i = ydx - zlx : j = zly - ydy
& &&&While i & 0 or j & 0
& &&&If i & 0& &&&Then& && && && && && && && && && &
& && && & MoveTo 460 + Ux, 295 + Uy& && &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && && & i = i - 1
& && && &End If
& && &Delay 30
& &If j & 0& &&&Then& && && && && && && && && && && && &&&
& && && & MoveTo 335 + Ux, 285 + Uy& &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && && & j = j - 1
& && && &End If
& && & Wend&&
& &&&End If
& && &Delay 30& && &
& &&&If&&ydx - zlx &= 0 and ydy - zly & 0 Then
& && && &Delay 50
& && &&&i = ydx - zlx : j = ydy - zly
& &&&While i & 0 or j & 0& && && && && && && && && &
& && && &If i & 0& &Then
& && && & MoveTo 460 + Ux, 295 + Uy& &
& && &&&Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && && & i = i - 1
& && &&&End If
& && &&&Delay 30
& && &&&If j & 0& &Then
& && && &MoveTo 446 + Ux, 221 + Uy&&
& && &Delay 200
& && &LeftClick 1
& && && && &Delay 600
& && && && &j = j - 1
& && &&&End If
& && &Wend& &
Sub 直角zoulu(ydx,ydy,zlx,zly)
//Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& && &Delay 500
& & MoveTo 405 + Ux, 245 + Uy
& &&&Delay 100& && &
//KeyPress &Enter&, 1
& & //Delay 2000
& & //SayString&回点&
& & //Delay 2000
& & //KeyPress &Enter&, 1
& & //Delay 1000
//If ydx & zlx and ydy &= zly& &Then
& && &If zlx - ydx & 0 and ydy - zly &= 0 Then&&
& &&&Delay 50
& &&&For ydy - zly& && && && && && && && && && && && && && &
& && && & MoveTo 446 + Ux, 221 + Uy
& && &Delay 200
& && &LeftClick 1
& && && && & Delay 600
& && && &Next& &&&
& &&&//Delay 100
& &&&//MessageBox (& 右上&&&)&ydy - zly
& && &Delay 100
& &For zlx - ydx& && && && && && && && && && && && && &
& && && &&&//左上 MessageBox (& 左上&&&)& &&&
& && && & MoveTo 351 + Ux, 221 + Uy
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && &Next& && && &
& && && &// Delay 100
& &&&//MessageBox (& 左上&&&) & zlx - ydx
& &&&End If
& &&&Delay 30
& & //If&&ydx &= zlx and ydy & zly Then& && &
& && &If&&zlx - ydx &= 0 and zly - ydy & 0 Then& &
& && &&&Delay 50
& && &&&For zly - ydy& && && && && && && && && && &
& && && && &//左下& && && && && &
& && && & MoveTo 335 + Ux, 285 + Uy
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && &Next
& && && &&&//Delay 200
& && &&&// MessageBox (& 左下&&&)&zly - ydy
& && && &Delay 100& && &&&
& && &&&For zlx - ydx& && && && && && && && && && && &&&
& && && & //左上& && && && && && &
& && && &MoveTo 351 + Ux, 221 + Uy& &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && &Next
& &//Delay 200
& &//MessageBox (& 左上&&&)&zlx - ydx
& &Delay 100
& &//If ydx & zlx and ydy &= zly Then&&
& &If ydx - zlx & 0 and zly - ydy &= 0 Then& &&&
& &&&Delay 50
& &&&For ydx - zlx& && && && && && && && && && && && &
& && && & //右下& &MessageBox (& 右下&&&)
& && && & MoveTo 460 + Ux, 295 + Uy& && &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && &Next
& &&&//Delay 200
& && &//MessageBox (& 右下&&&)&ydx - zlx
& && &Delay 100
& &For zly - ydy& && && && && && && && && && && && && && &
& && && & //左下MessageBox (& 左下&&&)
& && && & MoveTo 335 + Ux, 285 + Uy& &
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && && &Next
& & End If
& && &//Delay 200
& &//MessageBox (& 左下&&&)&zly - ydy
& && &Delay 300
& && &//If&&ydx &= zlx and ydy & zly Then& && && &
& && &If&&ydx - zlx &= 0 and ydy - zly & 0 Then
& && && &Delay 50
& && &&&For ydx - zlx& && && && && && && && && &
& && && &&&//右下 MessageBox (& 右下&&&)
& && && & MoveTo 460 + Ux, 295 + Uy& &
& && &&&Delay 200
& && & LeftClick 1
& && && && & Delay 600
& && &&&Next
& && && &//Delay 200
& && &//MessageBox (& 右下&&&)&ydx - zlx
& && &&&Delay 50
& && &&&For ydy - zly
& && && & //右上& & MessageBox (& 右上&&&)
& && && &MoveTo 446 + Ux, 221 + Uy&&
& && &Delay 200
& && &LeftClick 1
& && && && & Delay 600
& && &&&Next
& && &&&//Delay 200
& &&&//MessageBox (& 右上&&&)&ydy - zly
Sub diulaji
Delay 1020
& & bbb = now : i = 1 : j = 0& &&&
& & If DateDiff(&n&, bba, bbb) & 12 Then
& && & Delay 100
& && & MoveTo 400 + Ux, 240 + Uy
& && && & Delay 200
& && & //Call Plugin.Bkgnd.RightUp(hwnd,400 + Ux, 200 + Uy)
& && & RightUp 1
& && & Delay 600
& && & KeyPress &V&, 1
& && && & Delay 1000& &&&
& && && &IfColor&&663 + Ux, 15 + Uy , &FFFFFF& , 0&&Then
& && && && & Delay 50
& && && &While i & 8
& && && && &j = 0& && &
& && && & While j & 8
& && && && &x0 = 593 + Ux + 25 * j
& && && && &y0 = 262 + Uy + 25 * i& && && && &
& && && && && && & //背包左上角581,250
& && && && && && && &//颜色131313相当于是空的& &
& && && && &&&GetColor1 = GetPixelColor(592 + Ux + 25 * j, 260 + Uy + 25 * i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && && && &If R = B AND B = G Then
& && && && && &GetColor = GetPixelColor(663 + Ux, 15 + Uy)
& && && && && && && && &Delay 50
& && && && && && &&&While GetColor && &FFFFFF&& &
& && && && && && &&&KeyPress &V&, 1
& && && && && && && && &Delay 1500
& && && && && && &&&GetColor = GetPixelColor(663 + Ux, 15 + Uy)
& && && && && && && && &Delay 200& && &
& && && && && && &&&Wend
& && && && && && && &&&Else& && && && && && &
& && && && && && && && & MoveTo x0, y0
& && && && && &&&Delay 300
& && && && && && && && & Call FindPic(510 + Ux, 281 + Uy + 25 * i, 750 + Ux, 295 + Uy + 25 * i, &Attachment:\创造图0.bmp&, 1, czx, czy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 281 + Uy + 25 * i, 750 + Ux, 295 + Uy + 25 * i, &Attachment:\玛雅.bmp&, 1, myx, myy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 200 + Uy + 25 * i, 750 + Ux, 295 + Uy + 25 * i, &Attachment:\再生原石.bmp&, 1, lkzyx, lkzyy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 281 + Uy + 25 * i, 750 + Ux, 295 + Uy + 25 * i, &Attachment:\生命.bmp&, 1, smx, smy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 281 + Uy + 25 * i, 750 + Ux, 295 + Uy + 25 * i, &Attachment:\祝福.bmp&, 1, shx, shy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 240 + Uy + 25 * i, 750 + Ux, 310 + Uy + 25 * i, &Attachment:\灵魂图0.bmp&, 1, gwx, gwy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 240 + Uy + 25 * i, 750 + Ux, 310 + Uy + 25 * i, &Attachment:\洛克之羽.bmp&, 1, lclx, lcly)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindPic(510 + Ux, 20 + Uy, 750 + Ux, 400 + Uy, &Attachment:\大天使紫色.bmp&, 1, dtsx, dtsy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindColor(560 + Ux, 160 + Uy, 750 + Ux, 500 + Uy, &80FF19&, zyx, zyy)
& && && && && && && && & Delay 5
& && && && && && && && & Call FindColor(560 + Ux, 80 + Uy, 750 + Ux, 500 + Uy, &C83C3C&, tzx, tzy)
& && && && && && && && & //套装的底色蓝色C83C3C,套装的绿色是纯绿色00FF00,普通卓越是80FF19.
& && && && && && && && & Delay 30
& && && && && && && && && && &If czx & 0 and myx & 0 and lkzyx & 0 and smx & 0 and shx & 0 and gwx & 0 and zyx & 0 and tzx & 0 and dtsx & 0 and lclx & 0 Then
& && && && && && && && && && && && & Delay 100
& && && && && && && && && && && && & LeftClick 1
& && && && && && && && && && && && & Delay 300
& && && && && && && && && && && && & MoveTo 420+Ux, 420+Uy
& && && && && && && && && && && && & Delay 400
& && && && && && && && && && && && & LeftClick 1
& && && && && && && && && && && && & Delay 800& &&&
& && && && && && && && && && & End If
& && && && && && &&&End If
& && && && && && &&&j = j + 1
& && && && && && &&&MoveTo 555 + Ux, 262 + Uy + 25 * i
& && && && && &&&Delay 200& && && && && && &
& && && & Wend
& && && & i = i + 1
& && && & Wend
& && &&&Else
& && &&&Call diulaji()
& && &End If
& &&&Delay 1000
& &&&GetColor = GetPixelColor(663 + Ux, 15 + Uy)
& && && & Delay 50
& && &While GetColor = &FFFFFF&& &
& && && & KeyPress &V&, 1
& && && && &Delay 1500
& && && && &GetColor = GetPixelColor(663 + Ux, 15 + Uy)
& && && && & Delay 200& && &
& && &Wend
& &&&bba = now
& &&&MoveTo 400 + Ux, 240 + Uy
& &&&Delay 1000
Sub xuanhuanshuyuan
& && &Delay 200
& && &i=0& &&&
& && &KeyPress &M&, 1
& && &Delay 300
& && &MoveTo 249 + Ux, 150 + Uy
& & Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\选地图.bmp&, 1, dtx, dty)
& && && && && && & If dtx & 0 and dty & 0 Then
& && && && && && && &&&MoveTo 400 + Ux, 240 + Uy
& && && && && && && &&&Delay 200
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 300
& && && && && && &&&End If
& && &Delay 20& && && && &&&
& & While i & 75& && && &
& && && && &&&GetColor1 = GetPixelColor(64 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && &&&//TracePrint R&&&&& & G &&&&& & B 把颜色分为10进制分量.
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get1 = 1
& && && && && &&&Else
& && && && && && &Get1 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&GetColor2 = GetPixelColor(109 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor2, R, G, B)
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get2 = 1
& && && && && &&&Else
& && && && && && &Get2 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&GetColor3 = GetPixelColor(161 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor3, R, G, B)
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get3 = 1
& && && && && &&&Else
& && && && && && &Get3 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&If Get1 & 0 and Get2 & 0 and Get3 & 0 Then
& && && && && && &MoveTo 161 + Ux, 145 + Uy + i
& && && && && && &Delay 300
& && && && && && &LeftClick 1
& && && && && && &Delay 4000
& && && && && && &i = 100
& && && && &&&End If
& && && && &&&i = i + 1
& & Delay 50
& & If i = 75 Then
& &&&KeyPress &M&, 1
& && &&&Delay 300
& &&&Call xuanhuanshuyuan()
& &&&Delay 200
& &&&Goto xuanhuanshuyuanend
& & End If
& &Delay 3000
& && &hsc = GetPixelColor(109 + Ux, 17 + Uy)
& & Delay 50
& & If hsc=&FFFFFF& Then
& && && & Delay 50
& && && & hsx = Plugin.RFNO.GetNumber(91 + Ux , 8 + Uy , &FFFFFF&, 2)
& && && & hsx=Cint(hsx)
& && && & Delay 50
& && && & hsy = Plugin.RFNO.GetNumber(121 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & hsy=Cint(hsy)
& && &//MessageBox ywx&ywy
& && & Else
& && & Delay 200
& && &&&Call xuanhuanshuyuan()
& && &&&Delay 200
& &&&Goto xuanhuanshuyuanend
& && &&&Delay 200
& & End If& &
&&If abs(hsx - 47) & 25 or abs(hsy - 228) & 25 Then
& && &Call xuanhuanshuyuan()
& && &Delay 200
& && & Goto xuanhuanshuyuanend
&&MoveTo 400 + Ux, 240 + Uy
&&Delay 500
& && & Call zoulu(47,228,hsx,hsy)
&&Delay 500
&&Rem xuanhuanshuyuanend
Sub huanshuyuan
& &&&i = 0 : j = 0
& &Delay 2000
&&MoveTo 580 + Ux, 260 + Uy
&&Delay 300
& & Call FindPic(100 + Ux, Uy, 750 + Ux, 500 + Uy, &Attachment:\仓库NPC.bmp&, 1, hsckx, hscky)
& && &&&Delay 50
& &If hsckx & 0 and hscky & 0 Then
& && &&&While&&i & 13
& && && && && && &j = 0
& && && && &&&While j & 21
& && && && && && &MoveTo 150 + Ux + j * 30, 280 + Uy - i * 20& && && && && &&&
& && && && && &Delay 200
& && && && &Call FindPic(100 + Ux, Uy, 750 + Ux, 500 + Uy, &Attachment:\仓库NPC.bmp&, 1, hsckx, hscky)
& && && && && &Delay 20
& && && && && &If hsckx & 0 and hscky & 0 Then& && && && && && && && && && && &&&
& && && && && && &Delay 220
& && && && && && && &LeftClick 1
& && && && && && &Delay 1500
& && && && && && &i = 50 : j = 70
& && && && && &End If
& && && && && &Delay 10
& && && && && &j = j +1
& && && && &Wend
& && && &&&Delay 10
& && && &&&i = i + 1
& && &&&Wend
& &&&LeftClick 1
& &&&Delay 1500& && && && && &&&
& &If i = 13 Then
& && &Delay 50
& && && & hsx = Plugin.RFNO.GetNumber(91 + Ux , 8 + Uy , &FFFFFF&, 2)
& && && & hsx=Cint(hsx)
& && && & Delay 50
& && && & hsy = Plugin.RFNO.GetNumber(121 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & hsy=Cint(hsy)
& && &Delay 300
& && &Call zoulu(47,228,hsx,hsy)
& && && &Delay 300
& && &Call huanshuyuan()
& &End If&&
&&MoveTo 400 + Ux, 240 + Uy
&&Delay 500& &
Sub hsycangku
& && & i = 0 : j = 0
& & Delay 1000& &&&
& &&&hsyckc = GetPixelColor(396 + Ux, 13 + Uy)
& && &Delay 200
& & //MessageBox kckc
&&If hsyckc=&D8D8D8& Then&&
& && && & Delay 100
& && &While i & 8
& && && && &j = 0& && &
& && & While j & 8
& && && & x0 = 593 + Ux + 25 * j
& && &&&y0 = 261 + Uy + 25 * i
& && &&&GetColor1 = GetPixelColor(592 + Ux + 25 * j, 260 + Uy + 25 * i)
& && && && && && &Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && && && & If R = B AND B = G Then
& && && && && && && &Else& &
& && &&&MoveTo x0, y0
& && &&&Delay 300& && && && && &&&
& && && && && & Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\灵魂图0.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10
& && && && && && &Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\再生原石.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10
& && && && && & Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\洛克之羽.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10
& && && && && & Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\生命.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10
& && && && && & Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\玛雅.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10&&
& && && && && & Call FindPic(510 + Ux, 270 + Uy + 25 * i, 750 + Ux, 300 + Uy + 25 * i, &Attachment:\创造图0.bmp&, 1, BAOx, BAOy)
& && && && && && & If BAOx & 0 and BAOy & 0 Then
& && && && && && &&&RightClick 2
& && && && && && &&&Delay 300
& && && && && && & End If
& && && && && &&&Delay 10
& && && && && & End If& &&&
& && && && && && &MoveTo 555 + Ux, 262 + Uy + 25 * i
& && && && && &Delay 200
& && && && && && &j = j + 1
& && && && & Wend
& && && && &&&i=i+1
& && & Wend
& & End If
& && &&&Delay 1000
& && &// Call FindColor(395 + Ux, 13 + Uy, 396 + Ux, 13 + Uy, &D8D8D8&, x, y)
& &&&zbc = GetPixelColor(663 + Ux, 15 + Uy)
& && &While zbc = &FFFFFF&& &
& && && & MoveTo 603 + Ux, 506 + Uy
& && && && &Delay 300
& && && && &LeftClick 1
& && && && &Delay 1000
& && && &&&zbc = GetPixelColor(663 + Ux, 15 + Uy)
& && &Wend
& &&&Delay 1000
Sub hsymailaji
& & //MoveTo 405 + Ux, 240 + Uy
& && & Delay 500
& && & i = 0 : j = 0 : i1 = 1 : j1 = 0
& && &Delay 100
& &MoveTo 400 + Ux, 240 + Uy
& &hsymc = GetPixelColor(109 + Ux, 17 + Uy)
& & Delay 50
& & If hsymc=&FFFFFF& Then
& && && & Delay 50
& && && & hsx = Plugin.RFNO.GetNumber(91 + Ux , 8 + Uy , &FFFFFF&, 2)
& && && & hsx=Cint(hsx)
& && && & Delay 50
& && && & hsy = Plugin.RFNO.GetNumber(121 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & hsy=Cint(hsy)
& & End If& &
& & Delay 200
& & Call zoulu(45,227,hsx,hsy)
& && & Delay 500
& & MoveTo 445 + Ux, 105 + Uy
& & Delay 300
&&Call FindPic (300 + Ux, Uy, 700 + Ux, 300 + Uy, &Attachment:\塞尔维亚NPC.bmp&, 1, hsymx, hsymy)
& && &&&//找NPC的名字颜色是F0FF96
& && &&&Delay 50
& &&&If hsymx & 0 and hsymy & 0 Then
& && &&&While&&i & 11
& && && && && && &j = 0
& && && && &&&While j & 19
& && && && && && &MoveTo 200 + Ux + j * 30, 220 + Uy - i * 20& && && && && &&&
& && && && && &Delay 200
& && && && & Call FindPic (200 + Ux, Uy, 700 + Ux, 400 + Uy, &Attachment:\塞尔维亚NPC.bmp&, 1, hsym0x, hsym0y)
& && && && && &Delay 20
& && && && && &If hsym0x & 0 and hsym0y & 0 Then& && && && && && && && && && && &&&
& && && && && && &Delay 200
& && && && && && &LeftClick 1
& && && && && && &i = 20 : j = 40
& && && && && &End If
& && && && && &Delay 10
& && && && && &j = j +1
& && && && &Wend
& && && &&&Delay 10
& && && &&&i = i + 1
& && &&&Wend
& && & Else
& && & Delay 200
& && & LeftClick 1& &&&
& &&&End If
& & If i = 11 Then
& && &Call hsymailaji()
& && &Delay 200
& && &Goto hsymailajiend
& &&&End If
//GetColor = GetPixelColor(428 + Ux, 15 + Uy)& &
& &&&Delay 1500
& && &MoveTo 570 + Ux,262 + Uy
& &&&//移动鼠标要装备栏边框上& &
& &&&IfColor&&428 + Ux, 15 + Uy , &DCDCDC& , 0 Then
& && && &&&While i1 & 8
& && && && &j1 = 0& && &
& && && & While j1 & 8
& && && && &x0 = 593 + Ux + 25 * j1
& && && && &y0 = 262 + Uy + 25 * i1
& && && & GetColor1 = GetPixelColor(591 + Ux + 25 * j1, 260 + Uy + 25 * i1)
& && && && && &&&Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && && && & If R = B And B = G Then
& && && && && && && &Else& && && && && && &
& && && && &&&MoveTo x0, y0
& && && && &&&Delay 300
& && && && && &&&Call FindPic(510 + Ux + 25 * j1, 281 + Uy + 25 * i1, 593 + Ux + 25 * j1, 400 + Uy + 25 * i1, &Attachment:\创造图0.bmp&, 1, czx, czy)
& && && && && &&&Delay 10&&
& && && && && &&&Call FindPic(510 + Ux, 20 + Uy, 750 + Ux, 400 + Uy, &Attachment:\大天使紫色.bmp&, 1, dtsx, dtsy)
& && && && && && &&&If czx & 0 and dtsx & 0 Then&&
& && && && && && && &&&LeftClick 1
& && && && && && && &&&Delay 350
& && && && && && && &&&MoveTo 500+Ux, 400+Uy
& && && && && && && &&&Delay 300
& && && && && && && &&&LeftClick 1
& && && && && && && &&&Delay 800
& && && && && && &&&End If
& && && && && && &End If&&
& && && && && && & Delay 20
& && && && && &&&Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\卖OK图.bmp&, 1, mljx, mljy)
& && && && && && &&&//判断OK
& && && && && && &&&If mljx & 0 and mljy & 0 Then
& && && && && && && &&&MoveTo 335 + Ux, 240 + Uy
& && && && && && && &&&Delay 300
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 300
& && && && && && && &End If& && && && && && && &
& && && && && && &&&j1 = j1 + 1
& && && && && && &&&MoveTo 555 + Ux, 262 + Uy + 25 * i1
& && && && && && &&&Delay 200
& && && &&&Wend
& && && & Delay 10
& && && & i1 = i1 + 1
& && && & Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\卖OK图.bmp&, 1, mljx, mljy)
& && && && && && &&&//判断OK
& && && && && && &&&If mljx & 0 and mljy & 0 Then
& && && && && && && &&&MoveTo 335 + Ux, 240 + Uy
& && && && && && && &&&Delay 300
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 300
& && && && && && && &End If
& && && && &Wend
& &&&End If&&
& &&&Delay 2000
& &&&GetColor = GetPixelColor(663 + Ux, 15 + Uy)
& && && & Delay 20
& && &While GetColor = &FFFFFF&& &
& && && & MoveTo 603 + Ux, 506 + Uy
& && && && &Delay 300
& && && && &LeftClick 1
& && && && &Delay 1000
& && && &GetColor = GetPixelColor(663 + Ux, 15 + Uy)& &
& && &Wend
& && &&&MoveTo 400 + Ux, 240 + Uy
& && && & Delay 1000
Rem hsymailajiend
Sub yatelandisi
& && &Delay 300
& && &i=0& &
& && &KeyPress &M&, 1
& && &Delay 300
& && &MoveTo 247 + Ux, 150 + Uy
& && &Delay 500
& && &MouseWheel -1
& && &Delay 350
& & Delay 30
& & Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\选地图.bmp&, 1, dtx, dty)
& && && && && && & If dtx & 0 and dty & 0 Then
& && && && && && && &&&MoveTo 400 + Ux, 240 + Uy
& && && && && && && &&&Delay 200
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 300
& && && && && && &&&End If
& && &Delay 20& && && && &&&
& & While i & 150& && && &
& && && && &&&GetColor1 = GetPixelColor(65 + Ux, 180 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && &&&//TracePrint R&&&&& & G &&&&& & B 把颜色分为10进制分量.
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get1 = 1
& && && && && &&&Else
& && && && && && &Get1 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&GetColor2 = GetPixelColor(113 + Ux, 180 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor2, R, G, B)
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get2 = 1
& && && && && &&&Else
& && && && && && &Get2 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&GetColor3 = GetPixelColor(159 + Ux, 183 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor3, R, G, B)
& && && && &&&If R & 145 and R & 223 and G & 145 and G & 223 and B & 145 and B & 223
& && && && && && &&&Get3 = 1
& && && && && &&&Else
& && && && && && &Get3 = -1
& && && && &&&End If
& && && && &&&Delay 5
& && && && &&&If Get1 & 0 and Get2 & 0 and Get3 & 0 Then
& && && && && && &MoveTo 159 + Ux, 183 + Uy + i
& && && && && && &Delay 100
& && && && && && &LeftClick 1
& && && && && && &Delay 2000
& && && && && && &i = 200
& && && && &&&End If
& && && && &&&i = i + 1
& & Delay 100
& & If i = 150 Then
& &&&KeyPress &M&, 1
& && &&&Delay 300
& &&&Call yatelandisi()
& & End If
& &Delay 1000
Sub jingjichang& &
& & Delay 1000
& & MoveTo 480 + Ux, 310 + Uy
& & Delay 200
LeftClick 1
& & Delay 600
&&jjcc = GetPixelColor(109 + Ux, 17 + Uy)
& & Delay 50
& & If jjcc=&FFFFFF& Then
& && && & Delay 50
& && && & jjcx = Plugin.RFNO.GetNumber(91 + Ux , 8 + Uy , &FFFFFF&, 2)
& && && & jjcx=Cint(jjcx)
& && && & Delay 50
& && && & jjcy = Plugin.RFNO.GetNumber(121 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & jjcy=Cint(jjcy)
& && &Else
& && &Call yatelandisi()
& && &Delay 200
& && &Call sbluanzou()
& && &Delay 50
& && &Goto jjcend
& &&&End If&&
& && & Delay 300
& &Call zouluo(jjcx,115,jjcx,jjcy)& &
& & Delay 300
& &&&For Fix((90-jjcx)/5)
& && && &MoveTo 687 + Ux, 400 + Uy
& && && && && & //走X方向 687 + Ux, 400 + Uy
& && & Delay 300
& && & LeftClick 1
& && && && & Delay 1800
& && &&&Next
& && &&&Delay 800
& &&&For Fix((115-GUAy)/5)
& && && &MoveTo 115+ Ux,405 + Uy
& && && && && & //走Y方向 115+ Ux,388 + Uy
& && & Delay 300
& && & LeftClick 1
& && && && & Delay 1800
& && &&&Next
& & Delay 500
Rem jjcend& &
Sub sbluanzou
& & Delay 300
MoveTo 405 + Ux, 245 + Uy& &
& & Delay 1500
& & GetColor = GetPixelColor(124 + Ux, 17 + Uy)
& & If GetColor = &FFFFFF&&&
& && & Delay 50
& && & haix = Plugin.RFNO.GetNumber(106+Ux, 8 + Uy, &FFFFFF&, 2)
& && & Delay 50
& && & haiy = Plugin.RFNO.GetNumber(136 + Ux, 8 + Uy, &FFFFFF&, 3)& && && &&&
& && &Else& && &
& && &Delay 200
& && &Call yatelandisi()
& && &Delay 200
& && &Call sbluanzou()
& && &Delay 200
& && &Goto sbluanzouend
& & End If
& &&&Delay 50
& & Call zoulu(12,11,haix,haiy)
GetColor = GetPixelColor(124 + Ux, 17 + Uy)
& & If GetColor = &FFFFFF&&&
& && & Delay 50
& && & haix = Plugin.RFNO.GetNumber(106+Ux, 8 + Uy, &FFFFFF&, 2)
& && & Delay 50
& && & haiy = Plugin.RFNO.GetNumber(136 + Ux, 8 + Uy, &FFFFFF&, 3)& && && &&&
& & End If
& & Delay 100
& & If haix - 12 &= 1 and haiy - 11 &= 1 Then
& && && &MoveTo 260 + Ux, 130 + Uy
& && & Delay 200
& && & LeftClick 1
& && && && & Delay 1000
& && & Else
& && &&&Delay 100
& && & MoveTo 330 + Ux, 210 + Uy
& && & Delay 300
& && & LeftClick 1
& && && && & Delay 1000
& && & Call sbluanzou()
& &&&End If
& && &Delay 1000
Rem sbluanzouend& && &
Sub taozhuangjp
Call FindPic(560 + Ux, 160 + Uy, 750 + Ux, 500 + Uy, &Attachment:\属性反射.bmp&, 1, fsx, fsy)
& && && &&&If fsx & 0 and fsy & 0 Then
& && && && && && && & jp = jp +1
& && && && && && && &End If& && && && && &
& & Delay 10
& & Call FindPic(560 + Ux, 160 + Uy, 750 + Ux, 500 + Uy, &Attachment:\属性防10.bmp&, 1, fshx, fshy)
& && && &&&If fshx & 0 and fshy & 0 Then
& && && && && && && & jp = jp +1
& && && && && && && &End If
& & Delay 10
& & Call FindPic(560 + Ux, 160 + Uy, 750 + Ux, 500 + Uy, &Attachment:\属性减伤.bmp&, 1, jsx, jsy)
& && && &&&If jsx & 0 and jsy & 0 Then
& && && && && && && & jp = jp +1
& && && && && && && &End If
& & Delay 10
& & Call FindPic(560 + Ux, 160 + Uy, 750 + Ux, 500 + Uy, &Attachment:\属性生命.bmp&, 1, smx, smy)
& && && &&&If smx & 0 and smy & 0 Then
& && && && && && && & jp = jp +1
& && && && && && && &End If
& & Delay 50
& & If jp &= 2 Then& && && &
& && &&&RightClick 1
& && &&&Delay 260& && && && &&&
& & End If
& & Delay 50& && && && && && && && && && && && && &
Sub xuanyongzhedalu
& && &i=0& &
& && &KeyPress &M&, 1
& && &Delay 300
& && &MoveTo 249 + Ux, 150 + Uy
& & Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\选地图.bmp&, 1, dtx, dty)
& && && && && && & If dtx & 0 and dty & 0 Then
& && && && && && && &&&MoveTo 400 + Ux, 240 + Uy
& && && && && && && &&&Delay 200
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 300
& && && && && && &&&End If
& && &Delay 20& && && && &&&
& & While i & 75& && && &
& && && && &&&GetColor1 = GetPixelColor(64 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor1, R, G, B)& &
& && && && &&&//TracePrint R&&&&& & G &&&&& & B 把颜色分为10进制分量.
& && && && &&&If R & 145 and R & 208 and G & 145 and G & 208 and B & 145 and B & 208
& && && && && && &&&Get1 = 1
& && && && && &&&Else
& && && && && && &Get1 = -1
& && && && &&&End If
& && && && &&&Delay 20
& && && && &&&GetColor2 = GetPixelColor(109 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor2, R, G, B)
& && && && &&&If R & 145 and R & 208 and G & 145 and G & 208 and B & 145 and B & 208
& && && && && && &&&Get2 = 1
& && && && && &&&Else
& && && && && && &Get2 = -1
& && && && &&&End If
& && && && &&&Delay 20
& && && && &&&GetColor3 = GetPixelColor(161 + Ux, 98 + Uy + i)
& && && && &&&Call Plugin.Color.ColorToRGB(GetColor3, R, G, B)
& && && && &&&If R & 145 and R & 208 and G & 145 and G & 208 and B & 145 and B & 208
& && && && && && &&&Get3 = 1
& && && && && &&&Else
& && && && && && &Get3 = -1
& && && && &&&End If
& && && && &&&If Get1 & 0 and Get2 & 0 and Get3 & 0 Then
& && && && && && &MoveTo 161 + Ux, 116 + Uy + i
& && && && && && &Delay 300
& && && && && && &LeftClick 1
& && && && && && &Delay 2000
& && && && && && &i = 100
& && && && &&&End If
& && && && &&&i = i + 1
& & Delay 50
& & If i = 75 Then
& &&&Call xuanyongzhedalu()
& & End If
& &Delay 1000
Sub yongzhedalu
& &&&i = 0 : j = 0
& &Delay 2000
& &yzc = GetPixelColor(118 + Ux, 17 + Uy)
& & Delay 50
& & If yzc=&FFFFFF& Then
& && && & Delay 50
& && && & yzx = Plugin.RFNO.GetNumber(94 + Ux , 8 + Uy , &FFFFFF&, 3)
& && && & yzx=Cint(yzx)
& && && & Delay 50
& && && & yzy = Plugin.RFNO.GetNumber(130 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & yzy=Cint(yzy)
& &&&// TracePrint yzx&& , &&yzy
& && & Else
& && & Delay 500
& && & Call xuanyongzhedalu()
& && &&&Delay 1000
& & End If
& & Delay 2000& &
& &&&call zoulu(131,130,yzx,yzy)
&&Delay 500
& &&&Delay 100
Call FindPic(290 + Ux, 150 + Uy, 500 + Ux, 260 + Uy, &Attachment:\大天使OK图.bmp&, 1, dxx, dxy)
& && && && && && & If dxx & 0 and dxy & 0 Then
& && && && && && && &&&MoveTo 400 + Ux, 240 + Uy
& && && && && && && &&&Delay 300
& && && && && && && && &LeftClick 1
& && && && && && && && &Delay 500
& && && && && && && && &MoveTo 400 + Ux, 150 + Uy
& && && && && && && && &Call yongzhedalu()
& && && && && && && && &Delay 200
& && && && && && && && &Goto yongzhedaluend
& && && && && && &&&End If& &&&
&&MoveTo 315 + Ux, 200 + Uy
&&Delay 100
& && & Call FindPic(100 + Ux, Uy, 600 + Ux, 200 + Uy, &Attachment:\火焰游侠NPC.bmp&, 1,dlx, dly)
& && &&&Delay 50
& &&&If dlx & 0 and dly & 0 Then
& && &&&While&&i & 8
& && && && && && &j = 0
& && && && &&&While j & 20
& && && && && && &MoveTo 150 + Ux + j * 30, 180 + Uy - i * 20& && && && && &&&
& && && && && &Delay 200
& && && && & Call FindPic(200 + Ux, Uy, 600 + Ux, 300 + Uy, &Attachment:\火焰游侠NPC.bmp&, 1,yzx, yzy)
& && && && && &Delay 20
& && && && && &If yzx & 0 and yzy & 0 Then& && && && && && && && && && && &&&
& && && && && && &Delay 100
& && && && && && &LeftClick 1
& && && && && && && &Delay 2000
& && && && && && &MoveTo 630 + Ux, 261 + Uy& && &
& && && && && && &Delay 1000
& && && && && && &LeftClick 1
& && && && && && && &Delay 1000& &
& && && && && && &i = 20 : j = 40
& && && && && &End If
& && && && && &Delay 10
& && && && && &j = j +1
& && && && &Wend
& && && &&&Delay 10
& && && &&&i = i + 1
& && &&&Wend
& && & Else&&
& && && &LeftClick 1
& && && && &Delay 1000
& && && &MoveTo 630 + Ux, 261 + Uy& && &
& && && &Delay 1000
& && && &LeftClick 1
& && && && &Delay 1000& && && && &
& & End If
& & If i = 8 Then
& && &Delay 500
& && &Call xuanyongzhedalu()
& && &Delay 500
& && && &Call yongzhedalu()& &
& &&&End If
& &&&Delay 2000
Rem& &yongzhedaluend
Sub huoyanzhanchang
Delay 1000
hyc = GetPixelColor(139 + Ux, 17 + Uy)
& & Delay 50
& & If hyc=&FFFFFF& Then
& && && & Delay 50
& && && & hyx = Plugin.RFNO.GetNumber(115 + Ux , 8 + Uy , &FFFFFF&, 3)
& && && & hyx=Cint(hyx)
& && && & Delay 50
& && && & hyy = Plugin.RFNO.GetNumber(151 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & hyy=Cint(hyy)
& && & Delay 100
& && &//TracePrint hyx&& , &&hyy
& & End If
& & Delay 500& &
&&Call zoulu(130, 133, hyx, hyy)
& & Delay 200
& &Delay 50
& && && & hyx = Plugin.RFNO.GetNumber(115 + Ux , 8 + Uy , &FFFFFF&, 3)
& && && & hyx=Cint(hyx)
& && && & Delay 50
& && && & hyy = Plugin.RFNO.GetNumber(151 + Ux , 8 + Uy , &FFFFFF&, 3)& &&&
& && && & hyy=Cint(hyy)
& && & Delay 100
& & If hyx - 130 && 0 and hyy - 133 && 0 Then
& &&&Call huoyanzhanchang()
& &&&Delay 200
& &&&Goto huoyanend
& & End If
& & MoveTo 729 + Ux, 182 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 729 + Ux, 182 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 729 + Ux, 182 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 357 + Ux, 50 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 774 + Ux, 202 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 445 + Ux, 33 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& & MoveTo 616 + Ux, 180 + Uy
& & Delay 800
& & LeftClick 1
& & Delay 2500
& && &&&MoveTo 730 + Ux, 190 + Uy
& && &&&Delay 800
& && &&&LeftClick 1
& && &&&Delay 2500
& & Delay 300
& & MoveTo 405 + Ux, 245 + Uy
Rem huoyanend
& & If DateDiff(&s&,MMa,MMb)&30
& &//1加攻,2加防,状态1分钟
& && &&&Delay 100& && &
& && &&&MoveTo 710 + Ux, 30 + Uy
& && &&&Delay 700
& && &&&KeyPress &3&, 1
& && &&&Delay 300
& && &&&RightDown 1
& && &&&Delay 50
& && &&&RightUp 1
& && &&&Delay 300
& && &&&KeyPress &2&, 1
& && &&&Delay 300
& && &&&RightDown 1
& && &&&Delay 50
& && &&&RightUp 1
& && &&&Delay 2000
& && &&&MoveTo 710 + Ux, 60 + Uy
& && &&&Delay 300& && && && &
& && &&&RightDown 1
& && &&&Delay 100
& && &&&RightUp 1
& && &&&Delay 1500
& && &&&KeyPress &1&, 1
& && &&&Delay 800
& && &&&RightDown 1
& && &&&Delay 100
& && &&&RightUp 1
& && &&&Delay 2000
& && &&&MMa=now
& &&&End If
Sub zhaohuan
& & If DateDiff(&s&,ZHa,ZHb)&120
& && &&&Delay 200
& && &&&KeyPress &2&, 1
& && &&&Delay 2000
& && &&&KeyPress &1&, 2
& && &&&Delay 500
& && &&&ZHa=now
& &&&End If