dfhack/plugins/Dfusion/luafiles/patterns.lua

ptt_dfstring={}
if WINDOWS then
	ptt_dfstring.ptr={off=0,rtype=DWORD}
	ptt_dfstring.size={off=16,rtype=DWORD}
	ptt_dfstring.alloc={off=20,rtype=DWORD}

	function ptt_dfstring:getval()
		--print(string.format("GETTING FROM:%x",self.__offset))
		if self.size<16 then
			--print(string.format("GETTING FROM:%x",self.__offset))
			return string.sub(engine.peekstr(self.__offset),1,self.size)
		else
			--print(string.format("GETTING FROM:%x",self.ptr))
			return string.sub(engine.peekstr(self.ptr),1,self.size)
		end
	end
	function ptt_dfstring:setval(newstring)
		local offset=self.__offset
		local strl=string.len(newstring)
		if strl<16 then
			--print(string.format("GETTING FROM:%x",self.__offset))
		
			engine.poked(offset+ptt_dfstring.size.off,strl)
			engine.poked(offset+ptt_dfstring.alloc.off,15)
			engine.pokestr(offset,newstring)
		
		else
			local loc
			if engine.peekd(offset+ptt_dfstring.alloc.off) > strl then
				loc=engine.peekd(offset)
				print("Will fit:"..loc.." len:"..strl)
			else
				loc=Allocate(strl+1)
				engine.poked(offset+ptt_dfstring.alloc.off,strl)
				print("Will not fit:"..loc.." len:"..strl)
			end
			--print(string.format("GETTING FROM:%x",self.ptr))
			engine.poked(self.__offset+ptt_dfstring.size.off,strl)
			engine.pokestr(loc,newstring)
			engine.poked(self.__offset,loc)
		end
	end
else
	--ptt_dfstring.ptr={off=0,rtype=DWORD}
	function ptt_dfstring:getval()
		return engine.peekstr_stl(self.__offset)
	end
end
--if(COMPATMODE) then
--ptr_vector={}
--ptr_vector.st={off=4,rtype=DWORD}
--ptr_vector.en={off=8,rtype=DWORD}
--else
ptr_vector={}
ptr_vector.st={off=0,rtype=DWORD}
ptr_vector.en={off=4,rtype=DWORD}
ptr_vector.alloc={off=8,rtype=DWORD}
--end
function ptr_vector:clone(settype)
	local ret={}
	for k,v in pairs(self) do
		ret[k]=v
	end
	ret.type=settype
	return ret
end
function ptr_vector:size()
	return (self.en-self.st)/engine.sizeof(self.type)
end
ptr_vector.type=DWORD
function ptr_vector:getval(num)
	if self.st==0 then return error("Vector empty.") end
	--print("Wants:"..num.." size:"..self:size())
	if num>=self:size() then error("Index out of bounds in vector.") end
	return engine.peek(self.st+engine.sizeof(self.type)*num,self.type)
end
function ptr_vector:setval(num,val)
	return engine.poke(self.st+engine.sizeof(self.type)*num,self.type,val)
end
function ptr_vector:append(val)
	if self.alloc - self.en > 0 then
		local num=self:size()
		self.en=self.en+engine.sizeof(self.type)
		self:setval(val,num)
	else
		error("larger than allocated arrays not implemented yet")
		local num=self:size()
		local ptr=Allocate(num*2)
		
	end
end
ptt_dfflag={}
function ptt_dfflag.flip(self,num) --flip one bit in flags
	local of=math.floor (num/8);
	
	self[of]=bit.bxor(self[of],bit.lshift(1,num%8))
end

function ptt_dfflag.get(self,num) -- get one bit in flags
	local of=math.floor (num/8);
	
	if bit.band(self[of],bit.lshift(1,num%8))~=0 then
		return true
	else
		return false
	end
end
function ptt_dfflag.set(self,num,val) --set to on or off one bit in flags
	if (self:get(num)~=val) then
		self:flip(num)
	end
end
function ptt_dfflag.new(size) -- create new flag pattern of size(in bytes)
	local ret={}
	for i=0,size-1 do
		ret[i]={off=i,rtype=BYTE};
	end
	ret.flip=ptt_dfflag.flip --change to metatable stuff...
	ret.get=ptt_dfflag.get
	ret.set=ptt_dfflag.set
	return ret;
end
--[[
	Creature:
	0 name (df_string) 28
	28 nick (df_string) 56
	56 surname- namearray(7*dword(4)) 84 ...
	140 race (dword) 144
	224 flags
	264 civ (dword)
	252 ID
	592 following ID
	904 bleed vector? hurt vector or sth...
	0x790 legends id?
	2128 known names? or knowledge?
	flags:
	0    Can the dwarf move or are they waiting for their movement timer
    1   Dead (might also be set for incoming/leaving critters that are alive)
    2   Currently in mood
    3   Had a mood
    4   "marauder" -- wide class of invader/inside creature attackers
    5   Drowning
    6   Active merchant
    7   "forest" (used for units no longer linked to merchant/diplomacy, they just try to leave mostly)
    8   Left (left the map)
    9   Rider
    10  Incoming
    11  Diplomat
    12  Zombie
    13  Skeleton
    14  Can swap tiles during movement (prevents multiple swaps)
    15  On the ground (can be conscious)
    16  Projectile
    17  Active invader (for organized ones)
    18  Hidden in ambush
    19  Invader origin (could be inactive and fleeing)
    20  Will flee if invasion turns around
    21  Active marauder/invader moving inward
    22  Marauder resident/invader moving in all the way
    23  Check against flows next time you get a chance
    24  Ridden
    25  Caged
    26  Tame
    27  Chained
    28  Royal guard
    29  Fortress guard
    30  Suppress wield for beatings/etc
    31  Is an important historical figure 
	32 swiming
	
]]--
ptr_Creature={}
local posoff=0 --VersionInfo.getGroup("Creatures"):getGroup("creature"):getOffset("position")
ptr_Creature.x={off=posoff,rtype=WORD} --ok
ptr_Creature.y={off=posoff+2,rtype=WORD} --ok
ptr_Creature.z={off=posoff+4,rtype=WORD} --ok
ptr_Creature.flags={off=0,rtype=ptt_dfflag.new(10)}
ptr_Creature.name={off=0,rtype=ptt_dfstring}
ptr_Creature.ID={off=252,rtype=DWORD} --ok i guess
ptr_Creature.followID={off=592,rtype=DWORD} --ok
ptr_Creature.race={off=140,rtype=DWORD} --ok
ptr_Creature.civ={off=264,rtype=DWORD}
ptr_Creature.legends={off=344,rtype=ptr_vector} --ok
ptr_Creature.hurt1={off=0x308,rtype=ptr_vector:clone(BYTE)} --byte vector...
ptr_Creature.hurt2={off=0x338,rtype=ptr_vector}
ptr_Creature.wounds={off=0x388,rtype=ptr_vector}
ptr_Creature.itemlist1={off=0x1D0,rtype=ptr_vector}
ptr_Creature.itemlist2={off=0x288,rtype=ptr_vector}
ptr_Creature.bloodlvl={off=0x490,rtype=DWORD}
ptr_Creature.bleedlvl={off=0x494,rtype=DWORD}

ptr_CrGloss={}
ptr_CrGloss.token={off=0,rtype=ptt_dfstring}
ptr_CrGloss.castes={off=296,rtype=ptr_vector}

ptr_CrCaste={}
ptr_CrCaste.name={off=0,rtype=ptt_dfstring}
ptr_CrCaste.flags_ptr={off=0x5A0,rtype=DWORD} --size 17?
--[=[
	Flags:
	57 - is sentient (allows setting labours)
--]=]
ptr_LEntry={} -- all size 256
ptr_LEntry.name={off=36,rtype=ptt_dfstring}
ptr_LEntry.id1={off=160,rtype=DWORD}
ptr_LEntry.id2={off=164,rtype=DWORD}
ptr_LEntry.somlist={off=220,rtype=DWORD}

ptr_dfname={}
for i=0,6 do
ptr_dfname[i]={off=i*4,rtype=DWORD}
end
--[[
	Site docs:
	0x38 name struct todo...
	0x78 type:
		0 - mountain halls (yours)
		1 - dark fort
		2 - cave
		3 - mountain hall (other)
		4 - forest
		5 - hamlet
		6 - imp location
		7 - lair
		8 - fort
		9 - camp
	0x7a some sort of id?
	0x84 some vec (ids)
	0x94 some other vec (ids)
	0xa4 some vec (prts)
	0x118 ptr to sth
	
	0x14c ptr to mapdata
]]--


ptr_site={}
ptr_site.type={off=0x78,rtype=WORD}
ptr_site.id={off=0x7a,rtype=DWORD}
ptr_site.name={off=0x38,rtype=ptr_dfname}
ptr_site.flagptr={off=0x118,rtype=DWORD}

ptr_legends2={}
ptr_legends2.id={off=0,rtype=DWORD}
ptr_legends2.follow={off=0x18,rtype=DWORD}

ptr_material={}
ptr_material.token={off=0,rtype=ptt_dfstring}