dim color(2)
dim s,x,y
color(0)="ebff":color(1)="ebff":color(2)="ebff"
VBSCall FindCenterColor(0,0,1024,768,color(s),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
Else 
EndIf 
Rem 2
dim color(2)
dim s1,x,y
color(0)="e1997b":color(1)="e1997b":color(2)="e1997b"
VBSCall FindCenterColor(0,0,1024,768,color(s1),x,y)
If x>0 and y>0
    Goto 1
Else 
    MoveTo 496,381
    LeftClick 1
    Goto 2
EndIf 
Rem 1
Delay 1000
dim color(2)
dim s2,x,y
color(0)="20ccf0":color(1)="20ccf0":color(2)="20ccf0"
VBSCall FindCenterColor(0,0,1024,768,color(s2),x,y)
If x>0 and y>0
    MoveTo X,Y
    MoveR 0,10
    LeftClick 1
    LeftClick 1
Else 
EndIf 
Delay 1000
dim color(2)
dim s3,x,y
color(0)="30c8e8":color(1)="30c8e8":color(2)="30c8e8"
VBSCall FindCenterColor(0,0,1024,768,color(s3),x,y)
If x>0 and y>0
    MoveTo X,Y
    MoveR 0,10
    LeftClick 1
    LeftClick 1
Else 
EndIf 
Delay 1000
LeftClick 1
Delay 3000
Rem 4
dim color(2)
dim s4,x,y
color(0)="706078":color(1)="706078":color(2)="706078"
VBSCall FindCenterColor(0,0,1024,768,color(s4),x,y)
If x>0 and y>0
    MoveTo X,Y
    MoveR 0,10
    LeftClick 1
    LeftClick 1
    Delay 4114
Else 
    Goto 4
EndIf 
UserVar str1=0 请输入你的帐号
Dim str1
SayString str1
Delay 1000
KeyPress 9,1
UserVar str2=0 请输入你的密码
Dim str2
SayString str2
KeyPress 13,1
Delay 4000
UserVar Var1=DropList{人物1:1|人物2:2|人物3:3|人物4:4|人物5:5|人物6:6}=1 选择人物
If Var1 = 1
    Gosub 人物1
ElseIf Var1 =2
    Gosub 人物2
ElseIf Var1 =3
    Gosub 人物3
ElseIf Var1 =4
    Gosub 人物4
ElseIf Var1 =5
    Gosub 人物5
ElseIf Var1 =6
    Gosub 人物6
EndIf 
EndScript 
Sub 人物1
    dim color(2)
    dim s5,x,y
    color(0)="31faff":color(1)="31faff":color(2)="31faff"
    VBSCall FindCenterColor(0,0,1024,570,color(s5),x,y)
    If x>0 and y>0
        MoveTo X,Y
        MoveR 315,155