property pWindowID, pEventInfoWindowID, pUseRatings

on construct me 
  pWindowID = "RoomInfoWindow"
  pEventInfoWindowID = "EventInfoWindow"
  pUseRatings = 0
  if variableExists("room.rating.enable") then
    if (getVariable("room.rating.enable") = 1) then
      pUseRatings = 1
    end if
  end if
  registerMessage(#roomRatingChanged, me.getID(), #updateRatingData)
  registerMessage(#roomEventInfoUpdated, me.getID(), #updateRoomEventInfo)
  return TRUE
end

on deconstruct me 
  return TRUE
end

on showRoomInfo me 
  if (getThread(#room).getComponent().getRoomData().type = #private) then
    tWndObj = me.createInfoWindow()
    if (tWndObj = 0) then
      return FALSE
    end if
    tRoomData = getThread(#room).getComponent().pSaveData
    tWndObj.getElement("room_info_room_name").setText(tRoomData.getAt(#name))
    tWndObj.getElement("room_info_owner").setText(getText("room_owner") && tRoomData.getAt(#owner))
    me.updateRatingData()
    me.updateRoomEventInfo()
  else
    me.hideRoomInfo()
  end if
end

on hideRoomInfo me 
  if windowExists(pWindowID) then
    removeWindow(pWindowID)
  end if
  if windowExists(pEventInfoWindowID) then
    removeWindow(pEventInfoWindowID)
  end if
end

on createInfoWindow me 
  if not windowExists(pWindowID) then
    tSuccess = createWindow(pWindowID, "room_info.window", 10, 420)
    if (tSuccess = 0) then
      return FALSE
    else
      tWndObj = getWindow(pWindowID)
      tWndObj.lock()
      tWndObj.registerProcedure(#eventProcInfo, me.getID())
      return(tWndObj)
    end if
  else
    return(getWindow(pWindowID))
  end if
end

on sendFlatRate me, tValue 
  getThread(#room).getComponent().getRoomConnection().send("RATEFLAT", [#integer:tValue])
end

on updateRatingData me 
  tWndObj = getWindow(pWindowID)
  if (tWndObj = 0) then
    return FALSE
  end if
  if not tWndObj.elementExists("room_info_rate_plus") then
    return FALSE
  end if
  if not pUseRatings then
    me.hideRatingElements()
    return TRUE
  end if
  tRoomRatings = getThread(#room).getComponent().getRoomRating()
  if (tRoomRatings.getAt(#rate) = -1) then
    tWndObj.getElement("room_info_rate_plus").setProperty(#visible, 1)
    tWndObj.getElement("room_info_rate_minus").setProperty(#visible, 1)
    tWndObj.getElement("room_info_rate_room").setProperty(#visible, 1)
    tWndObj.getElement("room_info_rate_value").setProperty(#visible, 0)
  else
    tWndObj.getElement("room_info_rate_plus").setProperty(#visible, 0)
    tWndObj.getElement("room_info_rate_minus").setProperty(#visible, 0)
    tWndObj.getElement("room_info_rate_room").setProperty(#visible, 0)
    tWndObj.getElement("room_info_rate_value").setProperty(#visible, 1)
    tRateText = getText("room_info_rated") && tRoomRatings.getAt(#rate)
    tWndObj.getElement("room_info_rate_value").setText(tRateText)
  end if
end

on hideRatingElements me 
  tWndObj = getWindow(pWindowID)
  tWndObj.getElement("room_info_rate_room").setProperty(#visible, 0)
  tWndObj.getElement("room_info_rate_plus").setProperty(#visible, 0)
  tWndObj.getElement("room_info_rate_minus").setProperty(#visible, 0)
  tWndObj.getElement("room_info_rate_value").setProperty(#visible, 0)
end

on updateRoomEventInfo me 
  tRoomEventData = getThread(#room).getComponent().getRoomEvent()
  if voidp(tRoomEventData) then
    return FALSE
  end if
  tWnd = getWindow(pWindowID)
  if (tWnd = 0) then
    return FALSE
  end if
  tLinkElem = tWnd.getElement("roominfo_event_link")
  tHostID = tRoomEventData.getaProp(#hostID)
  if tHostID > 0 then
    tLinkElem.show()
    tName = tRoomEventData.getaProp(#name)
    tLinkElem.setText(tName)
  else
    tLinkElem.hide()
  end if
end

on showEventInfo me 
  tRoomEventData = getThread(#room).getComponent().getRoomEvent()
  createWindow(pEventInfoWindowID, "eventinfo_bubble.window")
  tWnd = getWindow(pEventInfoWindowID)
  tWnd.merge("room_info_event_details.window")
  tName = tRoomEventData.getaProp(#name)
  tDesc = tRoomEventData.getaProp(#desc)
  tWnd.getElement("room_info_event_details_header").setText(tName)
  tWnd.getElement("room_info_event_details_text").setText(tDesc)
  tWnd.registerProcedure(#eventProcEventInfo, me.getID(), #mouseUp)
  tWnd.moveTo(5, 355)
  tSessionObj = getObject(#session)
  tUserRights = tSessionObj.GET("user_rights")
  tRoomOwner = tSessionObj.GET("room_owner")
  tCanQuit = tUserRights.getOne("fuse_cancel_roomevent") <> 0
  if tRoomOwner or tCanQuit then
    tWnd.getElement("room_info_event_details_quit").show()
  else
    tWnd.getElement("room_info_event_details_quit").hide()
  end if
end

on removeEventInfo me 
  removeWindow(pEventInfoWindowID)
end

on quitEvent me 
  tConn = getConnection(getVariable("connection.info.id", #info))
  tConn.send("QUIT_ROOMEVENT")
  me.removeEventInfo()
end

on eventProcInfo me, tEvent, tSprID, tParam 
  if tEvent <> #mouseUp then
    return FALSE
  end if
  if (tSprID = "room_info_rate_plus") then
    me.sendFlatRate(1)
  else
    if (tSprID = "room_info_rate_minus") then
      me.sendFlatRate(-1)
    else
      if (tSprID = "roominfo_event_link") then
        me.showEventInfo()
      end if
    end if
  end if
end

on eventProcEventInfo me, tEvent, tSprID, tParam 
  if (tSprID = "room_info_event_details_close") then
    me.removeEventInfo()
  else
    if (tSprID = "room_info_event_details_quit") then
      me.quitEvent()
    end if
  end if
end