Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Angel

Author

Builder_Anthony/420 /FFJB/BlascoYoung

Submitted / Updated

06-01-2009 / 06-02-2009

Category

Scripting routines

Expansions

Works on all versions

View Code

void SpeakRandomLine(object oCreature);
void DivineDestruction(object oOrigin, object oFriend);
void main()
{
object oPC = GetEnteringObject();
if (GetAlignmentGoodEvil(oPC) == ALIGNMENT_EVIL)
   return;
if (!GetIsPC(oPC)) return;
if (d100()>100)
   return;
location lTarget = GetLocation(oPC);
if (!GetIsPC(oPC)) return;
object oSpawn = CreateObject(OBJECT_TYPE_CREATURE, "angel", lTarget, TRUE);
SetWeather(GetArea(oPC), WEATHER_CLEAR);
DelayCommand(0.1, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_SUNBEAM), GetLocation(oSpawn)));
AssignCommand(oSpawn, ActionPlayAnimation(ANIMATION_FIREFORGET_PAUSE_BORED));
AssignCommand(oSpawn, ActionForceMoveToLocation(lTarget));
DelayCommand(4.8, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_BLINDDEAF), GetLocation(oSpawn)));
DelayCommand(5.0, DivineDestruction(oSpawn, oPC));
DelayCommand(9.0, AssignCommand(oSpawn, ActionCastSpellAtObject(SPELL_MASS_HEAL, oPC, METAMAGIC_ANY, TRUE)));
DelayCommand(12.0, AssignCommand(oSpawn, ActionCastSpellAtObject(SPELL_LEGEND_LORE, oPC, METAMAGIC_ANY, TRUE)));
DelayCommand(8.5,SpeakRandomLine(oSpawn));
DelayCommand(14.5, AssignCommand(oSpawn, ClearAllActions()));
DelayCommand(15.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDisappear(), oSpawn));
}
void SpeakRandomLine(object oCreature)
{
switch( d20())
  {
    case 1: AssignCommand(oCreature, ActionSpeakString("Take my blessings brave hero.")); break;
    case 2: AssignCommand(oCreature, ActionSpeakString("Show caution as well as courage; this is all the aid I can give")); break;
    case 3: AssignCommand(oCreature, ActionSpeakString("May heaven guide your steps")); break;
    case 4: AssignCommand(oCreature, ActionSpeakString("Your strength is renewed.Go forth without fear")); break;
    case 5: AssignCommand(oCreature, ActionSpeakString("May we meet again by the silver shores")); break;
    case 6: AssignCommand(oCreature, ActionSpeakString("Fair winds to you, mortals,I have done all I can")); break;
    case 7: AssignCommand(oCreature, ActionSpeakString("Show caution as well as courage")); break;
    case 8: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 9: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 10: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 11: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 12: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 13: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 14: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 15: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 16: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 17: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 18: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 19: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
    case 20: AssignCommand(oCreature, ActionSpeakString("Was that a noise outside?")); break;
  }
}
void DivineDestruction(object oOrigin, object oFriend)
{
location lOrigin = GetLocation(oOrigin);
effect eVFX = EffectVisualEffect(VFX_IMP_PULSE_WIND);
effect eDamage;
object oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 850.0, lOrigin);
while(GetIsObjectValid(oTarget))
    {
    if(GetIsEnemy(oTarget, oFriend))
        {
        eDamage = EffectDamage(GetCurrentHitPoints(oTarget), DAMAGE_TYPE_DIVINE);
        ApplyEffectToObject(DURATION_TYPE_INSTANT, eVFX, oTarget);
        ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
        }
    oTarget = GetNextObjectInShape(SHAPE_SPHERE, 850.0, lOrigin);
    }
}

Select All Text | View Code in separate window

Format

Code Only

Type

Type - Spawning

Includes

None

Description

1.Checks Alignment
2.Checks chance of spawning
3.Flys in angel useing a vfx
4.Angelic lights appear and kill all nearby creatures with vfx pulse wind
5.Angel runs toward pc and says a random one liner
6.Angel casts 2 spells
7.Angel flys away

Files

Name	Type	Size	Downloads
NO FILES

SCORE OUT OF 10

10
4 votes
View Stats
Cast Your Vote!

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

No Images

You Must Be Logged In to Participate.

Comments (14):

Posted by Saduj at 2009-10-31 23:07:44 Voted 10.00 on 10/31/09

Very cool idea !
_________________________
Carcerian/Saduj's Submissions: (169 Portrait/Soundset Unlocker) (12 NWN Fonts) (30 NWN Fonts) (Auto-Emotes) (Custom Dragon Disciples) (Dynamic Wildshape) (Keyring) (NPC Schedules) (Sacred Shields) (Spawning Undead) (Shayans Subrace Engine for 169)

Posted by Builder__Anthony at 2009-10-15 22:06:02

Just post it ill try it out

Posted by Blasco-Yang at 2009-10-07 18:51:27 Voted 10.00 on 06/02/09

Has anyone been in contact with B.A? I have a fairly simple fix for the repeated spawning of more than one angel.

I've sent him an email and a PM on the forums with the fix, but have had no response.

I didn't want to just post it up here. It's his script and his choice and I'd like to leave it up to him.

Posted by Builder__Anthony at 2009-09-05 00:45:33

ya i know i need to keep it from spawmomg cpnstantly.Could someone post a fix here.

Posted by Blasco-Yang at 2009-06-12 19:59:18 Voted 10.00 on 06/02/09

I keep coming back to this. Something about it really stands out to me.

I like Patty's idea about it being used in the OnDeath to rez (on a very small percentage chance that it will actually occur)

And maybe for characters of evil alignment a demon can appear and give appropriate one liners for a duke of hell after rezzing them. lol

Here's a minor suggestion for your current version B.A.:

Check the area to make sure there aren't any currently existing angels in the area. If there are, exit out of the script.

Using it in a trigger I'm able to spawn quite a few.

That's not a criticism, just a freindly suggestion. I love what you've done here and respect the time and effort you've put into it. You deserved that 10 and I'm sticking by it.

Posted by Builder__Anthony at 2009-06-04 23:09:46

Ya i never thought of that as a revival script ...guess it be nice especial if it was like a real big battle...have them spawn in like at a percentage.

Posted by Pattycake1 at 2009-06-03 15:19:45 Voted 10.00 on 06/03/09

LoL.. forgot to vote..

Posted by Pattycake1 at 2009-06-03 15:18:59 Voted 10.00 on 06/03/09

Alright cool.. I was making sure it wasn't a mistake!
I think I will change it so it will work on death of a toon... I like the idea of a angel coming down out of the heavens when you die to rez you.

Posted by Builder__Anthony at 2009-06-03 10:41:38

I left the random spawn at 100 so if a person is testing the creature will awalys spawn in.If you want less of a chance of the monster spawning just lower it from 100 to what percentage you think is right.

Posted by Pattycake1 at 2009-06-03 08:48:39 Voted 10.00 on 06/03/09

I'd rather see this as added to the ondeath script via ExcecuteScript"Angel". I haven't tested this out yet, but I am curious on this line:
if (d100()>100)
return;
What is the purpose of this? What it says to me is if d100 is greater that 100 then continue the script.

I think I would rather see is:
if (d100()=< 5)
return;
Which would say if you get 5% or less then continue the script. lol maybe I'm reading it wrong...

Posted by Blasco-Yang at 2009-06-02 19:32:36 Voted 10.00 on 06/02/09

Just noticed that you gave me credit as partial author. Very kind of you, but not necessary as far as I'm concerned.

The time, effort, entire concept..... all of it was yours. I just offered a bit of advice.

And I might add.... you did one fine job.

Posted by Blasco-Yang at 2009-06-02 19:28:02 Voted 10.00 on 06/02/09

Nicely done B.A. Lot of effort went into this. Looks really good.

Posted by ffbj at 2009-06-02 19:03:27 Voted 10.00 on 06/02/09

Heavenly!

Posted by Builder__Anthony at 2009-06-02 18:33:58

Use this on_enter of a trigger

You must be Logged In to post comments in this section.