200分，跪求热血江湖打手定位脚本
本脚本搜集老帖整理而成，给需要的朋友！不含攻击脚本！纯粹补红蓝和定位！
// F5红 F6蓝
//本程序红蓝，坐标都为读内存
//============================自定义变量=============================
VBS dim mX1,mY1,mX2,mY2,mX3,mY3,mX4,mY4,n,m,KK,l,Cosa,Sina,pX,pY,lX,lY,dX,dY,fw
VBS Dim base,zb_x,zb_y,MapX,MapY
VBS Dim red, blue, redmax, bluemax, redbj, bluebj ,hp ,mp, var3
UserVar fw=30 离开原坐标回位的距离范围，数字越大，回位距离越远
UserVar hp=60 当HP＜多少％时，使用红药
UserVar mp=30 当MP＜多少％时，使用蓝药
UserVar var3=250 吃药时间间隔，数字越小，吃药能越快
UserVar ding=1 1 为定点打怪, 0 为不定点
//=============================内存地址=======================
VBS xhong=&h044021EC
//当前血的内存地址
VBS xlhong=&h044021E0
//血总量内存地址
VBS xlan=&h044021F0
//当前内功内存地址
VBS xllan=&h044021E4
//内功总量的内存地址
VBS ncjz=&H012e3718
//坐标基址
//=============================主程序========================
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
Rem 挂机开始
VBS n=0
VBS m=0
Gosub 补红蓝
If ding=1
Gosub 判断坐标
EndIf
Goto 挂机开始
//============================子程序===========================
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If sqr((mX1-mX2)^2+(mY1-mY2)^2)>fw
SayString "跑远了哦！"
Delay 100
KeyPress 13 1
Delay 50
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBSCall Call ReadMemory(ncjz,2,base)
VBSCall Call ReadMemory(base+&H254,2,zb_x)
If (zb_x > 32768 and zb_x < 65536)
VBS MapX= -(65536 - zb_x)
Else
VBS MapX=zb_x
EndIf
VBSCall Call ReadMemory(base+&H258,2,zb_y)
If (zb_y > 32768) And (zb_y < 65536)
VBS MapY= (65536 - zb_y)
Else
VBS MapY=-zb_y
EndIf
Return 读取坐标
Sub 自动行走
VBS FangX=0
VBS YDR=160
VBS KK=160
Gosub 补红蓝
Delay 20
MoveTo 512 0
RightDown 3
Delay 200
MoveTo 512 100
Delay 20
MoveTo 512 200
Delay 20
MoveTo 512 300
Delay 20
MoveTo 512 400
Delay 20
MoveTo 512 500
Delay 20
MoveTo 512 600
Delay 20
MoveTo 512 740
Delay 20
RightUp 1
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 测试角度
If FangX=0
VBS mX3=MapX
VBS mY3=MapY
MoveTo 512+160 393+160
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 400
Gosub 补红蓝
Delay 300
Gosub 补红蓝
Gosub 读取坐标
VBS mX4=MapX
VBS mY4=MapY
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
EndIf
VBS dX=mX4-mX3
VBS dY=mY4-mY3
VBS Cosa=160*(dX-dY)/((dX)^2+(dY)^2)
VBS Sina=160*(-dX-dY)/((dX)^2+(dY)^2)
VBS pX=MuBiaoX-mX4
VBS pY=MuBiaoY-mY4
VBS lX=int(pX*Cosa-pY*Sina)
VBS lY=int(-pX*Sina-pY*Cosa)
VBS js=1
If sqr((lX^2+lY^2))>350
Rem 计数
VBS js=js*2
lX=int(lX/2)
lY=int(lY/2)
If sqr((lX^2+lY^2))>350
Goto 计数
Else
EndIf
EndIf
If js>4
VBS js=4
EndIf
For js
MoveTo 512+lX 393+lY
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 700
Gosub 补红蓝
EndFor
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
Else
Goto 测试角度
EndIf
EndIf
Else
Delay 20
MoveTo 512 400
RightDown 3
Delay 100
MoveTo 512 390
RightDown 2
Delay 100
MoveTo 512 380
RightDown 2
Delay 100
MoveTo 512 370
RightDown 2
Delay 100
MoveTo 512 360
RightDown 2
Delay 100
MoveTo 512 350
RightDown 2
Delay 100
MoveTo 512 340
RightDown 3
Delay 100
MoveTo 512 330
RightDown 2
Delay 100
MoveTo 512 320
RightDown 2
Delay 100
MoveTo 512 310
RightDown 3
Delay 100
MoveTo 512 300
RightDown 2
Delay 100
MoveTo 512 290
RightDown 2
Delay 100
MoveTo 512 280
RightDown 2
Delay 100
RightUp 1
Delay 200
EndIf
SayString "现已移动回原坐标了哦！西西！"
Delay 100
KeyPress 13 1
Delay 50
Return 自动行走
Sub 补红蓝
VBSCall Call ReadMemory(xhong,1,redmax)
VBSCall Call ReadMemory(xlhong,1,red)
VBSCall Call ReadMemory(xlan,1,bluemax)
VBSCall Call ReadMemory(xllan,1,blue)
redbj=redmax/100*hp
bluebj=bluemax/100*mp
If red<redbj
KeyPress 116,1
Delay var3
EndIf
If blue<bluebj
KeyPress 117,1
Delay var3
EndIf
Return 补红蓝
Sub 判断角度
VBSCall Call FindColor(470,180,550,380,"00ffff",x1,y1)
If abs(y1-318)>8
Gosub 调整角度
EndIf
Return 判断角度
Sub 调整角度
VBS bz=0
Rem 调整角度开始
VBS bz=bz+1
If bz>20
Return 调整角度
EndIf
If int(bz/5)=bz/5
Gosub 补红蓝
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x1,y1)
If (y1-318)>0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+30
Delay 100
RightUp 1
Delay 100
EndIf
If (y1-318)<0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+50
Delay 100
RightUp 1
Delay 100
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x2,y2)
If ABS(y2-318)>8
Goto 调整角度开始
EndIf
Return 调整角度
朝
大篇的刷屏来了是不
劝LZ别用脚本
我就是用脚本用丢的号里的大多的东西
90+的
妈的
绑了那么多东西还能盗
算他们牛B
现在的脚本10个有11有毒 木马的
劝LZ用热血土豆
那个没毒 安全
我班同学就都用的这个
本脚本只适合挂主动区！自动检物。
VBS dim mX1,mY1,mX2,mY2
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没"
Rem 挂机开始
Gosub 补红蓝
Gosub 判断坐标
Gosub 找怪开始
KeyPress 120 1
Delay 100
Goto 挂机开始
Sub 找怪开始
Rem 继续
Gosub 补红蓝
KeyDown 120 1
Delay 80
KeyUp 120 1
MoveTo 1300 460
Delay 150
MoveTo 1300 460
Delay 140
MoveTo 513 460
Delay 20
LeftClick 1
Delay 100
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1)
If x1<0 and y1<0
Delay 50
Goto 继续
Else
Gosub 打怪
EndIf
Return 找怪开始
Sub 打怪
Rem KG
KeyDown 120 1
Delay 80
KeyUp 120 1
Gosub 补红蓝
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1)
If x1<0 and y1<0
Gosub 补红蓝
Delay 200
MoveTo 1300 460
Delay 150
MoveTo 513 460
Delay 200
Goto 挂机开始
Else
Goto KG
EndIf
Return 打怪
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If Abs(mX1-mX2)+Abs(mY1-mY2)>20
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBS MapX,MapY
VBS x=876:y=24
VBS MapXY=""
VBS i=0:j=0:k=0
For 12
Delay 16
Gosub 读取数字
Rem 读取完毕
If txt="]"
Goto 输出坐标
EndIf
VBS MapXY=MapXY&txt
VBS x=x+6
EndFor
Rem 输出坐标
VBS i=InStr(MapXY, ".")
If txt="]" and i>1
VBS MapX=Clng(Left(MapXY, i - 1))
VBS MapY=Clng(Mid(MapXY, i + 1))
EndIf
Return 读取坐标
Sub 读取数字
IfColor x+1 y+4 0002BD 2
IfColor x+3 y+4 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="-"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+8 0002BD 2
IfColor x+3 y+8 0002BD 2
Else
VBS txt="."
Goto 读取完毕
EndIf
EndIf
IfColor x+2 y 0002BD 2
VBS txt="]"
Goto 读取完毕
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="0"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+2 0002BD 2
VBS txt="1"
Goto 读取完毕
EndIf
IfColor x+1 y+8 0002BD 2
IfColor x+5 y+8 0002BD 2
VBS txt="2"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+7 0002BD 2
IfColor x+2 y+4 0002BD 2
Else
IfColor x+3 y+4 0002BD 2
VBS txt="3"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+3 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="4"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+1 y+7 0002BD 2
VBS txt="5"
Goto 读取完毕
EndIf
EndIf
IfColor x+4 y+2 0002BD 2
IfColor x+4 y+3 0002BD 2
Else
VBS txt="6"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="7"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
Else
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+5 0002BD 2
VBS txt="8"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+2 y+7 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="9"
Goto 读取完毕
EndIf
EndIf
EndIf
Return 读取数字
Sub 自动行走
VBS FangX=0
VBS YDR=160
Gosub 补红蓝
MoveTo 512 460
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 方向右
If FangX=0
MoveTo 512+YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向下
If FangX=1
MoveTo 512 460+YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向左
If FangX=2
MoveTo 512-YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向上
If FangX=3
MoveTo 512 460-YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
EndIf
Return 自动行走
Sub 补红蓝
IfColor 81 10 42415A 2
KeyPress 112 1
Delay 400
EndIf
Delay 10
IfColor 46 24 524139 2
KeyPress 115 1
Delay 400
EndIf
Delay 10
Return 补红蓝
我的取名是综合挂机
F1红，F3技能，F4蓝，F9捡东西
F11启动，F12停止
热血超F`名字叫太牛``这个挂用内存锁定原位`就算有人引你出去`你都会自动回返原位`````这个挂不错``还有ZF免费版`自动回城买药`没人看守`都绝对无问题```请记`加分`简单的很`
本脚本搜集老帖整理而成，给需要的朋友！不含攻击脚本！纯粹补红蓝和定位！
// F5红 F6蓝
//本程序红蓝，坐标都为读内存
//============================自定义变量=============================
VBS dim mX1,mY1,mX2,mY2,mX3,mY3,mX4,mY4,n,m,KK,l,Cosa,Sina,pX,pY,lX,lY,dX,dY,fw
VBS Dim base,zb_x,zb_y,MapX,MapY
VBS Dim red, blue, redmax, bluemax, redbj, bluebj ,hp ,mp, var3
UserVar fw=30 离开原坐标回位的距离范围，数字越大，回位距离越远
UserVar hp=60 当HP＜多少％时，使用红药
UserVar mp=30 当MP＜多少％时，使用蓝药
UserVar var3=250 吃药时间间隔，数字越小，吃药能越快
UserVar ding=1 1 为定点打怪, 0 为不定点
//=============================内存地址=======================
VBS xhong=&h044021EC
//当前血的内存地址
VBS xlhong=&h044021E0
//血总量内存地址
VBS xlan=&h044021F0
//当前内功内存地址
VBS xllan=&h044021E4
//内功总量的内存地址
VBS ncjz=&H012e3718
//坐标基址
//=============================主程序========================
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
Rem 挂机开始
VBS n=0
VBS m=0
Gosub 补红蓝
If ding=1
Gosub 判断坐标
EndIf
Goto 挂机开始
//============================子程序===========================
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If sqr((mX1-mX2)^2+(mY1-mY2)^2)>fw
SayString "跑远了哦！"
Delay 100
KeyPress 13 1
Delay 50
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBSCall Call ReadMemory(ncjz,2,base)
VBSCall Call ReadMemory(base+&H254,2,zb_x)
If (zb_x > 32768 and zb_x < 65536)
VBS MapX= -(65536 - zb_x)
Else
VBS MapX=zb_x
EndIf
VBSCall Call ReadMemory(base+&H258,2,zb_y)
If (zb_y > 32768) And (zb_y < 65536)
VBS MapY= (65536 - zb_y)
Else
VBS MapY=-zb_y
EndIf
Return 读取坐标
Sub 自动行走
VBS FangX=0
VBS YDR=160
VBS KK=160
Gosub 补红蓝
Delay 20
MoveTo 512 0
RightDown 3
Delay 200
MoveTo 512 100
Delay 20
MoveTo 512 200
Delay 20
MoveTo 512 300
Delay 20
MoveTo 512 400
Delay 20
MoveTo 512 500
Delay 20
MoveTo 512 600
Delay 20
MoveTo 512 740
Delay 20
RightUp 1
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 测试角度
If FangX=0
VBS mX3=MapX
VBS mY3=MapY
MoveTo 512+160 393+160
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 400
Gosub 补红蓝
Delay 300
Gosub 补红蓝
Gosub 读取坐标
VBS mX4=MapX
VBS mY4=MapY
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
EndIf
VBS dX=mX4-mX3
VBS dY=mY4-mY3
VBS Cosa=160*(dX-dY)/((dX)^2+(dY)^2)
VBS Sina=160*(-dX-dY)/((dX)^2+(dY)^2)
VBS pX=MuBiaoX-mX4
VBS pY=MuBiaoY-mY4
VBS lX=int(pX*Cosa-pY*Sina)
VBS lY=int(-pX*Sina-pY*Cosa)
VBS js=1
If sqr((lX^2+lY^2))>350
Rem 计数
VBS js=js*2
lX=int(lX/2)
lY=int(lY/2)
If sqr((lX^2+lY^2))>350
Goto 计数
Else
EndIf
EndIf
If js>4
VBS js=4
EndIf
For js
MoveTo 512+lX 393+lY
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 700
Gosub 补红蓝
EndFor
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
Else
Goto 测试角度
EndIf
EndIf
Else
Delay 20
MoveTo 512 400
RightDown 3
Delay 100
MoveTo 512 390
RightDown 2
Delay 100
MoveTo 512 380
RightDown 2
Delay 100
MoveTo 512 370
RightDown 2
Delay 100
MoveTo 512 360
RightDown 2
Delay 100
MoveTo 512 350
RightDown 2
Delay 100
MoveTo 512 340
RightDown 3
Delay 100
MoveTo 512 330
RightDown 2
Delay 100
MoveTo 512 320
RightDown 2
Delay 100
MoveTo 512 310
RightDown 3
Delay 100
MoveTo 512 300
RightDown 2
Delay 100
MoveTo 512 290
RightDown 2
Delay 100
MoveTo 512 280
RightDown 2
Delay 100
RightUp 1
Delay 200
EndIf
SayString "现已移动回原坐标了哦！西西！"
Delay 100
KeyPress 13 1
Delay 50
Return 自动行走
Sub 补红蓝
VBSCall Call ReadMemory(xhong,1,redmax)
VBSCall Call ReadMemory(xlhong,1,red)
VBSCall Call ReadMemory(xlan,1,bluemax)
VBSCall Call ReadMemory(xllan,1,blue)
redbj=redmax/100*hp
bluebj=bluemax/100*mp
If red<redbj
KeyPress 116,1
Delay var3
EndIf
If blue<bluebj
KeyPress 117,1
Delay var3
EndIf
Return 补红蓝
Sub 判断角度
VBSCall Call FindColor(470,180,550,380,"00ffff",x1,y1)
If abs(y1-318)>8
Gosub 调整角度
EndIf
Return 判断角度
Sub 调整角度
VBS bz=0
Rem 调整角度开始
VBS bz=bz+1
If bz>20
Return 调整角度
EndIf
If int(bz/5)=bz/5
Gosub 补红蓝
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x1,y1)
If (y1-318)>0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+30
Delay 100
RightUp 1
Delay 100
EndIf
If (y1-318)<0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+50
Delay 100
RightUp 1
Delay 100
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x2,y2)
If ABS(y2-318)>8
Goto 调整角度开始
EndIf
Return 调整角度
回答者：253961870 - 见习魔法师 三级 1-29 12:37
本脚本只适合挂主动区！自动检物。
VBS dim mX1,mY1,mX2,mY2
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没"
Rem 挂机开始
Gosub 补红蓝
Gosub 判断坐标
Gosub 找怪开始
KeyPress 120 1
Delay 100
Goto 挂机开始
Sub 找怪开始
Rem 继续
Gosub 补红蓝
KeyDown 120 1
Delay 80
KeyUp 120 1
MoveTo 1300 460
Delay 150
MoveTo 1300 460
Delay 140
MoveTo 513 460
Delay 20
LeftClick 1
Delay 100
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1)
If x1<0 and y1<0
Delay 50
Goto 继续
Else
Gosub 打怪
EndIf
Return 找怪开始
Sub 打怪
Rem KG
KeyDown 120 1
Delay 80
KeyUp 120 1
Gosub 补红蓝
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1)
If x1<0 and y1<0
Gosub 补红蓝
Delay 200
MoveTo 1300 460
Delay 150
MoveTo 513 460
Delay 200
Goto 挂机开始
Else
Goto KG
EndIf
Return 打怪
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If Abs(mX1-mX2)+Abs(mY1-mY2)>20
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBS MapX,MapY
VBS x=876:y=24
VBS MapXY=""
VBS i=0:j=0:k=0
For 12
Delay 16
Gosub 读取数字
Rem 读取完毕
If txt="]"
Goto 输出坐标
EndIf
VBS MapXY=MapXY&txt
VBS x=x+6
EndFor
Rem 输出坐标
VBS i=InStr(MapXY, ".")
If txt="]" and i>1
VBS MapX=Clng(Left(MapXY, i - 1))
VBS MapY=Clng(Mid(MapXY, i + 1))
EndIf
Return 读取坐标
Sub 读取数字
IfColor x+1 y+4 0002BD 2
IfColor x+3 y+4 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="-"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+8 0002BD 2
IfColor x+3 y+8 0002BD 2
Else
VBS txt="."
Goto 读取完毕
EndIf
EndIf
IfColor x+2 y 0002BD 2
VBS txt="]"
Goto 读取完毕
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="0"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+2 0002BD 2
VBS txt="1"
Goto 读取完毕
EndIf
IfColor x+1 y+8 0002BD 2
IfColor x+5 y+8 0002BD 2
VBS txt="2"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+7 0002BD 2
IfColor x+2 y+4 0002BD 2
Else
IfColor x+3 y+4 0002BD 2
VBS txt="3"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+3 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="4"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+1 y+7 0002BD 2
VBS txt="5"
Goto 读取完毕
EndIf
EndIf
IfColor x+4 y+2 0002BD 2
IfColor x+4 y+3 0002BD 2
Else
VBS txt="6"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="7"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
Else
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+5 0002BD 2
VBS txt="8"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+2 y+7 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="9"
Goto 读取完毕
EndIf
EndIf
EndIf
Return 读取数字
Sub 自动行走
VBS FangX=0
VBS YDR=160
Gosub 补红蓝
MoveTo 512 460
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 方向右
If FangX=0
MoveTo 512+YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向下
If FangX=1
MoveTo 512 460+YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向左
If FangX=2
MoveTo 512-YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向上
If FangX=3
MoveTo 512 460-YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
EndIf
Return 自动行走
Sub 补红蓝
IfColor 81 10 42415A 2
KeyPress 112 1
Delay 400
EndIf
Delay 10
IfColor 46 24 524139 2
KeyPress 115 1
Delay 400
EndIf
Delay 10
Return 补红蓝
我的取名是综合挂机
F1红，F3技能，F4蓝，F9捡东西
F11启动，F12停止
4+54+6
// F5红 F6蓝
//本程序红蓝，坐标都为读内存
//============================自定义变量=============================
VBS dim mX1,mY1,mX2,mY2,mX3,mY3,mX4,mY4,n,m,KK,l,Cosa,Sina,pX,pY,lX,lY,dX,dY,fw
VBS Dim base,zb_x,zb_y,MapX,MapY
VBS Dim red, blue, redmax, bluemax, redbj, bluebj ,hp ,mp, var3
UserVar fw=30 离开原坐标回位的距离范围，数字越大，回位距离越远
UserVar hp=60 当HP＜多少％时，使用红药
UserVar mp=30 当MP＜多少％时，使用蓝药
UserVar var3=250 吃药时间间隔，数字越小，吃药能越快
UserVar ding=1 1 为定点打怪, 0 为不定点
//=============================内存地址=======================
VBS xhong=&h044021EC
//当前血的内存地址
VBS xlhong=&h044021E0
//血总量内存地址
VBS xlan=&h044021F0
//当前内功内存地址
VBS xllan=&h044021E4
//内功总量的内存地址
VBS ncjz=&H012e3718
//坐标基址
//=============================主程序========================
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
Rem 挂机开始
VBS n=0
VBS m=0
Gosub 补红蓝
If ding=1
Gosub 判断坐标
EndIf
Goto 挂机开始
//============================子程序===========================
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If sqr((mX1-mX2)^2+(mY1-mY2)^2)>fw
SayString "跑远了哦！"
Delay 100
KeyPress 13 1
Delay 50
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBSCall Call ReadMemory(ncjz,2,base)
VBSCall Call ReadMemory(base+&H254,2,zb_x)
If (zb_x > 32768 and zb_x < 65536)
VBS MapX= -(65536 - zb_x)
Else
VBS MapX=zb_x
EndIf
VBSCall Call ReadMemory(base+&H258,2,zb_y)
If (zb_y > 32768) And (zb_y < 65536)
VBS MapY= (65536 - zb_y)
Else
VBS MapY=-zb_y
EndIf
Return 读取坐标
Sub 自动行走
VBS FangX=0
VBS YDR=160
VBS KK=160
Gosub 补红蓝
Delay 20
MoveTo 512 0
RightDown 3
Delay 200
MoveTo 512 100
Delay 20
MoveTo 512 200
Delay 20
MoveTo 512 300
Delay 20
MoveTo 512 400
Delay 20
MoveTo 512 500
Delay 20
MoveTo 512 600
Delay 20
MoveTo 512 740
Delay 20
RightUp 1
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 测试角度
If FangX=0
VBS mX3=MapX
VBS mY3=MapY
MoveTo 512+160 393+160
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 400
Gosub 补红蓝
Delay 300
Gosub 补红蓝
Gosub 读取坐标
VBS mX4=MapX
VBS mY4=MapY
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
EndIf
VBS dX=mX4-mX3
VBS dY=mY4-mY3
VBS Cosa=160*(dX-dY)/((dX)^2+(dY)^2)
VBS Sina=160*(-dX-dY)/((dX)^2+(dY)^2)
VBS pX=MuBiaoX-mX4
VBS pY=MuBiaoY-mY4
VBS lX=int(pX*Cosa-pY*Sina)
VBS lY=int(-pX*Sina-pY*Cosa)
VBS js=1
If sqr((lX^2+lY^2))>350
Rem 计数
VBS js=js*2
lX=int(lX/2)
lY=int(lY/2)
If sqr((lX^2+lY^2))>350
Goto 计数
Else
EndIf
EndIf
If js>4
VBS js=4
EndIf
For js
MoveTo 512+lX 393+lY
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 700
Gosub 补红蓝
EndFor
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
Else
Goto 测试角度
EndIf
EndIf
Else
Delay 20
MoveTo 512 400
RightDown 3
Delay 100
MoveTo 512 390
RightDown 2
Delay 100
MoveTo 512 380
RightDown 2
Delay 100
MoveTo 512 370
RightDown 2
Delay 100
MoveTo 512 360
RightDown 2
Delay 100
MoveTo 512 350
RightDown 2
Delay 100
MoveTo 512 340
RightDown 3
Delay 100
MoveTo 512 330
RightDown 2
Delay 100
MoveTo 512 320
RightDown 2
Delay 100
MoveTo 512 310
RightDown 3
Delay 100
MoveTo 512 300
RightDown 2
Delay 100
MoveTo 512 290
RightDown 2
Delay 100
MoveTo 512 280
RightDown 2
Delay 100
RightUp 1
Delay 200
EndIf
SayString "现已移动回原坐标了哦！西西！"
Delay 100
KeyPress 13 1
Delay 50
Return 自动行走
Sub 补红蓝
VBSCall Call ReadMemory(xhong,1,redmax)
VBSCall Call ReadMemory(xlhong,1,red)
VBSCall Call ReadMemory(xlan,1,bluemax)
VBSCall Call ReadMemory(xllan,1,blue)
redbj=redmax/100*hp
bluebj=bluemax/100*mp
If red<redbj
KeyPress 116,1
Delay var3
EndIf
If blue<bluebj
KeyPress 117,1
Delay var3
EndIf
Return 补红蓝
Sub 判断角度
VBSCall Call FindColor(470,180,550,380,"00ffff",x1,y1)
If abs(y1-318)>8
Gosub 调整角度
EndIf
Return 判断角度
Sub 调整角度
VBS bz=0
Rem 调整角度开始
VBS bz=bz+1
If bz>20
Return 调整角度
EndIf
If int(bz/5)=bz/5
Gosub 补红蓝
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x1,y1)
If (y1-318)>0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+30
Delay 100
RightUp 1
Delay 100
EndIf
If (y1-318)<0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+50
Delay 100
RightUp 1
Delay 100
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x2,y2)
If ABS(y2-318)>8
Goto 调整角度开始
EndIf
Return 调整角度
朝
大篇的刷屏来了是不
劝LZ别用脚本
我就是用脚本用丢的号里的大多的东西
90+的
妈的
绑了那么多东西还能盗
算他们牛B
现在的脚本10个有11有毒 木马的
劝LZ用热血土豆
那个没毒 安全
我班同学就都用的这个
本脚本只适合挂主动区！自动检物。
VBS dim mX1,mY1,mX2,mY2
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没"
Rem 挂机开始
Gosub 补红蓝
Gosub 判断坐标
Gosub 找怪开始
KeyPress 120 1
Delay 100
Goto 挂机开始
Sub 找怪开始
Rem 继续
Gosub 补红蓝
KeyDown 120 1
Delay 80
KeyUp 120 1
MoveTo 1300 460
Delay 150
MoveTo 1300 460
Delay 140
MoveTo 513 460
Delay 20
LeftClick 1
Delay 100
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1)
If x1<0 and y1<0
Delay 50
Goto 继续
Else
Gosub 打怪
EndIf
Return 找怪开始
Sub 打怪
Rem KG
KeyDown 120 1
Delay 80
KeyUp 120 1
Gosub 补红蓝
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1)
If x1<0 and y1<0
Gosub 补红蓝
Delay 200
MoveTo 1300 460
Delay 150
MoveTo 513 460
Delay 200
Goto 挂机开始
Else
Goto KG
EndIf
Return 打怪
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If Abs(mX1-mX2)+Abs(mY1-mY2)>20
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBS MapX,MapY
VBS x=876:y=24
VBS MapXY=""
VBS i=0:j=0:k=0
For 12
Delay 16
Gosub 读取数字
Rem 读取完毕
If txt="]"
Goto 输出坐标
EndIf
VBS MapXY=MapXY&txt
VBS x=x+6
EndFor
Rem 输出坐标
VBS i=InStr(MapXY, ".")
If txt="]" and i>1
VBS MapX=Clng(Left(MapXY, i - 1))
VBS MapY=Clng(Mid(MapXY, i + 1))
EndIf
Return 读取坐标
Sub 读取数字
IfColor x+1 y+4 0002BD 2
IfColor x+3 y+4 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="-"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+8 0002BD 2
IfColor x+3 y+8 0002BD 2
Else
VBS txt="."
Goto 读取完毕
EndIf
EndIf
IfColor x+2 y 0002BD 2
VBS txt="]"
Goto 读取完毕
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="0"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+2 0002BD 2
VBS txt="1"
Goto 读取完毕
EndIf
IfColor x+1 y+8 0002BD 2
IfColor x+5 y+8 0002BD 2
VBS txt="2"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+7 0002BD 2
IfColor x+2 y+4 0002BD 2
Else
IfColor x+3 y+4 0002BD 2
VBS txt="3"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+3 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="4"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+1 y+7 0002BD 2
VBS txt="5"
Goto 读取完毕
EndIf
EndIf
IfColor x+4 y+2 0002BD 2
IfColor x+4 y+3 0002BD 2
Else
VBS txt="6"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="7"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
Else
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+5 0002BD 2
VBS txt="8"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+2 y+7 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="9"
Goto 读取完毕
EndIf
EndIf
EndIf
Return 读取数字
Sub 自动行走
VBS FangX=0
VBS YDR=160
Gosub 补红蓝
MoveTo 512 460
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 方向右
If FangX=0
MoveTo 512+YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向下
If FangX=1
MoveTo 512 460+YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向左
If FangX=2
MoveTo 512-YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向上
If FangX=3
MoveTo 512 460-YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
EndIf
Return 自动行走
Sub 补红蓝
IfColor 81 10 42415A 2
KeyPress 112 1
Delay 400
EndIf
Delay 10
IfColor 46 24 524139 2
KeyPress 115 1
Delay 400
EndIf
Delay 10
Return 补红蓝
我的取名是综合挂机
F1红，F3技能，F4蓝，F9捡东西
F11启动，F12停止
热血超F`名字叫太牛``这个挂用内存锁定原位`就算有人引你出去`你都会自动回返原位`````这个挂不错``还有ZF免费版`自动回城买药`没人看守`都绝对无问题```请记`加分`简单的很`
本脚本搜集老帖整理而成，给需要的朋友！不含攻击脚本！纯粹补红蓝和定位！
// F5红 F6蓝
//本程序红蓝，坐标都为读内存
//============================自定义变量=============================
VBS dim mX1,mY1,mX2,mY2,mX3,mY3,mX4,mY4,n,m,KK,l,Cosa,Sina,pX,pY,lX,lY,dX,dY,fw
VBS Dim base,zb_x,zb_y,MapX,MapY
VBS Dim red, blue, redmax, bluemax, redbj, bluebj ,hp ,mp, var3
UserVar fw=30 离开原坐标回位的距离范围，数字越大，回位距离越远
UserVar hp=60 当HP＜多少％时，使用红药
UserVar mp=30 当MP＜多少％时，使用蓝药
UserVar var3=250 吃药时间间隔，数字越小，吃药能越快
UserVar ding=1 1 为定点打怪, 0 为不定点
//=============================内存地址=======================
VBS xhong=&h044021EC
//当前血的内存地址
VBS xlhong=&h044021E0
//血总量内存地址
VBS xlan=&h044021F0
//当前内功内存地址
VBS xllan=&h044021E4
//内功总量的内存地址
VBS ncjz=&H012e3718
//坐标基址
//=============================主程序========================
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
Rem 挂机开始
VBS n=0
VBS m=0
Gosub 补红蓝
If ding=1
Gosub 判断坐标
EndIf
Goto 挂机开始
//============================子程序===========================
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If sqr((mX1-mX2)^2+(mY1-mY2)^2)>fw
SayString "跑远了哦！"
Delay 100
KeyPress 13 1
Delay 50
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBSCall Call ReadMemory(ncjz,2,base)
VBSCall Call ReadMemory(base+&H254,2,zb_x)
If (zb_x > 32768 and zb_x < 65536)
VBS MapX= -(65536 - zb_x)
Else
VBS MapX=zb_x
EndIf
VBSCall Call ReadMemory(base+&H258,2,zb_y)
If (zb_y > 32768) And (zb_y < 65536)
VBS MapY= (65536 - zb_y)
Else
VBS MapY=-zb_y
EndIf
Return 读取坐标
Sub 自动行走
VBS FangX=0
VBS YDR=160
VBS KK=160
Gosub 补红蓝
Delay 20
MoveTo 512 0
RightDown 3
Delay 200
MoveTo 512 100
Delay 20
MoveTo 512 200
Delay 20
MoveTo 512 300
Delay 20
MoveTo 512 400
Delay 20
MoveTo 512 500
Delay 20
MoveTo 512 600
Delay 20
MoveTo 512 740
Delay 20
RightUp 1
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 测试角度
If FangX=0
VBS mX3=MapX
VBS mY3=MapY
MoveTo 512+160 393+160
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 400
Gosub 补红蓝
Delay 300
Gosub 补红蓝
Gosub 读取坐标
VBS mX4=MapX
VBS mY4=MapY
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
EndIf
VBS dX=mX4-mX3
VBS dY=mY4-mY3
VBS Cosa=160*(dX-dY)/((dX)^2+(dY)^2)
VBS Sina=160*(-dX-dY)/((dX)^2+(dY)^2)
VBS pX=MuBiaoX-mX4
VBS pY=MuBiaoY-mY4
VBS lX=int(pX*Cosa-pY*Sina)
VBS lY=int(-pX*Sina-pY*Cosa)
VBS js=1
If sqr((lX^2+lY^2))>350
Rem 计数
VBS js=js*2
lX=int(lX/2)
lY=int(lY/2)
If sqr((lX^2+lY^2))>350
Goto 计数
Else
EndIf
EndIf
If js>4
VBS js=4
EndIf
For js
MoveTo 512+lX 393+lY
Delay 20
LeftClick 2
Delay 20
Gosub 补红蓝
Delay 700
Gosub 补红蓝
EndFor
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<20
VBS JuLi1=JuLi2
Goto 移动
Else
Goto 测试角度
EndIf
EndIf
Else
Delay 20
MoveTo 512 400
RightDown 3
Delay 100
MoveTo 512 390
RightDown 2
Delay 100
MoveTo 512 380
RightDown 2
Delay 100
MoveTo 512 370
RightDown 2
Delay 100
MoveTo 512 360
RightDown 2
Delay 100
MoveTo 512 350
RightDown 2
Delay 100
MoveTo 512 340
RightDown 3
Delay 100
MoveTo 512 330
RightDown 2
Delay 100
MoveTo 512 320
RightDown 2
Delay 100
MoveTo 512 310
RightDown 3
Delay 100
MoveTo 512 300
RightDown 2
Delay 100
MoveTo 512 290
RightDown 2
Delay 100
MoveTo 512 280
RightDown 2
Delay 100
RightUp 1
Delay 200
EndIf
SayString "现已移动回原坐标了哦！西西！"
Delay 100
KeyPress 13 1
Delay 50
Return 自动行走
Sub 补红蓝
VBSCall Call ReadMemory(xhong,1,redmax)
VBSCall Call ReadMemory(xlhong,1,red)
VBSCall Call ReadMemory(xlan,1,bluemax)
VBSCall Call ReadMemory(xllan,1,blue)
redbj=redmax/100*hp
bluebj=bluemax/100*mp
If red<redbj
KeyPress 116,1
Delay var3
EndIf
If blue<bluebj
KeyPress 117,1
Delay var3
EndIf
Return 补红蓝
Sub 判断角度
VBSCall Call FindColor(470,180,550,380,"00ffff",x1,y1)
If abs(y1-318)>8
Gosub 调整角度
EndIf
Return 判断角度
Sub 调整角度
VBS bz=0
Rem 调整角度开始
VBS bz=bz+1
If bz>20
Return 调整角度
EndIf
If int(bz/5)=bz/5
Gosub 补红蓝
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x1,y1)
If (y1-318)>0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+30
Delay 100
RightUp 1
Delay 100
EndIf
If (y1-318)<0
MoveTo 512 380+40
Delay 100
RightDown 2
Delay 100
MoveTo 512 380+50
Delay 100
RightUp 1
Delay 100
EndIf
VBSCall Call FindColor(450,200,550,380,"00ffff",x2,y2)
If ABS(y2-318)>8
Goto 调整角度开始
EndIf
Return 调整角度
回答者：253961870 - 见习魔法师 三级 1-29 12:37
本脚本只适合挂主动区！自动检物。
VBS dim mX1,mY1,mX2,mY2
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没"
Rem 挂机开始
Gosub 补红蓝
Gosub 判断坐标
Gosub 找怪开始
KeyPress 120 1
Delay 100
Goto 挂机开始
Sub 找怪开始
Rem 继续
Gosub 补红蓝
KeyDown 120 1
Delay 80
KeyUp 120 1
MoveTo 1300 460
Delay 150
MoveTo 1300 460
Delay 140
MoveTo 513 460
Delay 20
LeftClick 1
Delay 100
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1)
If x1<0 and y1<0
Delay 50
Goto 继续
Else
Gosub 打怪
EndIf
Return 找怪开始
Sub 打怪
Rem KG
KeyDown 120 1
Delay 80
KeyUp 120 1
Gosub 补红蓝
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1)
If x1<0 and y1<0
Gosub 补红蓝
Delay 200
MoveTo 1300 460
Delay 150
MoveTo 513 460
Delay 200
Goto 挂机开始
Else
Goto KG
EndIf
Return 打怪
Sub 判断坐标
Gosub 读取坐标
VBS mX2=MapX
VBS mY2=MapY
VBS MuBiaoY=mY1
VBS MuBiaoX=mX1
If Abs(mX1-mX2)+Abs(mY1-mY2)>20
Gosub 自动行走
EndIf
Return 判断坐标
Sub 读取坐标
VBS MapX,MapY
VBS x=876:y=24
VBS MapXY=""
VBS i=0:j=0:k=0
For 12
Delay 16
Gosub 读取数字
Rem 读取完毕
If txt="]"
Goto 输出坐标
EndIf
VBS MapXY=MapXY&txt
VBS x=x+6
EndFor
Rem 输出坐标
VBS i=InStr(MapXY, ".")
If txt="]" and i>1
VBS MapX=Clng(Left(MapXY, i - 1))
VBS MapY=Clng(Mid(MapXY, i + 1))
EndIf
Return 读取坐标
Sub 读取数字
IfColor x+1 y+4 0002BD 2
IfColor x+3 y+4 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="-"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+8 0002BD 2
IfColor x+3 y+8 0002BD 2
Else
VBS txt="."
Goto 读取完毕
EndIf
EndIf
IfColor x+2 y 0002BD 2
VBS txt="]"
Goto 读取完毕
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="0"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+2 0002BD 2
VBS txt="1"
Goto 读取完毕
EndIf
IfColor x+1 y+8 0002BD 2
IfColor x+5 y+8 0002BD 2
VBS txt="2"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+7 0002BD 2
IfColor x+2 y+4 0002BD 2
Else
IfColor x+3 y+4 0002BD 2
VBS txt="3"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+2 y+3 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="4"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+1 y+7 0002BD 2
VBS txt="5"
Goto 读取完毕
EndIf
EndIf
IfColor x+4 y+2 0002BD 2
IfColor x+4 y+3 0002BD 2
Else
VBS txt="6"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+1 0002BD 2
IfColor x+4 y+3 0002BD 2
VBS txt="7"
Goto 读取完毕
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
Else
IfColor x+1 y+5 0002BD 2
IfColor x+5 y+5 0002BD 2
VBS txt="8"
Goto 读取完毕
EndIf
EndIf
EndIf
IfColor x+1 y+4 0002BD 2
IfColor x+2 y+7 0002BD 2
IfColor x+5 y+4 0002BD 2
VBS txt="9"
Goto 读取完毕
EndIf
EndIf
EndIf
Return 读取数字
Sub 自动行走
VBS FangX=0
VBS YDR=160
Gosub 补红蓝
MoveTo 512 460
Delay 100
Gosub 读取坐标
VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
Rem 移动
Gosub 补红蓝
If JuLi1>20
Rem 方向右
If FangX=0
MoveTo 512+YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向下
If FangX=1
MoveTo 512 460+YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=1
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向左
If FangX=2
MoveTo 512-YDR 460
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=2
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
Rem 方向上
If FangX=3
MoveTo 512 460-YDR
LeftClick 1
Delay 20
Gosub 补红蓝
Delay 200
KeyDown 120 1
Delay 50
KeyUp 120 1
Delay 200
Gosub 补红蓝
Gosub 读取坐标
VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2)
If JuLi2<JuLi1
VBS FangX=3
VBS JuLi1=JuLi2
Goto 移动
Else
VBS FangX=0
VBS JuLi1=JuLi2
Goto 移动
EndIf
EndIf
EndIf
Return 自动行走
Sub 补红蓝
IfColor 81 10 42415A 2
KeyPress 112 1
Delay 400
EndIf
Delay 10
IfColor 46 24 524139 2
KeyPress 115 1
Delay 400
EndIf
Delay 10
Return 补红蓝
我的取名是综合挂机
F1红，F3技能，F4蓝，F9捡东西
F11启动，F12停止
4+54+6
(蓝狡果18480524580)热血江湖3转到哪组打手捏、、 - ______ 刷湖队伍一样也是虎口开组的 只是组了刷湖的队伍比较少因为湖那个地方开势力PK 你如果装备可以的话 建议去9泉(9Q) 冰宫(BG) 相对容易找到队 那里找到的队伍一般效率不比湖的差多少 68级以前三转普通装备一般都是刷铁甲勇士(TJ) 铁甲那里的第三个坡(3P)的怪最密 那里经常都有队伍刷着直接去那里看 有位的话一般队长开挂会自动组你的 68以上么考虑整整装备去BG混吧
(蓝狡果18480524580)《热血江湖》医生完整篇攻略 ______ 游戏简介:《热血江湖》是韩国作家全克缙与画家梁载贤联合制作的一部人气漫画,是第一套在漫画王国日本改编上市的韩国漫画,截止当前编辑时间(2011.4.2),...
(蓝狡果18480524580)热血江湖怎么做ZX门派,任务怎么做?会的教下,跪求 - ______ 正邪门门派等级必须3级以上才可以做,现在已经做不到了,因为任务不可以同时接了,以前怎么做的我就知道,以前我还做了好几个正邪门呢,现在还在 如果门派现在是正派,那么就练一个35级的号,在做35转职任务的时候,把正的跟邪的...
(蓝狡果18480524580)热血江湖,谁来教我医生的详细练级和细节,从零开始教,谢谢!分不是问题! - ______ 这个很复杂你可以去NGA论坛SS区潜水几周就大概了解了 我这可以解答你上面几个问题 一、SS是不是要总喝蓝和血啊? SS是3大布衣之一,不过通常SS喝水频率最低,因为他有精神分流这个技能能够用你的红去换蓝,另一个技能吸取生命可...
(蓝狡果18480524580)求一份热血江湖弓手加点及攻略 ______ 首先加第3个“凝神聚气”(增加弓手的最小攻击力),到21级加满. 做打手首先加攻击力,这个没什么好多说的吧. 然后加第1个“百步穿杨”(增加弓手攻击的命中率),到38级加满. 和别的职业不同,弓手的命中就是攻击力. 弓手45辅...
(蓝狡果18480524580)热血江湖有什么职业 - ______ 这个游戏就是靠组队打怪的 枪:攻击力高,防不低,血少.可以越级打怪 刀:目前唯一一一个有群体攻击的职业.但那要装备好,而且,要到55级才可以了,前期没好武器的话很郁闷的 剑:飘逸潇洒的职业.攻击速度很快.但由于武功威力等原因,导致,到60级以后,特别是70级以后.没有人愿意组剑 医生,练级速度最快的职业,也是最无聊的职业,但68级以后,转成为爆医后,成为最大伤害输出着. 弓箭手:一个新的职业.目前一切都在迷漫中.一般定位在物理攻击高的打手职业中,但由于前期练级极度烧钱,目前练的人变的很少了`~~ 南林小刀的经验~~~
(蓝狡果18480524580)热血江湖怎样玩? - ______ 大部分的玩家都不是人民币玩家,我也一样,所以我的经验适合非人民币的新手玩家们. 玩游戏第一步当然是选职业了: 枪高攻低防贫血,适合追求刺激的玩家 刀:高防厚血低攻,前面练及郁闷些,适合有耐性的玩家. 剑:高回避,...
(蓝狡果18480524580)热血江湖职业问题 ______ 医生是比较好升级的职业,但是现在医生相对比较多,想找个固定的队不容易. 剑三转前不好升级,不过四转后就好了,PK比较利害. 刀一直是最受欢迎的职业,但是出五转后,武功威力降低了,而且PK时不如单击打手,在北海抢怪也不行 枪是一个处于中间的职业,会PK比较牛 弓是后出的一个职业,属于半个医生+半个打手,在三转前升级特别难,四转后能好一些,PK还可以.
(蓝狡果18480524580)热血江湖什么打手最好? ______ 玩刀是最效率的,因为可以群怪. 医生打怪是最牛的,因为医生的武功是最高的! 剑打怪一般,枪也一般,弓可以卡怪,也是比较好的 我说的像样的武器指的是 一转,追90+的弓 强 4、5 外6、7 二转,WG95+的弓 强5毒7 三转,WG95+的弓,强5毒7 四转,WG116左右 强5 内7毒7都行
(蓝狡果18480524580)热血江湖雪原区问题200分 - ______ 10级以后找个师傅,随便拿把wg帐 抢怪都很厉害了,雪原医生的装备也是很便宜的,医生刷怪是没什么问题,PK就弱了,你想PK强就玩个刺客吧,反正现在最高的刺客也才90不到,有前途有前途 小医生Q8,3转后就算拿WG帐也是GF兼打手型...
