Jump to content

Drug and Food use Script help - please

Eternalknight1

By Eternalknight1
in Mod Troubleshooting

 Share

Recommended Posts

Eternalknight1 Newbie

Eternalknight1

Posted
Posted

Greetings All,

Whilst I have been viewing this site for quite a while, I have decided to register in order to ask you all for a bit of advice.

 

Currently I am trying to make a very basic script that I can use for all of my different companions. Basically I want them to be able to use stimpaks, med-x, etc as they need it (similar I guess to this mod:http://www.fallout3nexus.com/downloads/file.php?id=3441).

 

This is the script (see below) I have made up and whilst the stimpak use works fine, I can not get my companions to use any other drugs or food.

 

Can anyone please tell me what changes I need to make to the script.

 

Part of my script is as follows:

 

;Stimpak Usage for Combat

BEGIN GameMode

 

;Stimpak Usage for Combat

If (GetPlayerTeammate == 1) && IsInCombat == 1

If HasMagicEffect RestoreHealthStimpak == 0

If GetHealthPercentage <= 0.50

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

PlayIdle AnimStempax

RemoveItem Stimpak 1

EndIf

EndIf

EndIf

EndIf

 

;Stimpak for Limb

 

If (GetPlayerTeammate == 1)

If HasMagicEffect RestoreHealthStimpak == 0

If GetActorValue LeftMobilityCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

If GetActorValue RightMobilityCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

If GetActorValue LeftAttackCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

If GetActorValue RightAttackCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

If GetActorValue PerceptionCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

If GetActorValue EnduranceCondition <= 75

If GetItemCount Stimpak > 0

CastImmediateOnSelf Stimpak

Playidle AnimStempax

RemoveItem Stimpak 1

EndIf

EndIf

EndIf

EndIf

 

;RadAway Usage

 

If (GetPlayerTeammate == 1)

If HasMagicEffect RestoreRadiationLevel == 0

If GetActorValue RadiationRads >= 200

If GetItemCount RadAway > 0

CastImmediateOnSelf RadAway

RemoveItem Radaway 1

EndIf

EndIf

EndIf

EndIf

 

;Psycho Usage

 

If (GetPlayerTeammate == 1) && IsInCombat == 1

If HasMagicEffect PsychoMagicEffect == 0

If GetActorValue Health <= 0.90

If GetItemCount Psycho > 0

CastImmediateOnSelf Psycho

RemoveItem Psycho 1

EndIf

EndIf

EndIf

EndIf

 

;MedX Usage

 

If (GetPlayerTeammate == 1) && IsInCombat == 1

If HasMagicEffect MorphineEffect == 0

If GetActorValue Health <= 0.90

If GetItemCount Morphine > 0

CastImmediateOnSelf Morphine

RemoveItem Morphine 1

EndIf

EndIf

EndIf

EndIf

 

;Constant Food Usage

 

If (GetPlayerTeammate == 1)

If HasMagicEffect RestoreHealth == 0 && DoOnce == 0

If GetHealthPercentage < 1.00

If GetItemCount Apple > 0

CastImmediateOnSelf Apple

RemoveItem Apple 1

EndIf

ElseIf GetItemCount BlamcoMacandCheese > 0

CastImmediateOnSelf BlamcoMacandCheese

RemoveItem BlamcoMacandCheese 1

EndIf

ElseIf GetItemcount BrahminSteak > 0

CastImmediateOnSelf BrahminSteak

RemoveItem BrahminSteak 1

EndIf

ElseIf GetItemCount Carrot > 0

CastImmediateOnSelf Carrot

RemoveItem Carrot 1

EndIf

ElseIf GetItemCount Cram > 0

CastImmediateOnSelf Cram

RemoveItem Cram 1

EndIF

ElseIf GetItemCount DandyBoyApples > 0

CastImmediateOnSelf DandyBoyApples

RemoveItem DandyBoyApples 1

EndIf

ElseIf GetItemCount FancyLadsSnackCakes > 0

CastImmediateOnSelf FancyLadsSnackCakes

RemoveItem FancyLadsSnackCakes 1

EndIf

ElseIf GetItemCount IguanaBits > 0

CastImmediateOnSelf IguanaBits

RemoveItem IguanaBits 1

EndIf

ElseIf GetItemCount IguanaOnAStick > 0

CastImmediateOnSelf IguanaOnAStick

RemoveItem IguanaOnAStick 1

EndIf

ElseIf GetItemCount InstaMash > 0

CastImmediateOnSelf InstaMash

RemoveItem InstaMash 1

EndIf

ElseIf GetItemCount JunkFood > 0

CastImmediateOnSelf JunkFood

RemoveItem JunkFood 1

EndIf

ElseIf GetItemCount MirelurkCakes > 0

CastImmediateOnSelf MirelurkCakes

RemoveItem MirelurkCakes 1

EndIf

ElseIf GetItemCount Mutfruit1 > 0

CastImmediateOnSelf Mutfruit1

RemoveItem Mutfruit1 1

EndIf

ElseIf GetItemCount Mutfruit2 > 0

CastImmediateOnSelf Mutfruit2

RemoveItem Mutfruit2 1

EndIf

ElseIf GetItemCount Noodles > 0

CastImmediateOnSelf Noodles

RemoveItem Noodles 1

EndIf

ElseIf GetItemCount Pear > 0

CastImmediateOnSelf Pear

RemoveItem Pear 1

EndIf

ElseIf GetItemCount NukaCola > 0

CastImmediateOnSelf NukaCola

RemoveItem NukaCola 1

AddItem Caps001 1

EndIf

ElseIf GetItemCount MS05IceNukaCola > 0

CastImmediateOnSelf MS05IceNukaCola

RemoveItem MS05IceNukaCola 1

AddItem Caps001 1

EndIf

ElseIf GetItemCount PorkNBeans > 0

CastImmediateOnSelf PorkNBeans

RemoveItem PorkNBeans 1

EndIf

ElseIf GetItemCount Potato > 0

CastImmediateOnSelf Potato

RemoveItem Potato 1

EndIf

ElseIf GetItemCount PotatoCrisps > 0

CastImmediateOnSelf PotatoCrisps

RemoveItem PotatoCrisps 1

EndIf

ElseIf GetItemCount SalisburySteak > 0

CastImmediateOnSelf SalisburySteak

RemoveItem SalisburySteak 1

EndIf

ElseIf GetItemCount StrangeMeatPie > 0

CastImmediateOnSelf StrangeMeatPie

RemoveItem StrangeMeatPie 1

EndIf

ElseIf GetItemCount SquirrelBits > 0

CastImmediateOnSelf SquirrelBits

RemoveItem SquirrelBits 1

EndIf

ElseIf GetItemCount SquirrelOnAStick > 0

CastImmediateOnSelf SquirrelOnAStick

RemoveItem SquirrelOnAStick 1

EndIf

ElseIf GetItemCount SquirrelStew > 0

CastImmediateOnSelf SquirrelStew

RemoveItem SquirrelStew 1

EndIf

ElseIf GetItemCount SugarBombs01 > 0

CastImmediateOnSelf SugarBombs01

RemoveItem SugarBombs01 1

EndIf

ElseIf GetItemCount WaterPurified > 0

CastImmediateOnSelf WaterPurified

RemoveItem WaterPurified 1

EndIf

ElseIf GetItemCount WaterUnpurified > 0

CastImmediateOnSelf WaterUnpurified

RemoveItem WaterUnpurified 1

EndIf

ElseIf GetItemCount YumYumDeviledEggs > 0

CastImmediateOnSelf YumYumDeviledEggs

RemoveItem YumYumDeviledEggs 1

EndIf

ElseIf GetItemCount AntMeat > 0

CastImmediateOnSelf AntMeat

RemoveItem AntMeat 1

EndIf

ElseIf GetItemCount BloatflyMeat > 0

CastImmediateOnSelf BloatflyMeat

RemoveItem BloatflyMeat 1

EndIf

ElseIf GetItemCount BrahminSteak > 0

CastImmediateOnSelf BrahminSteak

RemoveItem BrahminSteak 1

EndIf

ElseIf GetItemCount DogMeat > 0

CastImmediateOnSelf DogMeat

RemoveItem DogMeat 1

EndIf

ElseIf GetItemCount HumanFlesh > 0

CastImmediateOnSelf HumanFlesh

RemoveItem HumanFlesh 1

EndIf

ElseIf GetItemCount MirelurkMeat > 0

CastImmediateOnSelf MirelurkMeat

RemoveItem MirelurkMeat 1

EndIf

ElseIf GetItemCount MirelurkMeatHatchling > 0

CastImmediateOnSelf MirelurkMeatHatchling

RemoveItem MirelurkMeatHatchling 1

EndIf

ElseIf GetItemCount MirelurkMeatSoftshell > 0

CastImmediateOnSelf MirelurkMeatSoftshell

RemoveItem MirelurkMeatSoftshell 1

EndIf

ElseIf GetItemCount MoleRatMeat > 0

CastImmediateOnSelf MoleRatMeat

RemoveItem MoleRatMeat 1

EndIf

ElseIf GetItemCount MoleRatWonderMeat > 0

CastImmediateOnSelf MoleRatWonderMeat

RemoveItem MoleRatWonderMeat 1

EndIf

ElseIf GetItemCount MS05NukalurkMeat > 0

CastImmediateOnSelf MS05NukalurkMeat

RemoveItem MS05NukalurkMeat 1

EndIf

ElseIf GetItemCount RadroachMeat > 0

CastImmediateOnSelf RadroachMeat

RemoveItem RadroachMeat 1

EndIf

ElseIf GetItemCount StrangeMeat > 0

CastImmediateOnSelf StrangeMeat

RemoveItem StrangeMeat 1

EndIf

ElseIf GetItemCount YaoGuaiMeat > 0

CastImmediateOnSelf YaoGuaiMeat

RemoveItem YaoGuaiMeat 1

EndIf

EndIf

EndIf

EndIf

 

END

Link to comment
Share on other sites
Dyadya_Fedor Contributor

Dyadya_Fedor

Posted
Posted

If GetActorValue Health <= 0.90 - chances almost zero, use If GetHealthPercentage < 0.90 (or If GetActorValue Health <= 90 ) instead.

 

If GetItemCount Apple > 0

CastImmediateOnSelf Apple

RemoveItem Apple 1

EndIf ;remove

...

remove all EndIf's inside as well

...

ElseIf GetItemCount StrangeMeat > 0

CastImmediateOnSelf StrangeMeat

RemoveItem StrangeMeat 1

EndIf ;remove

ElseIf GetItemCount YaoGuaiMeat > 0

CastImmediateOnSelf YaoGuaiMeat

RemoveItem YaoGuaiMeat 1

Link to comment
Share on other sites
Eternalknight1 Newbie

Eternalknight1

Posted
  • Author
Posted

Thanks for your quick reply Dyadya,

Another quick question, if I wanted to add in Buffout useage i would assume I would put this into the script:

 

;Buffout Usage

 

If (GetPlayerTeammate == 1) && IsInCombat == 1

If HasMagicEffect BuffoutEffect == 0

If GetHealthPercentage < 0.70

If GetItemCount Buffout > 0

CastImmediateOnSelf Buffout

RemoveItem Buffout 1

EndIf

EndIf

EndIf

EndIf

 

However it does not let me add it in, since the second line is not recognised.

Cheers

EK

Link to comment
Share on other sites
Dyadya_Fedor Contributor

Dyadya_Fedor

Posted
Posted

BuffoutEffect not exist. Buffout Ingestible effect consist of 3 base effects

ChemIncENBuffout

ChemIncHealthBuffout

ChemIncSTBuffout

Choose any.

 

Oh, btw, Morphine dont contain MorphineEffect (its for talkin armor), but ChemIncDmgResistPsycho effect.

Link to comment
Share on other sites
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...