当 Screen1.初始化 时
  调用 FirebaseDB1.初始化(
    "你的Firebase项目URL",
    "你的API密钥"
  )

定义 保存用户信息(用户ID, 用户名, 邮箱)
  调用 FirebaseDB1.存储值(
    "users/" + 用户ID + "/username",
    用户名
  )
  调用 FirebaseDB1.存储值(
    "users/" + 用户ID + "/email",
    邮箱
  )
  调用 FirebaseDB1.存储值(
    "users/" + 用户ID + "/online",
    真
  )

当 FirebaseDB1.存储完成 时（标签）
  设置 标签_状态.文本 = "保存成功"

定义 读取用户信息(用户ID)
  调用 FirebaseDB1.获取值("users/" + 用户ID)

当 FirebaseDB1.获取完成 时（标签, 值）
  如果 值 ≠ "" 则
    初始化局部变量 数据 = 调用 字典.JSON转字典(值)
    设置 标签_用户名.文本 = 获取键的值(数据, "username", "")
    设置 标签_邮箱.文本 = 获取键的值(数据, "email", "")

当 Screen1.初始化 时
  // 监听用户在线状态
  调用 FirebaseDB1.监听值("users/online")

当 FirebaseDB1.数据改变 时（标签, 值）
  初始化局部变量 列表 = 调用 字典.JSON转字典(值)
  设置 标签_在线数.文本 = "在线: " + 列表长度(列表)

当 Screen1.初始化 时
  调用 FirebaseDB1.监听列表("messages/")

当 FirebaseDB1.列表改变 时（标签, 值列表）
  设置 全局变量 消息列表 = 值列表
  设置 列表显示框1.适配器 = 全局变量 消息列表

当 Screen1.初始化 时
  初始化局部变量 用户ID = 获取键的值(获取键的值(全局变量 登录信息, "user", {}), "id", "")
  
  // 标记上线
  调用 FirebaseDB1.存储值(
    "presence/" + 用户ID,
    创建字典(
      键值对("online", 真),
      键值对("lastSeen", 获取毫秒数(现在))
    )
  )

当 Screen1.销毁 时
  初始化局部变量 用户ID = 获取键的值(获取键的值(全局变量 登录信息, "user", {}), "id", "")
  
  // 标记下线
  调用 FirebaseDB1.存储值(
    "presence/" + 用户ID,
    创建字典(
      键值对("online", 假),
      键值对("lastSeen", 获取毫秒数(现在))
    )
  )

定义 发送消息(发送者, 内容)
  初始化局部变量 消息ID = 获取毫秒数(现在)
  
  调用 FirebaseDB1.存储值(
    "messages/" + 消息ID,
    创建字典(
      键值对("sender", 发送者),
      键值对("content", 内容),
      键值对("timestamp", 消息ID),
      键值对("type", "text")
    )
  )

当 按钮_发送.被点击 时
  初始化局部变量 内容 = 文本输入框_消息.文本
  初始化局部变量 发送者 = 获取键的值(获取键的值(全局变量 登录信息, "user", {}), "username", "匿名")
  
  如果 内容 ≠ "" 则
    调用 发送消息(发送者, 内容)
    设置 文本输入框_消息.文本 = ""

当 FirebaseDB1.列表改变 时（标签, 值列表）
  如果 在文本中查找(标签, "messages") >= 0 则
    设置 全局变量 消息列表 = 值列表
    
    // 按时间排序
    设置 列表显示框1.适配器 = 全局变量 消息列表

当 列表显示框1.选择完成 时（选择项）
  初始化局部变量 内容 = 获取键的值(选择项, "content", "")
  初始化局部变量 发送者 = 获取键的值(选择项, "sender", "")
  
  调用 对话框1.显示消息对话框(
    内容,
    "来自: " + 发送者,
    "确定"
  )

定义 标记已读(消息ID, 用户ID)
  调用 FirebaseDB1.存储值(
    "messages/" + 消息ID + "/read/" + 用户ID,
    真
  )

定义 获取未读数(当前用户ID)
  调用 FirebaseDB1.监听列表("messages/")

当 FirebaseDB1.列表改变 时（标签, 值列表）
  初始化局部变量 未读数 = 0
  
  对于 每条消息 在 值列表 中
    初始化局部变量 已读列表 = 获取键的值(消息, "read", {})
    如果 获取键的值(已读列表, 当前用户ID, 假) = 假 则
      设置 未读数 = 未读数 + 1
  
  设置 标签_未读.文本 = "未读: " + 未读数