今天一好心人发了蓝肉脚本给我,可是脚本要全屏下才能正常工作~~~~
有没有人有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 查找准备标记