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