Wend
Delay 100
KeyPress 13,1
Rem 充电完成的确定
Delay 300
x = -1
y = -1
While x= -1 and y = -1
    Call FindPic (315,221,779,463,"Attachment:\充电完成.bmp",1,x,y)
    Delay 300
Wend
Delay 100
KeyPress 13,1
Delay 200
Rem 查看自己是否房主
x = -1
y = -1
home = 0
Call FindPic (0,0,1024,100,"Attachment:\成为房主.bmp",1,x,y)
If x > 0 and y > 0 Then
    home = 1
    KeyPress 13,1
    intx = -1
    inty = -1
    While intx = -1 and inty = -1
        Delay 200
        Call FindPic (350,480,680,700,"Attachment:\房主开始提示.bmp",1,intx,inty)
    Wend
    KeyPress 13,1
    Delay 200
    KeyPress 116,1
    Delay 1000
    tx = -1
    ty = -1
    Call FindPic (315,221,779,463,"Attachment:\意外2.bmp",1,tx,ty)
    If tx > 0 and ty > 0 Then
        Delay 200
        KeyPress 13,1
        Delay 200
        Goto 查看自己是否房主
    End if
    Goto 进入战斗读取
End if
Rem 准备
Delay 100
KeyPress 13,1
Delay 200
KeyPress 116,1
Delay 500
IfColor rex,rey,"ffffff",0 Then
    Goto 进入战斗读取
Else
    Delay 100
    KeyPress 13,1
    Goto 查看自己是否房主
End if
Rem 进入战斗读取
Delay 1000
x = -1
y = -1
fx = -1
fy = -1
Call FindPic (600,0,1024,250,"Attachment:\开始读取.bmp",1,x,y)
Delay 100
Call FindPic (300,210,770,440,"Attachment:\意外.bmp",1,fx,fy)
Delay 100
If fx > 0 and fy > 0 Then
    Delay 100
    KeyPress 13,1
    Delay 100
    Goto 查找准备标记
End if
If x > 0 and y > 0 Then
    Goto 查找HP槽
End if
If home = 0 Then
    Goto 查准备后变成房主
Else
    Goto 进入战斗读取
End if
Rem 查准备后变成房主
casex = -1
casey = -1
Call FindPic (0,0,1024,100,"Attachment:\成为房主.bmp",1,casex,casey)
If casex > 0 and casey > 0 Then
    Goto 查看自己是否房主
Else
    Goto 进入战斗读取
End if
Rem 查找HP槽
Delay 5000
x = -1
y = -1
intx = -1
inty = -1
While x = -1 and y = -1
    IfColor 114,52,"fcff00",0 Then
        Delay 5000
        Call FindPic (300,210,770,440,"Attachment:\意外.bmp",1,intx,inty)
        If intx > 0 and inty > 0 Then