property pWallDefined, pWallModel, pFloorDefined, pFloorModel, pWallPatterns, pFloorPatterns

on construct me 
  pWallPatterns = field(0)
  pFloorPatterns = field(0)
  pWallDefined = 0
  pFloorDefined = 0
  pWallModel = string(getVariable("room.default.wall", "201"))
  pFloorModel = string(getVariable("room.default.floor", "203"))
  return TRUE
end

on prepare me 
  if not pWallDefined then
    me.setWallPaper(pWallModel)
  end if
  if not pFloorDefined then
    me.setFloorPattern(pFloorModel)
  end if
  return TRUE
end

on setProperty me, tKey, tValue 
  if (tKey = "wallpaper") then
    return(me.setWallPaper(tValue))
  else
    if (tKey = "floor") then
      return(me.setFloorPattern(tValue))
    end if
  end if
end

on setWallPaper me, tIndex 
  tField = pWallPatterns.getProp(#line, integer(tIndex.getProp(#char, 1, (length(tIndex) - 2))))
  if (tField = "") then
    return(error(me, "Invalid wall color index:" && tIndex, #setWallPaper, #major))
  end if
  if not memberExists(tField) then
    error(me, "Invalid wall color index:" && tIndex, #setWallPaper, #minor)
    return(me.setWallPaper(string(getVariable("room.default.wall"))))
  end if
  tmodel = field(0)
  tPattern = tmodel.getProp(#line, integer(tIndex.getProp(#char, (length(string(tIndex)) - 1), length(string(tIndex)))))
  if (tPattern = "") then
    return(error(me, "Invalid wall color index:" && tIndex, #setWallPaper, #major))
  end if
  tDelim = the itemDelimiter
  the itemDelimiter = ","
  ttype = tPattern.getProp(#item, 1)
  tPalette = tPattern.getProp(#item, 2)
  tR = integer(tPattern.getProp(#item, 3))
  tG = integer(tPattern.getProp(#item, 4))
  tB = integer(tPattern.getProp(#item, 5))
  tColor = rgb(tR, tG, tB)
  tColors = ["left":(tColor - rgb(16, 16, 16)), "right":tColor, "a":(tColor - rgb(16, 16, 16)), "b":tColor]
  the itemDelimiter = "_"
  tPieceList = getThread(#room).getComponent().getPassiveObject(#list)
  tObjPieceCount = 0
  repeat while tField <= undefined
    tPiece = getAt(undefined, tIndex)
    tSprList = tPiece.getSprites()
    repeat while tField <= undefined
      tSpr = getAt(undefined, tIndex)
      tdir = tSpr.member.name.getProp(#item, 1)
      tName = tSpr.member.name.getProp(#item, 2)
      tdata = tSpr.member.name.getProp(#char, (length(tSpr.member.name) - 7), length(tSpr.member.name))
      tColor = tdir
      if (tColor = "corner") then
        if (tdata.getProp(#char, 2) = "a") then
          tColor = "right"
        else
          tColor = "left"
        end if
      end if
      if memberExists(tdir & "_" & tName & "_" & ttype & tdata) then
        tSpr.member = member(getmemnum(tdir & "_" & tName & "_" & ttype & tdata))
        tSpr.bgColor = tColors.getAt(tColor)
        tSpr.member.paletteRef = member(getmemnum(tPalette))
        tObjPieceCount = (tObjPieceCount + 1)
        if (pWallDefined = 0) then
          tSpr.locZ = (tSpr.locZ - 975)
        end if
        if (tSpr.blend = 100) then
          tSpr.ink = 41
        end if
      else
        error(me, "Wall member not found:" && tdir & "_" & tName & "_" & ttype & tdata, #setWallPaper, #minor)
      end if
    end repeat
  end repeat
  the itemDelimiter = tDelim
  tInterface = getThread(#room).getInterface()
  if not voidp(tInterface) then
    tViz = tInterface.getRoomVisualizer()
    if not voidp(tViz) then
      tWrappedWallParts = tViz.getWrappedParts([#wallleft, #wallright])
      if tWrappedWallParts.count > 0 then
        repeat while tField <= undefined
          tWrapper = getAt(undefined, tIndex)
          tWrapper.setPartPattern(ttype, tPalette, tColors.getAt("left"), #wallleft)
          tWrapper.setPartPattern(ttype, tPalette, tColors.getAt("right"), #wallright)
          tWrappedWallPartsDefined = 1
        end repeat
      else
        tWrappedWallPartsDefined = 0
      end if
    end if
  end if
  if (tPieceList.count = 0) and not tWrappedWallPartsDefined then
    pWallModel = tIndex
    pWallDefined = 0
    return FALSE
  else
    pWallDefined = 1
    return TRUE
  end if
end

on setFloorPattern me, tIndex 
  tField = pFloorPatterns.getProp(#line, integer(tIndex.getProp(#char, 1, (length(tIndex) - 2))))
  if (tField = "") then
    return(error(me, "Invalid floor color index:" && tIndex, #setFloorPattern, #major))
  end if
  if not memberExists(tField) then
    error(me, "Invalid floor color index:" && tIndex, #setFloorPatterns, #minor)
    return(me.setFloorPattern(string(getVariable("room.default.floor"))))
  end if
  tmodel = field(0)
  tPattern = tmodel.getProp(#line, integer(tIndex.getProp(#char, (length(string(tIndex)) - 1), length(string(tIndex)))))
  if (tPattern = "") then
    return(error(me, "Invalid floor color index:" && tIndex, #setFloorPattern, #major))
  end if
  tDelim = the itemDelimiter
  the itemDelimiter = ","
  ttype = tPattern.getProp(#item, 1)
  tPalette = tPattern.getProp(#item, 2)
  tR = integer(tPattern.getProp(#item, 3))
  tG = integer(tPattern.getProp(#item, 4))
  tB = integer(tPattern.getProp(#item, 5))
  tColor = rgb(tR, tG, tB)
  if not getThread(#room).getInterface().getRoomVisualizer() then
    pFloorModel = tIndex
    pFloorDefined = 0
    return FALSE
  end if
  tVisualizer = getThread(#room).getInterface().getRoomVisualizer()
  tPieceId = 1
  tSpr = tVisualizer.getSprById("floor" & tPieceId)
  tDelim = the itemDelimiter
  the itemDelimiter = "_"
  repeat while not (tSpr = 0)
    tMem = tSpr.member.name
    tClass = tMem.getProp(#item, 1) & "_" & tMem.getProp(#item, 2) & "_"
    tLayer = tMem.getProp(#item, 4) & "_"
    tObs1 = tMem.getProp(#item, 5) & "_"
    tdir = tMem.getProp(#item, 6) & "_"
    tObs2 = tMem.getProp(#item, 7)
    tNewMemName = tClass & ttype & "_" & tLayer & tObs1 & tdir & tObs2
    if memberExists(tNewMemName) then
      tSpr.member = member(tNewMemName)
    end if
    tSpr.bgColor = tColor
    tSpr.member.paletteRef = member(getmemnum(tPalette))
    tSpr.ink = 41
    tSpr.locZ = (tSpr.locZ - 1000000)
    tPieceId = (tPieceId + 1)
    tSpr = tVisualizer.getSprById("floor" & tPieceId)
  end repeat
  the itemDelimiter = tDelim
  tWrappedParts = tVisualizer.getWrappedParts([#floor])
  repeat while tField <= undefined
    tWrapper = getAt(undefined, tIndex)
    tWrapper.setPartPattern(ttype, tPalette, tColor, #floor)
  end repeat
  the itemDelimiter = tDelim
  pFloorDefined = 1
  return TRUE
end