pddy=0
t1=0
ZDMB=0
QJAX=0
wq=2
t=3
c=0:c2=0
YS=5
IsFZ=1
Wait=1
Fight=0
dim mbx,mby,tc,chaoshi
dim repair
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 尚未开始战斗
KeyPressS 83,2
Delay 100
KeyDownS 83,1
Delay 2000
Rem 战斗开始
Fight=1
Wait=0
Gosub 肉肉攻击
EndScript 
Sub 环境判断
    TracePrint fight
    Rem 环境判断start
    Delay 50
    VBSCall FindPic(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
    If intX>0 and intY>0
        If Fight=0
            Goto 返回调用处
        EndIf 
        KeyUpS 87,1
        KeyUpS 32,1
        RightUpS 1
        Goto 等待中
    EndIf 
    Delay 60
    IfColor 36,73,ffffff,0
        If Fight=1
            Goto 返回调用处
        EndIf 
        KeyUpS 87,1
        KeyUpS 32,1
        RightUpS 1
        Goto 战斗开始
    Else 
        IfColor 341,213,ffffff,0
            IfColor 503,210,ffffff,0
                repair=1
                ZDMB=0
                KeyUpS 87,1
                RightUpS 1
                KeyUpS 32,1
                Goto 尚未开始战斗
            EndIf 
        EndIf 
        Goto 环境判断start
    EndIf 
    Delay 60
    VBSCall FindPic(500,200,800,550,"Attachment:\qp确认.bmp",0.8,intX,intY)
    If intX>0 and intY>0
        Delay 100
        KeyPressS 13,1
        Delay 100
    EndIf 
    Goto 环境判断start
    Rem 返回调用处
Return 环境判断
Sub 准备游戏
    c=0
    Rem 准备游戏start
    MoveToS 0,0
    Delay 100
    LeftClickS 1
    Delay 100
    IfColor 119,697,6b3712,0
    Else 
        If c<=20
            c=c+1
            Goto 准备游戏start
        EndIf 
    EndIf 
    c=0
    IfColor 234,699,f69800,0