//自定义变量
UserVar 模式=DropList{"打架":1|"喊话":2|"喊话+打架":3}=0 "选择功能模式"
//喊的话语
UserVar hua1="自动喊的第1句话" "自动喊的第1句话"
UserVar hua2="自动喊的第2句话" "自动喊的第2句话"
UserVar hua3="自动喊的第3句话" "自动喊的第3句话"
UserVar hua4="自动喊的第4句话" "自动喊的第4句话"
UserVar hua5="自动喊的第5句话" "自动喊的第5句话"
//定义变量H为窗口句柄
Dim h
h = Plugin.Window.Find("GAMEAPP", 0)
Delay 100
//根据模式模式选择情况
If 模式 = 1 Then 
        Call 只打架
End If
If 模式 = 2 Then 
        Call 只喊话
End If
If 模式 = 3 Then 
        Call 打架和喊话
End If
//飞车后台喊话
Sub 只喊话
        Call Plugin.Bkgnd.KeyPress(h, 13)
        Delay 300
        Rem l
        Call 话语1
        Delay 300
        Call 话语2
        Delay 300
        Call 话语3
        Delay 300
        Call 话语4
        Delay 300
        Call 话语5
        Delay 300
        Goto l
End Sub
//飞车后台打架
Sub 只打架
        Rem K
        Call 打架
        Delay 800
        Goto K
End Sub
//飞车后台喊话+打架
Sub 打架和喊话
Rem J
Call 打架
Delay 800
Call 话语1
Delay 300
Call 打架
Delay 800
Call 话语2
Delay 300
Call 打架
Delay 800
Call 话语3
Delay 300
Call 打架
Delay 800
Call 话语4
Delay 300
Call 打架
Delay 800
Call 话语5
Delay 300
Goto j
End Sub
//子程序飞车后台打架
Sub 打架
Call Plugin.Bkgnd.MoveTo(h, 678, 105)    
Call Plugin.Bkgnd.RightClick(h, 678, 105)
Delay 200
Call Plugin.Bkgnd.MoveTo(h, 695, 323)
Call Plugin.Bkgnd.LeftClick(h,695,323)
End Sub
//子程序说的话1
Sub 话语1
        Call Plugin.Bkgnd.KeyDown(h, 13)
        Delay 300
Call Plugin.Bkgnd.SendString(h, hua1)
Delay 200
Call Plugin.Bkgnd.KeyPress(h, 13)
End Sub
//子程序说的话2
Sub 话语2
Call Plugin.Bkgnd.KeyDown(h, 13)
Delay 300
Call Plugin.Bkgnd.SendString(h, hua2)
Delay 200
Call Plugin.Bkgnd.KeyPress(h, 13)
End Sub
//子程序说的话3
Sub 话语3
Call Plugin.Bkgnd.KeyDown(h, 13)
Delay 300
Call Plugin.Bkgnd.SendString(h, hua3)