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,"Attachment:\充电完成.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,"Attachment:\成为房主.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,"Attachment:\房主开始提示.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,"Attachment:\意外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,"Attachment:\开始读取.bmp",1,x,y)
Delay 100
VBSCall FindPic(300,210,770,440,"Attachment:\意外.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,"Attachment:\成为房主.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,"Attachment:\意外.bmp",1,intx,inty)