[Discontinued] Paradise Halls - SexLab Extension v0.1g (15/05/06) (RC 0.6 fixed 16/03/18)

blabla11 · January 16, 2015

How can i link propery to something?

Either open PAHE and EBD in the CK, find the form my script is attached to and select its properites (the scripts', not the forms') OR use TES5Edit... I'll have to look up what you have to do in TES5Edit later...

FaceArmor = the_actor.GetWornForm(0x00400000) as Armor

What you want to instead of this is find the editorID in TES5Edit and replace "the_actor.GetWornForm(0x00400000) as Armor" with "Game.getFormFromFile(0xEditorID, "EBDmod.esp") as Armor"

Tes5Edit:

In the script:

Armor Property EBD Auto
Function Strip()
	Form the_form
	Int i = the_actor.GetNumItems()
	while i > 0
		i -= 1
		the_form = the_actor.GetNthForm(i)
		if the_actor.IsEquipped(the_form) && !the_form.HasKeyword(PAHRestraint) && the_form.GetFormID() != armor.GetFormID()
			the_actor.UnequipItem(the_form)
		endif
	endwhile
	SetNakedState()
	ApplyEquipmentEffects()
EndFunction

Save it, compile it (I think, but better be safe than sorry)

Then you open Tes5Edit, load EBD and PAHE, navigate to Quest -> PAH -> VMAD -> Data -> Quest VMAD -> Script Fragments Quest -> Aliases -> Alias -> Alias Scripts -> Script -> scriptName(PAHActorAlias) -> Properties -> EBD and add the EBD armor in the FormID field

*D_ManXX2* · January 16, 2015

or just use exlude list on paradise halls in the ebd list. this will prevent the problem.

blabla11 · January 17, 2015

Sadly, it can't be done, because EBD has lots of armor parts and it's impossible to link each. Even if i'll do, it will be needed rewrite script for each skyproc-rebuild.

With this many armors you should contact the EBD creator and ask them to add a keyword... everything I still have up my sleeve is even more of a hack which will impact script performance a lot more than looking for a keyword.

*D_ManXX2* · January 17, 2015

blabla, one question in previous version older 0.a was still needed for version f do i still need version 0.a in order to work with 0.g now ??

blabla11 · January 17, 2015

blabla, one question in previous version older 0.a was still needed for version f do i still need version 0.a in order to work with 0.g now ??

No, I packed everything into the g-zip.

*D_ManXX2* · January 17, 2015

Thanks, will try the new version out.

blabla11 · January 18, 2015

Sadly, it can't be done, because EBD has lots of armor parts and it's impossible to link each. Even if i'll do, it will be needed rewrite script for each skyproc-rebuild.

I modified one of the existing TES5Edit scripts. What you have to do is create a Keyword, then put the keywords EditorID in the script where it says "$$EDITORID$$" and run it on the EBD mod file.

unit UserScript;

var
  slKeywords: TStringList;

function Initialize: integer;
begin
  // keywords to add
  slKeywords := TStringList.Create;
  slKeywords.Add('$$EDITORID$$');
end;
    
function Process(e: IInterface): integer;
var
  kwda, k: IInterface;
  i, j: integer;
  exists: boolean;
begin
  Result := 0;

  // apply only to weapons
  if Signature(e) <> 'ARMO' then
    Exit;

  // get existing keywords list or add a new
  kwda := ElementBySignature(e, 'KWDA');
  if not Assigned(kwda) then
    kwda := Add(e, 'KWDA', True);
    
  // no keywords subrecord (it must exist) - terminate script
  if not Assigned(kwda) then begin
    AddMessage('No keywords subrecord in ' + Name(e));
    Result := 1;
    Exit;
  end;

  // iterate through additional keywords
  for i := 0 to slKeywords.Count - 1 do begin
  
    // check if our keyword already exists
    exists := false;
    for j := 0 to ElementCount(kwda) - 1 do
      if IntToHex(GetNativeValue(ElementByIndex(kwda, j)), 8) = slKeywords[i] then begin
        exists := true;
        Break;
      end;
    
    // skip the rest of code in loop if keyword exists
    if exists then Continue;
    
    // CK likes to save empty KWDA with only a single NULL form, use it if so
    if (ElementCount(kwda) = 1) and (GetNativeValue(ElementByIndex(kwda, 0)) = 0) then
      SetEditValue(ElementByIndex(kwda, 0), slKeywords[i])
    else begin
      // add a new keyword at the end of list
      // container, index, element, aOnlySK
      k := ElementAssign(kwda, HighInteger, nil, False);
      if not Assigned(k) then begin
        AddMessage('Can''t add keyword to ' + Name(e));
        Exit;
      end;
      SetEditValue(k, slKeywords[i]);
    end;
  end;
    // update KSIZ keywords count
  if not ElementExists(e, 'KSIZ') then
    Add(e, 'KSIZ', True);
  SetElementNativeValues(e, 'KSIZ', ElementCount(kwda));
  
  AddMessage('Processed: ' + Name(e));
end;

function Finalize: integer;
begin
  slKeywords.Free;
end;
end.

Then you modify the Strip function thus:

Function Strip()
    Form the_form
    Keyword EBDFace = Game.GetFormFromFile('KeywordEditorID', EBDFilename) as Keyword
    Int i = the_actor.GetNumItems()
    while i > 0
        i -= 1
        the_form = the_actor.GetNthForm(i)
        if the_actor.IsEquipped(the_form) && !the_form.HasKeyword(PAHRestraint) && !the_form.HasKeyword(EBDFace)
            the_actor.UnequipItem(the_form)
        endif
    endwhile
    SetNakedState()
    ApplyEquipmentEffects()
EndFunction

Erenlor · January 21, 2015

I got CTD each time I open my slave's inventory. Is your mod UFO incompatible? Or maybe a bug caused by dlc's?

proTheus69 · January 22, 2015

Hello, i have started using your extension to PH and now i cannot train my slaves. I can sextrain them but nothing else. I tried reboot and clean save and nothing. Can you please suggest solution? I use some other mods, but with original PH everything worked fine. I can enslave, have sex etc. Everything works except for training them. Even when they try to run away, i stop them and start punishing them with whip, spell SlaveInfo shows no progress. Only as i said sextrain is progressing.

blabla11 · January 22, 2015

I got CTD each time I open my slave's inventory. Is your mod UFO incompatible? Or maybe a bug caused by dlc's?

I run UFO and all DLCs and don't have this problem... can you force a crash and post the log? Which inventory are you referring to? The "I want you to carry this" or the "You are going to wear this"?

Hello, i have started using your extension to PH and now i cannot train my slaves. I can sextrain them but nothing else. I tried reboot and clean save and nothing. Can you please suggest solution? I use some other mods, but with original PH everything worked fine. I can enslave, have sex etc. Everything works except for training them. Even when they try to run away, i stop them and start punishing them with whip, spell SlaveInfo shows no progress. Only as i said sextrain is progressing.

I'll have to look up some IDs before I can start suggesting a way to debug...

proTheus69 · January 22, 2015

If you tell me what exactly you need i will provide it to you immediately when i come home from work. I may be dumber than son of forecast moderator and village idiot but ill try Btw very good work.

Erenlor · January 22, 2015

I got CTD each time I open my slave's inventory. Is your mod UFO incompatible? Or maybe a bug caused by dlc's?

I run UFO and all DLCs and don't have this problem... can you force a crash and post the log? Which inventory are you referring to? The "I want you to carry this" or the "You are going to wear this"?

Hello, i have started using your extension to PH and now i cannot train my slaves. I can sextrain them but nothing else. I tried reboot and clean save and nothing. Can you please suggest solution? I use some other mods, but with original PH everything worked fine. I can enslave, have sex etc. Everything works except for training them. Even when they try to run away, i stop them and start punishing them with whip, spell SlaveInfo shows no progress. Only as i said sextrain is progressing.

I'll have to look up some IDs before I can start suggesting a way to debug...

Both crash when I open them. Do you want a copy of papyrus?

blabla11 · January 22, 2015

If you tell me what exactly you need i will provide it to you immediately when i come home from work. I may be dumber than son of forecast moderator and village idiot but ill try Btw very good work.

So, here's what you have to do in the console:

(points with "" mean it's a command you have to run in the console)

"help pahpersonality 4"
get the first 2 digits of the ID
click on a slave so it's selected
"GetInFaction XX0047eb" with XX being the two digits from 2nd point
post the result here

Both crash when I open them. Do you want a copy of papyrus?

Yes.

proTheus69 · January 22, 2015

So, after the first command this showed:

help personality 4
---VIEWER STRINGS NOT AVAILABLE------
---OTHER FORMS---
DIAL: PAHPersonalityFemaleArgonianSharedInfoStore (030282C1) 'SharedInfo'
DIAL: PAHPersonalityFemaleSultrySharedInfo (0302C450) 'SharedInfo'
DIAL:PAHPersonalityGenericSharedInfo (0302BED1) 'SharedInfo'
QUST: PAHPersonalityEvenToned (0302C44D)"
QUST: PAHPersonalityFemaleArgonian (030282C0)"
QUST: PAHPersonalityFemaleSultry (0302C44F)"
QUST:PAHPersonalityGeneric (03021B4E)"

usage: help
filters: 0-all, 1-functions, 2-settings, 3-globals, 4-other forms

I dont know if it is what should appear, but if yes, then the first two digits of ID are probably 03, so i've clicked her and typed the second command:

GetInFaction 030047eb and it showed this:

GetInFaction >> 1.00

proTheus69 · January 23, 2015

And nothing else happened.. Should i post my modslist and load order? Will it help you?

blabla11 · January 23, 2015

So, after the first command this showed:

I dont know if it is what should appear, but if yes, then the first two digits of ID are probably 03, so i've clicked her and typed the second command:

GetInFaction 030047eb and it showed this:

GetInFaction >> 1.00

That was exactly right.

Next step:

Cast the Slave Info spell on a slave, look at the Submission stat
Open console, select that slave and type "GetFactionRank 030047eb"

This should return the same value as in the stat spell.

If it does not, you can report back here and I will give you a debug script.

If it does, punish the slave for whatever wrongdoing, repeat 1 & 2 and report your findings.

Erenlor · January 23, 2015

Hum. I changed my load order and the bug disappeared, at least for women. I will need more testing.

proTheus69 · January 23, 2015

So, after the first command this showed:

I dont know if it is what should appear, but if yes, then the first two digits of ID are probably 03, so i've clicked her and typed the second command:

GetInFaction 030047eb and it showed this:

GetInFaction >> 1.00

That was exactly right.

Next step:

Cast the Slave Info spell on a slave, look at the Submission stat

Open console, select that slave and type "GetFactionRank 030047eb"

This should return the same value as in the stat spell.

If it does not, you can report back here and I will give you a debug script.

If it does, punish the slave for whatever wrongdoing, repeat 1 & 2 and report your findings.

So i've done this and it returned to me:

GetFactionRank >> 0.00

proTheus69 · January 23, 2015

After that just to be sure i've tried again both steps (GetInFaction 030047eb => GetinFacion >> 1.00 and then the second step GetFactionRank 030047eb and it still showed GetFactionRank >> 0.00)

blabla11 · January 23, 2015

After that just to be sure i've tried again both steps (GetInFaction 030047eb => GetinFacion >> 1.00 and then the second step GetFactionRank 030047eb and it still showed GetFactionRank >> 0.00)

Well, this is awkward... but at least I have an angle of attack

Can you provide me with a logfile of a game where you punish your slave?

I'll look through the scripts and hack together a quick debug script for you to run with. That should help me further trace the source of this.

proTheus69 · January 24, 2015

I've sent a Papyrus to you via PM. Do you want a SKSE log file too?

proTheus69 · January 26, 2015

Thanks to great support of yours blabla11, everything works now. Thank you again

moebius989 · January 26, 2015

Will there be an add-on in dialogue to force one slave to sex the other? I really hope so.

Also, would be nice to be able to craft status collars. Like...

"Gold collar" - Concubine Slave

Silver Collar (already in game) - Favored Slave

Dwemer Collar - Laborer Slave

And Iron Collar (Already in game) - Recently captured

blabla11 · January 26, 2015

Thanks to great support of yours blabla11, everything works now. Thank you again

Part of the job

Will there be an add-on in dialogue to force one slave to sex the other? I really hope so.

Also, would be nice to be able to craft status collars. Like...

"Gold collar" - Concubine Slave

Silver Collar (already in game) - Favored Slave

Dwemer Collar - Laborer Slave

And Iron Collar (Already in game) - Recently captured

Yes. Already "working" on that, got some help from @yurik.

The collars are a no-no as of this time, since my modelling skills are non existent (same goes for textures). So unless someone volunteers and I can just pop them into the mod, it's not going to happen (even more so if I have to script them in any way).

Inferno0214 · January 27, 2015

I just want to say:

You did it! I am one of those guys still keeping an eye on the PaH page hoping for an update and now I find someone that basecly does/will do everything I dreamt about. I can only say THANK YOU! and keep up the good work!

Sign In

[Discontinued] Paradise Halls - SexLab Extension v0.1g (15/05/06) (RC 0.6 fixed 16/03/18)

Recommended Posts

Archived

Recently Browsing 0 members