All plugins added, triggers not working yet other +- work
Signed-off-by: Warmist <Warmist@gmail.com>develop
Warmist
parent
835581e5d3
commit
f2b8ff1280
@ -0,0 +1,87 @@
|
||||
adv_tools=adv_tools or {}
|
||||
adv_tools.menu=adv_tools.menu or MakeMenu()
|
||||
function adv_tools.ressurect()
|
||||
myoff=offsets.getEx("AdvCreatureVec")
|
||||
vector=engine.peek(myoff,ptr_vector)
|
||||
indx=GetCreatureAtPos(getxyz())
|
||||
if indx<0 then indx=0 end
|
||||
--print(string.format("%x",vector:getval(indx)))
|
||||
v2=engine.peek(vector:getval(indx),ptr_Creature.hurt1)
|
||||
for i=0,v2:size()-1 do
|
||||
v2:setval(i,0)
|
||||
end
|
||||
v2=engine.peek(vector:getval(indx),ptr_Creature.hurt2)
|
||||
v2.type=DWORD
|
||||
for i=0,v2:size()-1 do
|
||||
v2:setval(i,0)
|
||||
end
|
||||
engine.poke(vector:getval(indx),ptr_Creature.bloodlvl,60000) --give blood
|
||||
engine.poke(vector:getval(indx),ptr_Creature.bleedlvl,0) --stop some bleeding...
|
||||
local flg=engine.peek(vector:getval(indx),ptr_Creature.flags)
|
||||
flg:set(1,false) --ALIVE
|
||||
flg:set(39,false) -- leave body yet again
|
||||
flg:set(37,false) -- something todo with wounds- lets you walk again.
|
||||
engine.poke(vector:getval(indx),ptr_Creature.flags,flg)
|
||||
end
|
||||
|
||||
function adv_tools.wagonmode() --by rumrusher
|
||||
--first three lines same as before (because we will need an offset of creature at location x,y,z)
|
||||
myoff=offsets.getEx("AdvCreatureVec")
|
||||
vector=engine.peek(myoff,ptr_vector)
|
||||
indx=GetCreatureAtPos(getxyz())
|
||||
--indx=0
|
||||
--print(string.format("%x",vector:getval(indx)))
|
||||
flg=engine.peek(vector:getval(indx),ptr_Creature.flags) --get flags
|
||||
flg:set(1,false)
|
||||
flg:set(74,false)
|
||||
engine.poke(vector:getval(indx),ptr_Creature.flags,flg)
|
||||
print("To stay normal press y, else hit Enter turn Wagon mode on.")
|
||||
r=io.stdin:read() -- repeat for it too work... also creature will be dead.
|
||||
if r== "y" then
|
||||
flg=engine.peek(vector:getval(indx),ptr_Creature.flags)
|
||||
flg:set(1,false)
|
||||
engine.poke(vector:getval(indx),ptr_Creature.flags,flg)
|
||||
else
|
||||
flg=engine.peek(vector:getval(indx),ptr_Creature.flags)
|
||||
flg:set(1,false)
|
||||
flg:flip(74)
|
||||
engine.poke(vector:getval(indx),ptr_Creature.flags,flg)
|
||||
end
|
||||
end
|
||||
function selectall()
|
||||
local retvec={} --return vector (or a list)
|
||||
myoff=offsets.getEx("AdvCreatureVec")
|
||||
vector=engine.peek(myoff,ptr_vector) --standart start
|
||||
for i=0,vector:size()-1 do --check all creatures
|
||||
local off
|
||||
off=vector:getval(i)
|
||||
local flags=engine.peek(off,ptr_Creature.flags)
|
||||
if flags:get(1)==true then --if dead ...
|
||||
table.insert(retvec,off)--... add it to return vector
|
||||
end
|
||||
end
|
||||
return retvec --return the "return vector" :)
|
||||
end
|
||||
function adv_tools.hostilate()
|
||||
vector=engine.peek(offsets.getEx("AdvCreatureVec"),ptr_vector)
|
||||
id=GetCreatureAtPos(getxyz())
|
||||
print(string.format("Vec:%d cr:%d",vector:size(),id))
|
||||
off=vector:getval(id)
|
||||
crciv=engine.peek(vector:getval(id),ptr_Creature.civ)
|
||||
curciv=engine.peek(vector:getval(0),ptr_Creature.civ)
|
||||
|
||||
if curciv==crciv then
|
||||
print("Friendly-making enemy")
|
||||
engine.poke(off,ptr_Creature.civ,-1)
|
||||
flg=engine.peek(off,ptr_Creature.flags)
|
||||
flg:set(17,true)
|
||||
engine.poke(off,ptr_Creature.flags,flg)
|
||||
else
|
||||
print("Enemy- making friendly")
|
||||
engine.poke(off,ptr_Creature.civ,curciv)
|
||||
flg=engine.peek(off,ptr_Creature.flags)
|
||||
flg:set(17,false)
|
||||
flg:set(19,false)
|
||||
engine.poke(off,ptr_Creature.flags,flg)
|
||||
end
|
||||
end
|
||||
@ -0,0 +1 @@
|
||||
as -anl --32 -o migrants.o migrants.asm
|
||||
@ -0,0 +1,20 @@
|
||||
.intel_syntax
|
||||
pushfd
|
||||
push ebx
|
||||
push edx
|
||||
mov eax,[0xdeadbeef] # get old seed
|
||||
mov ebx,1103515245
|
||||
#mul 1103515245
|
||||
mul ebx
|
||||
add eax,12345
|
||||
mov [0xdeadbeef],eax #put seed back...thus generation rnd is complete
|
||||
|
||||
xor edx,edx
|
||||
mov ebx,2000 #put size of array here
|
||||
div ebx #why oh why there is no div const? compiler prob makes some xor/add magic
|
||||
movzx eax,word ptr[0xdeadbeef+edx*2]
|
||||
pop edx
|
||||
pop ebx
|
||||
|
||||
popfd
|
||||
ret
|
||||
Binary file not shown.
@ -0,0 +1,65 @@
|
||||
--install part
|
||||
function migrants(names)
|
||||
RaceTable=RaceTable or BuildNameTable()
|
||||
mypos=engine.getmod("Migrants")
|
||||
if mypos then
|
||||
print("Migrant mod is running already @:"..mypos)
|
||||
modpos=mypos
|
||||
_,modsize=engine.loadobj("dfusion/migrants/migrants.o")
|
||||
count=0
|
||||
for _,v in pairs(names) do
|
||||
if RaceTable[v] == nil then
|
||||
print("Failure, "..v.." not found!")
|
||||
break --maybe some indication of failure? and cleanup?
|
||||
end
|
||||
engine.pokew(modpos+modsize+count*2+4,RaceTable[v])
|
||||
count = count + 1
|
||||
end
|
||||
seedpos=modpos+modsize
|
||||
engine.poked(seedpos,math.random(1234567)) -- seed the generator :)
|
||||
engine.poked(modpos+0x1c,count) --max size for div
|
||||
|
||||
else
|
||||
modpos,modsize=engine.loadmod("dfusion/migrants/migrants.o","Migrants")
|
||||
print(string.format("Loaded module @:%x",modpos))
|
||||
count=0
|
||||
for _,v in pairs(names) do
|
||||
if RaceTable[v] == nil then
|
||||
print("Failure, "..v.." not found!")
|
||||
break --maybe some indication of failure? and cleanup?
|
||||
end
|
||||
engine.pokew(modpos+modsize+count*2+4,RaceTable[v])
|
||||
|
||||
count = count + 1
|
||||
end
|
||||
|
||||
seedpos=modpos+modsize
|
||||
engine.poked(modpos+0x04,seedpos)
|
||||
engine.poked(modpos+0x15,seedpos)
|
||||
|
||||
engine.poked(seedpos,math.random(1234567)) -- seed the generator :)
|
||||
engine.poked(modpos+0x1c,count) --max size for div
|
||||
|
||||
engine.poked(modpos+0x26,seedpos+4) --start of array
|
||||
|
||||
--patch part
|
||||
--pos=62873C+DF
|
||||
-- pattern: A1,DWORD_,"CURRENTRACE",56,89,ANYBYTE,ANYBYTE,34,e8
|
||||
pos=offsets.find(offsets.base(),0xa1,DWORD_,offsets.getEx("CurrentRace"),0x56,0x89,ANYBYTE,ANYBYTE,0x34,0xe8)
|
||||
function pokeCall(off)
|
||||
engine.pokeb(off,0xe8)
|
||||
engine.poked(off+1,modpos-off-5)
|
||||
end
|
||||
if pos~=0 then
|
||||
print(string.format("Found @:%x",pos))
|
||||
pokeCall(pos)
|
||||
else
|
||||
print("Not found patch location!!!")
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
if not(FILE) then
|
||||
names=ParseNames("dfusion/migrants/races.txt")--io.open("plugins/migrants/races.txt"):lines()
|
||||
migrants(names)
|
||||
end
|
||||
@ -0,0 +1,29 @@
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
ELF
|
||||
HUMAN
|
||||
DWARF
|
||||
GREMLIN
|
||||
KOBOLD
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
DWARF
|
||||
ELF
|
||||
HUMAN
|
||||
DWARF
|
||||
GREMLIN
|
||||
KOBOLD
|
||||
DEMON_13
|
||||
@ -0,0 +1,529 @@
|
||||
--local bit = require("bit")
|
||||
tools={}
|
||||
tools.menu=MakeMenu()
|
||||
function tools.setrace()
|
||||
RaceTable=RaceTable or BuildNameTable() --slow.If loaded don't load again
|
||||
print("Your current race is:"..GetRaceToken(engine.peekw(offsets.getEx('CurrentRace'))))
|
||||
print("Type new race's token name in full caps:")
|
||||
repeat
|
||||
entry=io.stdin:read()
|
||||
id=RaceTable[entry]
|
||||
until id~=nil
|
||||
engine.pokew(offsets.getEx('CurrentRace'),id)
|
||||
end
|
||||
tools.menu:add("Set current race",tools.setrace)
|
||||
function tools.GiveSentience(names) --TODO make pattern...
|
||||
RaceTable=RaceTable or BuildNameTable() --slow.If loaded don't load again
|
||||
if names ==nil then
|
||||
ids={}
|
||||
print("Type race's token name in full caps to give sentience to:")
|
||||
repeat
|
||||
entry=io.stdin:read()
|
||||
id=RaceTable[entry]
|
||||
until id~=nil
|
||||
table.insert(ids,id)
|
||||
else
|
||||
ids={}
|
||||
for _,name in pairs(names) do
|
||||
id=RaceTable[name]
|
||||
table.insert(ids,id)
|
||||
end
|
||||
end
|
||||
for _,id in pairs(ids) do
|
||||
local off=offsets.getEx('CreatureGloss')
|
||||
local races=engine.peek(off,ptr_vector)
|
||||
--print("Vector start:"..off)
|
||||
|
||||
off=races:getval(id)
|
||||
print(string.format("race location:%x",off))
|
||||
local castes=engine.peek(off,ptr_CrGloss.castes)
|
||||
print(string.format("Caste count:%i",castes:size()))
|
||||
local flagPattern=ptt_dfflag.new(17)
|
||||
for i =0,castes:size()-1 do
|
||||
local offCaste=castes:getval(i)
|
||||
print("Caste name:"..engine.peek(offCaste,ptr_CrCaste.name):getval().."...")
|
||||
local flagoffset=engine.peek(offCaste,ptr_CrCaste.flags_ptr)
|
||||
local flags=engine.peek(flagoffset,flagPattern)
|
||||
--print(string.format("%x",flagoffset))
|
||||
if flags:get(57) then
|
||||
print("\tis sentient.")
|
||||
else
|
||||
print("\tnon sentient. Allocating IQ...")
|
||||
flags:set(57,1)
|
||||
engine.poke(flagoffset,flagPattern,flags)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
tools.menu:add("Give Sentience",tools.GiveSentience)
|
||||
function tools.embark()
|
||||
off=offsets.find(0,0x66, 0x83, 0x7F ,0x1A ,0xFF,0x74,0x04)
|
||||
if off~=0 then
|
||||
engine.pokeb(off+5,0x90)
|
||||
engine.pokeb(off+6,0x90)
|
||||
print("Found and patched")
|
||||
else
|
||||
print("not found")
|
||||
end
|
||||
end
|
||||
tools.menu:add("Embark anywhere",tools.embark)
|
||||
function tools.getlegendsid(croff)
|
||||
local vec=engine.peek(croff,ptr_Creature.legends)
|
||||
if vec:size()==0 then
|
||||
return 0
|
||||
end
|
||||
for i =0,vector:size()-1 do
|
||||
--if engine.peekd(vec:getval(i))~=0 then
|
||||
-- print(string.format("%x",engine.peekd(vec:getval(i))-offsets.base()))
|
||||
--end
|
||||
if(engine.peekd(vec:getval(i))==offsets.getEx("vtableLegends")) then --easy to get.. just copy from player's-base
|
||||
return engine.peekd(vec:getval(i)+4)
|
||||
end
|
||||
end
|
||||
return 0
|
||||
end
|
||||
function tools.getCreatureId(vector)
|
||||
|
||||
tnames={}
|
||||
rnames={}
|
||||
--[[print("vector1 size:"..vector:size())
|
||||
print("vector2 size:"..vector2:size())]]--
|
||||
for i=0,vector:size()-1 do
|
||||
--print(string.format("%x",vector:getval(i)))
|
||||
|
||||
local name=engine.peek(vector:getval(i),ptt_dfstring):getval()
|
||||
local lid= tools.getlegendsid(vector:getval(i))
|
||||
if lid ~=0 then
|
||||
print(i..")*Creature Name:"..name.." race="..engine.peekw(vector:getval(i)+ptr_Creature.race.off).." legendid="..lid)
|
||||
else
|
||||
print(i..") Creature Name:"..name.." race="..engine.peekw(vector:getval(i)+ptr_Creature.race.off))
|
||||
end
|
||||
if name ~="" and name~=nil then
|
||||
tnames[i]=name
|
||||
rnames[name]=i
|
||||
end
|
||||
end
|
||||
print("=====================================")
|
||||
print("type in name or number:")
|
||||
r=io.stdin:read()
|
||||
if tonumber(r) ==nil then
|
||||
indx=rnames[r]
|
||||
if indx==nil then return end
|
||||
else
|
||||
r=tonumber(r)
|
||||
if r<vector:size() then indx=r else return end
|
||||
end
|
||||
return indx
|
||||
end
|
||||
function tools.change_adv()
|
||||
myoff=offsets.getEx("AdvCreatureVec")
|
||||
vector=engine.peek(myoff,ptr_vector)
|
||||
indx=tools.getCreatureId(vector)
|
||||
print("Swaping, press enter when done or 'q' to stay, 's' to stay with legends id change")
|
||||
tval=vector:getval(0)
|
||||
vector:setval(0,vector:getval(indx))
|
||||
vector:setval(indx,tval)
|
||||
r=io.stdin:read()
|
||||
if r=='q' then
|
||||
return
|
||||
end
|
||||
if r~='s' then
|
||||
tval=vector:getval(0)
|
||||
vector:setval(0,vector:getval(indx))
|
||||
vector:setval(indx,tval)
|
||||
end
|
||||
local lid=tools.getlegendsid(vector:getval(0))
|
||||
if lid~=0 then
|
||||
engine.poked(offsets.getEx("PlayerLegend"),lid)
|
||||
else
|
||||
print("Warning target does not have a valid legends id!")
|
||||
end
|
||||
end
|
||||
tools.menu:add("Change Adventurer",tools.change_adv)
|
||||
|
||||
function tools.MakeFollow()
|
||||
myoff=offsets.getEx("AdvCreatureVec")
|
||||
vector=engine.peek(myoff,ptr_vector)
|
||||
indx=tools.getCreatureId(vector)
|
||||
print(string.format("current creature:%x",vector:getval(indx)))
|
||||
|
||||
trgid=engine.peek(vector:getval(0)+ptr_Creature.ID.off,DWORD)
|
||||
lfollow=engine.peek(vector:getval(indx)+ptr_Creature.followID.off,DWORD)
|
||||
if lfollow ~=0xFFFFFFFF then
|
||||
print("Already following, unfollow? y/N")
|
||||
r=io.stdin:read()
|
||||
if r== "y" then
|
||||
engine.poke(vector:getval(indx)+ptr_Creature.followID.off,DWORD,0)
|
||||
end
|
||||
else
|
||||
engine.poke(vector:getval(indx)+ptr_Creature.followID.off,DWORD,trgid)
|
||||
end
|
||||
end
|
||||
tools.menu:add("Make creature follow",tools.MakeFollow)
|
||||
function tools.runscript(files)
|
||||
if files==nil then
|
||||
files={}
|
||||
table.insert(files,io.stdin:read())
|
||||
end
|
||||
for _,v in pairs(files) do
|
||||
print("Running script:"..v)
|
||||
ParseScript(v)
|
||||
end
|
||||
end
|
||||
function tools.getsite(names)
|
||||
if words==nil then --do once its slow.
|
||||
words,rwords=BuildWordTables()
|
||||
end
|
||||
|
||||
if names==nil then
|
||||
print("Type words that are in the site name, FULLCAPS, no modifiers (lovely->LOVE), q to quit:")
|
||||
names={}
|
||||
repeat
|
||||
w=io.stdin:read();
|
||||
|
||||
if rwords[w]~=nil then
|
||||
table.insert(names,w)
|
||||
print("--added--")
|
||||
end
|
||||
|
||||
until w=='q'
|
||||
end
|
||||
|
||||
tnames={}
|
||||
for _,v in pairs(names) do
|
||||
if rwords[v] ~=nil then
|
||||
table.insert(tnames,rwords[v]) --get word numbers
|
||||
end
|
||||
end
|
||||
|
||||
local offsites=engine.peekd(offsets.getEx("SiteData"))+0x120
|
||||
snames={" pfort"," dfort"," cave","mohall","forest","hamlet","imploc"," lair"," fort"," camp"}
|
||||
vector=engine.peek(offsites,ptr_vector)
|
||||
print("Number of sites:"..vector:size())
|
||||
print("List of hits:")
|
||||
for i =0,vector:size()-1 do
|
||||
off=vector:getval(i)
|
||||
|
||||
good=true
|
||||
r=""
|
||||
hits=0
|
||||
sname=engine.peek(off,ptr_site.name)
|
||||
for k=0,6 do
|
||||
vnum=sname[k]--engine.peekd(off+0x38+k*4)
|
||||
tgood=false
|
||||
|
||||
if vnum~=0xFFFFFFFF then
|
||||
--print(string.format("%x",vnum))
|
||||
if names[vnum]~=nil then
|
||||
r=r..names[vnum].." "
|
||||
end
|
||||
for _,v in pairs(tnames) do
|
||||
if vnum==v then
|
||||
tgood=true
|
||||
--print("Match")
|
||||
hits=hits+1
|
||||
break
|
||||
end
|
||||
end
|
||||
if not tgood then
|
||||
good=false
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
if(good) and (hits>0)then
|
||||
--if true then
|
||||
--print("=====================")
|
||||
typ=engine.peek(off,ptr_site.type)--engine.peekw(off+0x78)
|
||||
flg=engine.peekd(engine.peek(off,ptr_site.flagptr))
|
||||
--flg=engine.peekd(off+224)
|
||||
--flg2=engine.peekw(off)
|
||||
--tv=engine.peek(off+0x84,ptr_vector)
|
||||
--tv2=engine.peek(off+0xA4,ptr_vector)
|
||||
|
||||
print(string.format("%d)%s off=%x type=%s\t flags=%x",i,r,off,snames[typ+1],flg))
|
||||
|
||||
if i%100==99 then
|
||||
r=io.stdin:read()
|
||||
end
|
||||
|
||||
end
|
||||
end
|
||||
print("Type which to change (q cancels):")
|
||||
repeat
|
||||
r=io.stdin:read()
|
||||
n=tonumber(r)
|
||||
if(r=='q') then return end
|
||||
until n~=nil
|
||||
return vector:getval(n)
|
||||
end
|
||||
function tools.changesite(names)
|
||||
off=tools.getsite(names)
|
||||
snames={"Mountain halls (yours)","Dark fort","Cave","Mountain hall (NPC)","Forest retreat","Hamlet","Important location","Lair","Fort","Camp"}
|
||||
|
||||
print("Type in the site type (q cancels):")
|
||||
for k,v in pairs(snames) do
|
||||
print((k-1).."->"..v)
|
||||
end
|
||||
repeat
|
||||
r=io.stdin:read()
|
||||
n2=tonumber(r)
|
||||
if(r=='q') then return end
|
||||
until n2~=nil
|
||||
--off=vector:getval(n)
|
||||
print(string.format("%x->%d",off,n2))
|
||||
engine.poke(off,ptr_site.type,n2)
|
||||
end
|
||||
function tools.changeflags(names)
|
||||
myflag_pattern=ptt_dfflag.new(3*8)
|
||||
off=tools.getsite(names)
|
||||
offflgs=engine.peek(off,ptr_site.flagptr)
|
||||
q=''
|
||||
print(string.format("Site offset %x flags offset %x",off,offflgs))
|
||||
repeat
|
||||
print("flags:")
|
||||
|
||||
--off=vector:getval(n)
|
||||
flg=engine.peek(offflgs,myflag_pattern)
|
||||
r=""
|
||||
for i=0,3*8-1 do
|
||||
if flg:get(i)==1 then
|
||||
r=r.."x"
|
||||
else
|
||||
r=r.."o"
|
||||
end
|
||||
if i%8==7 then
|
||||
print(i-7 .."->"..r)
|
||||
r=""
|
||||
end
|
||||
end
|
||||
print("Type number to flip, or 'q' to quit.")
|
||||
q=io.stdin:read()
|
||||
n2=tonumber(q)
|
||||
if n2~=nil then
|
||||
|
||||
flg:flip(n2)
|
||||
engine.poke(offflgs,myflag_pattern,flg)
|
||||
end
|
||||
until q=='q'
|
||||
end
|
||||
function tools.hostilate()
|
||||
vector=engine.peek(offsets.getEx("CreatureVec"),ptr_vector)
|
||||
id=engine.peekd(offsets.getEx("CreaturePtr"))
|
||||
print(string.format("Vec:%d cr:%d",vector:size(),id))
|
||||
off=vector:getval(id)
|
||||
crciv=engine.peek(off,ptr_Creature.civ)
|
||||
print("Creatures civ:"..crciv)
|
||||
curciv=engine.peekd(offsets.getEx("CurrentRace")-12)
|
||||
print("My civ:"..curciv)
|
||||
if curciv==crciv then
|
||||
print("Friendly-making enemy")
|
||||
engine.poke(off,ptr_Creature.civ,-1)
|
||||
flg=engine.peek(off,ptr_Creature.flags)
|
||||
flg:set(17,0)
|
||||
print("flag 51:"..tostring(flg:get(51)))
|
||||
engine.poke(off,ptr_Creature.flags,flg)
|
||||
else
|
||||
print("Enemy- making friendly")
|
||||
engine.poke(off,ptr_Creature.civ,curciv)
|
||||
flg=engine.peek(off,ptr_Creature.flags)
|
||||
flg:set(17,1)
|
||||
flg:set(19,0)
|
||||
engine.poke(off,ptr_Creature.flags,flg)
|
||||
end
|
||||
end
|
||||
function tools.mouseBlock()
|
||||
local xs,ys,zs
|
||||
xs,ys,zs=getxyz()
|
||||
xs=math.floor(xs/16)
|
||||
ys=math.floor(ys/16)
|
||||
print("Mouse block is:"..xs.." "..ys.." "..zs)
|
||||
end
|
||||
function tools.protectsite()
|
||||
local mapoffset=offsets.getEx("WorldData")--0x131C128+offsets.base()
|
||||
local x=engine.peek(mapoffset+24,DWORD)
|
||||
local y=engine.peek(mapoffset+28,DWORD)
|
||||
local z=engine.peek(mapoffset+32,DWORD)
|
||||
--vec=engine.peek(mapoffset,ptr_vector)
|
||||
|
||||
print("Blocks loaded:"..x.." "..y.." "..z)
|
||||
print("Select type:")
|
||||
print("1. All (SLOW)")
|
||||
print("2. range (x0 x1 y0 y1 z0 z1)")
|
||||
print("3. One block around pointer")
|
||||
print("anything else- quit")
|
||||
q=io.stdin:read()
|
||||
n2=tonumber(q)
|
||||
if n2==nil then return end
|
||||
if n2>3 or n2<1 then return end
|
||||
local xs,xe,ys,ye,zs,ze
|
||||
if n2==1 then
|
||||
xs=0
|
||||
xe=x-1
|
||||
ys=0
|
||||
ye=y-1
|
||||
zs=0
|
||||
ze=z-1
|
||||
elseif n2==2 then
|
||||
print("enter x0:")
|
||||
xs=tonumber(io.stdin:read())
|
||||
print("enter x1:")
|
||||
xe=tonumber(io.stdin:read())
|
||||
print("enter y0:")
|
||||
ys=tonumber(io.stdin:read())
|
||||
print("enter y1:")
|
||||
ye=tonumber(io.stdin:read())
|
||||
print("enter z0:")
|
||||
zs=tonumber(io.stdin:read())
|
||||
print("enter z1:")
|
||||
ze=tonumber(io.stdin:read())
|
||||
function clamp(t,vmin,vmax)
|
||||
if t> vmax then return vmax end
|
||||
if t< vmin then return vmin end
|
||||
return t
|
||||
end
|
||||
xs=clamp(xs,0,x-1)
|
||||
ys=clamp(ys,0,y-1)
|
||||
zs=clamp(zs,0,z-1)
|
||||
xe=clamp(xe,xs,x-1)
|
||||
ye=clamp(ye,ys,y-1)
|
||||
ze=clamp(ze,zs,z-1)
|
||||
else
|
||||
xs,ys,zs=getxyz()
|
||||
xs=math.floor(xs/16)
|
||||
ys=math.floor(ys/16)
|
||||
xe=xs
|
||||
ye=ys
|
||||
ze=zs
|
||||
end
|
||||
local xblocks=engine.peek(mapoffset,DWORD)
|
||||
local flg=bit.lshift(1,14)
|
||||
for xx=xs,xe do
|
||||
local yblocks=engine.peek(xblocks+xx*4,DWORD)
|
||||
for yy=ys,ye do
|
||||
local zblocks=engine.peek(yblocks+yy*4,DWORD)
|
||||
for zz=zs,ze do
|
||||
|
||||
|
||||
|
||||
local myblock=engine.peek(zblocks+zz*4,DWORD)
|
||||
if myblock~=0 then
|
||||
for i=0,255 do
|
||||
local ff=engine.peek(myblock+0x67c+i*4,DWORD)
|
||||
ff=bit.bor(ff,flg) --set 14 flag to 1
|
||||
engine.poke(myblock+0x67c+i*4,DWORD,ff)
|
||||
end
|
||||
end
|
||||
end
|
||||
print("Blocks done:"..xx.." "..yy)
|
||||
end
|
||||
end
|
||||
end
|
||||
function tools.fixwarp()
|
||||
local mapoffset=offsets.getEx("WorldData")--0x131C128+offsets.base()
|
||||
local x=engine.peek(mapoffset+24,DWORD)
|
||||
local y=engine.peek(mapoffset+28,DWORD)
|
||||
local z=engine.peek(mapoffset+32,DWORD)
|
||||
--vec=engine.peek(mapoffset,ptr_vector)
|
||||
|
||||
print("Blocks loaded:"..x.." "..y.." "..z)
|
||||
print("Select type:")
|
||||
print("1. All (SLOW)")
|
||||
print("2. range (x0 x1 y0 y1 z0 z1)")
|
||||
print("3. One block around pointer")
|
||||
print("anything else- quit")
|
||||
q=io.stdin:read()
|
||||
n2=tonumber(q)
|
||||
if n2==nil then return end
|
||||
if n2>3 or n2<1 then return end
|
||||
local xs,xe,ys,ye,zs,ze
|
||||
if n2==1 then
|
||||
xs=0
|
||||
xe=x-1
|
||||
ys=0
|
||||
ye=y-1
|
||||
zs=0
|
||||
ze=z-1
|
||||
elseif n2==2 then
|
||||
print("enter x0:")
|
||||
xs=tonumber(io.stdin:read())
|
||||
print("enter x1:")
|
||||
xe=tonumber(io.stdin:read())
|
||||
print("enter y0:")
|
||||
ys=tonumber(io.stdin:read())
|
||||
print("enter y1:")
|
||||
ye=tonumber(io.stdin:read())
|
||||
print("enter z0:")
|
||||
zs=tonumber(io.stdin:read())
|
||||
print("enter z1:")
|
||||
ze=tonumber(io.stdin:read())
|
||||
function clamp(t,vmin,vmax)
|
||||
if t> vmax then return vmax end
|
||||
if t< vmin then return vmin end
|
||||
return t
|
||||
end
|
||||
xs=clamp(xs,0,x-1)
|
||||
ys=clamp(ys,0,y-1)
|
||||
zs=clamp(zs,0,z-1)
|
||||
xe=clamp(xe,xs,x-1)
|
||||
ye=clamp(ye,ys,y-1)
|
||||
ze=clamp(ze,zs,z-1)
|
||||
else
|
||||
xs,ys,zs=getxyz()
|
||||
xs=math.floor(xs/16)
|
||||
ys=math.floor(ys/16)
|
||||
xe=xs
|
||||
ye=ys
|
||||
ze=zs
|
||||
end
|
||||
local xblocks=engine.peek(mapoffset,DWORD)
|
||||
local flg=bit.bnot(bit.lshift(1,3))
|
||||
for xx=xs,xe do
|
||||
local yblocks=engine.peek(xblocks+xx*4,DWORD)
|
||||
for yy=ys,ye do
|
||||
local zblocks=engine.peek(yblocks+yy*4,DWORD)
|
||||
for zz=zs,ze do
|
||||
local myblock=engine.peek(zblocks+zz*4,DWORD)
|
||||
if myblock~=0 then
|
||||
for i=0,255 do
|
||||
local ff=engine.peek(myblock+0x67c+i*4,DWORD)
|
||||
ff=bit.band(ff,flg) --set 14 flag to 1
|
||||
engine.poke(myblock+0x67c+i*4,DWORD,ff)
|
||||
end
|
||||
end
|
||||
end
|
||||
print("Blocks done:"..xx.." "..yy)
|
||||
end
|
||||
end
|
||||
end
|
||||
if not(FILE) then
|
||||
tools.menu:add("Change site type",tools.changesite)
|
||||
tools.menu:add("Change site flags",tools.changeflags)
|
||||
tools.menu:add("Run script file",tools.runscript)
|
||||
tools.menu:add("Hostilate creature",tools.hostilate)
|
||||
tools.menu:add("Protect site from item scattering",tools.protectsite)
|
||||
tools.menu:add("Print current mouse block",tools.mouseBlock)
|
||||
--tools.menu:add("XXX",tools.fixwarp)
|
||||
tools.menu:display()
|
||||
|
||||
--[[choices={
|
||||
{tools.setrace,"Change race"},
|
||||
{tools.GiveSentience,"Give Sentience"},
|
||||
{tools.embark,"Embark anywhere"},
|
||||
{tools.change_adv,"Change Adventurer"},
|
||||
{tools.changesite,"Change site type"},
|
||||
{tools.runscript,"Run script file"},
|
||||
{tools.MakeFollow,"Make creature follow"},
|
||||
{function () return end,"Quit"}}
|
||||
print("Select choice:")
|
||||
for p,c in pairs(choices) do
|
||||
print(p..")."..c[2])
|
||||
end
|
||||
repeat
|
||||
ans=tonumber(io.stdin:read())
|
||||
if ans==nil or not(ans<=table.maxn(choices) and ans>0) then
|
||||
print("incorrect choice")
|
||||
end
|
||||
until ans~=nil and (ans<=table.maxn(tdir) and ans>0)
|
||||
choices[ans][1]()]]--
|
||||
end
|
||||
@ -0,0 +1 @@
|
||||
as -anl --32 -o triggers.o triggers.asm
|
||||
@ -0,0 +1,20 @@
|
||||
function func.Find_Print()
|
||||
pos=offsets.find(offsets.base(),0x73,0x02,0x8b,0xce,0x53,0x6a,0x01,0x6a,0x06,CALL) -- a hack for now...
|
||||
return engine.peekd(pos+10)+pos+14-offsets.base()
|
||||
end
|
||||
function func.PrintMessage(msg,color1,color2)
|
||||
func.f_print_pos= func.f_print_pos or func.Find_Print()
|
||||
--print(string.format("%x",func.f_print_pos))
|
||||
debuger.suspend()
|
||||
d=NewCallTable() -- make a call table
|
||||
t=Allocate(string.len(msg))
|
||||
engine.pokestr(t,msg)
|
||||
--print(string.format("Message location:%x",t))
|
||||
d["ECX"]=t --set ecx to message location
|
||||
d["STACK5"]=color1 -- push to stack color1
|
||||
d["STACK4"]=color2 -- push to stack color2
|
||||
d["STACK3"]=0 -- this is usually 0 maybe a struct pointing to location of this message?
|
||||
PushFunction(func.f_print_pos+offsets.base(),d) -- prep to call function
|
||||
-- was 0x27F030
|
||||
debuger.resume()
|
||||
end
|
||||
@ -0,0 +1,12 @@
|
||||
func={}
|
||||
dofile("dfusion/triggers/functions.lua")
|
||||
func.menu=MakeMenu()
|
||||
function func.PrintMessage_()
|
||||
print("Type a message:")
|
||||
msg=io.stdin:read()
|
||||
func.PrintMessage(msg,6,1)
|
||||
end
|
||||
if not(FILE) then -- if not in script mode
|
||||
func.menu:add("Print message",func.PrintMessage_)
|
||||
func.menu:display()
|
||||
end
|
||||
@ -0,0 +1,107 @@
|
||||
if FILE then
|
||||
return
|
||||
end
|
||||
callinfo={}
|
||||
callinfo.regs={}
|
||||
callinfo.regs["EAX"]=0
|
||||
callinfo.regs["EBX"]=1
|
||||
callinfo.regs["ECX"]=2
|
||||
callinfo.regs["EDX"]=3
|
||||
callinfo.regs["ESI"]=4
|
||||
callinfo.regs["EDI"]=5
|
||||
callinfo.regs["STACK1"]=6
|
||||
callinfo.regs["STACK2"]=7
|
||||
callinfo.regs["STACK3"]=8
|
||||
callinfo.regs["STACK4"]=9
|
||||
callinfo.regs["STACK5"]=10
|
||||
|
||||
mypos=engine.getmod("triggers_main")
|
||||
|
||||
function GetCount()
|
||||
return engine.peek(0,triggers.count)
|
||||
end
|
||||
function SetCount(val)
|
||||
engine.poke(0,triggers.count,val)
|
||||
end
|
||||
function NewCallTable(tbl)
|
||||
ret=tbl or {}
|
||||
for k,v in pairs(callinfo.regs) do
|
||||
ret[k]=0
|
||||
end
|
||||
return ret
|
||||
end
|
||||
function PushFunction(off,data)
|
||||
local i=GetCount()
|
||||
engine.poked(triggers.table.off+i*44,off) -- add function to table
|
||||
engine.poked(triggers.data.off+0,data["EAX"]) --set register data...
|
||||
engine.poked(triggers.data.off+4,data["EBX"])
|
||||
engine.poked(triggers.data.off+8,data["ECX"])
|
||||
engine.poked(triggers.data.off+12,data["EDX"])
|
||||
engine.poked(triggers.data.off+16,data["ESI"])
|
||||
engine.poked(triggers.data.off+20,data["EDI"])
|
||||
engine.poked(triggers.data.off+24,data["STACK1"])
|
||||
engine.poked(triggers.data.off+28,data["STACK2"])
|
||||
engine.poked(triggers.data.off+32,data["STACK3"])
|
||||
engine.poked(triggers.data.off+36,data["STACK4"])
|
||||
engine.poked(triggers.data.off+40,data["STACK5"])
|
||||
SetCount(i+1)
|
||||
end
|
||||
function loadTriggers()
|
||||
if triggers then return end
|
||||
triggers={}
|
||||
p=engine.getmod("triggerdata")
|
||||
triggers.count={off=engine.peekd(p),rtype=DWORD}
|
||||
triggers.table={off=engine.peekd(p+4),rtype=DWORD}
|
||||
triggers.ret={off=engine.peekd(p+8),rtype=DWORD}
|
||||
triggers.data={off=engine.peekd(p+12),rtype=DWORD}
|
||||
end
|
||||
if mypos then
|
||||
loadTriggers()
|
||||
dofile("dfusion/triggers/functions_menu.lua")
|
||||
--return
|
||||
else
|
||||
triggers={}
|
||||
|
||||
off=0x56D345+offsets.base()
|
||||
print(string.format("Function start %x",off))
|
||||
ModData=engine.installMod("dfusion/triggers/triggers.o","triggers_main")
|
||||
print("installed")
|
||||
modpos=ModData.pos
|
||||
modsize=ModData.size
|
||||
fdata=engine.newmod("function_body",256)
|
||||
|
||||
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"trigercount"),modpos+modsize) -- count of functions
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"f_loc"),modpos+modsize+4) -- function table start
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"f_data"),fdata) -- function data start
|
||||
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"saveplace31"),modpos+modsize+260) -- save function loc
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"saveplace32"),modpos+modsize+260) -- save function loc
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"saveplace33"),modpos+modsize+260) -- save function loc
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"saveplace"),modpos+modsize+256) -- save function loc
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"trigcount2"),modpos+modsize) -- count of functions (for zeroing)
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"saveplace2"),modpos+modsize+256) -- save function loc
|
||||
engine.poked(modpos+engine.FindMarker(ModData,"results"),modpos+modsize+256) --overwrite function call with results
|
||||
|
||||
triggers.count={off=modpos+modsize,rtype=DWORD}
|
||||
triggers.table={off=modpos+modsize+4,rtype=DWORD}
|
||||
triggers.ret={off=modpos+modsize+256,rtype=DWORD}
|
||||
triggers.data={off=fdata,rtype=DWORD}
|
||||
pp=Allocate(4*4)
|
||||
engine.poked(pp,triggers.count.off)
|
||||
engine.poked(pp+4,triggers.table.off)
|
||||
engine.poked(pp+8,triggers.ret.off)
|
||||
engine.poked(pp+12,triggers.data.off)
|
||||
engine.newmod("triggerdata",0,pp)
|
||||
function pokeCall(off)
|
||||
engine.pokeb(off,0xe8)
|
||||
--b=engine.peekb(off+1)
|
||||
engine.poked(off+1,modpos-off-5)
|
||||
--engine.pokeb(off+5,b)
|
||||
end
|
||||
print(string.format("Mod @:%x",modpos))
|
||||
dat=engine.peekarb(off,5)
|
||||
engine.pokearb(modpos,dat,5)
|
||||
pokeCall(off)
|
||||
end
|
||||
|
||||
@ -0,0 +1,68 @@
|
||||
.intel_syntax
|
||||
nop #5 nops for instruction thats replaced by call
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
pushad
|
||||
pushfd
|
||||
saveplace31:
|
||||
mov [0xDEADBEEF], esp
|
||||
trigercount:
|
||||
mov eax, [0xDEADBEEF] #mov count of triggers.
|
||||
f_loc:
|
||||
mov esi, 0xdeadbeef #mov location of functions.
|
||||
f_data:
|
||||
mov ebx, 0xDEADBEEF #mov a start of function data
|
||||
test eax,eax
|
||||
jz lend
|
||||
lstart:
|
||||
dec eax
|
||||
push ebx
|
||||
push eax
|
||||
|
||||
mov eax,[esi+eax*4]
|
||||
saveplace:
|
||||
mov [0xDEADBEEF],eax #save function for later
|
||||
pop eax
|
||||
push eax
|
||||
mov edx,44
|
||||
mul edx
|
||||
add eax,ebx
|
||||
#stack preparation
|
||||
mov ebx,[eax+24]
|
||||
push ebx
|
||||
mov ebx,[eax+28]
|
||||
push ebx
|
||||
mov ebx,[eax+32]
|
||||
push ebx
|
||||
mov ebx,[eax+36]
|
||||
push ebx
|
||||
mov ebx,[eax+40]
|
||||
push ebx
|
||||
mov ebx,[eax+4]
|
||||
mov ecx,[eax+8]
|
||||
mov edx,[eax+12]
|
||||
mov esi,[eax+16]
|
||||
mov edi,[eax+20]
|
||||
mov eax,[eax]
|
||||
saveplace2:
|
||||
call [0xdeadbeef] #same save loc
|
||||
results:
|
||||
mov [0xDEADBEEF],eax #get result
|
||||
saveplace33:
|
||||
mov esp, [0xDEADBEEF]
|
||||
add esp, -8
|
||||
pop eax
|
||||
pop ebx
|
||||
cmp eax,0
|
||||
jnz lstart
|
||||
lend:
|
||||
xor eax,eax
|
||||
trigcount2:
|
||||
mov dword ptr [0xDEADBEEF], eax # zero triggers
|
||||
saveplace32:
|
||||
mov esp, [0xDEADBEEF]
|
||||
popfd
|
||||
popad
|
||||
ret
|
||||
Binary file not shown.
@ -0,0 +1,14 @@
|
||||
.intel_syntax
|
||||
#eax - num of function
|
||||
#ebx -start of data
|
||||
mov ecx,eax
|
||||
mul 10
|
||||
add ebx
|
||||
mov ebx,[eax+4]
|
||||
mov ecx,[eax+8]
|
||||
mov edx,[eax+12]
|
||||
mov esi,[eax+16]
|
||||
mov edi,[eax+20]
|
||||
mov eax,[eax]
|
||||
|
||||
retn
|
||||
Loading…
Reference in New Issue