property pSkillLevelList

on construct me 
  pSkillLevelList = [:]
  registerMessage(#create_user, me.getID(), #storeCreatedAvatarInfo)
  return TRUE
end

on deconstruct me 
  unregisterMessage(#create_user, me.getID())
  return TRUE
end

on Refresh me, tTopic, tdata 
  if (tTopic = #users) then
    return TRUE
  else
    if (tTopic = #gameplayerinfo) then
      return(me.storeSkillLevels(tdata))
    end if
  end if
end

on storeCreatedAvatarInfo me, tName, tStrId 
  if pSkillLevelList.findPos(tStrId) <> 0 then
    return(me.showSkillLevel(pSkillLevelList.getAt(tStrId)))
  end if
  return TRUE
end

on storeSkillLevels me, tdata 
  repeat while tdata <= undefined
    tuser = getAt(undefined, tdata)
    if not me.showSkillLevel(tuser) then
      pSkillLevelList.addProp(string(tuser.getAt(#id)), tuser)
    end if
  end repeat
  return TRUE
end

on showSkillLevel me, tdata 
  tStrId = string(tdata.getAt(#id))
  tSkillValue = tdata.getAt(#skillvalue)
  tSkillLevel = tdata.getAt(#skilllevel)
  tRoomComponent = getObject(#room_component)
  if (tRoomComponent = 0) then
    return FALSE
  end if
  tUserObj = tRoomComponent.getUserObject(tStrId)
  if (tUserObj = 0) then
    return FALSE
  end if
  tSkillStr = replaceChunks(getText("bb_user_skill"), "\\x", tSkillLevel)
  tSkillStr = replaceChunks(tSkillStr, "\\y", tSkillValue)
  tSkillStr = replaceChunks(tSkillStr, "\\r", "\r")
  tUserObj.pCustom = tSkillStr
  tUserObj.setProp(#pInfoStruct, #custom, tSkillStr)
  return TRUE
end