iotbot-plugins/MenuOfWeatherFeature.lua at master · xiyaowong/iotbot-plugins · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
-- 天气菜单
local Api = require("coreApi")
local http = require("http")

function menu()
    local items = {
        'nmc/天气 + 城市(简短，准确)',
        '近10天全国最高气温实况图 => 最高气温实况',
        '近10天全国最低气温实况图 => 最低气温实况',
        '24小时最高气温预报 => 最高气温预报',
        '24小时降水量预报 => 降水量预报',
        '1小时降水量实况 => 降水量',
        '全国逐时风 => 逐时风',
        '全国雷达拼图 => 雷达',
        '能见度 => 能见度',
        'FY4A真彩色 => 真彩色',
        'FY4A红外 => 4A红外',
        'FY4A可见光 => 4A可见光',
        'FY2G可见光 => 2G可见光',
        'FY4A水汽 => 4A水汽',
        'FY2G水汽增强图 => 2G水汽增强图',
        'FY2G红外一增强图 => 2G红外一增强图',
        'FY2G红外二增强图 => 2G红外二增强图',
        'FY2G圆盘图 彩色圆盘图 => 彩色圆盘图',
        '海区红外云图 => 海区红外云图',
        '台风报文 => 台风报文',
        '台风路径预报 => 台风路径预报',
        '森林火险气象预报 => 森林火险气象预报',
        '草原火险气象预报 => 草原火险气象预报',
        '公路气象预报 => 公路气象预报',
        '山洪灾害气象预警 => 山洪灾害气象预警',
        '渍涝风险气象预警 => 渍涝风险气象预警',
        'GRAPES_TYM台风路径 => GT台风路径'
    }
    local msg = ''
    for _,val in pairs(items) do
        msg = msg..val..'\n'
    end
    return '天气菜单:\n'..msg
end

function ReceiveGroupMsg(CurrentQQ, data)
    if data.FromUserId == tonumber(CurrentQQ) then
        return 1
    end
    if data.Content == '天气菜单' or data.Content == 'wmenu' then
        Api.Api_SendMsg(
            CurrentQQ,
            {
                toUser = data.FromGroupId,
                sendToType = 2,
                sendMsgType = "TextMsg",
                groupid = 0,
                content = menu(),
                atUser = 0
            }
        )
        return 2
    end
    return 1
end

function ReceiveFriendMsg(CurrentQQ, data) return 1 end
function ReceiveEvents(CurrentQQ, data, extData) return 1 end