Burying corpses

[Nordicmax]

It has always annoyed me how you just leave your dead enemies or allies out in the cold to rot or be eaten by animals, not to mention the ever-lasting corpses, for example the ones of Glarthir or Prior Maborel.

 

What I'm suggesting is a way to get rid of them by burying them. The easiest way of course is to just make an alternative when clicking space on those corpses named "Bury", which pretty much is just like using the console and hitting disable.

 

However, if anyone feels in the mood for some further modding, I have another idea. It's the same concept, only that when you hit bury, you can chose to create a permanent gravestone appears above the corpse. If it's possible, then you should also be able to write your own inscription on the gravestone, which will show whenever you hit space on the gravestone.

 

I know that this can make areas quite packed with gravestones, therefore like I said, you should have the option between burying the NPC and place a gravestone above or just burying them in an unmarked grave.

 

Perhaps to add a little realism, you'd have to use a special kind of shovel or something to be able to bury them?

Edited March 28, 2011 by Nordicmax

[InuyashaFE]

It would be nice to be able to move the gravestone as well, and when you get it placed, you can lock it. That way you don't have a gravestone in the middle of the street or something.

[Nordicmax]

It would be nice to be able to move the gravestone as well, and when you get it placed, you can lock it. That way you don't have a gravestone in the middle of the street or something.

 

 

That would be good, otherwise it would just be to drag the corpse to where you want the gravestone to be, may take a while to do though so what you said is probably smarter:)

[Laiko]

Hmm well if permanent bodies annoy you, this mod below has an option to put a 6hr time duration to move the corpse to a hidden cell.

http://www.tesnexus.com/downloads/file.php?id=18065

 

Drag corpses

http://www.tesnexus.com/downloads/file.php?id=5011

 

I also remember a mod that dealt with gravestones and burying npcs, where you could:

Inscribe a wording on it.

Store items in the grave.

Disturb the dead: % Chance of ghost to attack you and arrested for grave digging

 

I can't remember the mod name however, hopefully someone knows what I am talking about?

[Nordicmax]

Hmm well if permanent bodies annoy you, this mod below has an option to put a 6hr time duration to move the corpse to a hidden cell.

http://www.tesnexus.com/downloads/file.php?id=18065

 

Drag corpses

http://www.tesnexus.com/downloads/file.php?id=5011

 

I also remember a mod that dealt with gravestones and burying npcs, where you could:

Inscribe a wording on it.

Store items in the grave.

Disturb the dead: % Chance of ghost to attack you and arrested for grave digging

 

I can't remember the mod name however, hopefully someone knows what I am talking about?

 

Really? That mod sounds awesome, just what I'm looking for.... hmmm... Unfortunately I don't remember seeing anything like it...

[Nordicmax]

So, to summarize what I would like to be done:

 

In the absolute simpliest way: To add an alternative when clicking on corpses, perhaps with a certain button. You can then choose to "bury" the corpse. That will work just as disabling it in the console.

 

More advanced way: To add that alternative. However, when you click on "bury", not only will the corpse disappear, but also a gravestone will appear at the same spot. When clicking on the gravestone you get a menu with four alternatives:

 

"Move". This will make you be able to move around the gravestone, maybe the same way as grabbing something and dragging it?

 

"Lock". This will lock the gravestone at it's current location.

 

"Inscript". This will make you able to write your own inscription on the gravestone.

 

After you've locked the gravestone, these options will go away. When you click on the gravestone next time, you'll read the inscription.

 

 

Unfortunately, I'm an incredible noob at modding at the moment, so I can't do it myself.:(

[fg109]

I tried writing some scripts for it. I don't know if they'll work since I haven't tested them, and I don't plan on trying... too much work. :wallbash:

 

Quest script, scans the player's cell for dead bodies, then tries to set a script for them:

 

 

scn BuryCorpseQuestScript

ref actor

Begin GameMode

let actor := GetFirstRef 69
Label 10
if (actor)
	if (actor.GetDead == 1 && actor.GetDisabled == 0)
		actor.SetScript BuryCorpseObjectScript
	endif
	let actor := GetNextRef 69
	Goto 10
endif

End

 

 

Object script, the quest script sets this as the script for a dead body, so you can either loot or bury them (spawning a gravestone):

 

 

scn BuryCorpseObjectScript

short initialize
short choice

Begin OnActivate

let initialize := 1
MessageBoxEX " |Loot|Bury"

End

Begin GameMode

if initialize == 0
	Return
endif

let choice := GetButtonPressed

if choice == -1
	Return
elseif choice == 0
	let initialize := 0
	Activate Player
	Return
elseif choice == 1
               let initialize := 0
	Disable
	PlaceAtMe aaaGravestone
	RemoveScript
	Return
endif

End

 

 

Object script, this is attached to the gravestone to allow you to move it (by putting it in your inventory), lock it in place, or write an inscription:

 

 

scn aaaGravestoneScript

string_var InscribeText

short state
short menu
short choice
short inscribe

Begin OnActivate

if state == 0
	let menu := 1
	MessageBoxEX " |Move|Lock|Inscribe|Close"
	Return
elseif state == 1
	let menu := 2
	MessageBoxEX " |Inscribe|Close"
	Return
elseif state == 2
	let menu := 3
	MessageBoxEX "%z|Move|Lock|Close" InscribeText
	Return
elseif state == 3
	MessageBoxEX "%z" InscribeText
	Return
endif

End

Begin MenuMode

if (inscribe)
	let choice := GetButtonPressed
	if (choice == 0)
		let choice := -1
		let state := state + 2
		let inscribe := 0
		let InscribeText := GetInputText
		CloseTextInput
	else
		UpdateTextInput
	endif
	Return
endif

End

Begin GameMode

if menu == 0
	Return
endif

let choice := GetButtonPressed
if choice == -1
	Return
endif

if menu == 1
	if choice == 0
		let state := 0
		Activate Player
	elseif choice == 1
		let state := 1
	elseif choice == 2
		if (IsTextInputInUse == 0)
			let inscribe := 1
			OpenTextInput "Inscription (max 20 chars)|Complete" 0 20
		endif
	else
		let state := 0
	endif
	let menu := 0
	let choice := -1
	Return
endif

if menu == 2
	if choice == 0
		let choice := -1
		let menu := 0
		if (IsTextInputInUse == 0)
			let inscribe := 1
			OpenTextInput "Inscription (max 20 chars)|Complete" 0 20
		endif
	endif
	Return
endif

if menu == 3
	if choice == 0
		let state := 2
		Activate Player
	elseif choice == 1
		let state := 3
	else
		let state := 2
	endif
	let menu := 0
	let choice := -1
	Return
endif

End

 

 

I have absolutely no confidence it will work since I've never tried to use most of these functions before.

Edited March 29, 2011 by fg109

[Nordicmax]

I tried writing some scripts for it. I don't know if they'll work since I haven't tested them, and I don't plan on trying... too much work. :wallbash:

 

Quest script, scans the player's cell for dead bodies, then tries to set a script for them:

 

 

scn BuryCorpseQuestScript

ref actor

Begin GameMode

let actor := GetFirstRef 69
Label 10
if (actor)
	if (actor.GetDead == 1 && actor.GetDisabled == 0)
		actor.SetScript BuryCorpseObjectScript
	endif
	let actor := GetNextRef 69
	Goto 10
endif

End

 

 

Object script, the quest script sets this as the script for a dead body, so you can either loot or bury them (spawning a gravestone):

 

 

scn BuryCorpseObjectScript

short initialize
short choice

Begin OnActivate

let initialize := 1
MessageBoxEX " |Loot|Bury"

End

Begin GameMode

if initialize == 0
	Return
endif

let choice := GetButtonPressed

if choice == -1
	Return
elseif choice == 0
	let initialize := 0
	Activate Player
	Return
elseif choice == 1
               let initialize := 0
	Disable
	PlaceAtMe aaaGravestone
	RemoveScript
	Return
endif

End

 

 

Object script, this is attached to the gravestone to allow you to move it (by putting it in your inventory), lock it in place, or write an inscription:

 

 

scn aaaGravestoneScript

string_var InscribeText

short state
short menu
short choice
short inscribe

Begin OnActivate

if state == 0
	let menu := 1
	MessageBoxEX " |Move|Lock|Inscribe|Close"
	Return
elseif state == 1
	let menu := 2
	MessageBoxEX " |Inscribe|Close"
	Return
elseif state == 2
	let menu := 3
	MessageBoxEX "%z|Move|Lock|Close" InscribeText
	Return
elseif state == 3
	MessageBoxEX "%z" InscribeText
	Return
endif

End

Begin MenuMode

if (inscribe)
	let choice := GetButtonPressed
	if (choice == 0)
		let choice := -1
		let state := state + 2
		let inscribe := 0
		let InscribeText := GetInputText
		CloseTextInput
	else
		UpdateTextInput
	endif
	Return
endif

End

Begin GameMode

if menu == 0
	Return
endif

let choice := GetButtonPressed
if choice == -1
	Return
endif

if menu == 1
	if choice == 0
		let state := 0
		Activate Player
	elseif choice == 1
		let state := 1
	elseif choice == 2
		if (IsTextInputInUse == 0)
			let inscribe := 1
			OpenTextInput "Inscription (max 20 chars)|Complete" 0 20
		endif
	else
		let state := 0
	endif
	let menu := 0
	let choice := -1
	Return
endif

if menu == 2
	if choice == 0
		let choice := -1
		let menu := 0
		if (IsTextInputInUse == 0)
			let inscribe := 1
			OpenTextInput "Inscription (max 20 chars)|Complete" 0 20
		endif
	endif
	Return
endif

if menu == 3
	if choice == 0
		let state := 2
		Activate Player
	elseif choice == 1
		let state := 3
	else
		let state := 2
	endif
	let menu := 0
	let choice := -1
	Return
endif

End

 

 

I have absolutely no confidence it will work since I've never tried to use most of these functions before.

 

Thanks! One stupid question though: How do I add those scripts to the game, I'm guessing that i'll need to use the CS?

[fg109]

Yes... but if you don't even know how to add scripts to the game, I suggest you read some modding tutorials before trying anything. I learned by going through the Construction Set Wiki but there are also a lot of tutorials at TES Alliance and I'm also sure you can find many here on the nexus as well.

[darlaten1]

i like your mod idea if you sucseed i wont the link to downloade it and if some one came up with a qwest or somthing say like bery the solger that die in the war cuse some one should oner the falen solders just an extra idea