新撰组脚本源码，懂按键的可以来看看
1L祭天

包括自动打怪，自动监狱，自动副本，自动航海，自动采集，自动鹰眼
by：萝球
==================================
自动打怪
==================================
UserVar banben=DropList{"新版本":"老版本"Z"|":"NOZ"}=0 "选择版本" //面板选择配合Ocx模式选择，可忽略。
UserVar jiange=500 "人物跑动间隔" //跑动间隔毫秒计算
Hwnd = Plugin.Window.MousePoint() //获取窗口句柄
MessageBox "获取鼠标指向窗口成功" //提示获取是否成功
While 1 //循环语句，无限循环
Delay 200
If banben="Z" Then //判断语句，如果选择新版本将执行以下代码
Call Plugin.Bkgnd.KeyDown(Hwnd,38) //模拟后台按键38为按键码
Delay jiange //间隔自行设置
Call Plugin.Bkgnd.KeyUp(Hwnd,38)
Call Plugin.Bkgnd.KeyDown(Hwnd,40)
Delay jiange
Call Plugin.Bkgnd.KeyUp(Hwnd,40)
Delay 400
Call Plugin.Bkgnd.LeftClick(Hwnd,438,245)
Delay 400
Call Plugin.Bkgnd.LeftClick(Hwnd,397,295)
ElseIf banben = "NOZ" Then
Call Plugin.Bkgnd.KeyDown(Hwnd,38)
Delay jiange
Call Plugin.Bkgnd.KeyUp(Hwnd,38)
Call Plugin.Bkgnd.KeyDown(Hwnd,40)
Delay jiange
Call Plugin.Bkgnd.KeyUp(Hwnd,40)
Delay 400
Call Plugin.Bkgnd.KeyPress(Hwnd,90)
Delay 400
End If
Wend ==================================
自动监狱
==================================
SetSimMode 2 //设置模拟为超级模拟
Hwnd = Plugin.Window.MousePoint()
MessageBox "获取鼠标指向窗口成功"
While 1
Call Plugin.Bkgnd.LeftClick(Hwnd,438,245) //模拟后台鼠标指向坐标，坐标为 Hwnd获取的窗口内坐标，而不是屏幕坐标。
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,328,266)
Wend ==================================
自动副本
==================================
UserVar jiange=200 "跑动间隔"
Hwnd = Plugin.Window.MousePoint()
MessageBox "获取鼠标指向窗口成功"
While 1
FindPic 0,0,1024,768,"Attachment:\战斗模式.bmp",0.9,intX,intY //屏幕找图，首先需要截图然后把图放在附件里。
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 50
LeftClick 1
Delay 200
FindPic 0,0,1024,768,"Attachment:\打酱油模式.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 50
LeftClick 1
Delay 200
End If //以上代码为当屏幕出现战斗模式的时候自动切换为打酱油模式。
End If
Call Plugin.Bkgnd.KeyDown(Hwnd,39)
Delay jiange
Call Plugin.Bkgnd.Keyup(Hwnd,39)
Delay jiange
Call Plugin.Bkgnd.KeyDown(Hwnd,90)
Delay 200
Call Plugin.Bkgnd.Keyup(Hwnd,90)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,415,180)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,320,255) Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,610,99)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,397,295)
EndWhile ==========================================


自动航海
==========================================
Hwnd = Plugin.Window.MousePoint()
MessageBox "获取鼠标指向窗口成功"
While 1 //以下代码全部为后台窗口内坐标抓取来实现秋赛尔到企鹅村的循环航海，并且带自动修理。
Call Plugin.Bkgnd.LeftClick(Hwnd,430,362)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,826,64)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,416,348)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,399,340)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,826,64)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,420,331)
Delay 1000
Call Plugin.Bkgnd.MoveTo(Hwnd,803,323)
Call Plugin.Bkgnd.LeftDown(Hwnd, 803, 323)
Delay 200
Call Plugin.Bkgnd.LeftUp(Hwnd,803,323)
Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd,806,354)
Call Plugin.Bkgnd.LeftDown(Hwnd, 806, 354)
Delay 200
Call Plugin.Bkgnd.LeftUp(Hwnd,806,354)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, 401, 345)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,825,525)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,230,316)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,823,67)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,416,348)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,399,340)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,823,67)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,420,331)
Delay 1000
Call Plugin.Bkgnd.MoveTo(Hwnd,118,90)
Call Plugin.Bkgnd.LeftDown(Hwnd, 118, 90)
Delay 200
Call Plugin.Bkgnd.LeftUp(Hwnd,118,90)
Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd,123,123)
Call Plugin.Bkgnd.LeftDown(Hwnd, 123, 123)
Delay 200
Call Plugin.Bkgnd.LeftUp(Hwnd,123,123)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,401,345)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd,825,525)
Delay 1000
EndWhile =============================
自动采集，我懒的解释了..主要是弄的比较乱...
=============================
UserVar bx=100 "右边判断坐标X"
UserVar by=100 "右边判断坐标Y"
UserVar xx=100 "右边人物距离判断X"
UserVar yy=100 "右边人物距离判断Y"
UserVar zx=100 "左边判断坐标X"
UserVar zy=100 "左边判断坐标Y"
UserVar zxx=100 "左边人物距离判断X"
UserVar zyy=100 "左边人物距离判断Y"
UserVar jiange=200 "跑动间隔（毫秒）"
Hwnd = Plugin.Window.MousePoint()
MessageBox "获取鼠标指向窗口成功"
Rem 右边跑
While 1 IfColor bx,by ,"2CCAFE",1 Then
IfColor xx,yy ,"6BF462",2 Then
Goto 左边跑
Else
End If
Else
End If
Call Plugin.BKGND.KeyDown(Hwnd, 39)
Delay jiange
Call Plugin.BKGND.KeyUp(Hwnd,39)
Delay jiange
Call Plugin.Bkgnd.MoveTo(Hwnd,443,327)
FindPic 0,0,1024,768,"Attachment:\采集.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.BKGND.LeftClick(Hwnd, intX, intY)


End If
Delay 200
FindPic 0,0,1024,768,"Attachment:\颠倒卡点一.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 左边跑
End If
FindPic 0,0,1024,768,"Attachment:\娜苏卡点.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 左边跑
End If
FindPic 0,0,1024,768,"Attachment:\牌子.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.BKGND.LeftClick(Hwnd, 611, 100)
End If
FindPic 0,0,1024,768,"Attachment:\采集中.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 采集
End If
FindPic 0,0,1024,768,"Attachment:\出城.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 出城右
End If
Wend
Rem 采集
While 1
FindPic 0,0,1024,768,"Attachment:\全部拾取.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.BKGND.LeftClick(Hwnd, 400, 337)
Delay 100 Goto 右边跑
End If
Wend
Rem 左边跑
While 1
FindPic 0,0,1024,768,"Attachment:\出城.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 出城左
End If
IfColor zx,zy ,"2CCAFE",1 Then
IfColor zxx,zyy ,"6BF462",0 Then
Goto 右边跑
Else
End If
Else
End If FindPic 0,0,1024,768,"Attachment:\娜苏卡点二.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 右边跑
End If
Call Plugin.BKGND.KeyDown(Hwnd, 37)
Delay jiange
Call Plugin.BKGND.KeyUp(Hwnd,37)
Delay jiange
Call Plugin.BKGND.LeftClick(Hwnd, 443, 327)
Delay 200
FindPic 0,0,1024,768,"Attachment:\牌子.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.BKGND.LeftClick(Hwnd, 611, 100)
End If
FindPic 0,0,1024,768,"Attachment:\采集中.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 采集左
End If
Wend
Rem 采集左
While 1
FindPic 0,0,1024,768,"Attachment:\全部拾取.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.BKGND.LeftClick(Hwnd, 400, 337)
Delay 100 Goto 左边跑
End If
Wend
Rem 出城左
While 1
Call Plugin.Bkgnd.LeftClick(Hwnd, 844, 521)
Delay 500
Call Plugin.Bkgnd.LeftClick(Hwnd, 836, 476)
Delay 100
FindPic 0,0,1024,768,"Attachment:\颠倒卡点二.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Goto 右边跑
End If
Goto 左边跑
Wend
Rem 出城右
While 1
Call Plugin.Bkgnd.LeftClick(Hwnd, 844, 521)
Delay 500
Call Plugin.Bkgnd.LeftClick(Hwnd, 842, 449)
Delay 100
Goto 右边跑
Wend
========================
自动鹰眼
========================
Hwnd = Plugin.Window.MousePoint()
MessageBox ("自动鹰眼启动")
While 1
IfColor 157,67,"E2A526",1 Then //主要判断蓝条到什么位置自动补充药水
Call Plugin.Bkgnd.LeftClick(Hwnd,722,521)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd,49)
Delay 200
Call Plugin.Bkgnd.LeftClick(Hwnd,62,287)
Else
Call Plugin.Bkgnd.LeftClick(Hwnd,438,245)
Delay 200
End If
Wend


一点不实用

完全看不懂

这个，大家别相信他，一大堆乱七八糟的**，这人就是来骗大家回复的！

**！！

卧Z槽Z