property pChatProps, pClassContId, pBalloonId, pInterstitialSystemID, pSpectatorSystemID, pShadowManagerID, pGroupInfoID, pOneWayDoorManagerID, pRoomConnID, pUserObjList, pActiveObjList, pPassiveObjList, pItemObjList, pRoomPrgID, pAdSystemID, pActiveFlag, pEnterDoorData, pRoomId, pEnterDoorLocked, pSaveData, pPrvRoomsReady, pTrgDoorID, pCacheFlag, pCacheKey, pFlatRatings, pRoomEventCurrent, pRoomEventList, pRoomEventTypeCount, pFurniChooserID, pRoomEventBrowserID, pCurrentSlidingObjects, pCastLoaded, pPickedCryName, pIconBarManagerID, pProcessList, pRoomPollerID, pHeightMapData, pEnterRoomAlert

on construct me 
  pInfoConnID = getVariable("connection.info.id")
  pRoomConnID = getVariable("connection.room.id")
  pRoomId = ""
  pActiveFlag = 0
  pProcessList = [:]
  pSaveData = void()
  pCacheKey = ""
  pCacheFlag = getIntVariable("room.map.cache", 0)
  pTrgDoorID = void()
  pPickedCryName = ""
  pPersistentFurniData = void()
  pUserObjList = [:]
  pActiveObjList = [:]
  pPassiveObjList = [:]
  pItemObjList = [:]
  pFlatRatings = [#rate:-1, #Percent:0]
  pBalloonId = "Chat Manager"
  pClassContId = "Room Classes"
  pRoomPrgID = "Room Program"
  pRoomPollerID = "Room Poller"
  pAdSystemID = "Room ad"
  pInterstitialSystemID = "Interstitial system"
  pSpectatorSystemID = "Room Mode Manager"
  pFurniChooserID = "Furniture Chooser"
  pShadowManagerID = "Room Shadow Manager"
  pGroupInfoID = "Group_Info"
  pRoomEventBrowserID = "RoomEvent Browser Window"
  pIconBarManagerID = "Icon Bar Manager"
  pRoomEventList = [:]
  pChatProps = [:]
  pChatProps.setAt("returnCount", 0)
  pChatProps.setAt("timerStart", 0)
  pChatProps.setAt("timerDelay", 0)
  pChatProps.setAt("mode", "CHAT")
  pChatProps.setAt("hobbaCmds", getVariableValue("moderator.cmds"))
  createObject(pClassContId, getClassVariable("variable.manager.class"))
  getObject(pClassContId).dump("fuse.object.classes", "\r")
  createObject(pBalloonId, "Chat Manager")
  pCastLoaded = 0
  pPrvRoomsReady = 0
  createObject(pInterstitialSystemID, "Interstitial Manager")
  createObject(pSpectatorSystemID, "Spectator System Class")
  pCurrentSlidingObjects = [:]
  createObject(pShadowManagerID, "Shadow Manager")
  createObject(pGroupInfoID, "Group Info Class")
  pOneWayDoorManagerID = "One Way Door Manager"
  createObject(pOneWayDoorManagerID, "OneWayDoor Manager Class")
  registerMessage(#pickAndGoCFH, me.getID(), #pickAndGoCFH)
  registerMessage(#enterRoom, me.getID(), #enterRoom)
  registerMessage(#leaveRoom, me.getID(), #leaveRoom)
  registerMessage(#changeRoom, me.getID(), #leaveRoom)
  registerMessage(#enterRoomDirect, me.getID(), #enterRoomDirect)
  registerMessage(#setEnterRoomAlert, me.getID(), #setEnterRoomAlert)
  registerMessage(#removeEnterRoomAlert, me.getID(), #removeEnterRoomAlert)
  registerMessage(#show_hide_roomevents, me.getID(), #showHideRoomevents)
  registerMessage(#editRoomevent, me.getID(), #editRoomevent)
  registerMessage(#releaseSpritesLevel1, me.getID(), #releaseShadowSpritesFromUsers)
  registerMessage(#releaseSpritesLevel2, me.getID(), #releaseSpritesFromActiveObjects)
  registerMessage(#showRespectInRoom, me.getID(), #showRespectFlashEffect)
  registerMessage(#furniture_expired, me.getID(), #expireFurniture)
  pEnterDoorData = void()
  pEnterDoorLocked = 0
  return TRUE
end

on deconstruct me 
  removeUpdate(me.getID())
  unregisterMessage(#enterRoom, me.getID())
  unregisterMessage(#leaveRoom, me.getID())
  unregisterMessage(#changeRoom, me.getID())
  unregisterMessage(#enterRoomDirect, me.getID())
  unregisterMessage(#show_hide_roomevents, me.getID())
  unregisterMessage(#editRoomevent, me.getID())
  unregisterMessage(#showRespectInRoom, me.getID())
  unregisterMessage(#furniture_expired, me.getID())
  removeConnection(pRoomConnID)
  if listp(pUserObjList) then
    call(#deconstruct, pUserObjList)
  end if
  if listp(pActiveObjList) then
    call(#deconstruct, pActiveObjList)
  end if
  if listp(pPassiveObjList) then
    call(#deconstruct, pPassiveObjList)
  end if
  if listp(pItemObjList) then
    call(#deconstruct, pItemObjList)
  end if
  if objectExists(pBalloonId) then
    removeObject(pBalloonId)
  end if
  if objectExists(pClassContId) then
    removeObject(pClassContId)
  end if
  if objectExists(pRoomPrgID) then
    removeObject(pRoomPrgID)
  end if
  if objectExists(pAdSystemID) then
    removeObject(pAdSystemID)
  end if
  if objectExists(pInterstitialSystemID) then
    removeObject(pInterstitialSystemID)
  end if
  if objectExists(pSpectatorSystemID) then
    removeObject(pSpectatorSystemID)
  end if
  if objectExists(pShadowManagerID) then
    removeObject(pShadowManagerID)
  end if
  if objectExists(pGroupInfoID) then
    removeObject(pGroupInfoID)
  end if
  if objectExists(pOneWayDoorManagerID) then
    removeObject(pOneWayDoorManagerID)
  end if
  pRoomId = ""
  pUserObjList = [:]
  pActiveObjList = [:]
  pPassiveObjList = [:]
  pItemObjList = [:]
  pCurrentSlidingObjects = [:]
  pEnterRoomAlert = ""
  return TRUE
end

on prepare me 
  if pActiveFlag then
    pEnterDoorLocked = 1
    call(#update, pUserObjList)
    me.updateSlideObjects(the milliSeconds)
    call(#update, pActiveObjList)
    call(#update, pItemObjList)
    pEnterDoorLocked = 0
    if not voidp(pEnterDoorData) then
      me.enterDoor(pEnterDoorData)
      pEnterDoorData = void()
    end if
  end if
end

on enterRoom me, tRoomDataStruct 
  tStamp = ""
  tNo = 1
  repeat while tNo <= 100
    tChar = numToChar((random(48) + 74))
    tStamp = tStamp & tChar
    tNo = (1 + tNo)
  end repeat
  tFuseReceipt = getSpecialServices().getReceipt(tStamp)
  tReceipt = []
  tCharNo = 1
  repeat while tCharNo <= tStamp.length
    tChar = chars(tStamp, tCharNo, tCharNo)
    tChar = charToNum(tChar)
    tChar = ((tChar * tCharNo) + 309203)
    tReceipt.setAt(tCharNo, tChar)
    tCharNo = (1 + tCharNo)
  end repeat
  if tReceipt <> tFuseReceipt then
    error(me, "Invalid build structure", #enterRoom, #critical)
    createTimeout(#builddisconnect, 3000, #disconnect, getThread(#login).getComponent().getID(), void(), 1)
  end if
  if not listp(tRoomDataStruct) then
    error(me, "Invalid room data struct!", #enterRoom, #major)
    return(executeMessage(#leaveRoom))
  end if
  getInterstitial().adRequested()
  me.getRoomConnection().send("GETINTERST", "general")
  tdata = tRoomDataStruct.duplicate()
  if voidp(tdata.getAt(#id)) then
    error(me, "Missing ID in room data struct!", #enterRoom, #major)
    return(executeMessage(#leaveRoom))
  end if
  if pRoomId <> "" then
    executeMessage(#changeRoom)
  end if
  tSession = getObject(#session)
  tSession.set("room_owner", 0)
  tSession.set("room_controller", 0)
  if (tdata.getAt(#type) = #private) then
    pRoomId = "private"
  else
    pRoomId = tdata.getAt(#id)
  end if
  pTrgDoorID = void()
  pSaveData = tdata
  pCastLoaded = 0
  me.loadRoomCasts()
  return TRUE
end

on enterDoor me, tdata 
  if not listp(tdata) then
    return(error(me, "Room data struct expected!", #enterDoor, #major))
  end if
  if pEnterDoorLocked then
    pEnterDoorData = tdata
    return TRUE
  end if
  if tdata.getAt(#id) <> pSaveData.getAt(#id) then
    me.leaveRoom(1)
    tReConnect = 1
  else
    getObject(#session).set("target_door_ID", 0)
    tReConnect = 0
  end if
  tCurrentScale = me.getRoomScale(pSaveData.getAt(#marker))
  tCurrentRoomCasts = pSaveData.getAt(#casts)
  pRoomId = "private"
  pTrgDoorID = tdata.getAt(#id)
  pSaveData = tdata.duplicate()
  pSaveData.setAt(#type, #private)
  getObject(#session).set("lastroom", pSaveData.duplicate())
  if (me.getRoomScale(pSaveData.getAt(#marker)) = #small) and (tCurrentScale = #large) and not pPrvRoomsReady then
    pSaveData.setAt(#casts, tCurrentRoomCasts)
    if voidp(tCurrentRoomCasts) then
      pSaveData.setAt(#casts, ["hh_room_private"])
    end if
    me.loadRoomCasts()
    pPrvRoomsReady = 1
    return FALSE
  end if
  if tReConnect then
    return(me.roomCastLoaded())
  else
    return(me.getRoomConnection().send("GOVIADOOR", [#integer:integer(pTrgDoorID), #integer:integer(pSaveData.getAt(#teleport))]))
  end if
end

on leaveRoom me, tJumpingToSubUnit 
  if (pRoomId = "") then
    return FALSE
  end if
  removePrepare(me.getID())
  if objectExists(pRoomPrgID) then
    removeObject(pRoomPrgID)
  end if
  if not pCacheFlag then
    getObject(#cache).Remove(pCacheKey)
  end if
  if objectExists(#furniChooser) then
    getObject(#furniChooser).close()
  end if
  pActiveFlag = 0
  if not tJumpingToSubUnit then
    pRoomId = ""
  end if
  me.getShadowManager().disableRender(1)
  if listp(pUserObjList) then
    call(#deconstruct, pUserObjList)
  end if
  if listp(pActiveObjList) then
    call(#deconstruct, pActiveObjList)
  end if
  if listp(pPassiveObjList) then
    call(#deconstruct, pPassiveObjList)
  end if
  if listp(pItemObjList) then
    call(#deconstruct, pItemObjList)
  end if
  me.getShadowManager().disableRender(0)
  pUserObjList = [:]
  pActiveObjList = [:]
  pPassiveObjList = [:]
  pItemObjList = [:]
  if objectExists(pBalloonId) then
    getObject(pBalloonId).removeBalloons()
  end if
  me.getInterface().hideAll()
  getObject(#session).Remove("user_index")
  getObject(#session).set("room_owner", 0)
  getObject(#session).set("room_controller", 0)
  executeMessage(#do_not_listen_song)
  return TRUE
end

on enterRoomDirect me, tdata 
  if (tdata.getAt(#type) = #private) then
    pRoomId = "private"
  else
    pRoomId = tdata.getAt(#id)
  end if
  pTrgDoorID = void()
  pSaveData = tdata
  getObject(#session).set("lastroom", pSaveData)
  if (pSaveData.getAt(#type) = #private) then
    tRoomID = integer(pSaveData.getAt(#id))
    tDoorID = 0
    tTypeID = 0
  else
    tRoomID = integer(pSaveData.getAt(#port))
    tDoorID = integer(pSaveData.getAt(#door))
    tTypeID = 1
  end if
  if (tDoorID.ilk = #void) then
    tDoorID = 0
  end if
  return(getConnection(pRoomConnID).send("ROOM_DIRECTORY", [#boolean:tTypeID, #integer:tRoomID, #integer:tDoorID]))
end

on createUserObject me, tdata 
  if me.userObjectExists(tdata.getAt(#id)) then
    me.removeUserObject(tdata.getAt(#id))
  end if
  if me.createRoomObject(tdata, pUserObjList, "user") then
    return(executeMessage(#create_user, tdata.getAt(#name), tdata.getAt(#id)))
  else
    return FALSE
  end if
end

on removeUserObject me, tID 
  if me.removeRoomObject(tID, pUserObjList) then
    return(executeMessage(#remove_user, tID))
  else
    return FALSE
  end if
end

on getUserObject me, tID 
  tObj = me.getRoomObject(tID, pUserObjList)
  return(tObj)
end

on getUserObjectByWebID me, tWebID 
  repeat while pUserObjList <= undefined
    tuser = getAt(undefined, tWebID)
    if (tuser.getWebID() = tWebID) then
      return(tuser)
    end if
  end repeat
  return FALSE
end

on getUsersRoomId me, tUserName 
  tIndex = -1
  tPos = 1
  repeat while tPos <= pUserObjList.count
    tuser = pUserObjList.getAt(tPos)
    tClass = tuser.getClass()
    if (tClass = "user") then
      if (tuser.getName() = tUserName) then
        tIndex = pUserObjList.getPropAt(tPos)
      else
        tPos = (1 + tPos)
      end if
      return(tIndex)
    end if
  end repeat
end

on userObjectExists me, tID 
  return(me.roomObjectExists(tID, pUserObjList))
end

on createActiveObject me, tdata 
  if me.activeObjectExists(tdata.getAt(#id)) then
    me.removeActiveObject(tdata.getAt(#id))
  end if
  return(me.createRoomObject(tdata, pActiveObjList, "active"))
end

on removeActiveObject me, tID, tExpired 
  return(me.removeRoomObject(tID, pActiveObjList, tExpired))
end

on expireFurniture me, tObjID 
  tObjID = string(tObjID)
  tObjMover = me.getInterface().getObjectMover()
  if not voidp(tObjMover) then
    if (tObjMover.getProperty(#clientID) = tObjID) then
      tCloudEffect = createObject(#random, "Cloud Animation Effect Class")
      if tCloudEffect <> 0 then
        tCloudEffect.define(tObjMover.getProperty(#loc), 20000010, #large)
      end if
      me.getInterface().stopObjectMover()
      return TRUE
    end if
  end if
end

on getActiveObject me, tID 
  return(me.getRoomObject(tID, pActiveObjList))
end

on activeObjectExists me, tID 
  return(me.roomObjectExists(tID, pActiveObjList))
end

on releaseShadowSpritesFromUsers me 
  call(#releaseShadowSprite, pUserObjList)
end

on releaseSpritesFromActiveObjects me 
  tRemoveCountMax = 10
  tActiveObjCount = (pActiveObjList.count - 1)
  tRemoveCount = min([tRemoveCountMax, tActiveObjCount])
  tNo = 1
  repeat while tNo <= tRemoveCount
    tID = pActiveObjList.getAt(1).getID()
    me.removeActiveObject(tID)
    tNo = (1 + tNo)
  end repeat
  if not timeoutExists(#releaseactivetimeout) then
    createTimeout(#releaseactivetimeout, 3000, #releaseActiveTimeoutCallback, me.getID(), void(), 1)
  end if
end

on releaseActiveTimeoutCallback me 
  executeMessage(#alert, [#Msg:"alert_too_much_furnitures", #modal:1])
end

on createPassiveObject me, tdata 
  if me.passiveObjectExists(tdata.getAt(#id)) then
    me.removePassiveObject(tdata.getAt(#id))
  end if
  return(me.createRoomObject(tdata, pPassiveObjList, "passive"))
end

on removePassiveObject me, tID 
  return(me.removeRoomObject(tID, pPassiveObjList))
end

on getPassiveObject me, tID 
  return(me.getRoomObject(tID, pPassiveObjList))
end

on passiveObjectExists me, tID 
  return(me.roomObjectExists(tID, pPassiveObjList))
end

on createItemObject me, tdata 
  if me.itemObjectExists(tdata.getAt(#id)) then
    me.removeItemObject(tdata.getAt(#id))
  end if
  return(me.createRoomObject(tdata, pItemObjList, "item"))
end

on removeItemObject me, tID 
  return(me.removeRoomObject(tID, pItemObjList))
end

on getItemObject me, tID 
  return(me.getRoomObject(tID, pItemObjList))
end

on itemObjectExists me, tID 
  return(me.roomObjectExists(tID, pItemObjList))
end

on setRoomRating me, tRoomRating, tRoomRatingPercent 
  pFlatRatings.setAt(#rate, tRoomRating)
  pFlatRatings.setAt(#Percent, tRoomRatingPercent)
end

on getRoomRating me 
  return(pFlatRatings)
end

on setRoomEvent me, tEventData 
  pRoomEventCurrent = tEventData
  executeMessage(#roomEventInfoUpdated)
end

on getRoomEvent me 
  return(pRoomEventCurrent)
end

on setRoomEventList me, ttype, tEvents 
  pRoomEventList.setaProp(ttype, [#data:tEvents, #time:the milliSeconds])
  executeMessage(#roomEventsUpdated)
end

on getRoomEventList me, ttype 
  if not integerp(ttype) then
    return FALSE
  end if
  tEventList = pRoomEventList.getaProp(ttype)
  if not voidp(tEventList) then
    tAge = (the milliSeconds - tEventList.getaProp(#time))
  end if
  tCache = getIntVariable("roomevent.cache", 10000)
  if voidp(tEventList) or tAge > tCache then
    me.getRoomConnection().send("GET_ROOMEVENTS_BY_TYPE", [#integer:integer(ttype)])
    pRoomEventList.setaProp(ttype, [#data:[], #time:the milliSeconds])
  end if
  tEventList = pRoomEventList.getaProp(ttype)
  return(tEventList.getaProp(#data))
end

on setRoomEventTypeCount me, tCount 
  pRoomEventTypeCount = tCount
  executeMessage(#roomEventTypeCountUpdated)
end

on getRoomEventTypeCount me 
  if voidp(pRoomEventTypeCount) then
    me.getRoomConnection().send("GET_ROOMEVENT_TYPE_COUNT")
    pRoomEventTypeCount = 0
  end if
  return(pRoomEventTypeCount)
end

on getRoomPrg me 
  return(getObject(pRoomPrgID))
end

on getRoomID me 
  return(pRoomId)
end

on getRoomData me 
  if voidp(pSaveData) then
    return FALSE
  else
    return(pSaveData)
  end if
end

on getRoomConnection me 
  return(getConnection(pRoomConnID))
end

on getBalloon me 
  return(getObject(pBalloonId))
end

on getAd me 
  tObject = getObject(pAdSystemID)
  if tObject <> 0 then
    return(tObject)
  end if
  createObject(pAdSystemID, "Ad Manager")
  return(getObject(pAdSystemID))
end

on getInterstitial me 
  if objectExists(pInterstitialSystemID) then
    return(getObject(pInterstitialSystemID))
  else
    return(error(me, "Interstitial manager not found", #getInterstitial, #major))
  end if
end

on getClassContainer me 
  return(getObject(pClassContId))
end

on isCreditFurniClass me, tClass 
  if getObject(pClassContId).exists(tClass) then
    tClasses = value(getObject(pClassContId).GET(tClass))
    if tClasses.getOne("Credit Furni Class") > 0 then
      return TRUE
    end if
  end if
  return FALSE
end

on getOwnUser me 
  return(me.getUserObject(getObject(#session).GET("user_index")))
end

on getShadowManager me 
  if objectExists(pShadowManagerID) then
    return(getObject(pShadowManagerID))
  else
    return(error(me, "Shadow manager not found", #getShadowManager, #major))
  end if
end

on getGroupInfoObject me 
  return(getObject(pGroupInfoID))
end

on roomExists me, tRoomID 
  if voidp(tRoomID) then
    return(pActiveFlag)
  else
    return((pRoomId = tRoomID))
  end if
end

on sendChat me, tChat 
  if voidp(tChat) then
    return FALSE
  end if
  if (tChat = "") then
    return FALSE
  end if
  tChat = convertSpecialChars(tChat, 1)
  if (tChat.getProp(#char, 1) = ":") then
    if (tChat.getProp(#word, 1) = ":readytest") then
      if getObject(#session).GET("user_rights").getOne("fuse_any_room_controller") then
        return(callJavaScriptFunction("clientReady"))
      end if
    else
      if (tChat.getProp(#word, 1) = ":jstest") then
        if getObject(#session).GET("user_rights").getOne("fuse_any_room_controller") then
          return(callJavaScriptFunction("hello", "JS Test"))
        end if
      else
        if (tChat.getProp(#word, 1) = ":crashme") then
          if getObject(#session).GET("user_rights").getOne("fuse_any_room_controller") then
            tTemp = ""
            return(tTemp.getAt(#thisIsNotListAndWillCrash))
          end if
        else
          if (tChat.getProp(#word, 1) = ":ver") then
            if getObject(#session).GET("user_rights").getOne("fuse_any_room_controller") then
              return(me.getRoomConnection().send("WHISPER", [#string:"Test 0.01"]))
            end if
          else
            if (tChat.getProp(#word, 1) = ":chooser") then
              if getObject(#session).GET("user_rights").getOne("fuse_habbo_chooser") then
                return(createObject(#chooser, "User Chooser Class"))
              end if
            else
              if (tChat.getProp(#word, 1) = ":furni") then
                if pSaveData.getAt(#type) <> #private then
                  return TRUE
                end if
                if getObject(#session).GET("user_rights").getOne("fuse_furni_chooser") then
                  if not objectExists(pFurniChooserID) then
                    createObject(pFurniChooserID, "Furni Chooser Class")
                  end if
                  if (getObject(pFurniChooserID) = 0) then
                    return FALSE
                  end if
                  return(getObject(pFurniChooserID).showList())
                end if
              else
                if (tChat.getProp(#word, 1) = ":performance") then
                  if getObject(#session).GET("user_rights").getOne("fuse_performance_panel") then
                    return(performance())
                  end if
                else
                  if (tChat.getProp(#word, 1) = ":profile") then
                    if getObject(#session).GET("user_rights").getOne("fuse_performance_panel") then
                      showProfileWindow()
                    end if
                  else
                    if (tChat.getProp(#word, 1) = ":editcatalogue") then
                      if getObject(#session).GET("user_rights").getOne("fuse_catalog_editor") then
                        return(executeMessage("edit_catalogue"))
                      end if
                    else
                      if (tChat.getProp(#word, 1) = ":copypaste") then
                        if getObject(#session).GET("user_rights").getOne("fuse_debug_window") then
                          the editShortcutsEnabled = 1
                          return TRUE
                        end if
                      else
                        if (tChat.getProp(#word, 1) = ":petcontrol") then
                          if getObject(#session).GET("user_rights").getOne("fuse_debug_window") then
                            petcontrol()
                            return TRUE
                          end if
                        else
                          if (tChat.getProp(#word, 1) = ":events") then
                            if variableExists("disable.roomevents") then
                              if getIntVariable("disable.roomevents") then
                                return TRUE
                              end if
                            end if
                            if objectExists(pRoomEventBrowserID) then
                              removeObject(pRoomEventBrowserID)
                            else
                              createObject(pRoomEventBrowserID, "RoomEvent Browser Class")
                            end if
                            return TRUE
                          else
                            if (tChat.getProp(#word, 1) = ":im") then
                              tName = tChat.getProp(#word, 2)
                              tMsg = tChat.getProp(#word, 3, tChat.count(#word))
                              executeMessage(#startIMChat, tName, tMsg)
                              return TRUE
                            else
                              if (tChat.getProp(#word, 1) = ":ig") then
                                executeMessage(#toggle_ig)
                                return TRUE
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if getObject(#session).GET("user_rights").getOne("fuse_debug_window") then
    tKeywords = me.getInterface().getKeywords()
    if tChat.getProp(#word, 1) <> "!!" & tKeywords.getAt(1) then
      if (tChat.getProp(#word, 1) = "!!" & tKeywords.getAt(2)) then
        tInfoID = getVariable("connection.info.id")
        getConnection(#info).pD = 1
        the debugPlaybackEnabled = 1
        if (tChat.getProp(#word, 1) = tKeywords.getAt(1)) then
          if connectionExists(tInfoID) then
            getConnection(tInfoID).setLogMode(1)
          end if
        else
          if (tChat.getProp(#word, 1) = tKeywords.getAt(2)) then
            if connectionExists(tInfoID) then
              getConnection(tInfoID).setLogMode(0)
            end if
          end if
        end if
        return TRUE
      end if
      tKeywords = void()
      if the shiftDown then
        tMode = "SHOUT"
      else
        tMode = pChatProps.getAt("mode")
      end if
      tSelected = me.getInterface().getSelectedObject()
      if me.userObjectExists(tSelected) then
        tSelected = me.getUserObject(tSelected).getName()
      else
        tSelected = ""
      end if
      if pChatProps.getAt("hobbaCmds").getOne(tChat.getProp(#word, 1, 2)) then
        tMode = "CHAT"
        if (tChat.getProp(#word, 2) = "x") then
          if (tSelected = "") then
            tMode = "WHISPER"
            tMsg = getText("chat_user_not_found", "User not found.")
            tID = getObject(#session).GET("user_index")
            me.getComponent().getBalloon().enterChatMessage(tMode, tID, tMsg)
            return TRUE
          end if
          tOffsetX = offset("x", tChat)
          tChat = tChat.getProp(#char, 1, (tOffsetX - 1)) & tSelected & tChat.getProp(#char, (tOffsetX + 1), tChat.length)
        end if
      else
        if (tMode = "WHISPER") then
          tChat = tSelected && tChat
        end if
      end if
      return(me.getRoomConnection().send(tMode, [#string:tChat]))
    end if
  end if
end

on setChatMode me, tMode, tUpdate 
  if (tMode = "whisper") then
    pChatProps.setAt("mode", "WHISPER")
  else
    if (tMode = "shout") then
      pChatProps.setAt("mode", "SHOUT")
    else
      pChatProps.setAt("mode", "CHAT")
    end if
  end if
  if tUpdate then
    me.getInterface().setSpeechDropdown(tMode)
  end if
  return TRUE
end

on setUserTypingStatus me, tUserID, tStatus 
  tUserObject = me.getUserObject(tUserID)
  if tUserObject <> 0 then
    tUserObject.setUserTypingStatus(tStatus)
  end if
end

on print me 
  put("\r" & "User objects:" & "\r")
  i = 1
  repeat while i <= pUserObjList.count
    put(pUserObjList.getPropAt(i) & ":" && pUserObjList.getAt(i))
    i = (1 + i)
  end repeat
  put("\r" & "Active objects:" & "\r")
  i = 1
  repeat while i <= pActiveObjList.count
    put(pActiveObjList.getPropAt(i) & ":" && pActiveObjList.getAt(i))
    i = (1 + i)
  end repeat
  put("\r" & "Passive objects:" & "\r")
  i = 1
  repeat while i <= pPassiveObjList.count
    put(pPassiveObjList.getPropAt(i) & ":" && pPassiveObjList.getAt(i))
    i = (1 + i)
  end repeat
end

on addSlideObject me, tID, tFromLoc, tToLoc, tTimeNow, tHasCharacter 
  if the paramCount < 4 then
    return(error(me, "Wrong parameter count", #addSlideObject, #major))
  end if
  tID = tID.string
  if voidp(tTimeNow) then
    tTimeNow = the milliSeconds
  end if
  if voidp(tHasCharacter) then
    tHasCharacter = 0
  end if
  if not voidp(pActiveObjList.getAt(tID)) then
    tObj = pActiveObjList.getAt(tID)
    tObj.setSlideTo(tFromLoc, tToLoc, tTimeNow, tHasCharacter)
    pCurrentSlidingObjects.setAt(tID, tObj)
  end if
end

on removeSlideObject me, tID 
  tID = tID.string
  if not voidp(pCurrentSlidingObjects.getAt(tID)) then
    pCurrentSlidingObjects.deleteProp(tID)
  end if
end

on roomPrePartFinished me 
  tInterstFinished = getInterstitial().isAdFinished()
  if (pCastLoaded = 0) or (tInterstFinished = 0) then
    return FALSE
  end if
  if (pSaveData.getAt(#type) = #private) then
    tRoomID = integer(pSaveData.getAt(#id))
    tDoorID = 0
    tTypeID = 0
  else
    tRoomID = integer(pSaveData.getAt(#port))
    tDoorID = integer(pSaveData.getAt(#door))
    tTypeID = 1
  end if
  if (tDoorID.ilk = #void) then
    tDoorID = 0
  end if
  return(getConnection(pRoomConnID).send("ROOM_DIRECTORY", [#boolean:tTypeID, #integer:tRoomID, #integer:tDoorID]))
  return TRUE
end

on getSpectatorMode me 
  tModeMgrObj = getObject(pSpectatorSystemID)
  if (tModeMgrObj = 0) then
    return(error(me, "Spectator System missing!", #getSpectatorMode, #major))
  end if
  return(tModeMgrObj.getSpectatorMode())
end

on setSpectatorMode me, tstate 
  tModeMgrObj = getObject(pSpectatorSystemID)
  if (tModeMgrObj = 0) then
    return(error(me, "Spectator System missing!", #setSpectatorMode, #major))
  end if
  if tstate then
    getObject(#session).set("user_index", -1000)
  end if
  tRoomData = me.getRoomData()
  if (tRoomData = 0) then
    tRoomType = #public
  else
    tRoomType = tRoomData.getAt(#type)
  end if
  return(tModeMgrObj.setSpectatorMode(tstate, tRoomType))
end

on pickAndGoCFH me, tSender 
  if not stringp(tSender) then
    return FALSE
  end if
  pPickedCryName = tSender
  return TRUE
end

on getPickedCryName me 
  return(pPickedCryName)
end

on showCfhSenderDelayed me, tID 
  pPickedCryName = ""
  return(me.getInterface().showCfhSenderDelayed(tID))
end

on updateCharacterFigure me, tUserID, tUserFigure, tsex, tUserCustomInfo 
  if voidp(tUserID) or voidp(tUserFigure) or voidp(tUserCustomInfo) then
    return FALSE
  end if
  tUserID = string(tUserID)
  tSession = getObject(#session)
  tFigureParser = getObject("Figure_System")
  tParsedFigure = tFigureParser.parseFigure(tUserFigure, tsex, "user")
  if (tSession.GET("user_index") = tUserID) or (tUserID = "-1") then
    tSession.set("user_figure", tParsedFigure)
    tSession.set("user_sex", tsex)
    tSession.set("user_customData", tUserCustomInfo)
  end if
  if (tSession.GET("lastroom") = "Entry") and (tUserID = "-1") then
    executeMessage(#updateFigureData)
  else
    if not (tSession.GET("lastroom") = "Entry") and integer(tUserID) > -1 then
      if voidp(pUserObjList.getAt(tUserID)) then
        return FALSE
      end if
      tUserObj = pUserObjList.getAt(tUserID)
      tloc = tUserObj.getLocation()
      tdir = tUserObj.getDirection()
      tuser = [:]
      tuser.setAt(#figure, tParsedFigure)
      tuser.setAt(#custom, tUserCustomInfo)
      tuser.setAt(#sex, tsex)
      tUserObj.changeFigureAndData(tuser)
      tScale = #large
      if me.getInterface().getGeometry().getTileWidth() < 64 then
        tScale = #small
      end if
      tChangeEffect = createObject(#random, "Cloud Animation Effect Class")
      if tChangeEffect <> 0 then
        tUserSprites = tUserObj.getSprites()
        tChangeEffect.defineWithSprite(tUserSprites.getAt(1), tScale)
      end if
      executeMessage(#updateInfostandAvatar, tUserObj)
    end if
  end if
end

on updateSpectatorCount me, tSpectatorCount, tSpectatorMax 
  tModeMgrObj = getObject(pSpectatorSystemID)
  if (tModeMgrObj = 0) then
    return(error(me, "Spectator System missing!", #updateSpectatorCount, #major))
  end if
  tModeMgrObj.updateSpectatorCount(tSpectatorCount, tSpectatorMax)
end

on highlightUser me, tUserID 
  repeat while pUserObjList <= undefined
    tuser = getAt(undefined, tUserID)
    if (tuser.getWebID() = tUserID) then
      me.getInterface().eventProcUserObj(#mouseUp, tuser.getID())
    else
    end if
  end repeat
end

on showHideRoomevents me 
  if objectExists(pRoomEventBrowserID) then
    removeObject(pRoomEventBrowserID)
  else
    createObject(pRoomEventBrowserID, "RoomEvent Browser Class")
  end if
  return TRUE
end

on editRoomevent me 
  if not objectExists(pRoomEventBrowserID) then
    createObject(pRoomEventBrowserID, "RoomEvent Browser Class")
  end if
  getObject(pRoomEventBrowserID).editEvent(pRoomEventCurrent)
end

on getIconBarManager me 
  if not objectExists(pIconBarManagerID) then
    createObject(pIconBarManagerID, "Room Bar Extensions Manager")
  end if
  return(getObject(pIconBarManagerID))
end

on removeIconBarManager me 
  if objectExists(pIconBarManagerID) then
    removeObject(pIconBarManagerID)
  end if
end

on setRoomProperty me, tKey, tValue 
  if tKey <> "wallpaper" then
    if (tKey = "floor") then
      tRoomPrg = me.getRoomPrg()
      if tRoomPrg <> 0 then
        tRoomPrg.setProperty(tKey, tValue)
      end if
    else
      if (tKey = "landscape") then
        me.setLandscape(tValue)
      else
        if (tKey = "landscapeanim") then
          me.setLandscapeAnimation(tValue)
        end if
      end if
    end if
  end if
end

on insertWallMaskItem me, tID, tClassID, tloc, tdir, tSize 
  if me.getRoomID() <> "private" then
    return FALSE
  end if
  tObj = me.getRoomPrg()
  if objectp(tObj) then
    call(#insertWallMaskItem, [tObj], tID, tClassID, tloc, tdir, tSize)
  end if
end

on removeWallMaskItem me, tID 
  if me.getRoomID() <> "private" then
    return FALSE
  end if
  tObj = me.getRoomPrg()
  if objectp(tObj) then
    call(#removeWallMaskItem, [tObj], tID)
  end if
end

on getRoomModel me 
  return(pSaveData.getAt(#marker))
end

on setLandscape me, ttype 
  if me.getRoomID() <> "private" then
    return FALSE
  end if
  tRoomType = me.getRoomModel()
  tObj = me.getRoomPrg()
  if objectp(tObj) then
    call(#setLandscape, [tObj], ttype, tRoomType)
  end if
end

on setLandscapeAnimation me, tID 
  if me.getRoomID() <> "private" then
    return FALSE
  end if
  tRoomType = me.getRoomModel()
  tObj = me.getRoomPrg()
  if objectp(tObj) then
    call(#setLandscapeAnimation, [tObj], tID, tRoomType)
  end if
end

on loadRoomCasts me 
  if (pRoomId = "") then
    return FALSE
  end if
  tCastVarPrefix = "room.cast."
  tCastList = me.addToCastDownloadList(tCastVarPrefix, tCastList)
  if (pSaveData.getAt(#type) = #public) then
    pPrvRoomsReady = 0
  end if
  if (pSaveData.getAt(#type) = #private) then
    if (me.getRoomScale(pSaveData.getAt(#marker)) = #small) then
      tCastVarPrefix = "room.cast.small."
      tCastList = me.addToCastDownloadList(tCastVarPrefix, tCastList)
      pPrvRoomsReady = 1
    end if
  end if
  if tCastList.count > 0 then
    tCastLoadId = startCastLoad(tCastList, 1)
    registerCastloadCallback(tCastLoadId, #loadRoomCasts, me.getID())
    me.getInterface().showLoaderBar(tCastLoadId, getText("room_hold", getText("room_loading", "Hold on...")))
    return TRUE
  end if
  if voidp(pSaveData.getAt(#casts)) then
    pSaveData.setAt(#casts, [])
  end if
  if pSaveData.getAt(#casts).count < 1 then
    error(me, "Cast for room not defined:" && pRoomId, #loadRoomCasts, #major)
    me.getInterface().hideLoaderBar()
    executeMessage(#leaveRoom)
  end if
  tCastLoadId = startCastLoad(pSaveData.getAt(#casts), 0)
  registerCastloadCallback(tCastLoadId, #roomCastLoaded, me.getID())
  me.getInterface().showLoaderBar(tCastLoadId, getText("room_loading", "Loading room") & "\r" & "\"" & pSaveData.getAt(#name) & "\"")
  return TRUE
end

on roomCastLoaded me 
  if (pRoomId = "") then
    pRoomId = "null"
    executeMessage(#leaveRoom)
    return(error(me, "Room building process is aborted!", #roomCastLoaded, #major))
  end if
  if voidp(pTrgDoorID) then
    tTxt = getText("room_preparing", "...preparing room.")
    if (pSaveData.getAt(#type) = #private) then
      if (pSaveData.getAt(#door) = "closed") then
        if pSaveData.getAt(#owner) <> getObject(#session).GET("user_name") then
          tTxt = getText("room_waiting", "...waiting.")
        end if
      end if
    end if
    me.getInterface().showLoaderBar(void(), "\"" & pSaveData.getAt(#name) & "\"" & "\r" & tTxt)
    tRoomCasts = pSaveData.getAt(#casts)
    repeat while tRoomCasts <= undefined
      tCast = getAt(undefined, undefined)
      if not castExists(tCast) then
        error(me, "Cast required by room not found:" && tCast, #roomCastLoaded, #major)
        return(executeMessage(#leaveRoom))
      end if
    end repeat
  end if
  pCastLoaded = 1
  me.roomPrePartFinished()
end

on roomConnected me, tMarker, tstate 
  if (pRoomId = "") then
    pRoomId = "null"
    executeMessage(#leaveRoom)
    return(error(me, "Room building process is aborted!", #roomConnected, #major))
  end if
  if not voidp(pTrgDoorID) then
    if (tstate = "OPC_OK") then
      tValue = me.getRoomConnection().send("GOVIADOOR", [#integer:integer(pTrgDoorID), #integer:integer(pSaveData.getAt(#teleport))])
      pTrgDoorID = void()
      return(tValue)
    end if
  end if
  if (pSaveData.getAt(#type) = #private) then
    if (tstate = "OPC_OK") then
      if not threadExists(#navigator) then
        return FALSE
      end if
      tPassword = getThread(#navigator).getComponent().getFlatPassword(pSaveData.getAt(#id))
      if (tPassword = 0) then
        return(me.getRoomConnection().send("TRYFLAT", [#integer:integer(pSaveData.getAt(#id))]))
      else
        return(me.getRoomConnection().send("TRYFLAT", [#integer:integer(pSaveData.getAt(#id)), #string:tPassword]))
      end if
    else
      if (tstate = "FLAT_LETIN") then
        return(me.getRoomConnection().send("GOTOFLAT", [#integer:integer(pSaveData.getAt(#id))]))
      end if
    end if
  end if
  if voidp(tMarker) then
    error(me, "Missing room marker!!!", #roomConnected, #major)
  end if
  pSaveData.setAt(#marker, tMarker)
  me.leaveRoom(1)
  if not me.getInterface().showRoom(tMarker) then
    return(executeMessage(#leaveRoom))
  end if
  if connectionExists(pRoomConnID) then
    getConnection(pRoomConnID).send("GETROOMAD")
  end if
  if memberExists(pSaveData.getAt(#marker) && "Class") then
    createObject(pRoomPrgID, pSaveData.getAt(#marker) && "Class")
  end if
  if (pSaveData.getAt(#type) = #private) then
    pProcessList = [#passive:0, #Active:0, #users:0, #items:0, #heightmap:0]
  else
    if (pSaveData.getAt(#type) = #public) then
      pProcessList = [#passive:0, #Active:0, #users:0, #items:1, #heightmap:0]
    else
      if (pSaveData.getAt(#type) = #game) then
        pProcessList = [#passive:1, #Active:1, #users:1, #items:1, #heightmap:0]
      end if
    end if
  end if
  pCacheKey = "room_data_" & pRoomId & "_" & pSaveData.getAt(#marker)
  if not getObject(#cache).exists(pCacheKey) then
    getObject(#cache).set(pCacheKey, [:])
  end if
  tCache = getObject(#cache).GET(pCacheKey)
  if voidp(tCache.getAt(#heightmap)) and not pProcessList.getAt(#heightmap) then
    tCache.setAt(#heightmap, "")
    me.getRoomConnection().send("GET_FLOORMAP")
    me.getRoomConnection().send("G_HMAP")
  else
    me.validateHeightMap(tCache.getAt(#heightmap))
  end if
  tShadowManager = me.getShadowManager()
  tShadowManager.define("roomShadow")
  tCache.setAt(#users, [])
  if not pProcessList.getAt(#users) then
    me.getRoomConnection().send("G_USRS")
  end if
  if voidp(tCache.getAt(#passive)) and not pProcessList.getAt(#passive) then
    tCache.setAt(#passive, [])
    me.getRoomConnection().send("G_OBJS")
  else
    if voidp(tCache.getAt(#passive)) then
      tCache.setAt(#passive, [])
    end if
    me.validatePassiveObjects(0)
  end if
  if voidp(tCache.getAt(#Active)) and not pProcessList.getAt(#Active) then
    tCache.setAt(#Active, [])
  else
    if voidp(tCache.getAt(#Active)) then
      tCache.setAt(#Active, [])
    end if
    me.validateActiveObjects(0)
  end if
  if voidp(tCache.getAt(#items)) and not pProcessList.getAt(#items) then
    tCache.setAt(#items, [])
    me.getRoomConnection().send("G_ITEMS")
  else
    if voidp(tCache.getAt(#items)) then
      tCache.setAt(#items, [])
    end if
    me.validateItemObjects(0)
  end if
  createTimeout(pRoomPollerID, 1000, #pollRoomMessages, me.getID(), void(), 0)
  me.executeEnterRoomAlert()
  return TRUE
end

on roomDisconnected me 
  pPrvRoomsReady = 0
  me.leaveRoom()
  return(executeMessage(#leaveRoom))
end

on validateHeightMap me, tdata 
  if not getObject(#cache).exists(pCacheKey) then
    return(error(me, "Data not expected yet!", #validateHeightMap, #major))
  end if
  me.getInterface().getGeometry().loadHeightMap(tdata)
  me.pHeightMapData = tdata
  if not pActiveFlag then
    getObject(#cache).GET(pCacheKey).setaProp(#heightmap, tdata)
    me.updateProcess(#heightmap, 1)
  end if
  return FALSE
end

on updateHeightMap me, tdata 
  if (tdata.getProp(#char, 1) = "x") then
    return(me.validateHeightMap(tdata))
  end if
  tHeightMapData = pHeightMapData
  if voidp(tHeightMapData) then
    return(error(me, "Height map update data sent but heightmap data not cached!", #updateHeightMap, #major))
  else
    tMapWidth = tHeightMapData.getPropRef(#line, 1).length
    if (tMapWidth = 0) then
      return(error(me, "Invalid room height map", #updateHeightMap, #major))
    end if
    a = 1
    i = 1
    repeat while i <= tdata.length
      if (tdata.getProp(#char, i) = "!") then
        i = (i + 1)
        a = (a + charToNum(tdata.getProp(#char, i)))
      else
        tStringPos = (a + (a / tMapWidth))
        if ((a mod tMapWidth) = 0) then
          tStringPos = (tStringPos - 1)
        end if
        -- UNK_21
        ERROR.setContents()
        a = (a + 1)
      end if
      i = (1 + i)
    end repeat
    return(validateHeightMap(me, tHeightMapData))
  end if
end

on validateUserObjects me, tdata 
  if not getObject(#cache).exists(pCacheKey) then
    return(error(me, "Data not expected yet!", #validateUserObjects, #major))
  end if
  if tdata <> 0 then
    getObject(#cache).GET(pCacheKey).getaProp(#users).add(tdata)
  end if
  if pActiveFlag and tdata <> 0 then
    me.createUserObject(tdata)
  else
    me.updateProcess(#users, 1)
  end if
  return TRUE
end

on validateActiveObjects me, tdata 
  if not getObject(#cache).exists(pCacheKey) then
    return(error(me, "Data not expected yet!", #validateActiveObjects, #major))
  end if
  if tdata <> 0 then
    getObject(#cache).GET(pCacheKey).getaProp(#Active).add(tdata)
  end if
  if pActiveFlag and tdata <> 0 then
    me.createActiveObject(tdata)
  else
    me.updateProcess(#Active, 1)
  end if
  return TRUE
end

on validatePassiveObjects me, tdata 
  if not getObject(#cache).exists(pCacheKey) then
    return(error(me, "Data not expected yet!", #validatePassiveObjects, #major))
  end if
  if tdata <> 0 then
    getObject(#cache).GET(pCacheKey).getaProp(#passive).add(tdata)
  end if
  if pActiveFlag and tdata <> 0 then
    me.createPassiveObject(tdata)
  else
    me.updateProcess(#passive, 1)
  end if
  return TRUE
end

on validateItemObjects me, tdata 
  if not getObject(#cache).exists(pCacheKey) then
    return(error(me, "Data not expected yet!", #validateItemObjects, #major))
  end if
  if tdata <> 0 then
    getObject(#cache).GET(pCacheKey).getaProp(#items).add(tdata)
  end if
  if pActiveFlag and tdata <> 0 then
    me.createItemObject(tdata)
  else
    me.updateProcess(#items, 1)
  end if
  return TRUE
end

on pollRoomMessages me 
  if not me.getRoomConnection() and timeoutExists(pRoomPollerID) then
    return(removeTimeout(pRoomPollerID))
  end if
  if me.getRoomConnection().getWaitingMessagesCount() > 0 then
    me.getRoomConnection().processWaitingMessages()
  end if
end

on updateProcess me, tKey, tValue 
  if pActiveFlag then
    return(error(me, "Attempted to remake room!", #updateProcess, #major))
  end if
  if (pProcessList.getAt(tKey) = 0) then
    pProcessList.setAt(tKey, tValue)
  end if
  repeat while pProcessList <= tValue
    tProcess = getAt(tValue, tKey)
    if not tProcess then
    else
    end if
  end repeat
  if (tProcess = 1) then
    if timeoutExists(pRoomPollerID) then
      removeTimeout(pRoomPollerID)
    end if
    tCache = getObject(#cache).GET(pCacheKey)
    repeat while pProcessList <= tValue
      tdata = getAt(tValue, tKey)
      me.createPassiveObject(tdata)
    end repeat
    me.getShadowManager().disableRender(1)
    repeat while pProcessList <= tValue
      tdata = getAt(tValue, tKey)
      me.createActiveObject(tdata)
    end repeat
    me.getShadowManager().disableRender(0)
    me.getShadowManager().render()
    repeat while pProcessList <= tValue
      tdata = getAt(tValue, tKey)
      me.createItemObject(tdata)
    end repeat
    repeat while pProcessList <= tValue
      tdata = getAt(tValue, tKey)
      me.createUserObject(tdata)
    end repeat
    tCache.setAt(#users, [])
    tCache.setAt(#Active, [])
    tCache.setAt(#items, [])
    me.getInterface().showRoomBar()
    me.getInterface().hideLoaderBar()
    me.getInterface().hideTrashCover()
    pActiveFlag = 1
    pChatProps.setAt("mode", "CHAT")
    setcursor(#arrow)
    call(#prepare, [me.getRoomPrg()])
    executeMessage(#roomReady)
    me.getRoomConnection().send("G_STAT")
    return(receivePrepare(me.getID()))
  end if
  return FALSE
end

on createRoomObject me, tdata, tList, tClass 
  if (tdata = 0) then
    return FALSE
  end if
  if voidp(tdata.getAt(#id)) or not listp(tList) then
    return(error(me, "Invalid arguments in object creation!", #createRoomObject, #major))
  end if
  if not voidp(tList.getAt(tdata.getAt(#id))) then
    return(error(me, "Object already exists:" && tdata.getAt(#id), #createRoomObject, #major))
  end if
  if voidp(tClass) then
    tClass = "passive"
  end if
  tdata = getThread(#buffer).getComponent().processObject(tdata, tClass)
  tCustomCls = tdata.getAt(#class)
  if tCustomCls contains "*" then
    tDelim = the itemDelimiter
    the itemDelimiter = "*"
    tCustomCls = tCustomCls.getProp(#item, 1)
    the itemDelimiter = tDelim
  end if
  if not voidp(tdata.getAt(#type)) then
    if getObject(pClassContId).exists(tCustomCls & tdata.getAt(#type)) then
      tCustomCls = tCustomCls & tdata.getAt(#type)
    end if
  end if
  if getObject(pClassContId).exists(tCustomCls) then
    tClasses = value(getObject(pClassContId).GET(tCustomCls))
  else
    tClasses = value(getObject(pClassContId).GET(tClass))
  end if
  tObject = createObject(#temp, tClasses)
  if not objectp(tObject) then
    return(error(me, "Failed to create room object:" && tdata, #createRoomObject, #major))
  end if
  tObject.setID(tdata.getAt(#id))
  tSuccess = tObject.define(tdata.duplicate())
  if not tSuccess then
    tObject.deconstruct()
    return(error(me, "Failed to define room object:" && tdata, #createRoomObject, #major))
  end if
  tList.setAt(tObject.getID(), tObject)
  return TRUE
end

on removeRoomObject me, tID, tList, tExpired 
  if voidp(tList.getAt(tID)) then
    return(error(me, "Object not found:" && tID, #removeRoomObject, #minor))
  end if
  if tExpired then
    tCloudEffect = createObject(#random, "Cloud Animation Effect Class")
    if tCloudEffect <> 0 then
      tObj = me.getActiveObject(tID)
      if objectp(tObj) then
        tSprites = tObj.getSprites()
        if listp(tSprites) then
          tCloudEffect.defineWithSprite(tSprites.getAt(1), me.getRoomScale(pSaveData.getAt(#marker)))
        end if
      end if
    end if
  end if
  tList.getAt(tID).deconstruct()
  tList.deleteProp(tID)
  return TRUE
end

on getRoomObject me, tID, tList 
  if (tID = #list) then
    return(tList)
  end if
  if tList.ilk <> #propList then
    return FALSE
  end if
  if voidp(tList.getaProp(tID)) then
    return FALSE
  else
    return(tList.getaProp(tID))
  end if
end

on roomObjectExists me, tID, tList 
  if tList.ilk <> #propList then
    return FALSE
  end if
  if voidp(tID) then
    return FALSE
  end if
  if (ilk(tID) = #string) then
    if (tID = "") then
      return FALSE
    end if
  else
    if tID < 1 then
      return FALSE
    end if
  end if
  return(not voidp(tList.getaProp(tID)))
end

on updateSlideObjects me, tTimeNow 
  if voidp(tTimeNow) then
    tTimeNow = the milliSeconds
  end if
  tList = pCurrentSlidingObjects.duplicate()
  call(#animateSlide, tList, tTimeNow)
end

on setEnterRoomAlert me, tMsg 
  pEnterRoomAlert = tMsg
end

on executeEnterRoomAlert me 
  if pEnterRoomAlert.length > 0 then
    executeMessage(#alert, [#Msg:pEnterRoomAlert])
    pEnterRoomAlert = ""
  end if
end

on removeEnterRoomAlert me 
  pEnterRoomAlert = ""
end

on getRoomScale me, tRoomMarker 
  if voidp(tRoomMarker) then
    return FALSE
  end if
  tRoomProps = getVariableValue("private.room.properties")
  if voidp(tRoomProps) then
    return FALSE
  end if
  tRoomKey = chars(tRoomMarker, tRoomMarker.length, tRoomMarker.length)
  repeat while tRoomProps <= undefined
    tRoom = getAt(undefined, tRoomMarker)
    if (tRoom.getAt(#model) = tRoomKey) then
      return(tRoom.getAt(#charScale))
    end if
  end repeat
  return FALSE
end

on addToCastDownloadList me, tCastVarPrefix, tCastList 
  if voidp(tCastList) or not listp(tCastList) then
    tCastList = []
  end if
  i = 1
  repeat while 1
    if variableExists(tCastVarPrefix & i) then
      tCast = getVariable(tCastVarPrefix & i)
      if not castExists(tCast) then
        tCastList.add(tCast)
      end if
    else
    end if
    i = (i + 1)
  end repeat
  return(tCastList)
end

on showRespectFlashEffect me, tUserID 
  tUserObj = me.getUserObjectByWebID(tUserID)
  if not tUserObj then
    return FALSE
  end if
  tScale = #large
  if me.getInterface().getGeometry().getTileWidth() < 64 then
    tScale = #small
  end if
  tChangeEffect = createObject(#random, "Respect Flash Effect Class")
  tUserSprites = tUserObj.getSprites()
  tChangeEffect.defineWithSprite(tUserSprites.getAt(1), tScale)
end