前几天忍不住被杀的火冒的冲动，在百度网上搜索了下烈焰外挂的信息。冒出来一大堆。随便选了个叫焰火网络的联系。冒似说的还不错。什么挖矿，挂机，赚钱的方法多种多样，还说卖的是源码。自己可以编译。老子当时就被迷昏了。。。
问下好多钱。经商量买了3个源码。150RMB。。、、我日***发过来全是txt文档。。里面的东西老子一个都看不懂，打开啥用都摸得。。。纯属骗人。。。操。。。。大家千万不要相信外挂。。这游戏也没必要。。哎。。。就当这150RMB被贼偷了。。。为了给大家惊醒。。。我把买的东西发出来。。大家看看就知道是骗人的。。。记住那个叫焰火网络的垃圾，不要相信，他QQ：61283736
KeyPress 73,1
Delay 1000
VBSCall FindPic(0,0,1023,767,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 100
LeftClick 1
Delay 1000
EndIf
KeyPress 80,1
Delay 1000
VBSCall FindPic(0,0,700,400,"找铁匠.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+95 y+80
Delay 1000
RightClick 1
Delay 1000
KeyPress 80,1
Delay 5000
Goto 仓转挂
EndIf
Rem 挂机
Delay 500
KeyPress 73,1
Delay 500
KeyPress 80,1
Delay 1000
VBSCall FindPic(0,0,700,400,"找铁匠.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+95 y+80
Delay 500
RightClick 1
Delay 500
KeyPress 80,1
EndIf
还有更多。。。。
[hide]
Delay 30000
Rem 仓转挂
VBSCall FindPic(0,0,800,600,"修理.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+185 y-70
Delay 1000
LeftClick 1
Delay 500
EndIf
Delay 1000
VBSCall FindPic(0,0,1000,400,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-80 y+85
Delay 1000
LeftClick 1
Delay 500
EndIf
Delay 1000
VBSCall FindPic(0,0,1000,400,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-160 y+98
Delay 1000
LeftClick 1
Delay 2000
LeftClick 1
Delay 1000
KeyPress 73,1
Delay 1000
EndIf
KeyPress 80,1
Delay 1000
VBSCall FindPic(0,0,1000,400,"找铁匠.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+135 y+53
Delay 1000
RightClick 1
Delay 1000
KeyPress 80,1
EndIf
Delay 15000
VBSCall FindPic(0,0,1000,400,"药店.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-202 y+130
Delay 1000
LeftClick 1
Delay 500
EndIf
Delay 1000
VBSCall FindPic(0,0,800,600,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-140 y+90
Delay 1000
LeftClick 1
Delay 500
EndIf
Delay 1000
VBSCall FindPic(0,0,1000,400,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-100 y+215
Delay 1000
UserVar h=5 设置买红药包数量(个)
LeftDoubleClick h*3
Delay 1000
EndIf
Delay 1000
VBSCall FindPic(0,0,800,600,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x y+210
Delay 1000
LeftDoubleClick 0
Delay 1000
EndIf
Delay 1000
VBSCall FindPic(0,0,1000,400,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x-100 y+215
Delay 200
LeftClick 1
Delay 1500
UserVar l=12 设置买蓝药包数量(个)
LeftDoubleClick l*3
Delay 1000
EndIf
Delay 1000
VBSCall FindPic(0,0,800,600,"修药.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 1000
LeftClick 1
Delay 500
KeyPress 73,1
EndIf
Rem 坐标
For 2
Delay 1000
KeyPress 80,1
Delay 1000
VBSCall FindPic(0,0,800,600,"找铁匠.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+234 y-80
Delay 500
LeftClick 2
Delay 500
EndIf [/hide]
