求SD敢达蓝肉脚本别发有毒的带上说明怎么用

如果好用的可以追分，谢谢高手指点下

[Script]
Rem 查找准备标记
Delay 300
MoveTo 0 0
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)
EndWhile
Delay 100
Delay 100
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电提示.bmp",1,x,y)
Delay 100
a = a+1
If a > 5
Goto 查找本机位置
EndIf
EndWhile
Delay 100
Goto 查看自己是否房主
Rem 查找本机位置
Delay 100
x = -1
y = -1
intx = -1
inty = -1
tx = -1
ty = -1
While x = -1 and y = -1
VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y)
VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty)
If intx > 0 and inty > 0
Delay 100
MoveTo intx+60 inty+120
Delay 100
RightClick 1
Delay 100
Goto 找充电选项
EndIf
VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,tx,ty)
If tx > 0 and ty > 0
Delay 100
MoveTo tx+60 ty+120
Delay 100
RightClick 1
Delay 100
Goto 找充电选项
EndIf
EndWhile
Delay 100
MoveTo x+60 y+120
Delay 100
RightClick 1
Delay 100
Rem 找充电选项
Delay 100
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电选项.bmp",1,x,y)
Delay 100
EndWhile
Delay 100
MoveTo x+8 y+7
Delay 100
LeftClick 1
Delay 100
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电费用确定.bmp",1,x,y)
Delay 100
a = a+1
If a > 8
MoveTo 0 0
Delay 100
LeftClick 1
Goto 查找本机位置
EndIf
EndWhile
Delay 100
KeyPress 13,1
Delay 200
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电完成.bmp",1,x,y)
Delay 100
EndWhile
Delay 100
KeyPress 13,1
Delay 200
Rem 查看自己是否房主
x = -1
y = -1
VBSCall FindPic (0,0,1024,768,"成为房主.bmp",1,x,y)
If x > 0 and y > 0
intx = -1
inty = -1
While intx = -1 and inty = -1
VBSCall FindPic (0,0,1024,768,"房主开始提示.bmp",1,intx,inty)
EndWhile
KeyPress 116,1
Goto 进入战斗读取
EndIf
Rem 准备
Delay 100
KeyPress 13,1
Delay 200
KeyPress 116,1
Delay 300
x = -1
y = -1
intx = -1
inty = -1
tx = -1
ty = -1
While x = -1 and y = -1
VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y)
If x > 0 and y > 0
IfColor x+50,y+220,ffffff,0
Goto 进入战斗读取
EndIf
EndIf
VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty)
If intx > 0 and inty > 0
IfColor intx+50,inty+220,ffffff,0
Goto 进入战斗读取
EndIf
EndIf
VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,tx,ty)
If tx > 0 and ty > 0
IfColor tx+50,ty+220,ffffff,0
Goto 进入战斗读取
Else
Goto 准备
EndIf
EndIf
EndWhile
Rem 进入战斗读取
Delay 800
x = -1
y = -1
a = 0
intx = -1
inty = -1
fx = -1
fy = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"开始读取.bmp",1,x,y)
Delay 100
VBSCall FindPic (0,0,1024,768,"意外2.bmp",1,intx,inty)
If intx > 0 and inty > 0
Delay 100
KeyPress 13,1
Delay 200
Goto 准备
EndIf
VBSCall FindPic (0,0,1024,768,"成为房主.bmp",1,fx,fy)
If fx > 0 and fy > 0
intx = -1
inty = -1
While intx = -1 and inty = -1
VBSCall FindPic (0,0,1024,768,"房主开始提示.bmp",1,intx,inty)
EndWhile
KeyPress 116,1
Goto 进入战斗读取
EndIf
EndWhile
Delay 10000
Rem 查找HP槽
x = -1
y = -1
intx = -1
inty = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"HP槽.bmp",1,x,y)
Delay 500
Delay 100
VBSCall FindPic (0,0,1024,768,"意外2.bmp",1,intx,inty)
If intx > -1 and inty > -1
Delay 100
KeyPress 13,1
Delay 200
Goto 查找准备标记
EndIf
EndWhile
Delay 6000
Rem 开始战斗
KeyPress 50,1
Delay 100
KeyDown 32,1
Rem 战斗
Delay 100
KeyPress 50,1
RightDown 1
Delay 100
LeftClick 1
Delay 1000
KeyUp 32,1
LeftClick 1
KeyDown 32,1
Delay 200
KeyPress 51,1
Delay 200
LeftClick 1
Delay 1000
LeftClick 1
RightUp 1
KeyUp 32,1
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)
Delay 100
a = a+1
If a > 3
Goto 战斗2
EndIf
EndWhile
Goto 查找准备标记
Rem 战斗2
Delay 100
KeyPress 50,1
RightDown 1
Delay 100
LeftClick 1
Delay 1000
LeftClick 1
Delay 200
KeyPress 51,1
Delay 200
LeftClick 1
Delay 1000
LeftClick 1
RightUp 1
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)
Delay 100
a = a+1
If a > 3
Goto 开始战斗
EndIf
EndWhile

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息