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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

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

快捷导航

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

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

不灭OL打牛脚本 [复制链接]

1#
a1=0
b1=0
a2=1000
b2=620
x0=510
y0 = 360
怪物名称="新手牛"
Call 大漠注册
hand = 窗口绑定(hwnd)
Delay 2000
dm.KeyDown 18
Delay 20
dm.KeyPress 77
Delay 100
dm.KeyUp 18
// 打开大地图
Delay 1000
dm_ret = dm.FindColor(228,152,676,485,"0000FF-000000",1.0,0,GJX,GJY)
If GJX >= 0 and GJX >= 0 Then
TracePrint"有挂机原点"
Else
MessageBox "无法记录人物挂机点"
EndScript
End If
sh=10
t = now
Delay 200
dm.KeyDown 18
Delay 20
dm.KeyPress 77
Delay 100
dm.KeyUp 18
Delay 200
TracePrint "开始刷怪了"
If x0-a1>=a2-x0 Then
n=a1
Else
n=x0-(a2-x0)
End If
Rem 开始搜怪
v=20
i=3
x=x0:y=y0-v
While x>=n
k1=0:k2=v
For 2
For i
x=x+k1:y=y+k2
If x>=a1 and x<=a2 and y>=b1 and y<=b2 Then
dm.MoveTo x,y
Delay 10
dm_ret = dm.FindStr(x - 50, y - 50, x + 50, y + 50, 怪物名称, "ffffff-000000", 0.9, intX, intY)
If intX >= 0 and intY >= 0 Then
// TracePrint "找到坐标" & intX & "," & intY
intX = intX + len(怪物名称) * 6
intY = intY +20
TracePrint "找到怪物坐标" & intX & "," & intY
dm.MoveTo intX, intY
Delay 100
dm.KeyDown 160
Delay 20
dm.LeftDoubleClick
Delay 20
dm.KeyUp 160
Delay 200
If Abs(510 - intX)<= 60 and abs(360 - intY) <=60 Then
dm.MoveTo intX , intY
Delay 20
dm.KeyDown 160
Delay 20
dm.LeftDoubleClick
Delay 20
dm.KeyUp 160
Delay 1000
elseIf Abs(510 - intX) > 60 or abs(360 - intY) >60 Then
dm.MoveTo intX, intY
Delay 20
// Call 开启步伐
dist2time = Int(Sqr((510 - intX) ^ 2 + (360 - intY) ^ 2) * 10)
dist2time = int(dist2time)
TracePrint dist2time
Delay 20
dm.RightDown
If dist2time < 500 Then
dist2time = 1000
End If
Delay Int(dist2time)+2000
dm.RightUp
Delay 1000
End If
End If
Delay 20
End IF
Next
k1=v:k2=0
Next
i = i + 1 : v = v * (- 1 )
ht=DateDiff("s",t,now)
If ht >= sh * 60 Then
call 回挂机点
t=now
End If
Wend
Delay 20
Goto 开始搜怪

2#

不可以用啊

发新话题 回复该主题