Delay 100
RightClick 1
Delay 200
Call FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0 Then
    myx = 825
    myy = 428
    rex = 808
    rey = 522
    col = 2
    LeftClick 1
    Goto 查找准备标记
End if
LeftClick 1
//八号位
MoveTo 950,459
Delay 100
RightClick 1
Delay 200
Call FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0 Then
    myx = 950
    myy = 459
    rex = 928
    rey = 542
    col = 2
    LeftClick 1
    Goto 查找准备标记
Else
    LeftClick 1
    Goto 定位
End if
Rem 查找准备标记
Delay 300
KeyPress 13,1
MoveTo 520,240
x = -1
y = -1
While x = -1 and y = -1
    Call FindPic (0,0,500,150,"Attachment:\准备标记.bmp",1,x,y)
Wend
Delay 100
x = -1
y = -1
Call FindPic (111,598,418,762,"Attachment:\充电提示.bmp",1,x,y)
If x > 0 and y > 0 Then
    Goto 查找本机位置
Else
    Goto 查看自己是否房主
End if
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
    Call FindPic (0,300,1024,600,"Attachment:\充电选项.bmp",1,x2,y2)
    Delay 150
    a = a + 1
    If a > 2 Then
        MoveTo 520,240
        Delay 100
        LeftClick 1
        Delay 100
        Goto 查找本机位置
    End if
    x3 = -1
    y3 = -1
    Call FindPic (315,221,779,463,"Attachment:\充电完成.bmp",1,x3,y3)
    If x3 > 0 and y3 > 0 Then
        Delay 100
        KeyPress 13,1
        Delay 100
        Goto 查看自己是否房主
    End if
Wend
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
    Call FindPic (315,221,779,463,"Attachment:\充电费用确定.bmp",1,x3,y3)
    Delay 150
    a = a+1
    If a > 3 Then
        MoveTo 520,240
        Delay 100
        LeftClick 1
        Delay 100
        Goto 查找本机位置
    End if