Call ckclb(d3ID)
    Delay 300
    If d3anj = "alt+q" Then 
        Call altq
    ElseIf d3anj = "alt+d" Then
        Call altd
    ElseIf d3anj = "alt+a" Then
        Call alta
    End If
    If d3banj = "alt+q" Then 
        Call altq
    ElseIf d3banj = "alt+d" Then
        Call altd
    ElseIf d3banj = "alt+a" Then
        Call alta
    End If
    Call ckclb(d4ID)
    Delay 300
    If d4anj = "alt+q" Then 
        Call altq
    ElseIf d4anj = "alt+d" Then
        Call altd
    ElseIf d4anj = "alt+a" Then
        Call alta
    End If
    If d4banj = "alt+q" Then 
        Call altq
    ElseIf d4banj = "alt+d" Then
        Call altd
    ElseIf d4banj = "alt+a" Then
        Call alta
    End If
    Call ckclb(d5ID)
    Delay 300
    If d5anj = "alt+q" Then 
        Call altq
    ElseIf d5anj = "alt+d" Then
        Call altd
    ElseIf d5anj = "alt+a" Then
        Call alta
    End If
    If d5banj = "alt+q" Then 
        Call altq
    ElseIf d5banj = "alt+d" Then
        Call altd
    ElseIf d5banj = "alt+a" Then
        Call alta
    End If
    Delay 10000
  
End Sub
Sub zhandouwan
    Rem xuh
    If wuyi = "a" Then 
        Goto yaowuyi
    ElseIf wuyi = "b" Then
        Goto buyuyi	
    End If
    Rem buyuyi
    FindPic 0,0,1024,768,"Attachment:\箱子.bmp",0.9,xianziX,xianziY
    If xianziX > 0 And xianziY > 0 Then 
        If jikai = "a" Then 
            Call 加血01
        ElseIf jikai = "b" Then
            Call 加血02
        ElseIf jikai = "c" Then
            Call 加血03  
        ElseIf jikai = "d" Then
            Call 加血04  
        ElseIf jikai = "e" Then
            Call 加血05
           
        End If
        Goto ddxi
    End If
    Rem yaowuyi
    FindPic 0,0,1024,768,"Attachment:\箱子.bmp",0.9,xianziX,xianziY
    If xianziX > 0 And xianziY > 0 Then 
        If jikai = "a" Then 
            Call 加血001
        ElseIf jikai = "b" Then
            Call 加血002
        ElseIf jikai = "c" Then
            Call 加血003  
        ElseIf jikai = "d" Then
            Call 加血004  
        ElseIf jikai = "e" Then
            Call 加血005
            
        End If
        Goto ddxi
    End If
    Delay  100
    FindPic 0,0,1024,768,"Attachment:\fas.bmp",0.9,xianziX,xianziY
    If xianziX > 0 And xianziY > 0 Then 
        If jikai = "a" Then 
            Call zhandoua
        ElseIf jikai = "b" Then
            Call zhandoub 
        ElseIf jikai = "c" Then