No MBP Lovers Immoral Guards 1.01G-1

*fejeena* · July 30, 2013

View File

No MBP Lovers Immoral Guards 1.01G-1

original MBP Version http://www.loverslab.com/files/file/202-lovers-immoral-guards/ YOU DO NOT NEED IT !

Changes:

Changed the races to Vanilla race copies.

Changed NPCs hair and eyes (and some faces)

NOT changed the Master-file entry (Beautiful People 2ch-Ed.esm)

you need:

OBSEv20

Lovers with PK - LAPF

Installation:

The loversimmoralguards.ini in the data\ini folder

The LoversImmoralGuards.esp and the included empty"Beautiful People 2ch-Ed.esm" in the data Folder

(if you have a "Beautiful People 2ch-Ed.esm", perhaps you use 1-2 MBP races or a hair/eye mod, do not override your "Beautiful People 2ch-Ed.esm" )

Load order: here in the spoiler: http://www.loverslab.com/topic/4487-please-read-before-posting-here/?do=findComment&comment=100862

!!! NOTE: Any Lovers with PK plugin not on the above list should be safe to install just above Setbody.esp - unless the mod author has a specific load order mentioned in the OP or readme.txt of their plugin.

So right after or above "LoversImmoralSisters.esp" should be fine.

English Version: LoversImmoralGuards101G-1 no MBP EV.7z

German Version: LoversImmoralGuards101G-1 no MBP DV.7z

Nur Vanilla Namen sind übersetzt (z.B.Schenke zum Schlechten Omen oder Schloss Choroll, Kaserne) , Dialoge sind englisch.

_____________________________________________________________________________________________________

LoversImmoralGuards101G-1 no MBP male Version

I made this Version because I play females and wanted male immoral guards.

Changes:

Changed the NPC races to Vanilla human race.( Imperial, Redguard, Breton and Nord. Yes racist, no Mer and Animal races in the Cyrodiil army )

Changed all NPCs to male.

Installation: read the "no MBP male version readme.txt"

in the LoversImmoralGuards101G-1 no MBP male.7z is a english and a german esp.

-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Credits:

Stupid Author

Original Translation by HanPL

Version 1.01G translation by Slammer64

Version 1.01G-1 updated scripts by JSmith20142

Submitter

fejeena
Submitted

07/30/2013
Category

Misc Sex
Requires

*fejeena* · July 30, 2013

Other no MBP Mod Versions:

No MBP Lovers Immoral Sisters 1.03 http://www.loverslab.com/topic/19847-no-mbp-lovers-immoral-sisters-103/

No MBP Bravil Underground v0.96 Final Edition http://www.loverslab.com/topic/19842-no-mbp-bravil-underground-v096-final-edition/

No MBP LoversMagic 0.66e http://www.loverslab.com/files/file/1389-no-mbp-loversmagic-066e-versions/

LoversCrowningIsle K no MBP patch http://www.loverslab.com/topic/40141-loverscrowningisle-k-no-mbp-patch/

Bladabli · August 3, 2014

I just noticed there's no Nord immoral female guards...

*fejeena* · August 3, 2014

There are 18 NPC in the Mod, 3 are Nord.

Hannah Immoral Leyawiin Guard, Jackie Immoral Legion Soldier and Savannah Immoral Legion Soldier

No Orcs, Khajiit and Argonians.

Fienyx · August 20, 2014

Really like your no mbp mods. TYVM!!! Had a little issue with the immoral guards though. Guessing it's how the mod is supposed to work, but I add alot of people to my towns, got raped through rapers, caught by a guard and raped, then turned into a 25 min real time orgy. After which, all the people who raped me said their bits. Followed by the last person not wanting to waste a chance like this. That quickly turned into another lengthy orgy. lol. Great mod, just not so great when the towns are so full you can't do anything without being seen.

agent42o · August 22, 2014

Really like your no mbp mods. TYVM!!! Had a little issue with the immoral guards though. Guessing it's how the mod is supposed to work, but I add alot of people to my towns, got raped through rapers, caught by a guard and raped, then turned into a 25 min real time orgy. After which, all the people who raped me said their bits. Followed by the last person not wanting to waste a chance like this. That quickly turned into another lengthy orgy. lol. Great mod, just not so great when the towns are so full you can't do anything without being seen.

Sounds like success to me. I had a similiar experience playing with rapers and getting knocked down by a bandit, 3 others joined, soon I had a bear, a wolf and random other animals coming to camp. Just for s&g I decided to let it go and watch tv, an hour later, they were still busy.

Fienyx · August 22, 2014

Good to know. I know sometimes the AI goes a lil wonky and can loop scripts. Figured it was doing what it was meant to. Would be nice if it was aware of the rapers mod. I use wappys version, and PSE also. If they could all tie together, that would complete me being a fuzzy bunny sex toy. My world is about 90% female.

Active Mod Files:

00  Oblivion.esm
01  Beautiful People 2ch-Ed.esm
02  All Natural Base.esm  [Version 1.34]
03  Cobl Main.esm  [Version 1.72]
04  Harvest[Containers].esm
05  Harvest[Containers] - Flat-Top Barrels Add-on.esm
06  CLS-Craftybits.esm
07  A_Bloody_Mess.esm
08  Lovers with PK.esm
09  LoversCreature.esm
0A  Fundament.esm  [Version ision]
0B  Oblivion Sexualized Monsters.esm
0C  CM Partners.esm
0D  HorseCombatMaster.esm
0E  Oblivifall Master File.esm  [Version 1.2]
++  Icon Overhaul.esp
**  YoungerNPCs.esp
0F  Unofficial Oblivion Patch.esp  [Version 3.4.5]
10  UOPS Additional Changes.esp
11  Oblivion Citadel Door Fix.esp
12  DLCShiveringIsles.esp
13  Unofficial Shivering Isles Patch.esp  [Version 1.5.3]
++  USIPS Additional Changes.esp
14  All Natural.esp  [Version 1.35]
15  All Natural - SI.esp  [Version 1.35]
16  Immersive Interiors.esp  [Version 0.8.1]
17  Immersive Interiors - Bravil.esp  [Version 2.01]
18  OBGE - Liquid Water.esp
19  Purger.esp
1A  Better Bell Sounds.esp
++  Symphony of Violence.esp
1B  AmbientTownSounds.esp
1C  Sounds of Cyrodiil.esp  [Version 1.1]
1D  Better Rainbows.esp
1E  All Natural - Real Lights.esp  [Version 1.35]
1F  CampfireBehavior.esp  [Version 1.0]
20  WindowLightingSystem.esp
21  EnableFreeLookOBSE.esp
22  TDDM.esp
23  Menu and Camera Toggler.esp  [Version 1.1]
24  More Effective Enchantments.esp
25  Camping.esp
26  QQuix - Rock, rock, rock your ship - V3.esp
**  OSM-All Genders.esp
27  TryBeforeYouBuy.esp
28  Enhanced Economy.esp  [Version 5.4.3]
29  Crowded Roads.esp  [Version 2.0]
2A  PTRoamingNPCs.esp
2B  BookTrackerOBSE.esp
2C  Get Wet - just droplets.esp
2D  kuerteeSittableRocks.esp
2E  sycNiceToMeetYou.esp
2F  Oblivion Graphics Extender Support.esp  [Version 0.42]
30  Quest Log Manager.esp  [Version 1.3.2]
31  Map Marker Overhaul.esp  [Version 3.9.3]
32  Map Marker Overhaul - SI additions.esp  [Version 3.9.3]
33  RM Hot Potion and Poison.esp  [Version 1.0]
34  Enhanced Hotkeys.esp  [Version 2.3.1]
**  EVE_StockEquipmentReplacer.esp
++  MaleBodyReplacerV5.esp
35  Alluring Books.esp
36  CL_Tools_and_Clutter.esp
++  Better Unique Items.esp
37  BitchTattoo.esp
38  Classic Books.esp
39  EpicLifeDetectRing.esp
3A  The Maeva Scribonia Collection 1.esp
3B  sf-vibrators.esp
3C  Slof's Horses Base.esp
3D  Slof's Extra Horses.esp
3E  Wolf Diversity.esp
3F  Cobl Glue.esp  [Version 1.72]
40  Cobl Si.esp  [Version 1.63]
++  Cobl Tweaks.esp  [Version 1.44]
++  CB-Cobl_Glue.esp
41  Alluring Potion Bottles v3.esp
42  Alluring Wine Bottles.esp
++  Harvest[Containers] - Vanilla - Ore Respawn.esp
++  Harvest[Containers] - SI - Ore Respawn.esp
++  Harvest[Containers] - Flat-Top Barrels Add-on.esp
43  Oblivifall - Something's Not Right.esp  [Version 1.0]
44  Cyrodiil transportation network 1.3.esp
45  Adult_BookStore.esp
46  Better Camps.esp
47  BHC_Expanded.esp  [Version 1.2]
48  HackdirtTheDeepOnes.esp
49  BrotherhoodRenewed.esp  [Version 1.1.2]
4A  Fighters Guild Quests.esp
4B  OblivionFarmer'sMarket3NoHungry.esp
4C  _NDibellaBT.esp
4D  Housewives v101.esp
4E  Heroes of Cyrodiil full.esp
4F  Kiki.esp
50  Kvatch Rebuilt.esp  [Version 3.0]
51  Kvatch Rebuilt Weather Patch.esp
52  LetThePeopleDrink.esp  [Version 2.6]
53  LostSwordOfTheAylied.esp
54  Mages Guild Quests.esp
55  MrPwner's Marihuana Mod.esp
56  MTCExpandedVillages.esp
57  Quest-Related Dungeons Marked.esp
58  Region Revive - Lake Rumare.esp
59  Shady Sam Plus.esp
5A  Tavern-Goers 2.esp
5B  Temple District Repaired.esp  [Version 1.0]
5C  BrumaMGRestored.esp
5D  Knights.esp
5E  Knights - Unofficial Patch.esp  [Version 1.1.3]
**  EVE_KnightsoftheNine.esp
5F  AFK_Weye.esp  [Version 2.32.Non-COBL]
60  House of Healing at Weye.esp
61  WeyeOverhaulModsPatch.esp
62  Oblivifall - Losing My Religion.esp  [Version 1.43]
63  Oblivifall - Losing My Religion KOTN.esp  [Version 1.0]
64  HackdirtAlive.esp
++  PSE-HackdirtAlive-Patch.esp
65  Harvest [Flora].esp  [Version 3.0.0]
++  Harvest [Flora] - Shivering Isles.esp  [Version 3.0.0]
66  A Bloody Mess - Bloody Fights.esp
++  A Bloody Mess - Armor Shader Supression.esp
++  A Bloody Mess - Arena Wash Basin.esp
67  Actors Have DLT.esp  [Version 2.4]
68  HUD Status Bars.esp  [Version 5.3.2]
69  DS Storage Sacks.esp  [Version 1.3]
6A  EVE_ShiveringIslesEasterEggs.esp
6B  Finite Ammo.esp
6C  2nd to 1st person.esp
6D  GuildAdvancement.esp
6E  Jhaerik's Dungeon Fog Remover.esp
6F  kuerteeInventoryIsABackpack.esp
70  kuerteeSilentEquipUnequipClothing.esp
++  LustyArgonianMaidContinued.esp
++  more books teach.esp
71  HumantouchNPC.esp
72  MadCompanionshipSpells.esp  [Version 2.5]
73  RefScope.esp  [Version 2.1.2]
74  Nery_KillerFingersMountain.esp
75  Oblivifall - Closing Time.esp  [Version 1.0]
76  P1DKeyChainSI Merged.esp
77  kuerteeGoldIsAnInventoryItem.esp
78  RMDailyIncomeV2.esp
79  LoversAdultPlayPlusforSSP.esp
7A  LoversHooker.esp  [Version 2.2]
7B  LoversAdultPlayPlusforSSP_HookerPatch.esp
7C  LoversVoiceSSPplus.esp
7D  LoversRaperS.esp
7E  LoversStalkerM.esp
7F  LoversStalkerMN.esp
80  PlayerSlaveEncounters.esp
81  LoversPayBandit.esp
82  PSE-PayBandit-Patch.esp
83  Lovers with PK.esp  [Version 96v5]
84  LoversCreature.esp
85  Lovers with PK Extender.esp  [Version 2.4.3]
86  LoversSoundCreature.esp  [Version 0.1.0]
87  LoversSpermSplashEx.esp
88  LoversEscapeRapeVPlayer.esp
89  LoversRapeSlave.esp
8A  LoversGGBlackmail.esp
8B  LoversTrueCrimeEx.esp
8C  LoversSlaveTrader.esp
8D  LoversProstitute.esp
8E  LoversStupidNpc.esp
8F  LoversImmoralSisters.esp
90  LoversSituations.esp
91  LoversLight.esp
92  LoversChorus.esp
93  LoversSoundVolumeDown.esp
94  zzEstrus.esp
95  krdEstrusAmbushRopersOnly_for_v1.9r5.esp
96  zzContainerTrap English.esp
97  ztdDepraver_for_Estrus_v1.9r5.esp
++  zzEstrus_noFX_for_v1.9r5.esp
98  FuroGeneratorTrap.esp
99  SetsunaDummyTraining.esp
9A  CLS-Craftybits.esp
++  CB-Weights_Hard.esp
++  CLS-Craftybits_A_Bloody_Mess-Glue.esp  [Version 1.1]
9B  CLS-Craftybits_A_Bloody_Mess-Glue-Ragplacer.esp
9C  Enhanced Economy - House prices.esp  [Version 5.4.3]
9D  Alternative Beginnings.esp  [Version 1.4.2]
9E  MQSDone.esp
9F  Elz - Realistic Gravity.esp
A0  SM Encumbrance and Fatigue.esp  [Version 2.6]
A1  Basic Primary Needs.esp  [Version 6.3]
A2  Basic Personal Hygiene.esp  [Version 3.0]
A3  Basic Physical Activities.esp  [Version 1.3]
A4  Vector.esp  [Version 0.4]
A5  Syc_AtHomeAlchemy_No_Bounty_v2.esp
A6  RshAlchemy.esp
A7  RshAlchemyRecipes.esp
A8  StolenItemOwnership.esp
A9  Morrowind Lockpicking.esp
AA  Enhanced Grabbing.esp  [Version 0.5]
AB  Denock Arrows.esp
AC  Deadly Reflex 5 - Timed Block with no damage or durability changes.esp
AD  DeadlyReflex 5 - Combat Moves.esp
AE  Unequip Broken Armor.esp  [Version 2.8.2]
AF  nGCD.esp
B0  Grandmaster of Alchemy.esp
B1  zzEDialog.esp
**  Let There Be Darkness - Cyrodiil + SI.esp
**  Let There Be Darkness - Knights.esp
B2  CM Partners.esp
B3  Kanin Race.esp
B4  Elves Of Lineage II.esp
B5  CM partners lots of NPC.esp
++  EVE_KhajiitFix.esp
B6  Oblivion_Character_Overhaul.esp  [Version 2.0]
B7  Birthsigns Expanded.esp
B8  Think to Yourself.esp
B9  Automatic Timescale.esp  [Version 1.1.1]
BA  Reading Takes Time.esp
BB  qazFingerSnap.esp
BC  Cobl Silent Equip Misc.esp  [Version 01]
++  HealthFood-2050.esp
**  All Natural - Indoor Weather Filter For Mods.esp  [Version 1.35]
BD  Bashed Patch, 0.esp
BE  Crowded Cities 15.esp
BF  Colourwheels Sexy Imperial Legion.esp
C0  LoversBitch.esp
C1  Slof's Dogs.esp
C2  xlds.esp
C3  xldsFuro.esp
C4  DynamicLeveledLists.esp
C5  No Vampirism.esp
C6  Duke Patricks - Near Miss Magic And Arrows Alert The Target.esp  [Version 7.1]
C7  Duke Patricks - Actors Can Miss Now.esp
C8  Duke Patricks - Fresh Kills Now Alert The NPCs.esp  [Version 4]
C9  LoversMB2.esp
CA  LoversIdleAnimsPriority.esp
CB  LoversAnimObjectsPriority.esp

I went through all the esps that add people and changed every generically named NPC to females. I play a male character.

My crowded cities also changes the generic NPC's from vanilla oblivion. Even the dremora.

PSE and GGBlackmail are even geared twards male PC.

*fejeena* · August 22, 2014

To avoid an endless orgy:

If you use WappyOne's RaperS you can lower the "Raper Unsatisfied Chance" and "gRape Distance" and "gRape Chance" ( see Gangrape Settings Menu)

Don't know the Setting of LoversStalkerM.esp and LoversStalkerMN.esp. I still use Joburg, and my Joburg Settings are very low.

So my Gangrapes seldom last more than 5 rapes in a city.

Fienyx · August 22, 2014

I was hoping actually that immoral guards would use rapers for the health damage and get me enslaved more, lol. Odd as it may sound, immoral guards gives me fruitless rapes.

*fejeena* · August 22, 2014

I don't play PlayerSlaveEncounters so I don't know if it is possible.

And that the guards rape you is immoral, if they rape and enslave you that would be "Lovers Immoral and unlawful Guards"

Fienyx · August 22, 2014

Lol. Although, in PSE, you get to "work off" your fine as a play thing for the towns people while a special guard watches over you, and occasionally joins in.

Once I got raped by the guard, the messages popped up like "Commoner attacks Fienyx" then I was being raped by commoner. So most likely would be enslaved by some regular person. If guards enslave you, they let you go. Workings of PSE.

*fejeena* · September 17, 2014

Neu Version:

LoversImmoralGuards101G-1 no MBP male Version
I made this Version because I play females and wanted male immoral guards.

Zor2k13 · March 6, 2015

Something that is bugging me about immoral guards, they are immoral and so they should do a little more to take advantage of you if you are running PSE mod;-) Right now they will just set you free the same way regular guards do but it would be interesting if the dialogue was a little different for them. Instead of just setting you free they would tell you that you have to pay gold to be set free with some sexy blah blah in their dialogue or if you can't/won't pay you have to be their slave for a while. So you end up following them around for half a day? they sell your services on the side of the road too or wherever they stop for a while. Yeah I think 12 hours is good since it still allows the player to get free before the slave trader shows up from PSE mod. I think PSE will handle that selling of services bit anyway so there just needs to be some added dialogue for those guards:-)

EDIT

Juuuuust got an idear! what if the immoral guards after taking your character leash from PSE mod say you either pay x amount of gold to be set free or you work it off and they pimp your character until x amount of gold is collected? Say 500 gold?

*fejeena* · March 6, 2015

First: this is only a No MBP Version (male and female Version). It works the same as the original (dialogs, scripts,...)

secondly: I don't play PSE (too many conflicts with other Mods I use)

If someone change the original Version I make a No MBP Version. And of course you can change my Version.

Zor2k13 · March 7, 2015

I made a new faction called Tax Collector and changed the patrolling immoral guards to that faction. Then I change the same patrolling guards responsibility to 50 from 100 and now they don't set my character free if the character is enslaved:-) So now I just need to figure out how to call the pse mod to get info for is player enslaved and use that in the topics or dialogue section of the immoral guards quest.

Zor2k13 · May 12, 2015

Well it looks like the check for enslaved effect from pse mod would have to go in a script somewhere in this mod but which script to put it in? I checked the credits of this mod and user JSmith20142 was a scripter for the mod but he was last online last year:-( Anyone know which script to alter and what to put in there? I am guessing something like ismodloaded then something about the enslaved effect.

*fejeena* · May 12, 2015

The no MBP and the MBP 1.01G-1 Version are the same ( the updated scripts by JSmith20142 are not in the new 1.02 Version ( not sure) the 1.02 Version is also NO MBP ! )

I don't use PSE but I never heard about a Immoral Guards patch. So I don't know what youre talking about.

Thought PSE checks if sex is flagged as rape, if yes enslave is possible. ?

Zor2k13 · May 12, 2015

I wasn't thinking of making a patch in pse but instead, making an edit of a script in LIG to not start the usual sex in public dialogue responses if the player is enslaved. The other stuff like random npcs telling guards the player should be arrested and making trumped up charges could continue though. The idea is that public sex with slaves is accepted in tamriel and everyone views a slave as just property as long as they are a slave. Most of the time this would be applied to the player but the other mod lovers slave trader would need something too so if the player was screwing their slave in public nobody would care not even the immoral guards. The immoral guards should only engage dialogue during non enslaved sex so for users of lovers hooker they would still be affected whoring around the city lol.

*fejeena* · May 12, 2015

I have only found one entry in this scripts "kzsQuestLoversImmoralGuardsSCRIPT"

scn kzsQuestLoversImmoralGuardsSCRIPT

short iDebugOn
short iInitDone
short iKzs
short iForceTravelPC
short iUseAmuletSign
short iUseSetTopic

short iPerImmoral
short iMinDispo
short iMaxCrimeGold

short iNoPublicSexCrime
short iNoPublicSexBegger
short iNoPublicSexCmnr
float fDetectDistMax
short iDetectPer
short iSkipSec
short iPerSnitch
short iCmnPerImmoral
short iCmnDispoLow
short iCmnDispoHigh
short iPerSummonExtGuard
short iPerRape

ref refActor
ref refPC
ref refPair
ref refItem
ref refWS
ref refWork

short iWork

short iPcFucking
short iCheckIntimidate
short iSkip

ref refTopic
ref refTopicTatget
string_var cMsgRunAway

ref refCurrentGuard

short iFlgSnicherExist
short iFlgGuardExist

; added the next 7 variables JS
short refusalRapeChance
short doRefusalRape
short refusalAddition
short ignoreLST
short clearPriorHistory
short lstLoaded
ref lstSlaveTokenRef

begin GameMode

if (iPerImmoral <= 0)
set iPerImmoral to 30
endif

if (iMinDispo <= 0)
  set iMinDispo to 45
endif
set kzsLIGMinDispo to iMinDispo
if (iMaxCrimeGold <= 0)
  set iMaxCrimeGold to 1500
endif
set kzsLIGMaxCrimeGold to iMaxCrimeGold
if (fDetectDistMax <= 0.0)
  set fDetectDistMax to 4096.0
endif
if (iDetectPer <= 0)
  set iDetectPer to 30
endif
if (iSkipSec <= 0)
  set iSkipSec to 300
endif
if (iPerSnitch <= 0)
  set iPerSnitch to 45
endif
if (iCmnPerImmoral <= 0)
  set iCmnPerImmoral to 30
endif
if (iCmnDispoLow <= 0)
  set iCmnDispoLow to 45
endif
if (iCmnDispoLow != kzsLIGCmnDispoLow)
  set kzsLIGCmnDispoLow to iCmnDispoLow
endif
if (iCmnDispoHigh <= 0)
  set iCmnDispoHigh to 85
endif
if (iCmnDispoHigh != kzsLIGCmnDispoHigh)
  set kzsLIGCmnDispoHigh to iCmnDispoHigh
endif
if (iPerSummonExtGuard == 0)
  set iPerSummonExtGuard to 20
endif
if (iPerRape == 0)
  set iPerRape to 25
endif

if (GetGameLoaded)

  set iInitDone to 0
  ; added the rest of this block JS
  set ignoreLST to 0
  set lstLoaded to 0
  set clearPriorHistory to 0

  set refusalRapeChance to 10

  if (FileExists "Data\ini\LoversImmoralGuards.ini")
   printc "LIG : Ini file found"
            RunBatchScript "Data\ini\LoversImmoralGuards.ini"
  endif

  if (clearPriorHistory)
   set refusalAddition to 0
  endif

  if (iDebugOn)
   printc "LIG : refusalRapeChance is %.0f" refusalRapeChance
   printc "LIG : prior history count %.0f (cleared %.0f)" refusalAddition clearPriorHistory
  endif

  if (ignoreLST == 0)
   if (IsModLoaded "LoversSlaveTrader.esp")
    set lstSlaveTokenRef to GetFormFromMod "LoversSlaveTrader.esp" "01d36"
    if (IsFormValid lstSlaveTokenRef == 1)
     set lstLoaded to 1
     if (iDebugOn)
      printc "LIG : LoversSlaveTrader mod present, token identified"
     endif
    else
     if (iDebugOn)
      printc "LIG : LST is present, but token not valid"
     endif
    endif
   else
    if (iDebugOn)
     printc "LIG : LoversSlaveTrader not found"
    endif
   endif
  else
   if (iDebugOn)
    printc "LIG : ignoreLST is ON, slaves free to bug player for sex/gold"
   endif
  endif
endif

if (iInitDone)
  if (iSkip > 0)
   set iSkip to iSkip - 1
   if (iSkip < 0)
    set iSkip to 0
   endif
   if (iDebugOn)
    PrintC "LoversImmoralGuards::Skip@Loading ... (%g)" iSkip
   endif
   return
  endif
  if (GetPlayerInSEWorld)
   return
  endif
  if (refPC.IsInInterior)
   set refWork to refPC.GetParentCell
  else
   set refWork to refPC.GetParentWorldspace
  endif
  if (refWork != refWS)
   set refWS to refWork
   set iSkip to 0
   return
  endif
  set iPcFucking to 0
  if (iNoPublicSexCrime == 0) || (iNoPublicSexBegger == 0)
   if Call kzsFuncPlayerIsInPublic
    set iPcFucking to refPC.GetItemCount xLoversPkrIdentifier
   endif
   if (iPcFucking)
    Let refPair := Call xLoversCmnGetPartner refPC
    if (refPair == 0)
     set refPair to refPC
    endif
   endif
  endif
  set iFlgGuardExist to 0
  set iFlgSnicherExist to 0
  set refActor to GetFirstRef 69 1 0
  while (refActor)
   if (0 == refActor.GetIsCreature) && (0 == refActor.GetDead) && (0 == refActor.GetDisabled)
    if (0 == refActor.IsInCombat) && (0 == refActor.GetItemCount xLoversPkrIdentifier) && (0 == refActor.GetItemCount xLoversPkrEquipFuncItem)
     set iCheckIntimidate to 0
     if (refActor.IsGuard)
      if (0 == refActor.GetItemCount kzsTokenLIG00Checked)
       refActor.AddItemNS kzsTokenLIG00Checked 1
       if (refActor.GetIsSex Male)
        set iWork to iPerImmoral
       else
        set iWork to iPerImmoral
       endif
       if (iWork > GetRandomPercent)
        set iWork to Rand 1 5
        Call kzsFuncSetImmoral refActor iWork 0
        set iFlgGuardExist to iFlgGuardExist + 1
       else
        Call kzsFuncBreakHelmet refActor 1
       endif
      else
       if (refActor.GetItemCount kzsTokenLIG00Immoral)

        Call kzsFuncBreakHelmet refActor 0
        if (iNoPublicSexCrime == 0)
         set iCheckIntimidate to 1
         set iFlgGuardExist to iFlgGuardExist + 1
        endif
       else
        Call kzsFuncBreakHelmet refActor 1
       endif
      endif
     elseif (refActor.GetInFaction Beggars)
      if (iNoPublicSexBegger == 0)
       set iCheckIntimidate to 1
      endif
     else
      if (iNoPublicSexCmnr == 0)
       if (iCmnPerImmoral > GetRandomPercent)
        set iWork to refActor.GetDisposition refPC
        if (iWork <= iCmnDispoLow)
         set iCheckIntimidate to 1
        elseif (iWork <= iCmnDispoHigh)
         if (0 >= refActor.GetItemCount kzsTokenLIG00DoSnitch)
          set iCheckIntimidate to 2
         endif
        else
         if 0 == Call xLoversCmnIsCompanion refActor
          set iWork to iCmnPerImmoral / 2
          if (iWork > GetRandomPercent)
           if (0 >= refActor.GetItemCount kzsTokenLIG00DoSnitch)
            set iCheckIntimidate to 2
           endif
          endif
         endif
        endif
       endif
      else
       if (refActor.GetItemCount kzsTokenLIG00DoSnitch)
        Call xLoversCmnSetItemCount refActor kzsTokenLIG00DoSnitch 0
       endif
      endif
     endif
;
     if (refActor.GetItemCount kzsTokenLIG02AfterHTalk) || (refActor.GetItemCount kzsTokenLIG02AfterHTalkIntimidate) || (refActor.GetItemCount kzsTokenLIG02AfterHTalkRape)
      set iCheckIntimidate to 0
     elseif (refActor.GetItemCount kzsTokenLIG02WaitPcHFinish) || (refActor.GetItemCount kzsTokenLIG02WaitPcHFinishRape)
      set iCheckIntimidate to 0
     elseif (refActor.GetItemCount kzsTokenLIG05TimerSkip) || (refActor.GetItemCount kzsTokenLIG06Conversation)
      set iCheckIntimidate to 0
     elseif (refActor.GetItemCount kzsTokenLIG07FollowPC01Crime) || (refActor.GetItemCount kzsTokenLIG07FollowPC02Intmdt)
      set iCheckIntimidate to 0
     endif
     if (iCheckIntimidate)
      if (iPcFucking)
       set refItem to 0
       if (iCheckIntimidate == 1)
        if (iPcFucking != 4)
         set refItem to kzsTokenLIG02WaitPcHFinish
        elseif (iPerRape > GetRandomPercent)
         set refItem to kzsTokenLIG02WaitPcHFinishRape
        endif
       else
        if Call kzsFuncIsActorEvil refActor
         if (50 > GetRandomPercent)
          if (iPcFucking != 4)
           set refItem to kzsTokenLIG02WaitPcHFinish
          elseif (iPerRape > GetRandomPercent)
           set refItem to kzsTokenLIG02WaitPcHFinishRape
          endif
         else
          if (iPcFucking != 4)
           set refItem to kzsTokenLIG00DoSnitch
          endif
         endif
        else
         if (iPcFucking != 4)
          set refItem to kzsTokenLIG00DoSnitch
         endif
        endif
       endif
       set refWork to 0
       if (refItem) && (fDetectDistMax >= refActor.GetDistance refPC)
        if (refActor.GetLOS refPC) || (refActor.GetLOS refPair) || (2 < refActor.GetDetectionLevel refPC)
         set refWork to refItem
         if (iDebugOn)
          PrintC "LoversImmoralGuards::InSight - %n[%i]" refActor refActor
         endif
        elseif (1 < refActor.GetDetectionLevel refPC)
         if (iDetectPer > GetRandomPercent)
          set refWork to refItem
          if (iDebugOn)
           PrintC "LoversImmoralGuards::Notice - %n[%i]" refActor refActor
          endif
         else
          if (iDebugOn > 1)
           PrintC "LoversImmoralGuards::Skip Intimidater - %n[%i]" refActor refActor
          endif
         endif
        elseif (refPC.GetInWorldspace Tamriel)
         set iWork to 2 * iDetectPer
         if (iWork > GetRandomPercent)
          set refWork to refItem
          if (iDebugOn)
           PrintC "LoversImmoralGuards::At Tamriel - %n[%i]" refActor refActor
          endif
         else
          if (iDebugOn > 1)
           PrintC "LoversImmoralGuards::Skip At Tamriel - %n[%i]" refActor refActor
          endif
         endif
        else
         if (iDebugOn > 1)
          PrintC "LoversImmoralGuards::Skip Unseen/UnNoticed - %n[%i]" refActor refActor
         endif
        endif
       endif
       if (refWork)
        refActor.AddItemNS refWork 1
        if (refWork == kzsTokenLIG02WaitPcHFinish)
         if Call kzsFuncIsActorEvil refActor
          Call kzsFuncBackupAggression refActor 0
         endif
        endif
        if (iDebugOn)
         PrintC "LoversImmoralGuards::Set Intimidate(%g) - %n[%i]" iCheckIntimidate refActor refActor
        endif
       endif
      endif
     endif
     if (refActor.GetItemCount kzsTokenLIG00DoSnitch)
      set iFlgSnicherExist to iFlgSnicherExist + 1
     endif
    endif
   endif
   set refActor to GetNextRef
  loop
  if (iFlgGuardExist == 0) && (iFlgSnicherExist) && (iPerSummonExtGuard > 0)
   if (iPcFucking) && (iPcFucking != 4) && (refPC.IsInInterior)
    if (iDebugOn)
     PrintC "LoversImmoralGuards::Check Summon Ext Guard (p:%g/snicher:%g)" iPerSummonExtGuard iFlgSnicherExist
    endif
    if (iPerSummonExtGuard >= GetRandomPercent)
     Call kzsFuncSummonExtGuard
    endif
   endif
  endif
  return
endif

set iInitDone to 1
set refPC to Player
if (IsModLoaded "_kzs_LoversImmoralGuards.esp")
set iKzs to 1
else
set iKzs to 0
endif

if (refCurrentGuard != 0)
Call kzsFuncBackupCrimeAlarmRecDistance 1 refCurrentGuard
endif

AddTopic kzsLIG02Bribe
AddTopic kzsLIG02Remove
AddTopic kzsLIG02SetSkip
AddTopic kzsLIG05TakeOverFine

PrintC "LoversImmoralGuards::Init Done(1). iPerImmoral(%g) iMinDispo(%g) iMaxCrimeGold(%g)" iPerImmoral iMinDispo iMaxCrimeGold
PrintC "LoversImmoralGuards::Init Done(2). iNoPublicSexCrime(%g) iNoPublicSexBegger(%g) iNoPublicSexCmnr(%g)" iNoPublicSexCrime iNoPublicSexBegger iNoPublicSexCmnr
PrintC "LoversImmoralGuards::Init Done(3). fDetectDistMax(%g) iDetectPer(%g) iSkipSec(%g)" fDetectDistMax iDetectPer iSkipSec
PrintC "LoversImmoralGuards::Init Done(4). iUseAmuletSign(%g) iUseSetTopic(%g) iPerSnitch(%g) iPerRape(%g)" iUseAmuletSign iUseSetTopic iPerSnitch iPerRape
PrintC "LoversImmoralGuards::Init Done(5). iCmnDispoLow(%g) iCmnDispoHigh(%g) iCmnPerImmoral(%g) iPerSummonExtGuard(%g)" iCmnDispoLow iCmnDispoHigh iCmnPerImmoral iPerSummonExtGuard

end
;<CSEBlock>
;<CSECaretPos> 4473 </CSECaretPos>
;</CSEBlock>

Zor2k13 · May 12, 2015

Thanks for that! Haven't looked over that script yet myself until you posted it thanks:-)

Sign In

No MBP Lovers Immoral Guards 1.01G-1

Recommended Posts

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Important Information