Delay 1000  '等待1秒

//选择网络
Select Case Form1.网络.ListIndex
Case 0
    MoveTo 50, 50    '【网络坐标】请自行修改
Case 1
    MoveTo 50, 100   '【网络坐标】请自行修改
Case 2
    MoveTo 50, 150   '【网络坐标】请自行修改
End Select
Delay 1000  '等待1秒
LeftClick 1 '鼠标左键点击一次
Delay 1000  '等待1秒
//选择服务器
Select Case Form1.服务器.ListIndex
Case 0
    MoveTo 100, 50   '【服务器坐标】请自行修改
Case 1
    MoveTo 100, 100  '【服务器坐标】请自行修改 
End Select
Delay 1000  '等待1秒
LeftClick 1 '鼠标左键点击一次
Delay 1000  '等待1秒

//选择角色
Select Case Form1.角色.ListIndex
Case 0
    MoveTo 100, 100  '【角色坐标】请自行修改
Case 1
    MoveTo 200, 100  '【角色坐标】请自行修改
Case 2
    MoveTo 300, 100  '【角色坐标】请自行修改
End Select
Delay 1000  '等待1秒
LeftClick 1 '鼠标左键点击一次
Delay 1000  '等待1秒

//循环等待游戏登录到场景中
Do
    Delay 1000 '等待1秒
    IfColor 50,5,"0000FF",0 Then  '【坐标与颜色】需要自行修改。判断游戏已经进入场景了
        Exit Do  '离开循环等待
    End If 
Loop 

//初始防卡时间设置
Dim t1
t1=now

//<>--------------------------------------------------开始执行挂机脚本--------------------------<>
Rem 开始

Call 人物状态保护
Rem 找怪
KeyPress "Tab",1  '找怪热键
Delay 500
//在这里2个延时中间可以加入【捡物】处理
Delay 500
//判断是否找到怪物
IfColor 50,5,"0000FF",0 Then  '【坐标与颜色】需要自行修改
    //开始打怪    
    Do
        KeyPress "A", 1  '打怪攻击热键
        Delay 200
        Call 人物状态保护
        //<>------------------------------------------防卡设置--------------------------<>
        If DateDiff("s",t1,now) >= Form1.等待.Text Then
            t1=now
            Exit Do
        End If 
        Delay 200
    Loop
End If
//<>--------------------------------------------------复活方式设置--------------------------<>
If Form1.复活方式.ListIndex > 0 Then 
    IfColor 0,0,"0",0 Then  '【坐标与颜色】需要自行修改
        //执行复活方式
        If Form1.复活方式.ListIndex = 1 Then

        ElseIf Form1.复活方式.ListIndex = 2 Then 
        
        ElseIf Form1.复活方式.ListIndex = 3 Then 
        
        End If   
    End If
End If
//<>--------------------------------------------------死亡处理设置--------------------------<>
If Form1.死亡处理.ListIndex > 0 Then 
    IfColor 0,0,"0",0 Then  '【坐标与颜色】需要自行修改
        //执行报警
        If Form1.死亡处理.ListIndex = 1 Then
            Call Plugin.Media.Play(Form1.路径.Text)
            Delay 5000
            Goto 结束  '脚本停止
        ElseIf Form1.死亡处理.ListIndex = 2 Then 
        
        ElseIf Form1.死亡处理.ListIndex = 3 Then 
        
        End If