a1 = form1.游戏路径.text
a10 = form1.InputBox1.text
a2 = form1.InputBox2.text
a3 = form1.InputBox3.text
a4 = form1.InputBox4.text
a5 = form1.InputBox5.text
a6 = form1.InputBox6.text
a7 = form1.InputBox7.text
a8 = form1.InputBox8.text
a9 = form1.InputBox9.text
YanShi = form1.InputBox11.text
c = form1.InputBox10.text
If Form1.CheckBox1.Value = 1 Then  
Call 运行1()
    Else  
    End If 
If Form1.CheckBox2.Value = 1 Then
Call 运行2()
    Else  
    End If 
If Form1.CheckBox3.Value = 1 Then
Call 运行3()
    Else  
    End If 
If Form1.CheckBox4.Value = 1 Then
Call 运行4()
    Else  
    End If 
Call 运行1()
Sub 运行1()
    Rem 开始1
    Delay 1000
    Delay YanShi
    MoveTo 40, 17
    Delay YanShi
    LeftClick 1
    Delay 50
    KeyPress "Enter", 1
    Delay 100
    Delay YanShi
    MoveTo 600, 300
    SaveMousePos
    i=0
    While i=0
        Delay YanShi
        FindColor 0,0,1024,768,"5ac3ef",intX,intY
        If intx>0 and inty>0
            Delay YanShi
            i=1
        EndIf 
    EndWhile 
    w1 = Plugin.Window.Find(0, "大话西游 II ($Revision: 214866 $)")
    Delay 50
    Call Plugin.Window.Active(w1)
    Delay 50
    Call Plugin.Window.Move(w1, 1, 1)
    Delay YanShi
    Rem b1
    IfColor 8,34,"2961A5",0 Then
        Delay YanShi
        MoveTo 579, 123
        Delay YanShi
        LeftClick 1
        Delay YanShi
    Else
        Goto b1
    End If
    Delay YanShi
    Rem b2
    IfColor 52,47,"394129",0 Then
        RightClick 1
        Delay YanShi
    Else
        Goto b2
    End If
    Delay YanShi
    Rem b3
    IfColor 36,45,"314129",0 Then
        Delay YanShi
        SayString a10
        Delay YanShi
    Else
        Goto b3
    End If
    Delay YanShi
    IfColor 384,390,"31CBFF",0 Then
        Delay YanShi
        MoveTo 414, 374
        Delay YanShi
        LeftClick 1
        Delay YanShi
        Call 创建1()
    Else
    End If
    Delay 500
    Call 关闭()
    Delay YanShi
    Goto 开始1
    End Sub
    Sub 运行2()