QQ三国自动喊话6.1版
//自动叫卖，反复输入一些话。
//6.1版新增多频道喊话和高速模式。
//可以设定QQ三国中分别在哪些频道喊话。
//不支持全屏游戏。
//运行速度请根据电脑反应和网络延迟的快慢来选择！
//运行速度为"光速"时，对电脑和网络要求非常高！
//在游戏中按下热键即可说话。
//自己可以修改说话的内容。
//作者 关耳 QQ 412156241
//11年02月6日更新
//*************************************************
UserVar TongPing=DropList{"开启":1|"关闭":2}=2 "同屏频道喊话"
UserVar GuoJia=DropList{"开启":1|"关闭":2}=1 "国家频道喊话"
UserVar ZhiYe=DropList{"开启":1|"关闭":2}=1 "职业频道喊话"
UserVar JunTuan=DropList{"开启":1|"关闭":2}=2 "军团频道喊话"
UserVar ShuDu=DropList{"最快":0|"高速":10|"中速":100|"普通":200|"低速":500}=500 "运行速度"
UserVar str1="这是自动喊的句子" "请输入自动叫喊的句子"
UserVar wait=20 "设置发话间隔时间(秒）"
SetSimMode 2



If ShuDu=0 then
    Rem RE
    If TongPing=1 Then
        KeyPress "Enter", 1
        SayString "/a "
        SayString str1
        KeyPress "Enter", 1
    ElseIf TongPing=2 Then
    End If
    If GuoJia=1 Then
        KeyPress "Enter", 1
        SayString "/e "
        SayString str1
        KeyPress "Enter", 1
    ElseIf GuoJia=2 Then
    End If
    If ZhiYe=1 Then
        KeyPress "Enter", 1
        SayString "/c "
        SayString str1
        KeyPress "Enter", 1
    ElseIf ZhiYe=2 Then
    End If
    If JunTuan=1 Then
        KeyPress "Enter", 1
        SayString "/g "
        SayString str1
        KeyPress "Enter", 1
    ElseIf JunTuan=2 Then
    End If
    For 1000
        Delay wait
    Next 
    Goto RE
ElseIf ShuDu>0 then
End If





Rem go
If TongPing=1 Then
    Delay 100
    KeyPress "Enter", 1
    Delay 50
    SayString "/a "
    SayString str1
    Delay 100
    KeyPress "Enter", 1
    Delay ShuDu
ElseIf TongPing=2 Then
End If

If GuoJia=1 Then
    Delay 100
    KeyPress "Enter", 1
    Delay 50
    SayString "/e "
    SayString str1
    Delay 100
    KeyPress "Enter", 1
    Delay ShuDu
ElseIf GuoJia=2 Then
End If

If ZhiYe=1 Then
    Delay 100
    KeyPress "Enter", 1
    Delay 50
    SayString "/c "
    SayString str1
    Delay 100
    KeyPress "Enter", 1
    Delay ShuDu
ElseIf ZhiYe=2 Then
End If