End Sub
Sub xuelan50
    IfColor ux+199,uy+67,"008400",2 then
        Else 
        KeyPress xueyao, 1
    End If 
    Delay 200
    IfColor ux+199,uy+80,"AD720A",2 then
       Else 
       KeyPress lanyao, 1
       End If
    End sub

Sub xuelan30
    IfColor ux+157,uy+67,"008400",2 then
        Else 
        KeyPress xueyao, 1
    End If 
    Delay 200
    IfColor ux+157,uy+80,"AD720A",2 then
       Else 
       KeyPress lanyao, 1     
    End If
    End sub

Sub jccw
		IfColor ux + 174, uy + 108, "00BE37", 2 Then
		Else 
		KeyDown 17, 1
        KeyPress 112, 1
        KeyUp 17, 1
        Delay 3000
        End If
       End Sub
       Sub cwxuelan50
    IfColor ux+224,uy+108,"009300",2 then
        Else 
        KeyPress cwxueyao, 1
    End If 
       End sub

Sub cwxuelan30
    IfColor ux+189,uy+108,"009300",2 then
        Else 
        KeyPress cwxueyao, 1
    End If 
    End sub