Skins: |

NWN2 SCRIPTS

- Jump to comments -

Name

Uncle FB's NPC Blacksmith

Author

Uncle FB

Submitted / Updated

06-09-2009 / 06-16-2009

Category

Scripting routines

Type

Type - NPC Players

Format

Module and Code

ShowCode

//NPC_blacksmith
//Uncle FB
//06/2009
//Multiple location forge behavior
//Place a general waypoint at the forge tagged "WP_FORGE"
//Place a general waypoint at the anvil tagged "WP_ANVIL"
//Place a general waypoint at the bucket tagged "WP_QUENCH"
//Place an IPOINT placeable at the water level in the bucket tagged "WP_STEAM"
//Place a sound object  "steamlongbursts" tagged "steamlongbursts" at the water level in your bucket
//be certain that the sound object is NOT active (SOUNDS ARE OPTIOINAL)
//Place a sound object "SmithyHammerings" taggeed "SmithyHammerings" near your anvil
//be certain that the sound object is NOT active (SOUNDS ARE OPTIONAL)
//Put this script "npc_blacksmith" in the on heartbeat slot of your blacksmith
//Make sure your blacksmith has the Martial Proficiency in feats
//
#include "ginc_item"
#include "ginc_combat"
#include "ginc_actions"

//This portion of the script controls the blacksmith one liners
//Change the int nRand to vary the frequency of speech. Currently this is
//set to 4 =  1 in 4 times speak.
//Change the test within "" in the case statements listed below the line "switch (nRand)"
//to change the one liners the blacksmith speaks
void NpcBlacksmithSpeak (int nSpeak)
{
int nRand = Random (4); //change the integer to vary the frequency of speech
    {switch (nSpeak)
        {
        default:
        break;
        case 1:
            {switch (nRand)
                {
                case 0:
                {switch (Random(4))
                    {
                    case 0:
                    SpeakString ( "This forge isn't hot enough I need more coal");
                    break;
                    case 1:
                    SpeakString ( "Where did I put those tongs?");
                    break;
                    case 2:
                    SpeakString ( "OUCH!");
                    break;                    
                    case 3:
                    SpeakString ( "Jeez another clinker blocking the tuyere!");
                    break;                                                              
                    }
                }
                break;
                default:
                break;
                }
            }
        }
    }
}

//Action wrapper for PlayCustomAnimation to allow delay and assign
//no modification necessary
void ActionPlayCustomAnimation(object oNpc, string sAnimationName, int nLooping, float fSpeed = 1.0f)
{
    PlayCustomAnimation(oNpc, sAnimationName, nLooping, fSpeed);	
}

//Movement function for NPC blacksmith
//no modification necessary
void DelayJump (object oNpc, object oWp1)
{	

float fDwp1 = GetDistanceToObject (oWp1);
float fDwp2 = GetFacing (oWp1);
float fFactor = GetMovementRateFactor(oNpc);
float fRateVS = (0.75 * fFactor); float fDVS = (fDwp1 / fRateVS);
float fRateS = (1.25 * fFactor); float fDS = (fDwp1 / fRateS);
float fRateN = (1.75 * fFactor); float fDN = (fDwp1 / fRateN);
float fRateF = (2.25 * fFactor); float fDF = (fDwp1 / fRateF);
float fRateVF = (2.75 * fFactor); float fDVF = (fDwp1 / fRateVF);
int nRate = GetMovementRate (oNpc);
int nLocation = GetLocalInt (oNpc, "atloc");
	{switch (nLocation)
		{
		case 1:
		break;
		default:
		  {switch (nRate)
		      {
		      default:
              break;
              case 2:    
        	  ActionMoveToObject (oWp1,0,0.0);
	          DelayCommand (((fDVS)+0.2), ActionOrientToObject(oWp1,ORIENT_FACE_SAME_AS_TARGET));
	          SetLocalInt (oNpc, "ud",0);
		      SetLocalInt (oNpc,"atloc",1);
		      break;
              case 3:    
        	  ActionMoveToObject (oWp1,0,0.0);
	          DelayCommand (((fDS)+0.2), ActionOrientToObject(oWp1,ORIENT_FACE_SAME_AS_TARGET));
	          SetLocalInt (oNpc, "ud",0);
		      SetLocalInt (oNpc,"atloc",1);
		      break;
              case 4:    
        	  ActionMoveToObject (oWp1,0,0.0);
	          DelayCommand (((fDN)+0.2), ActionOrientToObject(oWp1,ORIENT_FACE_SAME_AS_TARGET));
	          SetLocalInt (oNpc, "ud",0);
		      SetLocalInt (oNpc,"atloc",1);
		      break;
              case 5:    
        	  ActionMoveToObject (oWp1,0,0.0);
	          DelayCommand (((fDF)+0.2), ActionOrientToObject(oWp1,ORIENT_FACE_SAME_AS_TARGET));
	          SetLocalInt (oNpc, "ud",0);
		      SetLocalInt (oNpc,"atloc",1);
		      break;  
              case 6:    
        	  ActionMoveToObject (oWp1,0,0.0);
	          DelayCommand (((fDVF)+0.2), ActionOrientToObject(oWp1,ORIENT_FACE_SAME_AS_TARGET));
	          SetLocalInt (oNpc, "ud",0);
		      SetLocalInt (oNpc,"atloc",1);
		      break;
              }
           }                                         		      
		break;
		}
	}		
}
			
//Main blacksmith function
void main ()
{
object oNpc = OBJECT_SELF;
if (IsInConversation (oNpc) == TRUE)
object oWp1;
object oAnvil = GetWaypointByTag ("WP_ANVIL");
object oForge = GetWaypointByTag ("WP_FORGE"); 
object oQuench = GetWaypointByTag ("WP_QUENCH");
object oSoundObject = GetObjectByTag ("SteamLongBursts");
object oSoundHammer = GetObjectByTag ("SmithyHammerings");
object oEffectObject = GetObjectByTag ("WP_STEAM");
string sHammer = "nw_wblhl001";
string sSword = "nw_wswss001";
string sSword2 = "nw_wswss999";
int nSpeak = 1;   
int nWPcontrol = GetLocalInt (oNpc, "control");
int nRand = Random (3)+1;
SetOrientOnDialog(oNpc, FALSE);
int nWptag = GetLocalInt (oNpc, "wptag");
if (nWptag == 0) {SetLocalInt (oNpc, "wptag", 1);}

//Select which waypoint we should be going to and assign it as oWp1 = current waypoint
if (nWPcontrol != 1)
    {
	ClearAllActions();
		{switch (nWptag)
	        {
	        case 1: oWp1 = oAnvil; SetLocalInt (oNpc, "control", 1); break;
	        case 2: oWp1 = oForge; SetLocalInt (oNpc, "control", 1); break;
	        case 3: oWp1 = oQuench; SetLocalInt (oNpc, "control", 1); break;
	        }                
	    }
	}
	
//Get our new waypoint tag, check the distance and perform animations if within range ONLY	
nWptag = GetLocalInt (oNpc,"wptag");	
float fDwp1 = GetDistanceToObject (oWp1);
int nAction = GetLocalInt (oNpc, "actioncounter");
if (fDwp1 >= 0.3) {SetLocalInt (oNpc,"atloc",0);DelayJump(oNpc,oWp1);}
	if (fDwp1 <= 0.5)			
		{switch (nWptag)
			{
			case 1:
			//Location at WP_ANVIL
			SetLocalInt (oNpc,"atloc",1);
			     {switch (nAction)
        	       {
                    default:
					//Anvil animation #1
					//Equip sword and hammer if not already equipped
					//Initialize hammering sound
					EquipNewItem(oNpc, sHammer, 4);
					DelayCommand (0.4, EquipNewItem(oNpc, sSword2, 5));
			        NpcBlacksmithSpeak (nSpeak);
					DelayCommand (0.5, SoundObjectPlay(oSoundHammer));
			        ActionPlayCustomAnimation (oNpc, "craft01",1,5.9);	
                    SetLocalInt (oNpc, "actioncounter",1);
                    break;	   
                    case 1:
					//Anvil animation #2
			        NpcBlacksmithSpeak (nSpeak);
			        ActionPlayCustomAnimation (oNpc, "craft01",1,5.9);
                    SetLocalInt (oNpc, "actioncounter",2);
                    break;	  
                    case 2:
					//Anvil animation #3
					//disable hammering sound
					//set wptag to 3 and go to location for quench
			        NpcBlacksmithSpeak (nSpeak);
					DelayCommand (6.0, SoundObjectStop(oSoundHammer));
			        ActionPlayCustomAnimation (oNpc, "craft01",1,5.9);                   
                    SetLocalInt (oNpc, "actioncounter",0); 
                    SetLocalInt (oNpc, "wptag" ,3); 
					SetLocalInt (oNpc, "control", 0);             
                    break;
                    }	
                }
			break;
			case 2:
			//Location at WP_FORGE
			SetLocalInt (oNpc,"atloc",1);
			     {switch (nAction)
        	       {
                    default:
					//Forge animation #1
					//remove sword from hand 
			        NpcBlacksmithSpeak (nSpeak);
					DelayCommand (1.1, DestroyItemInSlot (oNpc,5));			
			        ActionPlayCustomAnimation(oNpc,"openlock",0,2.0);	
                    SetLocalInt (oNpc, "actioncounter",1);
                    break;	   
                    case 1:
					//Forge animation #2
			        NpcBlacksmithSpeak (nSpeak);
			        ActionPlayCustomAnimation (oNpc, "dustoff",0,5.9);	
                    SetLocalInt (oNpc, "actioncounter",2);
                    break;	  
                    case 2:
					//Forge animation #3
					//Get red hot sword from forge
					//set wptag to 1 and go to location for hammering
			        NpcBlacksmithSpeak (nSpeak);
					DelayCommand (1.1, EquipNewItem(oNpc, sHammer, 4));
					DelayCommand (1.3, EquipNewItem(oNpc, sSword2, 5));
			        ActionPlayCustomAnimation(oNpc,"openlock",0,2.0);	                   
                    SetLocalInt (oNpc, "actioncounter",0); 
                    SetLocalInt (oNpc, "wptag" ,1);
					SetLocalInt (oNpc, "control", 0);              
                    break;
                    }	
                }			
			break;
			case 3:
			//Location WP_QUENCH
			SetLocalInt (oNpc,"atloc",1);
			     {switch (nAction)
        	       {
                    default:
					//Quench Animation #1 
					//Dip sword in water and drop it
					//Initialize steam sound and fx
			        NpcBlacksmithSpeak (nSpeak);
					DelayCommand (3.0, DestroyItemInSlot (OBJECT_SELF,5));
					DelayCommand (1.0, SoundObjectPlay(oSoundObject));
					DelayCommand (1.1, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectNWN2SpecialEffectFile("fx_chimney"), oEffectObject));
			        ActionPlayCustomAnimation(OBJECT_SELF,"torchlightground",0,4.1);	
                    SetLocalInt (oNpc, "actioncounter",1);
                    break;	   
                    case 1:
					//Quench Animation #2
			        NpcBlacksmithSpeak (nSpeak);
			        ActionPlayCustomAnimation (oNpc, "yawn",0,5.9);
                    SetLocalInt (oNpc, "actioncounter",2);
                    break;	  
                    case 2:
					//Quench Animation #3
					//Disable steam sound and fx
					//Reach down and grab the sword (no longer red hot)
					//set wptag to 2 and go to location for forge
			        NpcBlacksmithSpeak (nSpeak);
					SoundObjectStop(oSoundObject);
					RemoveSEFFromObject(oEffectObject, ("fx_chimney"));
					DelayCommand (2.8, EquipNewItem(oNpc, sHammer, 4));
					DelayCommand (3.0, EquipNewItem(oNpc, sSword, 5));
			        ActionPlayCustomAnimation(OBJECT_SELF,"torchlightground",0,4.1);
					SetLocalInt (oNpc, "actioncounter",0); 
                    SetLocalInt (oNpc, "wptag" ,2);
					SetLocalInt (oNpc, "control", 0);             
                    break;
                    }	
                }			
			break;
			}			
		}				
}

Select All Text | View Code in separate window

Patch

1.22

NWN2Game

All

Description

Uncle FB's NPC Blacksmith v1.0

Here is the comment section from the script

//NPC_blacksmith
//Uncle FB
//06/2009
//Multiple location forge behavior
//Place a general waypoint at the forge tagged "WP_FORGE"
//Place a general waypoint at the anvil tagged "WP_ANVIL"
//Place a general waypoint at the bucket tagged "WP_QUENCH"
//Place an IPOINT placeable at the water level in the bucket tagged "WP_STEAM"
//Place a sound object "steamlongbursts" tagged "steamlongbursts" at the water level in your bucket
//be certain that the sound object is NOT active (SOUNDS ARE OPTIOINAL)
//Place a sound object "SmithyHammerings" taggeed "SmithyHammerings" near your anvil
//be certain that the sound object is NOT active (SOUNDS ARE OPTIONAL)
//Put this script "npc_blacksmith" in the on heartbeat slot of your blacksmith
//Make sure your blacksmith has the Martial Proficiency in feats

1.The blacksmith hammers the work piece
2.After working the work piece the blacksmith quenches it in a water tub (complete with steam sound and visual fx)
3. Once the blade has cooled the blacksmith takes it to the forge to re-heat.
4. After the blade is red-hot again the smith will work it on the Anvil.

and on, and on, and on.

The blacksmith will ignore his regular work if you decide you want to attach a conversation to him (a armor or weapon merchant).

As always if you have comments or suggestions feel free to email or comment.

Cheers,

Uncle FB

Files

Name	Type	Size	Downloads
Blacksmith.modBlacksmith.mod Submitted: 06-09-2009 / Last Updated: 06-09-2009	mod	200.06Kb	141
Tiny sample module showing the blacksmith at work
npc_blacksmith.erfnpc_blacksmith.erf Submitted: 06-09-2009 / Last Updated: 06-09-2009	erf	12.69Kb	163
erf file containing script and red hot sword item
Dwarven_Blacksmith.modDwarven_Blacksmith.mod Submitted: 06-09-2009 / Last Updated: 06-16-2009	mod	197.46Kb	97
Same module with a Dwarfish version of the blacksmith
Blacksmith_Manual.pdfBlacksmith_Manual.pdf Submitted: 06-09-2009 / Last Updated: 06-09-2009	pdf	208.63Kb	278
Users manual for npc_blacksmith

SCORE OUT OF 10

9.5
6 votes
View Stats
Cast Your Vote!
Voting FAQ

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

Blacksmith waiting for the forge to heat the sword

Blacksmith with the heated sword ready to be worked

Blacksmith working the sword

Blacksmith quenching the sword in the tub (steam rising)

Blacksmith holding the cooled sword ready to be re-heated in the forge

You Must Be Logged In to Participate.

Comments (6):

Posted by kamal at 2011-08-04 17:41:00 Voted 9.25 on 08/04/11

add so much.
_________________________
Shadow Thief: Crimmor and Path of Evil blog Link

Posted by Elrahc at 2009-06-17 07:30:59 Voted 9.00 on 06/17/09

Thank you for accommodating me with the Dwarven version, Uncle FB! =)

This script adds a nice touch to any smithy. I am looking forward to more of these - I can't wait to try your light keeper.

~Elrahc
_________________________
"Ahh! Opposable digits!"

Posted by shadowfiend at 2009-06-11 05:52:53 Voted 10.00 on 06/11/09

Awesome!

Posted by MokahTGS at 2009-06-10 23:40:34 Voted 9.75 on 06/10/09

Very nice indeed! Beyond my expectations for sure. I'm putting this to work now, thanks again!
_________________________
Mokah - The Grumpy Strumpet
|| Dear Strumpet Letters || Jabberwocky Development Blog || Vertex I - The State of the Union ||

Posted by nicethugbert at 2009-06-10 18:13:07 Voted 10.00 on 06/10/09

NEAT!
_________________________
NTB's Hills and Valleys Vol. 00

Posted by loki12345 at 2009-06-10 17:51:07 Voted 8.75 on 06/10/09

Very cool.

This is very great for anyone who want to have a nice athmosphere in his forge.
Thank you for sharing it!
_________________________
GER] Zauberwald: the ultimate german persistent world for NWN1
Feline Fuelled Games: The best Place for German Singleplayer Adventures with NWN2. New: The Shaper of dreams in english. Check it out!
LOWKEY-MUSIC: Music for Film, TV, games and more.

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

NWN2 Voting Standards

10 - A Masterpiece, Genuinely Groundbreaking
9 - Outstanding, a Must Have
8 - Excellent, Recommended to Anyone
7 - Very Good, Deserves a Look
6 - Good, Qualified Recommendation
5 - Fair, Solid yet Unremarkable
4 - Some Merit, Requires Improvements
3 - Poor Execution, Potential Unrealized
2 - Very Little Appeal
1 - Not Recommended to Anyone