&&本模塊借鑒QR官方詞庫的違禁系統(tǒng)寫出

&&使用mt的搜索替換功能可方便你快速修改

&&QR時(shí)不時(shí)登不上，我懶得等測試了，所以可能還有bug

&&寫了部分注釋，自己看著改。

&&至于表情。。。我不會(huì)取~

&&萌新交流社的懶孩紙(*^ω^*)是我本人！

指令集

設(shè)管理@.*\r\n

機(jī)器人對話(開|關(guān))\r\n

添加對話(.*)回復(fù)(.*)\r\n

刪除對話(.*)\r\n

對話列表\r\n

對話觸發(fā)列表\r\n

對話回復(fù)列表\r\n

注：不要有空格，符號盡量不要有

以上

設(shè)管理@.*

##個(gè)人習(xí)慣，設(shè)置權(quán)限。

如果:%QQ%!=%主人%

無權(quán)限。

返回

如果尾

$寫 機(jī)器人/管理/%AT0% 1 1$

好了~

機(jī)器人對話開

Q:$讀 機(jī)器人/管理/%QQ% 1 0$

如果:%Q%!=1

$回調(diào) AT$

你不是管理哦~

返回

如果尾

如果:$讀 機(jī)器人/群列表/%群號%/開關(guān)/對話 1 0$==1

開著呢~

返回

如果尾

$寫 機(jī)器人/群列表/%群號%/開關(guān)/對話 1 1$

打開啦~

機(jī)器人對話關(guān)

Q:$讀 機(jī)器人/管理/%QQ% 1 0$

如果:%Q%!=1

$回調(diào) AT$

你不是管理哦~

返回

如果尾

如果:$讀 機(jī)器人/群列表/%群號%/開關(guān)/對話 1 0$==0

關(guān)著呢~

返回

如果尾

$寫 機(jī)器人/群列表/%群號%/開關(guān)/對話 1 0$

關(guān)上啦~

添加對話(.*)回復(fù)(.*)

Q:$讀 機(jī)器人/管理/%QQ% 1 0$

如果:%Q%!=1

$回調(diào) AT$

你不是管理哦~

返回

如果尾

B:$字符長度 %括號1%$##觸發(fā)詞為包含就回復(fù)，不建議過短

如果:%B%<3

太短了，我可不想刷屏。

返回

如果尾

C:$字符長度 %括號2%$

如果:%C%<1

你想我回復(fù)什么？？？

返回

如果尾

W:$讀 機(jī)器人/對話/data.txt 1 空$##觸發(fā)詞，用作匹配

A:$讀 機(jī)器人/對話/date1.txt 1 0$##已寫入對話總數(shù)，總數(shù)+1=新建對話編號

如果:%W%==

$寫 機(jī)器人/對話/data.txt 1 %括號1%$

$寫 機(jī)器人/對話/date1.txt 1 [%A%+1]$

$寫 機(jī)器人/對話/date2.txt %括號1% [%A%+1]$##鍵=觸發(fā)詞，值=對話編號。用于取編號

$寫 機(jī)器人/對話/date3.txt [%A%+1] %括號1%$##鍵=對話編號，值=觸發(fā)詞。用于列表，方便管理。

$寫 機(jī)器人/對話/date4.txt [%A%+1] %括號2%$##鍵=對話編號，值=回復(fù)詞。同上，還用于回復(fù)

添加對話成功

返回

如果尾

如果:%W%==空

$寫 機(jī)器人/對話/data.txt 1 %括號1%$

$寫 機(jī)器人/對話/date1.txt 1 [%A%+1]$

$寫 機(jī)器人/對話/date2.txt %括號1% [%A%+1]$

$寫 機(jī)器人/對話/date3.txt [%A%+1] %括號1%$

$寫 機(jī)器人/對話/date4.txt [%A%+1] %括號2%$

添加對話成功

返回

如果尾

T:$替換 € %W%€|€￥$

正則:%T%￥==.*(%括號1%￥).*

添加失敗\r\n

當(dāng)前對話已存在

返回

如果尾

$寫 機(jī)器人/對話/data.txt 1 %括號1%$

$寫 機(jī)器人/對話/date1.txt 1 [%A%+1]$

$寫 機(jī)器人/對話/date2.txt %括號1% [%A%+1]$

$寫 機(jī)器人/對話/date3.txt [%A%+1] %括號1%$

$寫 機(jī)器人/對話/date4.txt [%A%+1] %括號2%$

添加對話成功

刪除對話(.*)

Q:$讀 機(jī)器人/管理/%QQ% 1 0$

如果:%Q%!=1

$回調(diào) AT$

你不是管理哦~

返回

如果尾

W:$讀 機(jī)器人/對話/data.txt 1 空$

A:$替換 @ %W%@%括號1%@$

A:$替換 Э %A%Э||Э|$

如果:%A%==

至少保留一個(gè)對話

返回

如果尾

如果:%A%==空

至少保留一個(gè)對話

返回

如果尾

$寫 機(jī)器人/對話/data.txt 1 %A%$

B:$讀 機(jī)器人/對話/date2.txt %括號1% 0$

$寫 機(jī)器人/對話/date3.txt %B% 0$

$寫 機(jī)器人/對話/date4.txt %B% 0$

刪除對話成功

對話列表

$調(diào)用 0 對話列表1$

對話觸發(fā)列表

$調(diào)用 0 對話觸發(fā)列表1$

對話回復(fù)列表

$調(diào)用 0 對話回復(fù)列表1$

[內(nèi)部]對話列表1

A:$讀 機(jī)器人/對話/date1.txt 1 0$

B:$讀 緩存/對話列表 1 1$

如果:%B%>%A%

$寫 緩存/對話列表 1 0$

注：空處為已刪除對話\r\n

以上

返回

如果尾

$寫 緩存/對話列表 1 [%B%+1]$

C:$讀 機(jī)器人/對話/date3.txt %B% 0$

D:$讀 機(jī)器人/對話/date4.txt %B% 0$

如果:%C%!=

%B%、觸發(fā)：%C%\r\n

%B%、回復(fù)：%D%\r\n

$回調(diào) 對話列表1$

返回

如果尾

$回調(diào) 對話列表1$

[內(nèi)部]對話觸發(fā)列表1

A:$讀 機(jī)器人/對話/date1.txt 1 0$

B:$讀 緩存/對話觸發(fā) 1 1$

如果:%B%>%A%

$寫 緩存/對話觸發(fā) 1 0$

注：空處為已刪除對話\r\n

以上

返回

如果尾

$寫 緩存/對話觸發(fā) 1 [%B%+1]$

C:$讀 機(jī)器人/對話/date3.txt %B% 0$

如果:%C%!=

%B%：%C%\r\n

$回調(diào) 對話觸發(fā)列表1$

返回

如果尾

$回調(diào) 對話觸發(fā)列表1$

[內(nèi)部]對話回復(fù)列表1

A:$讀 機(jī)器人/對話/date1.txt 1 0$

B:$讀 緩存/對話回復(fù) 1 1$

如果:%B%>%A%

$寫 緩存/對話回復(fù) 1 0$

注：空處為已刪除對話\r\n

以上

返回

如果尾

$寫 緩存/對話回復(fù) 1 [%B%+1]$

C:$讀 機(jī)器人/對話/date4.txt %B% 0$

如果:%C%!=

%B%：%C%\r\n

$回調(diào) 對話回復(fù)列表1$

返回

如果尾

$回調(diào) 對話回復(fù)列表1$

[內(nèi)部]AT

@%昵稱%

±at %QQ%±：\r\n

[內(nèi)部]讀對話

$讀 機(jī)器人/對話/data.txt 1 空$

(?i)[\s\S]*($回調(diào)內(nèi)部 讀對話$)[\s\S]*

Z:$讀 機(jī)器人/群列表/%群號%/開關(guān)/對話 1 0$

如果:%Z%!=1

返回

如果尾

如果:%括號1%==

返回

如果尾

如果:%括號1%==空

返回

如果尾

A:$讀 機(jī)器人/對話/date2.txt %括號1% 0$

B:$讀 機(jī)器人/對話/date4.txt %A% 0$

%B%