procedure ExpLoco(expadd: DWORD);
var ExpAtl, ExpXor: DWORD;
begin
  ExpAtl:= PDWORD(PDWORD(UserD)^+$13C)^ xor PDWORD($01D9B784)^;
  ExpXor:= ExpAtl xor (ExpAtl+expadd);
  PDWORD($01D9B784)^:= PDWORD($01D9B784)^ xor ExpXor;
end;