LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物1
Sub 人物2
    dim color(2)
    dim s6,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s6),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 415,155
        LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物2
Sub 人物3
    dim color(2)
    dim s7,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s7),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 515,155
        LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物3
Sub 人物4
    dim color(2)
    dim s8,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s8),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 316,280
        LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物4
Sub 人物5
    dim color(2)
    dim s9,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s9),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 416,280
        LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物5
Sub 人物6
    dim color(2)
    dim s10,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s10),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 516,280
        LeftClick 1
        Delay 100
        LeftClick 1
        Delay 100
        LeftClick 1
    Else 
    EndIf 
Return 人物6