UserVar pddy=0
UserVar t1=0
UserVar ZDMB=0
UserVar QJAX=0
UserVar wq=2
UserVar t=3
UserVar c=0,TRn=1,wzb=0,zrs=1,fx=2,HH259=0,c2=0
UserVar YS=5
UserVar IsFZ=1
UserVar Wait=1
UserVar Fight=0
UserVar mbx,mby,tc,chaoshi
UserVar repair
VBS dim TR(8),TRx(8),TRy(8),Ttime1(8),Ttime2(8)
TRx(1)=118
TRx(2)=243
TRx(3)=368
TRx(4)=495
TRx(5)=513
TRx(6)=641
TRx(7)=766
TRx(8)=891
TRy(1)=276
TRy(2)=257
TRy(3)=237
TRy(4)=217
TRy(5)=216
TRy(6)=236
TRy(7)=257
TRy(8)=276
tc=0
Gosub 环境判断
Rem 等待中
Wait=1
Fight=0
Gosub 准备游戏
Fight=1
Wait=0
Gosub 环境判断
HH259=0
repair=0
chaoshi=0
ZDMB=0
krs=0
fx=2
Rem 尚未开始战斗
IfColor 36,73,ffffff,0
    If repair=0
        Delay 7000
        repair=1
    EndIf 
    KeyPress 50,1
    Delay 100
    RightDown 1
    KeyDown 32,1
    Delay 100
    KeyPress 87,2
    Delay 100
    KeyDown 87,1
    Delay 1000
    For 10
        Delay 200
        VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
        If intX>=0 and intY>=0
        Else 
            VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
        EndIf 
        If intX>=0 and intY>=0
            LeftClick 1
            KeyPress 87,1
            QJAX=0
            Goto 开始攻击
        EndIf 
    EndFor 
    KeyUp 32,1
    KeyUp 87,1
Else 
    Delay 200
    VBSCall FindPic(0,0,1023,768,"qp确认.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        KeyPress 13,1
        Delay 200
        Gosub 环境判断
    EndIf 
    Goto 尚未开始战斗
EndIf 
Rem 战斗开始
Fight=1
Wait=0
Gosub 擂台攻击
EndScript 
Sub 自动找房
Return 自动找房
Sub 踢人
    wzb=0
    TRn=1
    zrs=1
    While TRn<=8
        IfColor TRx(TRn),TRy(TRn),ffffff,1
            Ttime1(TRn)=0