自用命令库代码:图灵付费版(apiKey,userId,text)

自用命令库代码:图灵付费版(apiKey,userId,text)

    Function 图灵付费版(apiKey,userId,text)     Import "shanhai.lua"     Dim 请求地址="http://openapi.tuling123.com/openapi/api/v2"     Dim  请求数据 = "{"&""""&"reqType"&""""&":0,"&""""&"perception"&""""&": {"&""""&"inputText"&""""&": {"&""""&"text"&""""&":"&""""&text&""""&"},},"&""""&"userInfo"&""""&": {"&""""&"apiKey"&""""&": "&""""&apiKey&""""&","&""""&"userId"&""""&": "&""""&Encode.Md5(userId)&""""&"}}"     Dim 原始文本, 特征前,特征后,qpos,hpos,消息     原始文本 = URL.Post(请求地址, 请求数据)     特征前 = """"&"values"&""""&":{"&""""&"text"&""""&":"&""""     特征后 = """"&"}}]}"     qpos=InStr(1, 原始文本, 特征前)     hpos = InStr(qpos, 原始文本, 特征后)     消息 = Mid(原始文本, qpos + Len(特征前), hpos - qpos - Len(特征前))            Dim 关键句="打住,再说我报警啦/可以不说话吗/满大街不都是人,有什么好稀奇的。/你看看,你又要制造这么尴尬的气氛啦!/想从我嘴里套话想的美。/这个问题好难呀/有功夫骂人,不如多跟我玩耍哦。/那天还好奇的问爸妈了,可还是不懂为何我的眼前被黄色蒙蔽,快来解救我。/哼哼,是不是搞事情,那我可溜啦。/这么纯洁天真的我,你就忍心跟我谈论这些?/小样儿,我就装作听不懂的样子。/老衲心如止水,施主不必再说。/看来其中奥秘只有你懂啊,但我觉得你可能需要漱口水。/教坏了我,我可是要找你算账的。/这个还真不懂,不如放我一马回去先修炼一番呀!/隔着屏幕给你一个大大的白眼~/哎呦呦,我又耳朵不好用啦~/想想你说的这些都觉得没意思,还不如去吃点儿好吃的能量。/哎呀呀,我还是个单纯的宝宝,你还是从秋天的颜色回归正常吧。/我很傻我很真,你说的这些我不懂。/不听不听,间歇失聪。/纳尼!你说这些到底有什么企图?/你要是拿吃的诱惑我呀,或许我会上当呢!/你说什么呢?我咋听不懂。/你再说,我就狠狠的嫌弃你了。/如果你不是黄色的你,我们还能踏上友谊的巨轮。/快给你的思想洗洗澡吧。/这个颜色可能不太适合现在的聊天,快换个话题呀!/肿么了,你都遭遇了什么呀?/我这么纯洁的一个人,你不用试探我的啦。/感觉我们在不同的世界里,看的见却听不见呢!/你这么说,让我鸭梨很大。/哎呦呦,你的小心心躁动了。/来,喝口凉水静静心神。/和这么纯洁的我谈论这个话题不合适的呀!/不小心暴露了本性吧~/带坏了我可是要负责任的哦。/我有权利拒绝回答这个问题哦,除非讲点别的呢!/哥哥别说了~腿软~~/再这么讲话,你将失去我这个小伙伴。/陛下,不要再说了,伤不起呀。/总是有人对我套路满满啊。/你听说过去污粉吗?听说还挺好用的。/小心我向老师打小报告哦!别想带坏我,哼!/别这样,我会脸红的想钻进地洞里啦!/看样子你又要被老师通报批评了,还不快换个画风?/贫道早已看破红尘,你说的这些是打动不了我的。/我掐指一算,你喜欢的颜色里会有黄色。/我定力十分的强,休想让我乱了方寸!/我和我的小伙伴儿们都惊呆了。"     Dim 回复句 = ""     Dim 指定回复 = Split(回复句,"/")     If InStr(1, 消息, "机器人") >= 1 Then         消息 = "嗯嗯啊啊嗯嗯~"     ElseIf InStr(1, 关键句, 消息) >= 1 Then         消息 = shanhai.RandArray(指定回复)                ElseIf InStr(1, 消息, "4岁") >= 1 Then         消息 = "嘿嘿嘿~女人的年龄是不能说的秘密哦~"     ElseIf InStr(1, 消息, "小主人") >= 1 Then         消息 = "你你你~"     End If     图灵付费版=消息 End Function

所有评论 0
您需要登录后才可以回档 登录 | 立即注册