用服务器和客户组件写的聊天软件

.计次循环首 (取数组成员数 (源数据x), 计次x)
调试输出 (源数据x [计次x])
发给用户x ＝ 读配置项 (取运行目录 () ＋ “/data/在线/” ＋ 源数据x [计次x], “pz”, “id”, )
.如果真 (发给用户x ＝ 临时)
返回 ()
.如果真结束
.如果 (服务器1.发送数据 (发给用户x, 用户a ＋ qx ＋ 到文本 (取现行时间 ()) ＋ #换行符 ＋ 内容 ＋ #换行符, 1) ＝ 真)

.否则
删除文件 (取运行目录 () ＋ “/data/在线/” ＋ 源数据x [计次x])
.如果结束
处理事件 ()
调试输出 (发给用户x)
.计次循环尾 ()
' 编辑框聊天内容.加入文本 (“8888 [超级管理员] ” ＋ 到文本 (取现行时间 ()) ＋ #换行符 ＋ 编辑框发送内容.内容 ＋ #换行符)
编辑框发送内容.内容 ＝ “”