property pActiveDownloads, pChosenBadge, pChosenVisibility, pImageLibraryURL

on construct me 
  pChosenBadge = 1
  pChosenVisibility = 1
  pImageLibraryURL = getVariable("image.library.url", "http://images.habbohotel.com/c_images/")
  pActiveDownloads = []
  return TRUE
end

on deconstruct me 
  if windowExists("badge_choice_window") then
    removeWindow("badge_choice_window")
  end if
  i = 1
  repeat while i <= pActiveDownloads.count
    abortDownLoad(pActiveDownloads.getAt(i))
    i = (1 + i)
  end repeat
  return TRUE
end

on openBadgeWindow me 
  tBadgeList = getObject("session").get("available_badges", [])
  if tBadgeList.count < 1 then
    return FALSE
  end if
  if not createWindow("badge_choice_window", void(), 360, 195) then
    return FALSE
  end if
  tWndObj = getWindow("badge_choice_window")
  tWndObj.setProperty(#title, getText("room_badge_window_title"))
  if not tWndObj.merge("habbo_basic.window") then
    return(tWndObj.close())
  end if
  tMerged = tWndObj.merge("habbo_badge_select.window")
  if not tMerged then
    removeWindow("badge_choice_window")
    return(error(me, "Badge selection window not found!", #openBadgeWindow))
  end if
  registerMessage(#leaveRoom, tWndObj.getID(), #close)
  registerMessage(#changeRoom, tWndObj.getID(), #close)
  tWndObj.registerProcedure(#eventProcBadgeChooser, me.getID(), #mouseUp)
  pChosenVisibility = getObject("session").get("badge_visible")
  pChosenBadge = getObject("session").get("chosen_badge_index")
  if pChosenBadge < 1 then
    pChosenBadge = 1
  end if
  me.updateBadgeVisibleButtons()
  me.updateBadgeImage()
  if (tBadgeList.count = 1) then
    me.hideBadgeBrowseButtons(tWndObj)
  end if
end

on closeBadgeWindow me 
  tWndObj = getWindow("badge_choice_window")
  if (tWndObj = 0) then
    return FALSE
  end if
  unregisterMessage(#leaveRoom, tWndObj.getID())
  unregisterMessage(#changeRoom, tWndObj.getID())
  tWndObj.close()
end

on updateBadgeVisibleButtons me 
  tWndObj = getWindow("badge_choice_window")
  if (tWndObj = 0) then
    return FALSE
  end if
  if getmemnum("button.radio.on") < 1 or getmemnum("button.radio.off") < 1 then
    return FALSE
  end if
  tRadioButtonOnImg = member(getmemnum("button.radio.on")).image
  tRadioButtonOffImg = member(getmemnum("button.radio.off")).image
  if (pChosenVisibility = 1) then
    if tWndObj.elementExists("badge.visible.radio") then
      tWndObj.getElement("badge.visible.radio").feedImage(tRadioButtonOnImg)
    end if
    if tWndObj.elementExists("badge.hidden.radio") then
      tWndObj.getElement("badge.hidden.radio").feedImage(tRadioButtonOffImg)
    end if
  else
    if tWndObj.elementExists("badge.hidden.radio") then
      tWndObj.getElement("badge.hidden.radio").feedImage(tRadioButtonOnImg)
    end if
    if tWndObj.elementExists("badge.visible.radio") then
      tWndObj.getElement("badge.visible.radio").feedImage(tRadioButtonOffImg)
    end if
  end if
end

on hideBadgeBrowseButtons me, tWndObj 
  if tWndObj.elementExists("badge.next.button") then
    tWndObj.getElement("badge.next.button").hide()
  end if
  if tWndObj.elementExists("badge.prev.button") then
    tWndObj.getElement("badge.prev.button").hide()
  end if
end

on updateBadgeImage me 
  if not windowExists("badge_choice_window") then
    return FALSE
  end if
  tWndObj = getWindow("badge_choice_window")
  tBadgeList = getObject("session").get("available_badges", [])
  if pChosenBadge > tBadgeList.count or pChosenBadge < 1 then
    return FALSE
  end if
  tBadgeName = tBadgeList.getAt(pChosenBadge)
  tMemNum = getmemnum("badge" && tBadgeName)
  if tMemNum < 1 then
    tWndObj.getElement("badge_preview").clearImage()
    me.startBadgeDownload(tBadgeName)
    return FALSE
  end if
  tWidth = tWndObj.getElement("badge_preview").getProperty(#width)
  tHeight = tWndObj.getElement("badge_preview").getProperty(#height)
  tBadgeImage = member(tMemNum).image
  tCenteredImage = image(tWidth, tHeight, 32)
  tXchange = ((tCenteredImage.width - tBadgeImage.width) / 2)
  tYchange = ((tCenteredImage.height - tBadgeImage.height) / 2)
  tRect1 = (tBadgeImage.rect + rect(tXchange, tYchange, tXchange, tYchange))
  tCenteredImage.copyPixels(tBadgeImage, tRect1, tBadgeImage.rect)
  tWndObj.getElement("badge_preview").feedImage(tCenteredImage)
  return TRUE
end

on badgeNextPrev me, tdir 
  tBadgeList = getObject("session").get("available_badges", [])
  if (tBadgeList.count = 0) then
    me.closeBadgeWindow()
    return FALSE
  end if
  if (tdir = "next") then
    pChosenBadge = (pChosenBadge + 1)
    if pChosenBadge > tBadgeList.count then
      pChosenBadge = 1
    end if
  else
    pChosenBadge = (pChosenBadge - 1)
    if pChosenBadge < 1 then
      pChosenBadge = tBadgeList.count
    end if
  end if
  me.updateBadgeImage()
end

on eventProcBadgeChooser me, tEvent, tSprID, tParam 
  if (tSprID = "badge.hidden.radio") then
    pChosenVisibility = 0
    me.updateBadgeVisibleButtons()
  else
    if (tSprID = "badge.visible.radio") then
      pChosenVisibility = 1
      me.updateBadgeVisibleButtons()
    else
      if (tSprID = "badge.ok") then
        tBadgeList = getObject("session").get("available_badges")
        if pChosenBadge > tBadgeList.count then
          me.closeBadgeWindow()
          return FALSE
        end if
        tVisible = integer(pChosenVisibility)
        tMsg = [#string:tBadgeList.getAt(pChosenBadge), #integer:tVisible]
        getThread(#room).getComponent().getRoomConnection().send("SETBADGE", tMsg)
        getObject("session").set("chosen_badge_index", pChosenBadge)
        getObject("session").set("badge_visible", pChosenVisibility)
        getThread(#room).getInterface().updateInfoStandBadge()
        me.closeBadgeWindow()
      else
        if (tSprID = "badge.cancel") then
          me.closeBadgeWindow()
        else
          if (tSprID = "badge.next.button") then
            me.badgeNextPrev("next")
          else
            if (tSprID = "badge.prev.button") then
              me.badgeNextPrev("prev")
            end if
          end if
        end if
      end if
    end if
  end if
end

on startBadgeDownload me, tBadgeName 
  if (tBadgeName = "") or (tBadgeName = " ") or voidp(tBadgeName) then
    return FALSE
  end if
  if downloadExists("badge" && tBadgeName) then
    return FALSE
  end if
  tSourceURL = pImageLibraryURL & "Badges/" & tBadgeName & ".gif"
  tBadgeMemNum = queueDownload(tSourceURL, "badge" && tBadgeName, #bitmap, 1)
  member(tBadgeMemNum).image = image(1, 1, 32)
  member(tBadgeMemNum).trimWhiteSpace = 0
  registerDownloadCallback(tBadgeMemNum, #badgeLoaded, me.getID(), tBadgeName)
  pActiveDownloads.add("badge" && tBadgeName)
  return TRUE
end

on badgeLoaded me, tBadgeName 
  me.updateBadgeImage()
  getThread(#room).getInterface().updateInfoStandBadge(tBadgeName)
  pActiveDownloads.deleteOne("badge" && tBadgeName)
end

on getMyBadgeInfo me 
  tBadge = " "
  tSession = getObject("session")
  tChosenBadgeNum = tSession.get("chosen_badge_index")
  tAvailableBadges = tSession.get("available_badges")
  if tSession.exists("badge_visible") then
    tVisibility = tSession.get("badge_visible")
  else
    tVisibility = 1
  end if
  if (tAvailableBadges.ilk = #list) then
    if tChosenBadgeNum > 0 and tAvailableBadges.count >= tChosenBadgeNum then
      tBadge = tAvailableBadges.getAt(tChosenBadgeNum)
    end if
  end if
  return([tBadge, tVisibility])
end

on toggleOwnBadgeVisibility me 
  tMyBadgeInfo = me.getMyBadgeInfo()
  tVisibilityNow = tMyBadgeInfo.getAt(2)
  if tVisibilityNow then
    tUpdatedVisibility = 0
  else
    tUpdatedVisibility = 1
  end if
  tMsg = [#string:tMyBadgeInfo.getAt(1), #integer:tUpdatedVisibility]
  getObject("session").set("badge_visible", tUpdatedVisibility)
  getThread(#room).getInterface().updateInfoStandBadge()
  getThread(#room).getComponent().getRoomConnection().send("SETBADGE", tMsg)
  return TRUE
end

on updateInfoStandBadge me, tInfoStandID, tSelectedObj, tBadgeID, tUserID 
  tWndObj = getWindow(tInfoStandID)
  if not tWndObj then
    return FALSE
  end if
  tElem = tWndObj.getElement("info_badge")
  tElem.clearImage()
  me.removeBadgeEffect()
  tOwnCharacter = (tSelectedObj = getObject("session").get("user_index"))
  if (tOwnCharacter = 0) then
    if tUserID <> void() then
      if tUserID <> tSelectedObj then
        return FALSE
      end if
    end if
    tUserObj = getThread(#room).getComponent().getUserObject(tSelectedObj)
    if not objectp(tUserObj) then
      return FALSE
    end if
    if tUserObj.getClass() <> "user" then
      return FALSE
    end if
    if tUserObj.pBadge <> tBadgeID then
      return FALSE
    end if
  end if
  if (tBadgeID = " ") or (tBadgeID = "") or voidp(tBadgeID) then
    if not tOwnCharacter then
      return TRUE
    end if
  end if
  if tOwnCharacter then
    tMyBadgeInfo = me.getMyBadgeInfo()
    tBadgeID = tMyBadgeInfo.getAt(1)
    tBadgeVisible = tMyBadgeInfo.getAt(2)
    if tBadgeID <> " " then
      tElem.setProperty(#cursor, "cursor.finger")
    end if
    if tBadgeVisible then
      tElem.setProperty(#blend, 100)
    else
      tElem.setProperty(#blend, 40)
    end if
  else
    tElem.setProperty(#blend, 100)
    tElem.setProperty(#cursor, 0)
  end if
  tBadgeMember = member(getmemnum("badge" && tBadgeID))
  if (tBadgeID = "HC2") then
    me.createBadgeEffect(tElem)
  else
    me.removeBadgeEffect()
  end if
  if (tBadgeMember.type = #bitmap) then
    return(tElem.feedImage(tBadgeMember.image))
  else
    me.startBadgeDownload(tBadgeID)
    return FALSE
  end if
end

on createBadgeEffect me, tElem 
  if objectExists("BadgeEffect") then
    return FALSE
  end if
  if createObject("BadgeEffect", "Badge Effect Class") <> 0 then
    return(getObject("BadgeEffect").Init(tElem.getProperty(#rect)))
  end if
end

on removeBadgeEffect me 
  if objectExists("BadgeEffect") then
    return(removeObject("BadgeEffect"))
  end if
end