property pGroupData, pLastPendingData, pGroupLogoTemplateMember, pGroupLogoMemPrefix, pGroupWindowID, pGroupLogoUrlTemplate, pCurrentShownGroupId

on construct me 
  pGroupWindowID = getText("group_window_title")
  pGroupData = [:]
  pCurrentShownGroupId = void()
  pGroupsWithDownloadedLogo = []
  pLastPendingData = [:]
  pGroupLogoMemPrefix = "group_logo_"
  pGroupLogoTemplateMember = "logo_downloading_template"
  pGroupLogoUrlTemplate = getText("group_logo_url_template")
  registerMessage(#roomReady, me.getID(), #requestGroups)
  registerMessage(#leaveRoom, me.getID(), #clearGroups)
  registerMessage(#changeRoom, me.getID(), #clearGroups)
  return TRUE
end

on deconstruct me 
  unregisterMessage(#userClicked, me.getID())
  unregisterMessage(#leaveRoom, me.getID())
  return TRUE
end

on updateGroupInformation me, tGroupsArr 
  if not listp(tGroupsArr) then
    return FALSE
  end if
  repeat while tGroupsArr <= undefined
    tIncomingGroupData = getAt(undefined, tGroupsArr)
    tID = string(tIncomingGroupData.getAt(#id))
    tCombinedData = [:]
    if not voidp(pGroupData.getAt(tID)) then
      tCombinedData = pGroupData.getAt(tID)
    end if
    tKeyList = [#id, #name, #desc, #logo, #roomid, #roomname]
    repeat while tGroupsArr <= undefined
      tKey = getAt(undefined, tGroupsArr)
      if not voidp(tIncomingGroupData.getAt(tKey)) then
        tCombinedData.setAt(tKey, tIncomingGroupData.getAt(tKey))
        if (tKey = #logo) then
          tCombinedData.setAt(#download, #invalid)
        end if
      end if
    end repeat
    pGroupData.setAt(tID, tCombinedData)
    if (pLastPendingData.getAt(#groupID) = tID) then
      me.showUsersInfo(pLastPendingData.getAt(#userindex))
      pGroupData.getAt(tID).setAt(#download, #done)
      pLastPendingData = [:]
    end if
  end repeat
end

on getGroupInformation me, tGroupId 
  tGroupInfo = [:]
  tGroupId = string(tGroupId)
  if not voidp(pGroupData.getAt(tGroupId)) then
    tGroupInfo = pGroupData.getAt(tGroupId)
  end if
  return(tGroupInfo)
end

on getGroupLogoMemberNum me, tGroupId 
  tGroupData = pGroupData.getaProp(tGroupId)
  if voidp(tGroupData) then
    return(getmemnum(pGroupLogoTemplateMember))
  end if
  tGroupLogoMem = pGroupLogoMemPrefix & tGroupData.getAt(#logo)
  if memberExists(tGroupLogoMem) then
    return(getmemnum(tGroupLogoMem))
  else
    me.requestLogoDownload(tGroupId)
    return(getmemnum(pGroupLogoTemplateMember))
  end if
end

on closeView me 
  removeWindow(pGroupWindowID)
end

on clearGroups me 
  me.closeView()
  pGroupInformation = [:]
  pCurrentShownGroupId = void()
end

on requestGroups me 
  getConnection(getVariable("connection.room.id")).send("GET_GROUP_BADGES")
end

on getLogoURL me, tGroupId 
  if voidp(tGroupId) then
    return FALSE
  end if
  tURL = ""
  tGroupData = pGroupData.getAt(tGroupId)
  if (ilk(tGroupData) = #propList) then
    tURL = pGroupLogoUrlTemplate
    tGroupLogoPath = tGroupData.getAt(#logo)
    tURL = replaceChunks(tURL, "%imagerdata%", tGroupLogoPath)
  end if
  return(tURL)
end

on requestLogoDownload me, tGroupId 
  tGroupId = string(tGroupId)
  tGroupData = pGroupData.getaProp(tGroupId)
  if ilk(tGroupData) <> #propList then
    return(error(me, "No group found: " & tGroupId, me.getID(), #requestLogoDownload, #minor))
  end if
  tDownloadStatus = tGroupData.getAt(#download)
  if not voidp(tDownloadStatus) or (tDownloadStatus = #invalid) then
    return FALSE
  else
    pGroupData.getAt(tGroupId).setAt(#download, #downloading)
  end if
  tMemberName = pGroupLogoMemPrefix & tGroupData.getAt(#logo)
  tLogoURL = me.getLogoURL(tGroupId)
  tMemNum = queueDownload(tLogoURL, tMemberName, #bitmap, 1)
  registerDownloadCallback(tMemNum, #logoDownloadedCallback, me.getID(), tGroupId)
end

on logoDownloadedCallback me, tGroupId 
  executeMessage(#groupLogoDownloaded, tGroupId)
  me.updateGroupLogoToWindow(tGroupId)
end

on showUsersInfoByName me, tUserName 
  tUserIndex = getThread(#room).getComponent().getUsersRoomId(tUserName)
  if tUserIndex <> -1 then
    me.showUsersInfo(tUserIndex)
  end if
end

on showUsersInfo me, tUserIndex 
  tRoomComponent = getThread(#room).getComponent()
  tuser = tRoomComponent.getUserObject(tUserIndex)
  if voidp(tuser) then
    return FALSE
  end if
  tGroupId = tuser.getProperty(#groupID)
  tGroupId = string(tGroupId)
  tGroupStatus = tuser.getProperty(#groupstatus)
  if (tGroupId = "") then
    return FALSE
  end if
  if integer(tGroupId) < 0 then
    return FALSE
  end if
  if voidp(pGroupData.getAt(tGroupId)) then
    pLastPendingData = [#userindex:tUserIndex, #groupID:tGroupId]
    getConnection(getVariable("connection.info.id")).send("GET_GROUP_DETAILS", [#integer:integer(tGroupId)])
    return FALSE
  end if
  if voidp(pGroupData.getAt(tGroupId).getAt(#name)) then
    pLastPendingData = [#userindex:tUserIndex, #groupID:tGroupId]
    getConnection(getVariable("connection.info.id")).send("GET_GROUP_DETAILS", [#integer:integer(tGroupId)])
    return FALSE
  end if
  if not windowExists(pGroupWindowID) then
    createWindow(pGroupWindowID, "habbo_full.window")
    tWindowObj = getWindow(pGroupWindowID)
    tWindowObj.merge("group_info.window")
    tWindowObj.registerProcedure(#eventProcInfoWindow, me.getID(), #mouseUp)
  end if
  tWindowObj = getWindow(pGroupWindowID)
  tGroup = pGroupData.getAt(tGroupId)
  tUserStatusTxt = ""
  if (tGroupStatus = 1) then
    tUserStatusTxt = getText("group_owner")
  else
    if (tGroupStatus = 2) then
      tUserStatusTxt = getText("group_admin")
    else
      if (tGroupStatus = 3) then
        tUserStatusTxt = getText("group_member")
      end if
    end if
  end if
  tPrivilegesTxt = getText("group_privileges")
  tPrivilegesTxt = tPrivilegesTxt && tUserStatusTxt
  tWindowObj.getElement("group_name").setText(tGroup.getAt(#name))
  tWindowObj.getElement("group_privileges").setText(tPrivilegesTxt)
  tWindowObj.getElement("group_description").setText(tGroup.getAt(#desc))
  pCurrentShownGroupId = tGroupId
  tRoomLinkElem = tWindowObj.getElement("group_room_link")
  if tGroup.getAt(#roomid) < 0 then
    tRoomLinkElem.hide()
  else
    tRoomNameTemplate = getText("group_room_link")
    tRoomLinkText = replaceChunks(tRoomNameTemplate, "%room_name%", tGroup.getAt(#roomname))
    tRoomLinkElem.setText(tRoomLinkText)
    tRoomLinkElem.show()
  end if
  me.updateGroupLogoToWindow(tGroupId)
end

on updateGroupLogoToWindow me, tGroupId 
  if voidp(tGroupId) then
    return FALSE
  end if
  if not windowExists(pGroupWindowID) then
    return FALSE
  end if
  if pCurrentShownGroupId <> tGroupId then
    return FALSE
  end if
  tWindowObj = getWindow(pGroupWindowID)
  if not tWindowObj.elementExists("group_logo") then
    return FALSE
  end if
  tGroupLogoMemNum = me.getGroupLogoMemberNum(tGroupId)
  tLogoImg = member(tGroupLogoMemNum).image
  tWindowObj.getElement("group_logo").clearImage()
  tWindowObj.getElement("group_logo").feedImage(tLogoImg)
end

on eventProcInfoWindow me, tEvent, tSprID, tParams 
  if (tSprID = "group_homepage_link") then
    tGroupId = pGroupData.getAt(pCurrentShownGroupId).getAt(#id)
    tGroupURL = getText("group_homepage_url")
    tGroupURL = replaceChunks(tGroupURL, "%groupid%", tGroupId)
    executeMessage(#externalLinkClick, the mouseLoc)
    openNetPage(tGroupURL)
  else
    if (tSprID = "group_room_link") then
      tForwardId = string(pGroupData.getAt(pCurrentShownGroupId).getAt(#roomid))
      tForwardType = #private
      executeMessage(#roomForward, tForwardId, tForwardType)
    end if
  end if
end