今天一好心人发了蓝肉脚本给我,可是脚本要全屏下才能正常工作~~~~
有没有人有1440*900的脚本~~~
还有下面几处地方可否指点下~~~
Rem 定位
atx = -1
aty = -1
//一号位
MoveTo 69,448
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty))(这里4组数字是不是坐标)[
If atx > 0 and aty > 0
myx = 69
myy = 448
rex = 49
rey = 542
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//二号位
MoveTo 199,425
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 199
myy = 425
rex = 176
rey = 522
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//三号位
MoveTo 320,403
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 320
myy = 403
rex = 301
rey = 502
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//四号位
MoveTo 440,383
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 440
myy = 383
rex = 422
rey = 477
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//五号位
MoveTo 578,384
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 578
myy = 384
rex = 557
rey = 477
col = 2
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//六号位
MoveTo 695,411
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 695
myy = 411
rex = 681
rey = 502
col = 2
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//七号位
MoveTo 825,428
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 825
myy = 428
rex = 808
rey = 522
col = 2
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//八号位
MoveTo 950,459
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 950
myy = 459
rex = 928
rey = 542
col = 2
LeftClick 1
Goto 查找准备标记
Else
LeftClick 1
Goto 定位
EndIf
Rem 查找准备标记
Delay 300
KeyPress 13,1
MoveTo 520 240
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,500,150,"准备标记.bmp",1,x,y)
EndWhile
Delay 100
x = -1
y = -1
VBSCall FindPic (111,598,418,762,"充电提示.bmp",1,x,y)
If x > 0 and y > 0
Goto 查找本机位置
Else
Goto 查看自己是否房主
EndIf
Rem 查找本机位置
Delay 100
MoveTo myx myy
Delay 100
RightClick 1
Delay 100
Rem 找充电选项
x2 = -1
y2 = -1
a = 0
While x2 = -1 and y2 = -1
VBSCall FindPic (0,300,1024,600,"充电选项.bmp",1,x2,y2)
Delay 150
a = a + 1
If a > 2
MoveTo 520 240
Delay 100
LeftClick 1
Delay 100
Goto 查找本机位置
EndIf
x3 = -1
y3 = -1
VBSCall FindPic (315,221,779,463,"充电完成.bmp",1,x3,y3)
If x3 > 0 and y3 > 0
Delay 100
KeyPress 13,1
Delay 100
Goto 查看自己是否房主
EndIf
EndWhile
Delay 100
MoveTo x2+8 y2+7
Delay 100
LeftClick 1
Delay 100
x3 = -1
y3 = -1
a = 0
While x3 = -1 and y3 = -1
VBSCall FindPic (315,221,779,463,"充电费用确定.bmp",1,x3,y3)
Delay 150
a = a+1
If a > 3
MoveTo 520 240
Delay 100
LeftClick 1
Delay 100
Goto 查找本机位置
EndIf
EndWhile
Delay 100
KeyPress 13,1
Rem 充电完成的确定
Delay 300
x = -1
y = -1
While x= -1 and y = -1
VBSCall FindPic (315,221,779,463,"充电完成.bmp",1,x,y)
Delay 300
EndWhile
Delay 100
KeyPress 13,1
Delay 200
Rem 查看自己是否房主
x = -1
y = -1
home = 0
VBSCall FindPic (0,0,1024,100,"成为房主.bmp",1,x,y)
If x > 0 and y > 0
home = 1
KeyPress 13,1
intx = -1
inty = -1
While intx = -1 and inty = -1
Delay 200
VBSCall FindPic (350,480,680,700,"房主开始提示.bmp",1,intx,inty)
EndWhile
KeyPress 13,1
Delay 200
KeyPress 116,1
Delay 1000
tx = -1
ty = -1
VBSCall FindPic (315,221,779,463,"意外2.bmp",1,tx,ty)
If tx > 0 and ty > 0
Delay 200
KeyPress 13,1
Delay 200
Goto 查看自己是否房主
EndIf
Goto 进入战斗读取
EndIf
Rem 准备
Delay 100
KeyPress 13,1
Delay 200
KeyPress 116,1
Delay 500
IfColor rex,rey,ffffff,0
Goto 进入战斗读取
Else
Delay 100
KeyPress 13,1
Goto 查看自己是否房主
EndIf
Rem 进入战斗读取
Delay 1000
x = -1
y = -1
fx = -1
fy = -1
VBSCall FindPic (600,0,1024,250,"开始读取.bmp",1,x,y)
Delay 100
VBSCall FindPic (300,210,770,440,"意外.bmp",1,fx,fy)
Delay 100
If fx > 0 and fy > 0
Delay 100
KeyPress 13,1
Delay 100
Goto 查找准备标记
EndIf
If x > 0 and y > 0
Goto 查找HP槽
EndIf
If home = 0
Goto 查准备后变成房主
Else
Goto 进入战斗读取
EndIf
Rem 查准备后变成房主
casex = -1
casey = -1
VBSCall FindPic (0,0,1024,100,"成为房主.bmp",1,casex,casey)
If casex > 0 and casey > 0
Goto 查看自己是否房主
Else
Goto 进入战斗读取
EndIf
Rem 查找HP槽
Delay 5000
x = -1
y = -1
intx = -1
inty = -1
While x = -1 and y = -1
IfColor 114,52,fcff00,0
Delay 5000
VBSCall FindPic (300,210,770,440,"意外.bmp",1,intx,inty)
If intx > -1 and inty > -1
Delay 100
KeyPress 13,1
Delay 200
Goto 查找准备标记
EndIf
Goto 开始战斗
EndIf
Delay 500
VBSCall FindPic (300,210,770,440,"意外.bmp",1,intx,inty)
If intx > -1 and inty > -1
Delay 100
KeyPress 13,1
Delay 200
Goto 查找准备标记
EndIf
Delay 500
EndWhile
Rem 开始战斗
KeyPress 50,1
Delay 100
LeftClick 1
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
intx = -1
inty = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (450,150,750,350,"战斗结束.bmp",1,x,y)
Delay 100
VBSCall FindPic (300,210,770,440,"意外.bmp",1,intx,inty)
If intx > -1 and inty > -1
Delay 100
KeyPress 13,1
Delay 200
Goto 查找准备标记
EndIf
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 1200
LeftClick 1
Delay 200
KeyPress 51,1
Delay 200
LeftClick 1
Delay 1000
LeftClick 1
RightUp 1
x = -1
y = -1
intx = -1
inty = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (450,150,750,350,"战斗结束.bmp",1,x,y)
Delay 100
VBSCall FindPic (300,210,770,440,"意外.bmp",1,intx,inty)
If intx > -1 and inty > -1
Delay 100
KeyPress 13,1
Delay 200
Goto 查找准备标记
EndIf
a = a+1
If a > 3
Goto 开始战斗
EndIf
EndWhile
Goto 查找准备标记