Unfreeze Attributes By Unique ID

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>24007</ID>
      <Description>"Unfreeze Attributes By Unique ID"</Description>
      <LastState/>
      <Color>DCDCDC</Color>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript>{$lua}
if syntaxcheck then return end
[ENABLE]
local _updateFunc = function(iUID)
  forEach(PersonTableStart, PersonTableEnd, 0x8, function(k, elemAddr)
    if count == Table.MaxShowItem then return end

    local Person = readQword(elemAddr)
    if Person == nil or Person == 0 or not isPerson(Person) then return end
    local UID = readInteger(Person+objo.Duni)
    if UID == iUID then
	  writeBit(Person+pero.Pfl2, 5, false)
    end
  end)
end
local _inputQuery = function()
  repeat
    local UID = tonumber(inputQuery("Enter Value","Leave it blank to end",""))
    if isnumber(UID) then
      _updateFunc(UID)
    end
  until not isnumber(UID)
end
_inputQuery()
enableAutoDisable(memrec, nil)
[DISABLE]
</AssemblerScript>
    </CheatEntry>
  </CheatEntries>
</CheatTable>