• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[分享脚本] 幻想神域自动钓鱼,料理 [复制链接]

1#
先是钓鱼脚本

窗口1366×768
启动之前鼠标移动到绿色钓鱼位置
启动后会调整窗口位置,鼠标放的不对就重新启动一下
浮标识别蓝橙色,向左偏移减变量Var1,一般设置不小于20不大于40
屏幕右上角位置,背包窗口别挡
蚯蚓替换准备位置shift+7,shift+6,shift+4
要分解的鱼放在shift+5
蚯蚓要成组

////////////////下面是源码直接复制
UserVar Var1=0 "识别距离减"
Var2=990
UserVar Var3=DropList{"除了小鱼":"1"|"只钓橙鱼":"2"}=1 "排除"
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 500
SaveMousePos
Rem kaishi
Delay 210
KeyDown 16, 1
KeyPress 53, 1
KeyUp 16, 1
Delay 210
If Var2 = 0 Then
Delay 210
KeyDown 16, 1
KeyPress 55, 1
KeyUp 16, 1
Delay 500
KeyDown 16, 1
KeyPress 54, 1
KeyUp 16, 1
Delay 500
KeyDown 16, 1
KeyPress 52, 1
KeyUp 16, 1
Delay 210
Var2 = 1000
Delay 210
End If
LeftDoubleClick 1
Delay 210
MoveTo 459, 570
Delay 210
LeftClick 1
Delay 210
Rem lagan
Delay 210
Var2 = Var2 - 1
Do
Delay 210
IfColor 459, 570, "FFFFFF", 0 Then
Delay 210
Exit Do
End If
Loop
If Var3 = 1 Then
Call all()
Else
Call only()
End If
Delay 210
LeftClick 1
Delay 210
Do
FindColorEx 555,595,850,610,"879087",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
eX = intX - Var1
Delay 200
Exit Do
End If
Delay 200
Loop
Do
Delay 100

FindColorEx 545,600,835,608,"000048",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
Else
Delay 200
Exit Do
End If
Delay 100
If intX > eX Then
LeftDown 1
Else
LeftUp 1
End If
Loop
Delay 210
Do
IfColor 1290, 67, "FEFEFE", 0 Then
Delay 1000
LeftClick 1
Delay 210
Exit Do
End If
Delay 210
Loop
Delay 210
If Var2 = 0 Then
MoveTo 555, 475
Delay 210
LeftClick 1
Delay 210
RestoreMousePos
Delay 210
Goto kaishi
End If
Goto lagan

/////////////////////////

Sub all()
Delay 210
IfColor 732, 206, "0000FF", 0 Then
Delay 210
MoveTo 555, 475
Delay 210
LeftClick 1
Delay 210
RestoreMousePos
Delay 210
Goto kaishi
End If
End Sub

Sub only()
Delay 210
IfColor 700,197, "0000FF", 1 Then
Delay 210
MoveTo 555, 475
Delay 210
LeftClick 1
Delay 210
RestoreMousePos
Delay 210
Goto kaishi
End If
End Sub
////////////////////////脚本结束




做料理的脚本

要求和上面一样
启动前,点开食材,鼠标放在“进阶料理”位置
需要装备三级料理刀
食材放在shift+8

////////////////下面复制
UserVar Var1=DropList{"蛋挞":"1"|"天堂、拿铁":"2"|"牛肉面":"3"|"0":"0"}=0 "选择料理"
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 500
SaveMousePos
Rem kaishi
Delay 300
LeftClick 1
Delay 6000
If Var1 = 1 Then
Call buD()
ElseIf Var1 = 2 Then
Call tianT()
ElseIf Var1 = 3 Then
Call mianT()
ElseIf Var1 = 4 Then
Call naT()
End If
Delay 2000
KeyDown 16, 1
KeyPress 56, 1
KeyUp 16, 1
Delay 300
RestoreMousePos
Delay 300
Goto kaishi

-------------------------------摇滚流行群有

Sub buD()
For 70
Delay 400
FindColorEx 470,725,1050,510,"6A6FDF",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Next
End Sub

Sub liuX()
For 55
Delay 500
FindColorEx 470,725,1050,510,"87D9E6",0,0.7,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Next
End Sub

Sub mianT()
For 30
Delay 300
FindColorEx 470,725,1050,510,"1E7B35",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 300
FindColorEx 470,725,1050,510,"5DB243",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 300
FindColorEx 470,725,1050,510,"5DB243",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Next
End Sub

Sub tianT()
For 45
Delay 200
FindColorEx 470,725,1050,510,"8A7CE4",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 200
FindColorEx 470,725,1050,510,"807ED5",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 200
FindColorEx 470,725,1050,510,"77B777",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Next
End Sub

---------------------调试备用

Sub 拿铁备用()
For 31
Delay 300
FindColorEx 470,725,1050,510,"9A93D1",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 300
FindColorEx 470,725,1050,510,"9A93D1",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Delay 300
FindColorEx 470,725,1050,510,"69A82C",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX- 12, intY
LeftClick 1
End If
Next
End Sub
/////////////////////////////////脚本结束

最后编辑yurxx1 最后编辑于 2017-05-18 17:54:33
2#

冒个泡

有木有需要帮助写脚本的?
电脑周边:shop2848576.koudaitong.com

微信公众号:xiaodiannaozhoubian
公司主页:http://www.fuqiuyangfk.icoc.in/


I'm QQ :931589898
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆——南宫泷
3#

难得在按键论坛上看到幻想神域的帖子,不容易啊

4#

浮标识别怎么做啊,萌新表示不懂

发新话题 回复该主题