Faction Armor Reputations

bakedlays1 · March 30, 2011

My personal thought is, if you're wearing the armor of someone highly respected in a faction, you should be highly respected. I love to wear faction armor, wearing a legion armor in camp mccarren and no one shooting at me bothers me (referring to mods that remove faction) But what I hate is that I can wear a NCR Ranger Vet Combat Armor and have a Neutral reputation. Vet Rangers are idolized by troopers and so should be if I'm disguised as one. I was wondering if anyone could make a mod so that certain armors give you certain reputation.

NCR Armors

1. Accepted: Bandoleer, Face-wrap, Trooper, MP armor

2. Liked: Ranger Patrol Armor and Mantle Armor (for officers)

3. Idolized: Veteran Ranger Combat Armor and T45-D Salvaged Power Armor

Legion Armors

1. Accepted: Recruit, Explorer, and Prime

2: Liked: Veteran and Vexilarius

3: Idolized: Centurion and Praetorian, (Caesar's armor if you kill him through surgery maybe??)

I need help with the script. I have no idea.

This is the script of of an NCR Ranger Vet Combat Armor. What I want is to be Idolized by the NCR, Vilified by the Legion, Hated by the Great Khans and Brotherhood of Steel, and Vilified by the Powder Gangers.

scn NCRFactionOutfitWarningScript

float fUpdatedNegNCR

float fUpdatedPosNCR

float fUpdatedNegCL

float fUpdatedPosCL

float fUpdatedNegBoS

float fUpdatedPosBoS

float fUpdatedNegGK

float fUpdatedPosGK

float fUpdatedNegPG

float fUpdatedPosPG

Begin OnEquip Player

;Check to see if player was wearing faction armor.

if DisguiseFactionPulseQuest.bFactionArmorEquipped == 0

;Set variable to track wearing faction armor

set DisguiseFactionPulseQuest.bFactionArmorEquipped to 1

;Player was not wearing faction armor - so we store their reputation values, we don't need to clear it here, it'll get cleared below

;Store Reputations

set DisguiseFactionPulseQuest.fNCRNegReputation to GetReputation RepNVNCR 0

set DisguiseFactionPulseQuest.fNCRPosReputation to GetReputation RepNVNCR 1

set DisguiseFactionPulseQuest.fLegionNegReputation to GetReputation RepNVCaesarsLegion 0

set DisguiseFactionPulseQuest.fLegionPosReputation to GetReputation RepNVCaesarsLegion 1

set DisguiseFactionPulseQuest.fBoSNegReputation to GetReputation RepNVBrotherhood 0

set DisguiseFactionPulseQuest.fBoSPosReputation to GetReputation RepNVBrotherhood 1

set DisguiseFactionPulseQuest.fKhanNegReputation to GetReputation RepNVGreatKhans 0

set DisguiseFactionPulseQuest.fKhanPosReputation to GetReputation RepNVGreatKhans 1

set DisguiseFactionPulseQuest.fPowderNegReputation to GetReputation RepNVPowderGanger 0

set DisguiseFactionPulseQuest.fPowderPosReputation to GetReputation RepNVPowderGanger 1

else

;Get Current Faction Values and add stored values

set DisguiseFactionPulseQuest.fNCRNegReputation to GetReputation RepNVNCR 0 + DisguiseFactionPulseQuest.fNCRNegReputation

set DisguiseFactionPulseQuest.fNCRPosReputation to GetReputation RepNVNCR 1+ DisguiseFactionPulseQuest.fNCRPosReputation

set DisguiseFactionPulseQuest.fLegionNegReputation to GetReputation RepNVCaesarsLegion 0 + DisguiseFactionPulseQuest.fLegionNegReputation

set DisguiseFactionPulseQuest.fLegionPosReputation to GetReputation RepNVCaesarsLegion 1 + DisguiseFactionPulseQuest.fLegionPosReputation

set DisguiseFactionPulseQuest.fBoSNegReputation to GetReputation RepNVBrotherhood 0 + DisguiseFactionPulseQuest.fBoSNegReputation

set DisguiseFactionPulseQuest.fBoSPosReputation to GetReputation RepNVBrotherhood 1 + DisguiseFactionPulseQuest.fBoSPosReputation

set DisguiseFactionPulseQuest.fKhanNegReputation to GetReputation RepNVGreatKhans 0 + DisguiseFactionPulseQuest.fKhanNegReputation

set DisguiseFactionPulseQuest.fKhanPosReputation to GetReputation RepNVGreatKhans 1 + DisguiseFactionPulseQuest.fKhanPosReputation

set DisguiseFactionPulseQuest.fPowderNegReputation to GetReputation RepNVPowderGanger 0 + DisguiseFactionPulseQuest.fPowderNegReputation

set DisguiseFactionPulseQuest.fPowderPosReputation to GetReputation RepNVPowderGanger 1 + DisguiseFactionPulseQuest.fPowderPosReputation

endif

if VFactionArmorTutorial == 0

ShowMessage VFactionOutfitTutorial

set VFactionArmorTutorial to 1

endif

;Set NCR Alliance

ShowMessage NCRFactionOutfitWarning

;SetEnemy VCaesarsLegionFaction PlayerFaction

StartQuest DisguiseFactionPulseQuest ;Kicks the pulse placing quest

setally PlayerFaction ArmorNCRFactionNV 1 1

player.addtofaction ARMORNCRFactionNVEnemy 0

;Set BoS Alliance if they have joined the NCR

if VStoryEventBoS == 1

setally ArmorBrotherhoodSteelFactionEnemy NCRFactionNV 1 1

setally ArmorBrotherhoodSteelFaction PlayerFaction 1 1

player.addtofaction ArmorBrotherhoodSteelFactionEnemy 0

endif

;Set GreatKhan Alliance if they have joined the NCR

if VStoryEventKhans == 1

setally ArmorGreatKhansFactionNVEnemy NCRFactionNV 1 1

setally ArmorGreatKhansFactionNV PlayerFaction 1 1

player.addtofaction ArmorGreatKhansFactionNVEnemy 0

endif

;Clear Reputations

SetReputation RepNVNCR 0 0.0

SetReputation RepNVNCR 1 0.0

SetReputation RepNVCaesarsLegion 0 0.0

SetReputation RepNVCaesarsLegion 1 0.0

SetReputation RepNVBrotherhood 0 0.0

SetReputation RepNVBrotherhood 1 0.0

SetReputation RepNVGreatKhans 0 0.0

SetReputation RepNVGreatKhans 1 0.0

SetReputation RepNVPowderGanger 0 0.0

SetReputation RepNVPowderGanger 1 0.0

end

Begin OnUnequip Player

;SetEnemy VCaesarsLegionFaction PlayerFaction 1 1

;SetEnemy PlayerFaction ArmorNCRFactionNV 1 1

if player.GetEquipped FactionGearNVNCR == 0

;Unset NCR Alliance

StopQuest DisguiseFactionPulseQuest ;Stops the pulse placing quest

SetEnemy PlayerFaction ArmorNCRFactionNV 1 1

player.RemoveFromFaction ARMORNCRFactionNVEnemy

ShowMessage NCRFactionOutfitWarningOff

;UnSet BoS Alliance if they have joined the NCR

if VStoryEventBoS == 1

SetEnemy ArmorBrotherhoodSteelFaction PlayerFaction 1 1

player.RemoveFromFaction ArmorBrotherhoodSteelFactionEnemy

endif

;UnSet Khan Alliance if they have joined the NCR

if VStoryEventKhans == 1

SetEnemy ArmorGreatKhansFactionNV PlayerFaction 1 1

player.RemoveFromFaction ArmorGreatKhansFactionNVEnemy

endif

;Get Current Faction Values and add stored values

set fUpdatedNegNCR to GetReputation RepNVNCR 0 + DisguiseFactionPulseQuest.fNCRNegReputation

set fUpdatedPosNCR to GetReputation RepNVNCR 1+ DisguiseFactionPulseQuest.fNCRPosReputation

set fUpdatedNegCL to GetReputation RepNVCaesarsLegion 0 + DisguiseFactionPulseQuest.fLegionNegReputation

set fUpdatedPosCL to GetReputation RepNVCaesarsLegion 1 + DisguiseFactionPulseQuest.fLegionPosReputation

set fUpdatedNegBoS to GetReputation RepNVBrotherhood 0 + DisguiseFactionPulseQuest.fBoSNegReputation

set fUpdatedPosBoS to GetReputation RepNVBrotherhood 1 + DisguiseFactionPulseQuest.fBoSPosReputation

set fUpdatedNegGK to GetReputation RepNVGreatKhans 0 + DisguiseFactionPulseQuest.fKhanNegReputation

set fUpdatedPosGK to GetReputation RepNVGreatKhans 1 + DisguiseFactionPulseQuest.fKhanPosReputation

set fUpdatedNegPG to GetReputation RepNVPowderGanger 0 + DisguiseFactionPulseQuest.fPowderNegReputation

set fUpdatedPosPG to GetReputation RepNVPowderGanger 1 + DisguiseFactionPulseQuest.fPowderPosReputation

endif

;If the player is not wearing ANY faction armor, do the following

if (Player.GetEquipped FactionGearNVNCR == 0) && (Player.GetEquipped FactionGearNVCaesar == 0) && (Player.GetEquipped FactionGearNVBrotherhood == 0) && (Player.GetEquipped FactionGearNVGreatKhans == 0) && (Player.GetEquipped FactionGearNVPowder == 0) && (player.GetEquipped VMS18WhiteGloveMask == 0 || (Player.GetEquipped OutfitFormalWear == 0 && player.GetEquipped ArmorWhiteGloveSociety == 0))

;Clear Wearing Faction Armor Variable

set DisguiseFactionPulseQuest.bFactionArmorEquipped to 0

;Update to Proper Reputation Values

;Set Reputation Values to Updated

SetReputation RepNVNCR 0 fUpdatedNegNCR

SetReputation RepNVNCR 1 fUpdatedPosNCR

SetReputation RepNVCaesarsLegion 0 fUpdatedNegCL

SetReputation RepNVCaesarsLegion 1 fUpdatedPosCL

SetReputation RepNVBrotherhood 0 fUpdatedNegBoS

SetReputation RepNVBrotherhood 1 fUpdatedPosBoS

SetReputation RepNVGreatKhans 0 fUpdatedNegGK

SetReputation RepNVGreatKhans 1 fUpdatedPosGK

SetReputation RepNVPowderGanger 0 fUpdatedNegPG

SetReputation RepNVPowderGanger 1 fUpdatedPosPG

endif

end

;Restriction on Companions

;Begin OnAdd CraigBooneREF

; ShowMessage CompanionFactionArmorMsg

; DropMe

;End

Begin OnAdd RoseofSharonCassidyREF