你的位置：
热血传奇的一个找怪打怪脚本 出难题啦大神们进来帮帮
21:10:08 |
来源: 按键精灵资源站
在执行完打怪脚本后 鼠标一个劲的 左键点击 以下是源码 大家帮帮解决下 是哪个判定出错了 还是逻辑不对了 Set dm = createobject(&dm.dmsoft&)
dm.Setpath &f:\tmp&
dm.setdict 0, &song9.txt&
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, &normal&, &normal&, &normal&, 0)
&&Rem 找怪
dm_ret = dm.FindColor(4,18,787,378,&ff&,1.0,4,intX,intY)
& && && && &If intX & 0 And intY&0Then
&&dm.MoveTo intX+25 , intY+50
& & dm.RightDown
& & Call 打怪()
& & Call 跑动()
& && &&&End If
Sub 捡东西()
dm_ret = dm.FindStrFast(0,0,,&毁灭|精品|天下|圣战|法神|天尊|&,&ff|000ffff-cbf7-,x1,y1)
If x1 &= 0&&Then
& & dm.MoveTo&&x+25,y+8
& && &dm.LeftClick
& && &Delay 500
& && &Else
& && &Goto 找怪
& & End Sub
Sub 回收()
Delay 1000
dm.KeyPress 13
Delay 1000
dm.KeyDown 17
dm.KeyPress 86
dm.KeyUp 17
Delay 1000
dm.KeyPress 13
Delay 1000
dm_ret =dm.FindStr(0, 0, 402, 182, &2&, &ffff00-.0, x, y)
If x & 0 Then
& & & & dm.MoveTo x + 10, y + 5
& & & & Delay 200
& & & & dm.LeftClick
& & & & Delay 500
& & & & dm.MoveTo 88, 122
& & & & Delay 1000
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 180, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm_ret =dm.FindStr(0, 0, 402, 182, &3&, &ffff00-.0, x, y)
& & & & If x & 0 Then
& & & & dm.MoveTo x + 10, y + 5
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 88, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 500
& & & & dm.MoveTo 180, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm_ret =dm.FindStr(0, 0, 402, 182, &4&, &ffff00-.0, x, y)
& & & & If x & 0 Then
& & & & dm.MoveTo x + 10, y + 5
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 88, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 180, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm_ret =dm.FindStr(0, 0, 402, 182, &5&, &ffff00-.0, x, y)
& & & & If x & 0 Then
& & & & dm.MoveTo x + 10, y + 5
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 88, 122
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & & & dm.MoveTo 407, 13
& & & & Delay 500
& & & & dm.LeftClick
& & & & Delay 1000
& & Sub 打怪()
&&dm_ret = dm.FindColor(325, 102, 435, 189, &ff&, 1.0, 4, qX, qY)
& && &&&If qX & 0 And qY&0Then
& && & dm. RightUp
& && &&&Rem 打
& && && & dm.MoveTo qX + 20, qY+ 50
& && &&&Delay 1000
& && &&&dm.LeftClick
& && &&&Goto 打
& && &&&Else
& && &&&Call 捡东西()
& && && && && & End If
& && &&&End Sub
& && &&&Sub 跑动()
n = Int(rnd * 7)
If n = 0 Then
dm.MoveTo 383,18
& && && && && & Delay 2000
& && && && && && && && &
& && &&&dm.RightDown
& && &&&Delay 2000
& && && && && &
& && &&&Goto 找怪
If n = 1Then
dm.MoveTo 608,65
& && &&&Delay 2000
& && && && && && && && &
& && && && && & dm.RightDown
& && &&&Delay 1000
& && &&&Goto 找怪
If n = 2 Then
dm.MoveTo 718,193
& && & Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
If n = 3 Then
& && & dm. MoveTo 636,334
& && &&&Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
If n = 4 Then
& && &&&dm.MoveTo 391,348
& && &&&Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
If n = 5 Then
& && & dm. MoveTo 223,298
& && &&&Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
If n = 6 Then
& && &&&dm.MoveTo 143,190
& && &&&Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
If n = 7 Then
& && &&&dm.MoveTo 213,58
& && &&&Delay 2000
& && && && && & dm.RightDown
& && &&&Delay 2000
& && &&&Goto 找怪
& & Delay 10000
dm_ret = dm.UnBindWindow()
大神 帮我看看 这段脚本 测试开始还能使 当找到怪 打怪完后 就鼠标一直 左键点击 不停 不知道为什么找了半天原因了Either scripts and active content are not permitted to
run or Adobe Flash Player version 10.2.0 or greater is not
installed.
09:17 获得了 ?????????
16:24 获得了 ?????????
15:13 获得了 ?????????
01:02 获得了 ?????????
00:49 获得了 ?????????
11:24 获得了 ?????????
biubiubiu----------
11:14 获得了 ?????????
00:18 获得了 ?????????
00:07 获得了 ?????????
23:53 获得了 ?????????
11:23 获得了 ?????????
????5-08-12 00:33 获得了 ?????????
00:29 获得了 ?????????
10:32 获得了 ?????????
09:52 获得了 ?????????
01:07 获得了 ?????????
01:02 获得了 ?????????
01:42 获得了 ?????????
00:41 获得了 ?????????
18:17 获得了 ?????????
??-08 13:08 获得了 ?????????
00:30 获得了 ?????????
??Oriental
00:23 获得了 ?????????
00:12 获得了 ?????????
00:02 获得了 ?????????
21:09 获得了 ?????????
wxy-08-05 20:35 获得了 ?????????
???-08-03 14:53 获得了 ?????????
大脸猫灰太狼
18:35 获得了 煞魔鼠标
20:43 获得了 X8密保
Copyright & 1996 - 2012 SINA Corporation, All Rights Reserved
北京市通信公司提供网络带宽