更换固定挖矿点,自己改,本人长期使用,没有问题,,支持的顶。。。。。。这个70级,神头林的
几点,
1.点选隐藏其它玩家
2.矿点必须是没被树,草挡住的
3.如果组队的话,丢掉垃圾的点需要重新设置下
4.聊天窗口拖到角落不要影响地图
5.最近加的防御,可能只在某些地图能用,当被攻击,自动返回第一个矿点,只到血满,再挖矿
6.F4是摩托车,走的快点
7.拒绝请求是防止别人组队,使得脚本出错
如果朋友有更好的想法,请给我留言!!!!!!!!!!!!!!
VBS dim dong,xi,bao1,bao2,bao3,bao4
VBS dim color(2)
VBS color(0)="水晶.bmp"
VBS color(1)="绿宝石.bmp"
VBS color(2)="蓝宝石.bmp"
Delay 200
KeyPress 192,1
Delay 200
Rem 循环
Gosub 丢垃圾
Delay 200
MoveTo 343,510
Gosub 走路
MoveTo 358,481
Gosub 走路
MoveTo 362,455
Gosub 呗?br /> MoveTo 390,445
Gosub 走路
MoveTo 413,447
Gosub 走路
MoveTo 437,454
Gosub 走路
MoveTo 467,454
Gosub 走路
Delay 200
Goto 循环
Sub 走路
Delay 200
LeftClick 1
Delay 200
KeyPress 192,1
Delay 200
KeyPress 115,1
Delay 200
Rem 行走中
VBSCall xi=GetPixelColor(885,221)
VBSCall dong=GetPixelColor(885,142)
Delay 600
VBSCall xi1=GetPixelColor(885,221)
VBSCall dong1=GetPixelColor(885,142)
If xi1=xi and dong1=dong
Delay 200
KeyPress 115,1
Delay 500
Gosub 挖矿
Goto 无矿
EndIf
Goto 行走中
Rem 无矿
Delay 200
KeyPress 192,1
Delay 200
Return 走路
Sub 挖矿
Rem 继续挖矿
Gosub 防御
Delay 200
Gosub 拒绝请求
Delay 200
VBSCall FindPic(361,303,639,448,"矿.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x,y+15
Delay 200
LeftClick 1
Delay 200
MoveR 0,200
Delay 5000
MoveR 200,0
Delay 200
Gosub 补活力
Delay 10000
Goto 继续挖矿
EndIf
Delay 300
Return 挖矿
Sub 补活力
IfColor 220,128,99ccdd,1
Delay 500
KeyPress 119,1
Delay 200
Goto 继续挖矿
Else
EndIf
Return 补活力
Sub 拒绝请求
VBSCall FindPic(504,360,579,388,"拒绝.bmp",0.9,x,y)
If x>=0 and y>=0
 |
点这里复制本页地址发送给您QQ/MSN上的好友 |
|