ElseIf Var7=7
    Gosub 07
ElseIf Var7=8
    Gosub 08
ElseIf Var7=9
    Gosub 09
ElseIf Var7=10
    Gosub 10
EndIf 
Delay 3562
Rem 11802
Rem 1134
dim color(2)
dim s92,x,y
color(0)="869dad":color(1)="748d99":color(2)="3c484e"
VBSCall FindCenterColor(335, 349,465, 411,color(s92),x,y)
If x>0 and y>0
    Goto 1135
Else 
    Delay 3000
    Goto 1134
EndIf 
s92=s92+1
Rem 1135
UserVar Var8=DropList{角色1:1|角色2:2|角色3:3|角色4:4}=3 选择你角色(此项分辨率800*600).
If Var8=1
    Gosub 001
ElseIf Var8=2
    Gosub 002
ElseIf Var8=3
    Gosub 003
ElseIf Var8=4
    Gosub 004
EndIf 
MoveTo 400,369
Delay 2000
LeftClick 1
Delay 50
LeftClick 1
Delay 50
LeftClick 1
Delay 50
LeftClick 1
Delay 50
EndIf 
//下面这句是播放路径("C:\WINDOWS\Media\Windows XP 启动.wav")音乐文件
Plugin Media.Play("C:\WINDOWS\Media\Windows XP 启动.wav")
//搜索是否进入游戏（下面）
Rem 11012
dim color(2)
dim s30,x,y
color(0)="13e2fe":color(1)="13e2fe":color(2)="13e2fe"
VBSCall FindCenterColor(357, 520,1023, 688,color(s30),x,y)
If x>0 and y>0
    Goto 1100120
Else 
    Delay 5000
    Goto 11012
EndIf 
Rem 1100120
Goto 112
EndScript 
Sub Test网通一区
    MoveTo 500,207
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test网通一区
Sub Test网通二区
    MoveTo 500,238
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test网通二区
Sub Test网通三区
    MoveTo 500,267
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test网通三区
Sub Test网通四区
    MoveTo 500,295
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test网通四区
Sub Test电信一区
    MoveTo 500,327
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信一区
Sub Test电信二区
    MoveTo 500,358
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信二区
Sub Test电信三区
    MoveTo 500,387