property pWndID, pObjList, pWriterObj, pListHeight

on construct me 
  pWndID = "Furniture Chooser."
  pObjList = [:]
  tMetrics = getStructVariable("struct.font.plain")
  tMetrics.setaProp(#lineHeight, 14)
  createWriter(me.getID() && "Writer", tMetrics)
  pWriterObj = getWriter(me.getID() && "Writer")
  if not createWindow(pWndID, "habbo_system.window", 5, 315) then
    return FALSE
  end if
  tWndObj = getWindow(pWndID)
  if not tWndObj.merge("chooser.window") then
    return(tWndObj.close())
  end if
  tWndObj.resizeTo(260, 170)
  tWndObj.registerClient(me.getID())
  tWndObj.registerProcedure(#eventProcChooser, me.getID(), #mouseUp)
  registerMessage(#leaveRoom, me.getID(), #close)
  registerMessage(#changeRoom, me.getID(), #close)
  registerMessage(#enterRoom, me.getID(), #update)
  registerMessage(#activeObjectRemoved, me.getID(), #update)
  registerMessage(#itemObjectRemoved, me.getID(), #update)
  registerMessage(#activeObjectsUpdated, me.getID(), #update)
  registerMessage(#itemObjectsUpdated, me.getID(), #update)
  return TRUE
end

on deconstruct me 
  if windowExists(pWndID) then
    removeWindow(pWndID)
  end if
  pWriterObj = void()
  removeWriter(me.getID() && "Writer")
  pObjList = [:]
  unregisterMessage(#leaveRoom, me.getID())
  unregisterMessage(#changeRoom, me.getID())
  unregisterMessage(#enterRoom, me.getID())
  unregisterMessage(#activeObjectRemoved, me.getID())
  unregisterMessage(#itemObjectRemoved, me.getID())
  unregisterMessage(#activeObjectsUpdated, me.getID())
  unregisterMessage(#itemObjectsUpdated, me.getID())
  return TRUE
end

on showList me 
  return(me.update())
end

on close me 
  return(removeObject(me.getID()))
end

on update me 
  if not threadExists(#room) then
    return(removeObject(me.getID()))
  end if
  if not windowExists(pWndID) then
    return(removeObject(me.getID()))
  end if
  tRoomComponent = getThread(#room).getComponent()
  if not objectp(tRoomComponent) then
    return([:])
  end if
  tActiveObjList = tRoomComponent.getActiveObject(#list)
  tItemObjList = tRoomComponent.getItemObject(#list)
  pObjList = [:]
  pObjList.sort()
  tClickAction = ""
  tMoverClientId = 0
  tObjectMover = getThread(#room).getInterface().getObjectMover()
  if objectp(tObjectMover) then
    tMoverClientId = tObjectMover.getProperty(#clientID)
    tClickAction = getThread(#room).getInterface().getProperty(#clickAction)
  end if
  tAdminChooser = getObject(#session).GET("user_rights").getOne("fuse_any_room_controller")
  repeat while tActiveObjList <= undefined
    tObj = getAt(undefined, undefined)
    if tAdminChooser then
      pObjList.setaProp("a" & tObj.getID(), "Id:" & tObj.getID() && tObj.getLocation() && tObj.getInfo().name)
    else
      pObjList.setaProp("a" & tObj.getID(), tObj.getInfo().name)
    end if
  end repeat
  repeat while tActiveObjList <= undefined
    tObj = getAt(undefined, undefined)
    if tAdminChooser then
      pObjList.setaProp("i" & tObj.getID(), "Id:" & tObj.getID() && tObj.getLocation() && tObj.getInfo().name)
    else
      pObjList.setaProp("i" & tObj.getID(), tObj.getInfo().name)
    end if
  end repeat
  tImgArray = []
  tObjStr = ""
  i = 1
  repeat while i <= pObjList.count
    tObjStr = tObjStr && i & "." && pObjList.getAt(i) & "\r"
    if i >= 100 then
      tImgArray.append(pWriterObj.render(tObjStr))
      tObjStr = ""
    end if
    i = (1 + i)
  end repeat
  if not (tObjStr = "") then
    tImgArray.append(pWriterObj.render(tObjStr))
  end if
  tTotalHeight = 0
  tMaxWidth = 0
  i = 1
  repeat while i <= tImgArray.count
    tTotalHeight = (tTotalHeight + tImgArray.getAt(i).height)
    if tImgArray.getAt(i).width > tMaxWidth then
      tMaxWidth = tImgArray.getAt(i).width
    end if
    i = (1 + i)
  end repeat
  if (tImgArray.count = 0) then
    tImg = image(1, 1, 8)
  else
    tImg = image(tMaxWidth, tTotalHeight, tImgArray.getAt(1).depth)
    tYOffset = 0
    i = 1
    repeat while i <= tImgArray.count
      tOffsetRect = (tImgArray.getAt(i).rect + rect(0, tYOffset, 0, tYOffset))
      tImg.copyPixels(tImgArray.getAt(i), tOffsetRect, tImgArray.getAt(i).rect)
      tYOffset = (tYOffset + tImgArray.getAt(i).height)
      i = (1 + i)
    end repeat
  end if
  tElem = getWindow(pWndID).getElement("list")
  tElem.feedImage(tImg)
  pListHeight = tImg.height
  return TRUE
end

on clear me 
  pObjList = [:]
  pListHeight = 0
  getWindow(pWndID).getElement("list").feedImage(image(1, 1, 8))
  return TRUE
end

on eventProcChooser me, tEvent, tSprID, tParam 
  if (tSprID = "close") then
    return(removeObject(me.getID()))
  else
    if (tSprID = "list") then
      tCount = count(pObjList)
      if (tCount = 0) then
        return FALSE
      end if
      tLineNum = ((tParam.locV / (pListHeight / tCount)) + 1)
      if tLineNum < 1 then
        tLineNum = 1
      end if
      if tLineNum > tCount then
        tLineNum = tCount
      end if
      if not threadExists(#room) then
        return(removeObject(me.getID()))
      end if
      tObjID = pObjList.getPropAt(tLineNum)
      tRoomInt = getThread(#room).getInterface()
      if not tRoomInt then
        return FALSE
      end if
      tRoomComponent = getThread(#room).getComponent()
      if not tRoomComponent then
        return FALSE
      end if
      tObjID = pObjList.getPropAt(tLineNum)
      tObjType = tObjID.getProp(#char, 1)
      tObjID = tObjID.getProp(#char, 2, tObjID.length)
      if (tObjType = "a") then
        tActiveObj = tRoomComponent.getActiveObject(tObjID)
      else
        if (tObjType = "i") then
          tItemObj = tRoomComponent.getItemObject(tObjID)
        end if
      end if
      tSelectedObjIdWas = tRoomInt.getSelectedObject()
      if not objectp(tActiveObj) or objectp(tItemObj) then
        return FALSE
      end if
      if objectp(tItemObj) then
        ttype = "item"
      end if
      if objectp(tActiveObj) then
        ttype = "active"
      end if
      tRoomInt.cancelObjectMover()
      tRoomInt.pSelectedObj = tObjID
      tRoomInt.pSelectedType = ttype
      executeMessage(#showObjectInfo, ttype)
      tRoomInt.hideArrowHiliter()
      if (ttype = "item") and not (tSelectedObjIdWas = tObjID) then
        tRoomComponent.getItemObject(tObjID).select()
      end if
    end if
  end if
end