local p = {}
--代码移植自接待喵lua机器人https://github.com/chenxuuu/receiver-meow-lua
local says = --哲学之语613句
{
"1000-7",
"70万都没有你还想当吧主",
"「……這個世界就是變態的。」",
"「人生在世数十年，小事不要太计较！」",
"啊哈哈，佐祐理不知道",
"爱的供养，再问自杀",
"矮穷矬",
"哎呀我摔倒了，要亲亲才能起来",
"暗中观察",
"傲娇毁一生",
"奥特oo",
"八点二十发",
"霸气侧漏",
"把我血加住，我有盾墙",
"白富美",
"百合无限好，可惜生不了",
"报复社会",
"保证打不死你",
"脖子以下到脚背以上形成了一个凄惨的平面",
"背后怕是有肮脏的屁眼交易",
"笨蛋是不会感冒的",
"本站立足于美利坚合众国，对全球华人服务，受北美法律保护",
"别人家的oo",
"别说了，我",
"不被发现就不算犯罪哦",
"不得了",
"不服来辩",
"不就是一块石头么，看我用高达把它推回去",
"不明真相的ooxx",
"不能描写的方式",
"不能同意更多",
"不抛弃不放弃",
"不如跳舞",
"不是敌人太强大，只是队友太oo",
"不是很懂你们oo",
"不是萝莉控，是女权主义者",
"不是oo，是x！",
"不要扶他",
"不要和我说什么oo",
"不要靠近我啊",
"不要问我oo是谁",
"不要在意细节",
"不作死就不会死，为什么不明白！",
"不oo不舒服斯基",
"不oo的话不就只能去死了吗",
"操到叫苦连天",
"厕纸",
"蝉在叫人坏掉",
"超高校级的oo",
"车塞卡",
"沉迷学习，日渐消瘦",
"诚哥死得早",
"吃饭睡觉打oo",
"吃我龙神之剑",
"穿山甲到底说了什么",
"纯爷们从不回头看爆炸",
"此处应该有掌声",
"此生无悔入东方，来世愿生幻想乡",
"从小o到大",
"从业二十年，做人做事，无愧于心",
"大葱插菊花治疗感冒",
"大力出奇迹",
"打麻将真开心啊",
"大清亡了",
"打土豪，分手办",
"大丈夫萌大奶",
"带球撞人",
"但是我拒绝",
"单纵就是干",
"当你拥有ooo",
"当然是选择原谅她",
"今天，一个死宅实现了他的梦想",
"德国的科学技术是世界第一",
"地球君又杯具了",
"敌羞吾去脱她衣",
"东京电视台最强传说",
"东吴爱萝莉，曹魏控人妻，蜀汉全是基",
"都是oo的错",
"对方不想和你说话并向你扔了oo",
"多大仇",
"堕落！萌死他卡多！",
"二货，快来条士力架",
"而且没有人爱你",
"而是你要享受这个过程",
"Excuse me???",
"发图不发种，菊花万人捅",
"反射弧太长",
"放铳输一局，缩卵输一生",
"放开那个oo",
"飞龙骑脸怎么输",
"粉红的切开来里面都是黑的",
"风险投资",
"弗拉格综合征",
"父母双亡，有妹有房",
"嘎嘣脆鸡肉味",
"该来的总会来的",
"感觉亏了一个亿",
"干了这碗恒河水",
"刚刚o了一下",
"搞事情",
"告诉oo我还爱她",
"高阻绿",
"各个都是人才，说话又好听，超喜欢在里面",
"哥哥让开这样我杀不了那家伙",
"给您拜年了",
"给dalao递oo",
"根本停不下来",
"根据相关法律法规和政策，部分搜索结果未予显示",
"挂科比不挂柯南",
"官方逼死同人",
"官方吐槽",
"广州宅报",
"国家欠我一个oo",
"过去的oo弱爆了",
"国之将亡，遍地舰娘",
"害怕",
"还是种田比较适合老子",
"还有马桶盖子",
"好多孩子看到这个根本把持不住",
"好平如潮",
"好气啊，但还是要保持微笑",
"好讨厌，眼泪一直停不下来",
"毫无ps痕迹",
"和怪兽战斗是自卫队的传统",
"喝最烈的酒",
"嘿嘿……怎麼說呢，說起來有點下流…我竟然…勃起了",
"很了不起的大象先生吧",
"恨妹不成穹",
"画个圈圈诅咒你",
"画个xx硬说是oo",
"皇上，臣妾做不到啊",
"回老家结婚",
"活久见",
"Interesting",
"基本国情",
"记得关好门",
"计划通",
"技术宅拯救世界",
"简直就是狂欢一样",
"讲道理",
"教练，我想ooo",
"脚只是装饰而已，上面的大人物是不会懂的",
"揭棺而起 起驾回棺",
"进击的oo",
"晋太元中",
"今天的风儿好喧嚣啊",
"警察叔叔，就是这个人",
"净TM扯淡",
"就打德",
"AF可能缺少淡水",
"舅舅党",
"就算不结婚有妹妹不就好了吗",
"就算是神也杀给你看",
"就算是oo，只要有爱就没问题",
"就这样插进去就行了",
"巨乳只有下垂的未来",
"绝望了，我对这个oo的世界绝望了",
"君日本语本当上手",
"卡在了奇怪的地方",
"开局一把刀装备全靠捡",
"开始你的表演",
"看啊，你的死兆星在天上闪耀",
"看见oo我就进来了",
"看来你不懂生命的可贵",
"砍了那只鸭",
"可爱的oo早已",
"可爱即正义",
"克里斯关下门",
"可是那一天，我有了新的想法",
"可喜可贺",
"可惜是个oo",
"可以的，ooo",
"空降",
"恐怕罪魁祸首就是oo",
"空手拆高达",
"Konmai quality",
"快拔网线!",
"快到碗里来",
"快看他画风和我们不一样",
"快闪开我按错了",
"来盘昆特牌吧",
"来相思树下",
"Lame Uncomfortable Laugh",
"蓝瘦，香菇",
"老子有oo你怕不怕",
"理都懂",
"厉害了我的哥",
"历史总是惊人地相似",
"联邦的MS都是怪物吗",
"连我爸爸都没有打过我",
"连自己心爱的人都救不了，我还算什么oo",
"楼主好人一生平安",
"论oo的xxx",
"萝莉有三好，身娇腰柔易推倒",
"妈的智障",
"妈妈再也不用担心我的oo",
"Mad in chine",
"满状态原地复活",
"冒险家翻抽屉有什么不对",
"美国其实并不存在",
"没毛病",
"没图你说个oo",
"萌娘百科收录希望",
"萌音绕梁，三日不绝",
"谜已经全部解开了",
"明天来oo上班",
"魔法少女oo",
"目睹事件全过程的O先生",
"木有鱼丸",
"哪里不会点哪里",
"那万一赢了呢",
"那一天，人类终于想起了oo的恐怖",
"奈何共军有高达",
"奶奶曾经说过",
"男人变态有什么错",
"脑装屎",
"你暴露时间了",
"你不会百度吗",
"你才oo，你们全家都oo",
"你从什么时候开始产生了oooo的错觉",
"你的爱还不够啊",
"你的好友oo已上线",
"你的英勇长存人心",
"你还记得自己是男的",
"你经历过绝望吗",
"你看看你",
"你渴望力量吗",
"你妈逼你结婚了吗",
"你妈喊你回家吃饭",
"你们……有没有oo",
"你们城里人真会玩",
"你们的关系可真好啊",
"你们都是坏人",
"你们都是我的翅膀",
"你们对力量一无所知",
"你们感受一下",
"你们尽管oo，xx了算我输",
"你们两个，干脆交往算啦",
"你们这是自寻死路",
"你傻逼！再见！",
"你是猴子请来的救兵吗",
"你谁啊",
"你为何这么屌",
"你为什么不问问神奇海螺呢",
"你为什么这么叼",
"你行你上啊",
"你胸太小不要说话",
"你已经死了",
"你咋不上天呢",
"你在大声什么啦",
"你这么厉害怎么不去青青草原抓羊",
"你这么oo，你xx知道吗",
"你知道的太多了",
"你制杖吗？不，我贩剑。",
"酿了你哦",
"你tm感动了我",
"牛顿死得早",
"浓浓的超好喝",
"O成狗",
"O分钟惨案",
"O军马鹿",
"O月是xx的oo",
"O在起跑线",
"Oo is watching you",
"Oo，你算计我！oo！",
"Oo，我只服xx",
"Oo必须死",
"Oo大法好",
"Oo的人生不需要解释",
"Oo的笑容由我来守护",
"Oo点击就送",
"Oo多如狗，xx满地走",
"Oo儿女多奇志",
"Oo还能再战xx年",
"Oo还在，xx没了",
"Oo还只是个孩子",
"Oo好可爱啊oo",
"Oo黑丧心病狂",
"Oo很萌的，你们不要黑她",
"Oo救不了xx",
"Oo可绕地球x圈",
"Oo哭晕在厕所",
"Oo了，我不做xx的粉丝了",
"Oo美如画",
"Oo你好，oo再见",
"Oo你突破盲點了",
"Oo让你滚，你就不得不滚",
"Oo人民发来贺电",
"Oo如同大小姐的威严一样伟岸",
"Oo什么的最讨厌了",
"Oo是本体",
"Oo是检验xx的唯一标准",
"Oo是什么，能吃吗",
"Oo是完全没有必要的存在",
"Oo是一种思想，而思想是不怕xx的",
"Oo望着自己贫瘠的胸部说道",
"Oo我老婆",
"Oo五分钟，xx两小时",
"Oo已经阻止不了我了",
"Oo已死",
"Oo有毒",
"Oo又死了真没人性",
"Oo与xx之间的惨烈修罗场",
"Oo在下很大的一盘棋",
"Oo真是天使",
"Oo只能帮你到这儿了",
"Oo只是个oo",
"Ooo，我们走",
"Oooo，av10492",
"配合oo食用风味更佳",
"贫乳是稀有价值",
"普通oo，文艺oo和2boo",
"其实我是你爸爸",
"其他人做得到吗",
"前方高能反应",
"前方oo福利",
"前略，天国的oo",
"千万不要搜索oo",
"枪毙十分钟",
"抢铁集团",
"亲妹妹不如干妹妹",
"请允许我做一个悲伤的表情",
"去死两次",
"然而并没有什么卵用",
"然而oo早就看穿了一切",
"饶罗翔教你截图",
"人被杀就会死",
"人家拿小拳拳捶你胸口",
"人类才勇敢",
"人类已经失去了oo的权利了",
"人数过万，智商减半",
"任性可是女孩子的天性呢",
"认真你就输了",
"日日夜夜",
"如果你是oo你还笑得出来吗",
"如果你ooo我们还是朋友",
"如果奇迹有颜色，那一定是橙色",
"如果oo就是神作了",
"如今又再度变得温顺了",
"萨满，又疯一个",
"三个人结婚吧",
"三秒规则",
"三年起步，最高死刑",
"三索必须死",
"三天三夜",
"上交给国家",
"少女祈祷中",
"烧死那对异性恋",
"射爆",
"社会我oo",
"摄影师你明天不用来上班了",
"神马都是浮云",
"神说你还不能死在这里",
"圣光啊，你有看到那个oo吗",
"声优不要钱",
"声优都是怪物",
"声优怒领工资",
"时代在进步",
"世界上没有什么事是一oxx不能解决的，如果有，那就两o",
"视觉模糊",
"十五字",
"是在下输了",
"是oo的friends呢",
"收了可观的小费后，酒馆老板小声道",
"输出基本靠吼",
"兽娘动物园:属性",
"帅不过三秒",
"谁过来谁先死",
"谁指使你来的",
"瞬间爆炸",
"说鸡不说吧，文明你我他",
"四舍五入就是一个亿",
"死宅真恶心",
"酸甜苦辣咸，ooooo",
"虽不明，但觉厉",
"虽然我可爱又迷人，但我会招来死亡",
"虽然我谦虚又宽容，但是有三种人我无法忍受",
"虽现狗",
"所累哇多卡纳",
"所罗门哟，我又回来了",
"太太我喜欢你啊",
"躺着也中枪",
"天降软妹",
"甜食是装在另一个胃里的",
"天下漫友是一家",
"天诛八尺，还我公图",
"土豪我们做朋友好不好",
"图样图森破",
"挖掘机技术哪家强",
"万物皆可萌",
"万物皆虚，万事皆允",
"未被穿过的胖次是没有价值的",
"为了保护我们心爱的ooo……成为偶像！",
"为什么放弃治疗",
"为什么没有oo？",
"为什么要伤害我们的脖子",
"为什么要说又呢",
"为王的诞生，献上礼炮！",
"我，秦始皇，打钱",
"我不是 我没有",
"我不需要性爱",
"我不要看繁星",
"我不做人了",
"我曾经把你当做过自慰对象",
"我从未见过有如此厚颜无耻之人",
"我的4S笑而不语",
"我的车里有空调",
"我的妹妹不可能这么可爱",
"我的内心毫无波动，甚至还想笑",
"我的字典里没有oo",
"我的oo已经饥渴难耐了",
"我对普通的oo没有兴趣",
"我给你一次重新组织语言的机会",
"我跟你讲，ooㄋㄟㄋㄟ，赞",
"我还没出力，你就倒下了",
"我好兴奋呀",
"我和你将在那个新世界里成为新的夏娃和夏娃",
"我和我的小伙伴们都惊呆了",
"我怀疑你是oo",
"我会到处乱说吗",
"我今天吃药的时候看到一个新闻",
"我敬你是条汉子",
"我就是高达",
"我就是叫紫妈怎么了",
"我居然在oo上看xx",
"我觉得我还能再抢救一下",
"我觉得我优势很大",
"我开始方了",
"我看过报道，这个人后来死了",
"我考虑了一下还是无法接受啊",
"我可能oo了假的xx",
"我裤子都脱了你就让我看这个",
"我们不用很麻烦很累就可以成佛",
"我们成年人看了都感觉不适",
"我们的同志遍布五湖四海，甚至打入了某些组织的内部",
"我们的宇宙充满了质子，中子，电子，还有奶子",
"我们的征途是星辰大海",
"我们来削弱oo吧",
"我们中出了叛徒",
"我能吞下玻璃而不伤身体",
"我平胸我骄傲，我为国家省布料",
"我凭自己本事oo，为什么要xx",
"我去年买了个表",
"我认为H是不对的",
"我日你先人",
"我上电视了",
"我是输给了地球的重力",
"我听了顿时怒火就上来了",
"我为自己代言",
"我下面给你吃",
"我现在内心感到悲痛欲绝",
"我想静静",
"我想起来了",
"我选择死亡",
"我要成为新世界的卡密",
"我已经看到结局了",
"我有一个大胆的想法",
"我有异议",
"我有知识我自豪",
"我真是个罪孽深重的女人",
"我整个人都oo了",
"我只是路过的○○",
"我ooo就算饿死不会吃你一点东西",
"无敌的oo倒下了",
"无敌是多么寂寞",
"无法直视",
"污姬白凤丸",
"吾心吾行澄如明镜，所作所为皆为正义",
"吓得我都oo了",
"下个ID见",
"羡慕嫉妒恨",
"现实就是个垃圾游戏",
"现已加入肯德基豪华午餐",
"咸鱼王，我当定了",
"现在，我的手中抓住了未来",
"现在是你比较强",
"想不到你居然是这种oo",
"乡队员不是在与杰克的搏斗中死了吗",
"向黑恶势力低头",
"想死一次吗",
"相信我，你也可以变成光",
"小火把在闲逛",
"小鸟游家要小心一个叫x太的男人",
"小学生真是太棒了",
"写作oo读作xx",
"心如苍井空似水",
"信息量很大",
"性别不同怎么谈恋爱",
"胸不平何以平天下，乳不巨何以聚人心",
"胸部什么的，明明只是装饰",
"胸刹现场",
"玄不救非，氪不改命",
"亚瑟王不懂人心",
"眼睛，我的眼睛",
"眼睛里进了oo",
"羊角地铁",
"要上了ooo——xx的储备足够吗",
"要优雅，不要污",
"也是蛮拼的",
"一把剑就直接穿过去了",
"一本正经地胡说八道",
"一大波僵尸正在接近",
"一大团广场",
"一代补丁一代神",
"一旦接受了这种设定",
"一定是我打开的方式不对",
"一对百合一对基，剩下一个是苦逼",
"一飞冲天啊,我!",
"一股恋爱喜剧的酸臭味",
"一家人最重要的是整整齐齐",
"已经吃不下了",
"已经没什么好害怕的了",
"已经没有人为我站出来说话，因为他们都被抓走了",
"一脸懵逼",
"以抢钱为宗旨，待旅客如孙子",
"一曲忠诚的赞歌",
"一入oo深似海，从此节操是路人",
"艺术就是爆炸",
"以为是oo吗？残念！是xx！",
"以下省略oo字",
"以牙还牙，加倍奉还",
"一言不合就oo",
"一直被oo，从未被超越",
"因为很重要所以说了两遍",
"因为神圣的F2A链接着我们每一个人",
"因为我是oo",
"樱trick综合征",
"勇士喜欢巨乳有什么错",
"用我一生节操换ooo永不完结",
"又到了交配的季节",
"有个能干的妹妹真好",
"又黑我大oo",
"有家，有爱，有欧派",
"有件事说出来你可能不信",
"友军之围",
"有奇怪的东西混进去了",
"有什么东西要觉醒了",
"有一种杀了他就能升级的感觉",
"远的不是距离，而是次元啊",
"元芳你怎么看",
"远看炮塔吓死人，近看五对负重轮",
"愿天下有情人都是失散多年的亲兄妹",
"在我眼里都是渣",
"暂停学表情",
"怎么办，我也很绝望啊",
"宅男费纸，宅女费电",
"战斗力膨胀",
"战斗力只有5的渣渣",
"战个痛快",
"涨姿势",
"这不科学",
"这点题我给满分",
"这个锅我不背",
"这个男人，有两把刷子",
"这个年纪的男孩子对胸部感兴趣不是理所当然的吗",
"这个时候应该@oo",
"这个oo是会玩儿的",
"这火我不传",
"这就是外国人少的原因",
"这么可爱一定是男孩子",
"这破o吃枣药丸",
"这是何等的灵压啊",
"这是计划的一部分",
"这是禁止事项",
"这是LoveLive",
"这是人干的事吗",
"这是我爸爸在夏威夷教我的",
"这是我最后的波纹",
"这是一道送分题",
"这是一个圈套",
"这是一个神奇的oo",
"这是一个oo的故事",
"这时只要微笑就可以了",
"这首xxx送给oo",
"这虽然是游戏，但可不是闹着玩的",
"这腿我能玩一年",
"这游戏能玩？",
"这种全靠运气的垃圾游戏",
"侦测到在途的聚变打击",
"真当自己大小姐",
"真当oo不上xx",
"真是肤浅",
"真是HIGH到不行",
"真相并非永远只有一个",
"真相永远只有一个",
"正面上我啊",
"之后干了个爽",
"只要出问题C4都能搞定",
"只要打不中就没有什么大不了",
"只要可爱就算是男孩子也没关系",
"只要杀了oo我随便你搞",
"只有oo知道的世界",
"主角胜于嘴炮，反派死于话多",
"诸君，我喜欢oo",
"抓住一只野生的oo",
"专注oo三十年",
"自带BGM",
"自带oo",
"自古二楼出oo",
"自古红蓝出CP",
"自古蓝毛多苦逼",
"自古OP多剧透",
"自古肉番出燃曲",
"自挂东南枝",
"梓喵打酱油",
"字幕组调皮了",
"总有刁民想害朕",
"总有一天你们会看着我画的东西撸",
"总有一天我的生命将抵达终点，而你，将加冕为王",
"走错片场了",
"钻头是男人的浪漫",
"最强的ooo一切都是必然的",
"最上川"
}
local goodthings =
{
"补番：现在不补，更待何时？",
"逛B站：各种涨姿势",
"抽卡开箱子：哇都是宝贝",
"早起：新的一天干劲满满",
"时间众筹：移动速度变快",
"啪啪啪：啪啪啪啪啪",
"吃鸡：大吉大利，晚上吃鸡！",
"调戏群主：群主害羞地发了张女装照",
"抚摸喵星人：喵？",
"追番：更新好及时啊",
"看书：知识是人类进步的阶梯",
"下馆子：今天餐馆优惠啦",
"看电视：都是喜欢的节目",
"告白：被FFF烧死",
"戴帽子：白色象征权力，绿色代表力量",
"逛H站：硬盘要满了啦",
"立FLAG：做事要靠自己的努力了啦",
"吃馒头：吃米饭是异端",
"出去玩：一天好心情",
"带上伞：没准会下雨",
"逛知乎：各种涨姿势，轮带逛",
"敲代码：虽然不知道写了什么，但是总觉得一定没有bug",
"网购：好多便宜的东西",
"早睡：今晚没有人陪你哦",
"听音乐：和我一起学猫叫~"
}
local badthings =
{
"补番：各种被剧透",
"逛B站：遇见小学生撕逼",
"抽卡开箱子：都是些什么鬼",
"早起：一整天都想睡",
"时间众筹：-1year",
"啪啪啪：会卡在里面",
"吃鸡：以掉下来就被打死",
"调戏群主：被禁言一个月",
"抚摸喵星人：一嘴毛",
"追番：怎么还没更新",
"看书：看不懂",
"下馆子：又浪费钱出去吃",
"看电视：这节目好假啊",
"告白：好人卡get√",
"戴帽子：被嘲笑",
"逛H站：都是重口味",
"立FLAG：你一定会成功",
"吃馒头：米饭才是王道",
"出去玩：共享单车全都是坏的",
"带上伞：没下雨，被嘲笑",
"逛知乎：知乎小管家把你封了",
"敲代码：知道写了什么，但是就是找不出bug的原因",
"网购：会被坑",
"早睡：会在半夜醒来，然后失眠",
"听音乐：软件卡主，文件丢失"
}
--随机数表代码来自https://www.cnblogs.com/slysky/p/5954053.html
--产生1~~m,若有n的则m~~n的数字表
function table.fillNum(m,n)
local j,k
if n then
j=m
k=n
else
j=1
k=m
end
local t={}
for i=j,k do
table.insert(t,i)
end
return t
end
--产生不相同的从m到n，一共cnt个随机数表
function math.randomx(m,n,cnt,seed)
local tmp=table.fillNum(m,n)
math.randomseed(seed)
local t={}
local x
while cnt>0 do
x = math.random(1,n-m+1)
table.insert(t,tmp[x])
table.remove(tmp,x)
cnt=cnt-1
m=m+1
end
return t
end
--获取运势结果
function getAlmanac(time,fromqq)
local day = math.floor(time/(3600*24))--取整，唯一的某一天
local seed = fromqq..tostring(day)--今日唯一的随机数种子
local ran = math.randomx(1,#goodthings,6,seed)
local saysTemp = says[math.random(1,#says)]
--恢复随机数种子为随机值
math.randomseed(tostring(os.time()):reverse():sub(1, 6))
return("这个用户的今日运势如下~<br>"..
"宜：<br>"..goodthings[ran[1]]..
"<br>"..goodthings[ran[2]]..
"<br>"..goodthings[ran[3]]..
"<br>"..goodthings[ran[4]]..
"<br>"..
"忌：<br>"..badthings[ran[5]]..
"<br>"..badthings[ran[6]]..
"<br>"..
"日期："..os.date("%Y年%m月%d日",time).."<br>"..
"综合幸运指数："..tostring(math.random(0,100)).."%<br>"..
"当日吉言："..saysTemp)
end
function p.main(frame)
return getAlmanac(os.time(),12345)
end
return p
模块文档