Jaysyn/Rune_PRC8
Jaysyn/Rune_PRC8
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed _release archive

Browse Source 
Removed _release archive.  Updated top hak.
This commit is contained in:
Jaysyn904 2025-04-03 21:32:18 -04:00
parent 3d724b934d
commit e1170da304
95 changed files with 23482 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
_content/Compiler - Top Hak.bat Normal file
View File

@ -0,0 +1,4 @@
:loop
"C:\NWN Work\nwnsc.exe" -o -w -n "C:\Games\Steam\steamapps\common\Neverwinter Nights" -i "D:\NWN Repos\Rune_PRC8\_content\_hak\rune_prc8_top";"D:\NWN Repos\PRC8\nwn\nwnprc\trunk\include" "D:\NWN Repos\Rune_PRC8\_content\_hak\rune_prc8_top\*.nss"
if %errorLevel% == -1 goto :loop
pause

611
_content/_hak/rune_prc8_top/dmfi_dmw_inc.nss Normal file
View File

@ -0,0 +1,611 @@
// VOICE CONFIGURATION - NEW IN 1.07 and UP
// Set this to 0 if you want to DISABLE listening by NPCs for performance reasons.
// See readme for additional information regarding possible issues and effects.
const int DMFI_LISTENING_GLOBAL = 1;
// NOTE: OMW_COLORS is an invisible object that must be present in your module.
// It has high ascii characters in the name and is used to get the color codes.
// This was ripped wholeheartedly by an example posted by Richterm on the bioboards.
string DST_COLOR_TAGS = GetName(GetObjectByTag("dem_color_text"));
string DST_COLOR_WHITE = GetSubString(DST_COLOR_TAGS, 0, 6);
string DST_COLOR_YELLOW = GetSubString(DST_COLOR_TAGS, 6, 6);
string DST_COLOR_MAGENTA = GetSubString(DST_COLOR_TAGS, 12, 6);
string DST_COLOR_CYAN = GetSubString(DST_COLOR_TAGS, 18, 6);
string DST_COLOR_RED = GetSubString(DST_COLOR_TAGS, 24, 6);
string DST_COLOR_GREEN = GetSubString(DST_COLOR_TAGS, 30, 6);
string DST_COLOR_BLUE = GetSubString(DST_COLOR_TAGS, 36, 6);
// Colors for each type of roll. Change the colors if you like.
string DMFI_ROLL_COLOR = DST_COLOR_CYAN;
string DST_COLOR_NORMAL = DST_COLOR_WHITE;
int DMW_START_CUSTOM_TOKEN = 8000;
//Retrieve targetting information
object oMySpeaker = GetLastSpeaker();
object oMyTarget = GetLocalObject(oMySpeaker, "dmfi_univ_target");
location lMyLoc = GetLocalLocation(oMySpeaker, "dmfi_univ_location");
// checks if a nearby object is destroyable
int dmwand_isnearbydestroyable();
// Check if the target can be created with CreateObject
int dmwand_istargetcreateable();
//Check if target is a destroyable object
int dmwand_istargetdestroyable();
// checks if the wand was NOT clicked on an object
int dmwand_istargetinvalid();
// check if the target has an inventory
int dmwand_istargetinventory();
//Check if the target is not the wand's user
int dmwand_istargetnotme();
//Check if target is an NPC or monster
int dmwand_istargetnpc();
//Check if the target is a PC
int dmwand_istargetpc();
//Check if the target is a PC and not me
int dmwand_istargetpcnme();
// Check if the target is a PC or NPC
// uses the CON score currently
int dmwand_istargetpcornpc();
//Check if the target is a PC or an npc and not me
int dmwand_istargetpcornpcnme();
// Check if target is a placeable
int dmwand_istargetplaceable();
//bulds the conversion
int dmwand_BuildConversationDialog(int nCurrent, int nChoice, string sConversation, string sParams);
int dmw_conv_ListPlayers(int nCurrent, int nChoice, string sParams = "");
int dmw_conv_Start(int nCurrent, int nChoice, string sParams = "");
void dmwand_BuildConversation(string sConversation, string sParams);
void dmwand_StartConversation();
// DMFI Color Text function. It returns a colored string.
// sText is the string that will be colored and sColor is the color
// options: yellow, magenta, cyan, red, green, blue - truncated at first letter
// Ex: sMsg = ColorText(sMsg, "y"); //Add the include file - yields yellow colored msg.
string ColorText(string sText, string sColor);
string ColorText(string sText, string sColor)
{
string sApply = DST_COLOR_NORMAL;
string sTest = GetStringLowerCase(GetStringLeft(sColor, 1));
if (sTest=="y") sApply = DST_COLOR_YELLOW;
else if (sTest == "m") sApply = DST_COLOR_MAGENTA;
else if (sTest == "c") sApply = DST_COLOR_CYAN;
else if (sTest == "r") sApply = DST_COLOR_RED;
else if (sTest == "g") sApply = DST_COLOR_GREEN;
else if (sTest == "r") sApply = DST_COLOR_BLUE;
string sFinal = sApply + sText + DST_COLOR_NORMAL;
return sFinal;
}
int dmwand_isnearbydestroyable()
{
object oMyTest = GetFirstObjectInShape(SHAPE_CUBE, 0.6, lMyLoc, FALSE, OBJECT_TYPE_ALL);
int nTargetType = GetObjectType(oMyTest);
return (GetIsObjectValid(oMyTest) && (! GetIsPC(oMyTest)) && ((nTargetType == OBJECT_TYPE_ITEM) || (nTargetType == OBJECT_TYPE_PLACEABLE) || (nTargetType == OBJECT_TYPE_CREATURE)));
}
int dmwand_istargetcreateable()
{
if(! GetIsObjectValid(oMyTarget)) { return FALSE; }
int nTargetType = GetObjectType(oMyTarget);
return ((nTargetType == OBJECT_TYPE_ITEM) || (nTargetType == OBJECT_TYPE_PLACEABLE) || (nTargetType == OBJECT_TYPE_CREATURE));
}
int dmwand_istargetdestroyable()
{
if(! GetIsObjectValid(oMyTarget)) { return FALSE; }
int nTargetType = GetObjectType(oMyTarget);
if(! GetIsPC(oMyTarget))
{
return ((nTargetType == OBJECT_TYPE_ITEM) || (nTargetType == OBJECT_TYPE_PLACEABLE) || (nTargetType == OBJECT_TYPE_CREATURE));
}
return FALSE;
}
int dmwand_istargetinvalid()
{
return !GetIsObjectValid(oMyTarget);
}
int dmwand_istargetinventory()
{
return (GetIsObjectValid(oMyTarget) && GetHasInventory(oMyTarget));
}
int dmwand_istargetnotme()
{
return (GetIsObjectValid(oMyTarget) && (oMySpeaker != oMyTarget));
}
int dmwand_istargetpc()
{
return (GetIsObjectValid(oMyTarget) && GetIsPC(oMyTarget));
}
int dmwand_istargetpcnme()
{
return (GetIsObjectValid(oMyTarget) && GetIsPC(oMyTarget) && (oMySpeaker != oMyTarget));
}
int dmwand_istargetpcornpc()
{
return (GetIsObjectValid(oMyTarget) && GetAbilityScore(oMyTarget, ABILITY_CONSTITUTION));
}
int dmwand_istargetnpc()
{
return (dmwand_istargetpcornpc() && (!GetIsPC(oMyTarget)));
}
int dmwand_istargetpcornpcnme()
{
return (dmwand_istargetpcornpc() && (oMySpeaker != oMyTarget));
}
int dmwand_istargetplaceable()
{
if(! GetIsObjectValid(oMyTarget)) { return FALSE; }
int nTargetType = GetObjectType(oMyTarget);
return (nTargetType == OBJECT_TYPE_PLACEABLE);
}
int dmw_conv_Start(int nCurrent, int nChoice, string sParams = "")
{
string sText = "";
string sCall = "";
string sCallParams = "";
switch(nCurrent)
{
case 0:
nCurrent = 0;
sText = "Hello there, DM. What can I do for you?";
sCall = "";
sCallParams = "";
break;
case 1:
nCurrent = 1;
if(dmwand_istargetpcnme())
{
sText = "Penguin this player.";
sCall = "func_Toad";
sCallParams = "";
break;
}
case 2:
nCurrent = 2;
if(dmwand_istargetpcnme())
{
sText = "Unpenguin this player.";
sCall = "func_Untoad";
sCallParams = "";
break;
}
case 3:
nCurrent = 3;
if(dmwand_istargetpcnme())
{
sText = "Boot this player.";
sCall = "func_KickPC";
sCallParams = "";
break;
}
case 4:
nCurrent = 4;
if(dmwand_istargetinvalid())
{
sText = "List all players...";
sCall = "conv_ListPlayers";
sCallParams = "func_PlayerListConv";
break;
}
case 5:
nCurrent = 5;
if(dmwand_istargetpcnme())
{
sText = "Jump this player to my location.";
sCall = "func_JumpPlayerHere";
sCallParams = "";
break;
}
case 6:
nCurrent = 6;
if(dmwand_istargetpcnme())
{
sText = "Jump me to this player's location.";
sCall = "func_JumpToPlayer";
sCallParams = "";
break;
}
case 7:
nCurrent = 7;
if(dmwand_istargetpcnme())
{
sText = "Jump this player's party to my location.";
sCall = "func_JumpPartyHere";
sCallParams = "";
break;
}
default:
nCurrent = 0;
sText = "";
sCall = "";
sCallParams = "";
break;
}
SetLocalString(oMySpeaker, "dmw_dialog" + IntToString(nChoice), sText);
SetLocalString(oMySpeaker, "dmw_function" + IntToString(nChoice), sCall);
SetLocalString(oMySpeaker, "dmw_params" + IntToString(nChoice), sCallParams);
return nCurrent;
}
void DMFI_untoad(object oTarget, object oUser)
{
if (GetLocalInt(oTarget, "toaded")==1)
{
effect eMyEffect = GetFirstEffect(oTarget);
while(GetIsEffectValid(eMyEffect))
{
if(GetEffectType(eMyEffect) == EFFECT_TYPE_POLYMORPH ||
GetEffectType(eMyEffect) == EFFECT_TYPE_PARALYZE)
RemoveEffect(oTarget, eMyEffect);
eMyEffect = GetNextEffect(oTarget);
}
}
else
{
FloatingTextStringOnCreature("Dude, he is no toad!", oUser);
}
}
void DMFI_toad(object oTarget, object oUser)
{
effect ePenguin = EffectPolymorph(POLYMORPH_TYPE_PENGUIN);
effect eParalyze = EffectParalyze();
SendMessageToPC(oUser, "Penguin? Don't you mean toad?");
AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, ePenguin, oTarget));
AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eParalyze, oTarget));
SetLocalInt(oTarget, "toaded", 1);
}
void dmwand_KickPC(object oTarget, object oUser)
{
// Create a lightning strike, thunder, scorch mark, and random small
// lightnings at target's location
location lMyLoc = GetLocation (oTarget);
AssignCommand( oUser, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_M), lMyLoc));
AssignCommand ( oUser, PlaySound ("as_wt_thundercl3"));
object oScorch = CreateObject ( OBJECT_TYPE_PLACEABLE, "plc_weathmark", lMyLoc, FALSE);
object oTargetArea = GetArea(oUser);
int nXPos, nYPos, nCount;
for(nCount = 0; nCount < 5; nCount++)
{
nXPos = Random(10) - 5;
nYPos = Random(10) - 5;
vector vNewVector = GetPositionFromLocation(lMyLoc);
vNewVector.x += nXPos;
vNewVector.y += nYPos;
location lNewLoc = Location(oTargetArea, vNewVector, 0.0);
AssignCommand( oUser, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_S), lNewLoc));
}
DelayCommand ( 20.0, DestroyObject ( oScorch));
SendMessageToAllDMs (GetName(oTarget) + " was booted from the game. PC CD KEY: " + GetPCPublicCDKey(oTarget) + " PC IP ADDRESS: " + GetPCIPAddress(oTarget));
PrintString(GetName(oTarget) + " was booted from the game. PC CD KEY: " + GetPCPublicCDKey(oTarget) + " PC IP ADDRESS: " + GetPCIPAddress(oTarget));
// Kick the target out of the game
BootPC(oTarget);
}
void dmwand_JumpPlayerHere()
{
location lJumpLoc = GetLocation(oMySpeaker);
AssignCommand(oMyTarget, ClearAllActions());
AssignCommand(oMyTarget, ActionJumpToLocation(lJumpLoc));
}
//Added by hahnsoo, jumps a party to the DM
void dmwand_JumpPartyHere()
{
location lJumpLoc = GetLocation(oMySpeaker);
object oParty = GetFirstFactionMember(oMyTarget);
while (GetIsObjectValid(oParty))
{
AssignCommand(oParty, ClearAllActions());
AssignCommand(oParty, ActionJumpToLocation(lJumpLoc));
oParty = GetNextFactionMember(oMyTarget);
}
}
void dmwand_JumpToPlayer()
{
location lJumpLoc = GetLocation(oMyTarget);
AssignCommand(oMySpeaker, ActionJumpToLocation(lJumpLoc));
}
void dmwand_PlayerListConv(string sParams)
{
int nPlayer = StringToInt(sParams);
int nCache;
int nCount;
object oPlayer = GetLocalObject(oMySpeaker, "dmw_playercache" + IntToString(nPlayer));
oMyTarget = oPlayer;
SetLocalObject(oMySpeaker, "dmfi_univ_target", oMyTarget);
//Go back to the first conversation level
dmwand_BuildConversation("Start", "");
}
//::///////////////////////////////////////////////
//:: File: dmw_conv_inc
//::
//:: Conversation functions for the DM's Helper
//:://////////////////////////////////////////////
int dmwand_BuildConversationDialog(int nCurrent, int nChoice, string sConversation, string sParams)
{
if(TestStringAgainstPattern(sConversation, "ListPlayers"))
{
return dmw_conv_ListPlayers(nCurrent, nChoice, sParams);
}
if(TestStringAgainstPattern(sConversation, "Start"))
{
return dmw_conv_Start(nCurrent, nChoice, sParams);
}
return FALSE;
}
void dmwand_BuildConversation(string sConversation, string sParams)
{
int nLast;
int nTemp;
int nChoice = 1;
int nCurrent = 1;
int nMatch;
if(TestStringAgainstPattern(sParams, "prev"))
{
//Get the number choice to start with
nCurrent = GetLocalInt(oMySpeaker, "dmw_dialogprev");
//Since we're going to the previous page, there will be a next
SetLocalString(oMySpeaker, "dmw_dialog9", "Next ->");
SetLocalString(oMySpeaker, "dmw_function9", "conv_" + sConversation);
SetLocalString(oMySpeaker, "dmw_params9", "next");
SetLocalInt(oMySpeaker, "dmw_dialognext", nCurrent);
nChoice = 8;
for(;nChoice >= 0; nChoice--)
{
int nTemp1 = nCurrent;
int nTemp2 = nCurrent;
nMatch = nTemp2;
while((nCurrent == nMatch) && (nTemp2 > 0))
{
nTemp2--;
nMatch = dmwand_BuildConversationDialog(nTemp2, nChoice, sConversation, sParams);
}
if(nTemp2 <= 0)
{
//we went back too far for some reason, so make this choice blank
SetLocalString(oMySpeaker, "dmw_dialog" + IntToString(nChoice), "");
SetLocalString(oMySpeaker, "dmw_function" + IntToString(nChoice), "");
SetLocalString(oMySpeaker, "dmw_params" + IntToString(nChoice), "");
}
nLast = nTemp;
nTemp = nTemp1;
nTemp1 = nMatch;
nCurrent = nMatch;
}
if(nMatch > 0)
{
SetLocalString(oMySpeaker, "dmw_dialog1", "<- previous");
SetLocalString(oMySpeaker, "dmw_function1", "conv_" + sConversation);
SetLocalString(oMySpeaker, "dmw_params1", "prev");
SetLocalInt(oMySpeaker, "dmw_dialogprev", nLast);
}
//fill the NPC's dialog spot
//(saved for last because the build process tromps on it)
dmwand_BuildConversationDialog(0, 0, sConversation, sParams);
}
else
{
//fill the NPC's dialog spot
dmwand_BuildConversationDialog(0, 0, sConversation, sParams);
//No parameters specified, start at the top of the conversation
if(sParams == "")
{
nChoice = 1;
nCurrent = 1;
}
//A "next->" choice was selected
if(TestStringAgainstPattern(sParams, "next"))
{
//get the number choice to start with
nCurrent = GetLocalInt(oMySpeaker, "dmw_dialognext");
//set this as the number for the "previous" choice to use
SetLocalInt(oMySpeaker, "dmw_dialogprev", nCurrent);
//Set the first dialog choice to be "previous"
nChoice = 2;
SetLocalString(oMySpeaker, "dmw_dialog1", "<- Previous");
SetLocalString(oMySpeaker, "dmw_function1", "conv_" + sConversation);
SetLocalString(oMySpeaker, "dmw_params1", "prev");
}
//Loop through to build the dialog list
for(;nChoice <= 10; nChoice++)
{
nMatch = dmwand_BuildConversationDialog(nCurrent, nChoice, sConversation, sParams);
//nLast will be the value of the choice before the last one
nLast = nTemp;
nTemp = nMatch;
if(nMatch > 0) { nCurrent = nMatch; }
if(nMatch == 0) { nLast = 0; }
nCurrent++;
}
//If there were enough choices to fill 10 spots, make spot 9 a "next"
if(nLast > 0)
{
SetLocalString(oMySpeaker, "dmw_dialog9", "Next ->");
SetLocalString(oMySpeaker, "dmw_function9", "conv_" + sConversation);
SetLocalString(oMySpeaker, "dmw_params9", "next");
SetLocalInt(oMySpeaker, "dmw_dialognext", nLast);
}
}
}
int dmw_conv_ListPlayers(int nCurrent, int nChoice, string sParams = "")
{
string sText = "";
string sCall = "";
string sCallParams = "";
object oPlayer;
int nCache;
if((! TestStringAgainstPattern(sParams, "next")) && (! TestStringAgainstPattern(sParams, "prev")))
{
//This is the first time running this function, so cache the objects
// of all players... we don't want our list swapping itself around every
// time you change a page
SetLocalString(oMySpeaker, "dmw_playerfunc", sParams);
int nCount = 1;
oPlayer = GetFirstPC();
while(GetIsObjectValid(oPlayer))
{
SetLocalObject(oMySpeaker, "dmw_playercache" + IntToString(nCount), oPlayer);
oPlayer = GetNextPC();
nCount++;
}
nCount--;
SetLocalInt(oMySpeaker, "dmw_playercache", nCount);
}
string sFunc = GetLocalString(oMySpeaker, "dmw_playerfunc");
nCache = GetLocalInt(oMySpeaker, "dmw_playercache");
switch(nCurrent)
{
case 0:
nCurrent = 0;
sText = "Who would you like to work on?";
sCall = "";
sCallParams = "";
break;
default:
//Find the next player in the cache who is valid
oPlayer = GetLocalObject(oMySpeaker, "dmw_playercache" + IntToString(nCurrent));
while((! GetIsObjectValid(oPlayer)) && (nCurrent <= nCache))
{
nCurrent++;
oPlayer = GetLocalObject(oMySpeaker, "dmw_playercache" + IntToString(nCurrent));
}
if(nCurrent > nCache)
{
//We've run out of cache, any other spots in this list should be
//skipped
nCurrent = 0;
sText = "";
sCall = "";
sCallParams = "";
}
else
{
//We found a player, set up the list entry
sText = GetName(oPlayer) + " (" + GetPCPlayerName(oPlayer) + ")";
sCall = sFunc;
sCallParams = IntToString(nCurrent);
}
break;
}
SetLocalString(oMySpeaker, "dmw_dialog" + IntToString(nChoice), sText);
SetLocalString(oMySpeaker, "dmw_function" + IntToString(nChoice), sCall);
SetLocalString(oMySpeaker, "dmw_params" + IntToString(nChoice), sCallParams);
return nCurrent;
}
void dmwand_DoDialogChoice(int nChoice)
{
string sCallFunction = GetLocalString(oMySpeaker, "dmw_function" + IntToString(nChoice));
string sCallParams = GetLocalString(oMySpeaker, "dmw_params" + IntToString(nChoice));
string sNav = "";
string sStart = GetStringLeft(sCallFunction, 5);
int nLen = GetStringLength(sCallFunction) - 5;
string sCall = GetSubString(sCallFunction, 5, nLen);
if(TestStringAgainstPattern("conv_", sStart))
{
dmwand_BuildConversation(sCall, sCallParams);
}
else
{
if(TestStringAgainstPattern("PlayerListConv", sCall))
{
dmwand_PlayerListConv(sCallParams);
return;
}
if(TestStringAgainstPattern("Toad", sCall))
{
DMFI_toad(oMyTarget, oMySpeaker);
return;
}
if(TestStringAgainstPattern("Untoad", sCall))
{
DMFI_untoad(oMyTarget, oMySpeaker);
return;
}
if(TestStringAgainstPattern("KickPC", sCall))
{
dmwand_KickPC(oMyTarget, oMySpeaker);
return;
}
if(TestStringAgainstPattern("JumpPlayerHere", sCall))
{
dmwand_JumpPlayerHere();
return;
}
if(TestStringAgainstPattern("JumpToPlayer", sCall))
{
dmwand_JumpToPlayer();
return;
}
if(TestStringAgainstPattern("JumpPartyHere", sCall))
{
dmwand_JumpPartyHere();
return;
}
}
}

582
_content/_hak/rune_prc8_top/j_inc_basic.nss Normal file
View File

@ -0,0 +1,582 @@
/************************ [Include - Basic AI] *********************************
Filename: J_INC_BASIC
************************* [Include - Basic AI] *********************************
A few functions - mostly for animations and AI files.
This is included in:
- All Basic AI files
- Any custom AI files in the packages you import.
- Includes a few fighting things that help in combat (like Healing functions)
************************* [Workings] *******************************************
A few settings for animations, as well as some AI combat functions to help
make custom combat easier.
************************* [Include - Basic AI] ********************************/
// Special: Bioware SoU Waypoints/Animations constants
// - Here so I know where they are :-P
const string sAnimCondVarname = "NW_ANIM_CONDITION";
// This is the name of the local variable that holds the spawn-in conditions
string sSpawnCondVarname = "NW_GENERIC_MASTER";
// AI for waypoints
const string FILE_WALK_WAYPOINTS = "j_ai_walkwaypoin";
const string WAYPOINT_RUN = "WAYPOINT_RUN";
const string WAYPOINT_PAUSE = "WAYPOINT_PAUSE";
// Bioware constants.
const int NW_FLAG_STEALTH = 0x00000004;
const int NW_FLAG_SEARCH = 0x00000008;
const int NW_FLAG_AMBIENT_ANIMATIONS = 0x00080000;
const int NW_FLAG_IMMOBILE_AMBIENT_ANIMATIONS = 0x00200000;
const int NW_FLAG_DAY_NIGHT_POSTING = 0x00400000;
const int NW_FLAG_AMBIENT_ANIMATIONS_AVIAN = 0x00800000;
// Mark that the given creature has the given condition set for anitmations
// * Bioware SoU animations thing.
void SetAnimationCondition(int nCondition, int bValid = TRUE, object oCreature = OBJECT_SELF);
// Sets the specified spawn-in condition on the caller as directed.
// * Only used for animations
void SetSpawnInCondition(int nCondition, int bValid = TRUE);
// Base for moving round thier waypoints
// - Uses ExectuteScript to run the waypoint walking.
void SpawnWalkWayPoints(int nRun = FALSE, float fPause = 1.0);
// Sets the custom AI file to sString to use.
// - "AI_TEMP_SET_TARGET" is set to anything passed to this script.
void SetAIFileName(string sString);
// Gets the custom AI file set to us.
string GetAIFileName();
// Determines a combat round.
void DetermineCombatRound(object oTarget = OBJECT_INVALID);
// Returns any pre-set target object
object Combat_GetAITargetObject();
// Sets the pre-set target object to attack
void SetAITargetObject(object oTarget);
// Gets the nearest seen or heard enemy.
// * bSeenOnly - If set to TRUE, it will only return a valid seen enemy (if any!)
object Combat_GetNearestSeenOrHeardEnemy(int bSeenOnly = FALSE);
// Gets if the object is valid, and we can see, or hear it.
// * bSeenOnly - If set to TRUE, it must be seen.
// TRUE if oTarget is valid.
int Combat_GetTargetValid(object oTarget, int bSeenOnly = FALSE);
// This will call a random voicechat to be called, if iPercent is met.
void Combat_Taunt(int iPercent = 10);
// This will heal oTarget with the best spell possible.
// - Like the Bioware function.
// - Will force healing if bForce is TRUE, ELSE, it will only heal at 50% HP.
// - TRUE if it heals oTarget
int Combat_HealTarget(object oTarget, int bForce = FALSE);
// This will loop all seen allies. If any of them need healing, it will heal
// them and return TRUE.
// - Uses Combat_HealTarget to check if they need healing.
int Combat_HealAllies();
// Only for use in "Combat_TurnUndead", it checks if there are any non-turned
// undead within 10M, of iRace.
int Combat_TurningAnyOfRaceValid(int iRace);
// This will check if we can turn undead, and check if there are anythings we can
// turn, and turn if so. Uses mainly Bioware stuff.
int Combat_TurnUndead();
// This attempt to use the best potions the creature has.
// * Will return FALSE if they use none, or they already have the effects
// * Uses any Potection First (EG: stoneskin), then Benificial (EG: Bulls strength)
// then Enhancement (EG: Invisibility)
int Combat_UseAnyPotions();
// Attack oTarget with a melee weapon, and melee feats if we can hit them.
// - VERY basic!
void Combat_AttackMelee(object oTarget);
// Attack oTarget with a ranged weapon (if we have any), and ranged feats if we can hit them.
// - VERY basic!
void Combat_AttackRanged(object oTarget);
// This will check if the caller has nSpell, and casts it at oObject if so.
// - Will not cast if oTarget has the effect of nSpell.
// - Returns TRUE if they cast nSpell.
int Combat_CastAtObject(int nSpell, object oTarget);
// This will check if the caller has nSpell, and casts it at oObject's location if so.
// - Will not cast if oTarget has the effect of nSpell.
// - Returns TRUE if they cast nSpell.
int Combat_CastAtLocation(int nSpell, object oTarget);
// Checks if tUse is TRUE, and uses it against oTarget if not got the effects.
int Combat_TalentAtObject(talent tUse, object oTarget);
// Cheat-Casts nSpell, if under iPercent.
// * Doesn't cast if iPercent fails, or oTarget has nSpell's effects.
// Use this to make sure a caster doesn't run out of spells.
int Combat_CheatRandomSpellAtObject(int nSpell, object oTarget, int iPercent);
// This will loop oTarget's effects, and return TRUE if any are equal to
// iEffect, which is a constant EFFECT_TYPE_*
int Combat_GetHasEffect(int iEffect, object oTarget = OBJECT_SELF);
// This will walk the waypoints of the creature (re-activate them)
// Use this if the creature is not in combat/not attacking/no target to attack/
void Combat_WalkWaypoints();
// Functions start.
// Sets the specified spawn-in condition on the caller as directed.
void SetSpawnInCondition(int nCondition, int bValid = TRUE)
{
int nSpawnInConditions = GetLocalInt(OBJECT_SELF, sSpawnCondVarname);
if(bValid == TRUE)
{
// Add the given spawn-in condition
nSpawnInConditions = nSpawnInConditions | nCondition;
SetLocalInt(OBJECT_SELF, sSpawnCondVarname, nSpawnInConditions);
}
else if (bValid == FALSE)
{
// Remove the given spawn-in condition
nSpawnInConditions = nSpawnInConditions & ~nCondition;
SetLocalInt(OBJECT_SELF, sSpawnCondVarname, nSpawnInConditions);
}
}
// Mark that the given creature has the given condition set
// * Bioware SoU animations thing.
void SetAnimationCondition(int nCondition, int bValid = TRUE, object oCreature = OBJECT_SELF)
{
int nCurrentCond = GetLocalInt(oCreature, sAnimCondVarname);
if (bValid) {
SetLocalInt(oCreature, sAnimCondVarname, nCurrentCond | nCondition);
} else {
SetLocalInt(oCreature, sAnimCondVarname, nCurrentCond & ~nCondition);
}
}
// Base for moving round thier waypoints
// - Uses ExectuteScript to run the waypoint walking.
void SpawnWalkWayPoints(int nRun = FALSE, float fPause = 1.0)
{
SetLocalInt(OBJECT_SELF, WAYPOINT_RUN, nRun);
SetLocalFloat(OBJECT_SELF, WAYPOINT_PAUSE, fPause);
ExecuteScript(FILE_WALK_WAYPOINTS, OBJECT_SELF);
}
// Sets the custom AI file to sString to use.
// - "AI_TEMP_TARGET_OBJECT" is set to anything passed to this script.
void SetAIFileName(string sString)
{
SetLocalString(OBJECT_SELF, "AI_FILENAME", sString);
}
// Gets the custom AI file set to us.
string GetAIFileName()
{
return GetLocalString(OBJECT_SELF, "AI_FILENAME");
}
// Determines a combat round.
void DetermineCombatRound(object oTarget = OBJECT_INVALID)
{
// Set local object
SetAITargetObject(oTarget);
// Execute the AI file set.
ExecuteScript(GetAIFileName(), OBJECT_SELF);
}
// Returns any pre-set target object
object Combat_GetAITargetObject()
{
return GetLocalObject(OBJECT_SELF, "AI_TEMP_SET_TARGET");
}
// Sets the pre-set target object to attack
void SetAITargetObject(object oTarget)
{
SetLocalObject(OBJECT_SELF, "AI_TEMP_SET_TARGET", oTarget);
}
// Gets the nearest seen or heard enemy.
object Combat_GetNearestSeenOrHeardEnemy(int bSeenOnly = FALSE)
{
object oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, 1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oTarget) && bSeenOnly == FALSE)
{
oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, 1, CREATURE_TYPE_PERCEPTION, PERCEPTION_HEARD, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oTarget))
{
return OBJECT_INVALID;
}
}
return oTarget;
}
// Gets if the object is valid, and we can see, or hear it.
// * bSeenOnly - If set to TRUE, it must be seen.
// TRUE if oTarget is valid.
int Combat_GetTargetValid(object oTarget, int bSeenOnly = FALSE)
{
// Check if valid
if(!GetIsObjectValid(oTarget)) return FALSE;
// Check if seen
if(!GetObjectSeen(oTarget) && bSeenOnly == TRUE) return FALSE;
// Check if heard
if(!GetObjectHeard(oTarget)) return FALSE;
// Valid == TRUE
return TRUE;
}
// This will call a random voicechat to be called, if iPercent is met.
void Combat_Taunt(int iPercent = 10)
{
if(d100() <= iPercent)
{
int iVoice = VOICE_CHAT_BATTLECRY1;
switch(d6())
{
case 1: iVoice = VOICE_CHAT_ATTACK; break;
case 2: iVoice = VOICE_CHAT_BATTLECRY1; break;
case 3: iVoice = VOICE_CHAT_BATTLECRY2; break;
case 4: iVoice = VOICE_CHAT_BATTLECRY3; break;
case 5: iVoice = VOICE_CHAT_LAUGH; break;
case 6: iVoice = VOICE_CHAT_TAUNT; break;
}
PlayVoiceChat(iVoice);
}
}
// This will heal oTarget with the best spell possible.
// - Like the Bioware function.
// - Will force healing if bForce is TRUE, ELSE, it will only heal at 50% HP.
// - TRUE if it heals oTarget
int Combat_HealTarget(object oTarget, int bForce = FALSE)
{
// Taken from Bioware AI and modified.
talent tUse;
int nCurrent = GetCurrentHitPoints(OBJECT_SELF) * 2;
int nBase = GetMaxHitPoints(OBJECT_SELF);
// Check HP.
if( (nCurrent < nBase) || (bForce == TRUE) )
{
if(oTarget == OBJECT_SELF)
{
tUse = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_HEALING_POTION, 20);
if(Combat_TalentAtObject(tUse, oTarget))
{
return TRUE;
}
}
tUse = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_HEALING_TOUCH, 20);
if(Combat_TalentAtObject(tUse, oTarget))
{
return TRUE;
}
else
{
tUse = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_HEALING_AREAEFFECT, 20);
if(Combat_TalentAtObject(tUse, oTarget))
{
return TRUE;
}
}
}
return FALSE;
}
// This will loop all seen allies. If any of them need healing, it will heal
// them and return TRUE.
// - Uses Combat_HealTarget to check if they need healing.
int Combat_HealAllies()
{
int iCnt = 1;
// Loop seen allies who are not dead
object oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, OBJECT_SELF, iCnt, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_IS_ALIVE, TRUE);
while(GetIsObjectValid(oAlly))
{
if(Combat_HealTarget(oAlly))
{
// Stop - healed someone
return TRUE;
}
iCnt++;
oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, OBJECT_SELF, iCnt, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_IS_ALIVE, TRUE);
}
return FALSE;
}
// Only for use in "Combat_TurnUndead", it checks if there are any non-turned
// undead within 10M, of iRace.
int Combat_TurningAnyOfRaceValid(int iRace)
{
int nCnt = 1;
int nCount = 0;
object oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, 1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_RACIAL_TYPE, iRace);
while(GetIsObjectValid(oTarget) && GetDistanceToObject(oTarget) <= 10.0)
{
if(!Combat_GetHasEffect(EFFECT_TYPE_TURNED, oTarget) && !GetIsDead(oTarget))
{
return TRUE;
}
nCnt++;
oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, 1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_RACIAL_TYPE, iRace);
}
return FALSE;
}
// This will check if we can turn undead, and check if there are anythings we can
// turn, and turn if so. Uses mainly Bioware stuff.
int Combat_TurnUndead()
{
if(GetHasFeat(FEAT_TURN_UNDEAD))
{
object oUndead = Combat_GetNearestSeenOrHeardEnemy();
if(Combat_GetHasEffect(EFFECT_TYPE_TURNED, oUndead) ||
GetHitDice(OBJECT_SELF) <= GetHitDice(oUndead))
{
return FALSE;
}
int nCount;
int nElemental = GetHasFeat(FEAT_AIR_DOMAIN_POWER)
+ GetHasFeat(FEAT_EARTH_DOMAIN_POWER)
+ GetHasFeat(FEAT_FIRE_DOMAIN_POWER)
+ GetHasFeat(FEAT_FIRE_DOMAIN_POWER);
int nVermin = GetHasFeat(FEAT_PLANT_DOMAIN_POWER)
+ GetHasFeat(FEAT_ANIMAL_COMPANION);
int nConstructs = GetHasFeat(FEAT_DESTRUCTION_DOMAIN_POWER);
int nOutsider = GetHasFeat(FEAT_GOOD_DOMAIN_POWER)
+ GetHasFeat(FEAT_EVIL_DOMAIN_POWER)
+ GetHasFeat(854); // planar turning
if(nElemental == TRUE)
nCount += Combat_TurningAnyOfRaceValid(RACIAL_TYPE_ELEMENTAL);
if(nVermin == TRUE)
nCount += Combat_TurningAnyOfRaceValid(RACIAL_TYPE_VERMIN);
if(nOutsider == TRUE)
nCount += Combat_TurningAnyOfRaceValid(RACIAL_TYPE_OUTSIDER);
if(nConstructs == TRUE)
nCount += Combat_TurningAnyOfRaceValid(RACIAL_TYPE_CONSTRUCT);
nCount += Combat_TurningAnyOfRaceValid(RACIAL_TYPE_UNDEAD);
if(nCount > 0)
{
ClearAllActions();
ActionUseFeat(FEAT_TURN_UNDEAD, OBJECT_SELF);
return TRUE;
}
}
return FALSE;
}
// This attempt to use the best potions the creature has.
// * Will return FALSE if they use none, or they already have the effects
// * Uses any Potection First (EG: stoneskin), then Enhancement (EG: Bulls strength)
// then Conditional (EG: Clarity)
int Combat_UseAnyPotions()
{
talent tPotion = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_PROTECTION_POTION, 20);
// Get if valid, and not got the effects
if(Combat_TalentAtObject(tPotion, OBJECT_SELF))
{
return TRUE;
}
// Else get the next one, Enhancement
tPotion = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_ENHANCEMENT_POTION, 20);
// Get if valid, and not got the effects
if(Combat_TalentAtObject(tPotion, OBJECT_SELF))
{
return TRUE;
}
// Else get the next one, Conditional
tPotion = GetCreatureTalentBest(TALENT_CATEGORY_BENEFICIAL_CONDITIONAL_POTION, 20);
// Get if valid, and not got the effects
if(Combat_TalentAtObject(tPotion, OBJECT_SELF))
{
return TRUE;
}
// No potion used/no potion not got effect of.
return FALSE;
}
// Attack oTarget with a melee weapon, and melee feats if we can hit them.
// - VERY basic!
void Combat_AttackMelee(object oTarget)
{
// Equip best
ClearAllActions();
ActionEquipMostDamagingMelee(oTarget);
// Attack with feat if we can hit them
int iRandom = 5 + d10();
if(GetBaseAttackBonus(OBJECT_SELF) + iRandom >= GetAC(oTarget))
{
// Getting the melee talent category for melee feats is useful in a short
// AI script. Not useful in a longer one.
// - We can get feats Knockdown (Improved), Disarm (Improved), Sap,
// Stunning fist, Expertise (Improved), Flurry of Blows, Called Shot,
// and Power Attack (Improved) from this talent
talent tMelee = GetCreatureTalentRandom(TALENT_CATEGORY_HARMFUL_MELEE);
// Can't use ranged feats - and make sure the feat is valid
if(GetIsTalentValid(tMelee) &&
GetTypeFromTalent(tMelee) == TALENT_TYPE_FEAT)
{
int iTalentID = GetIdFromTalent(tMelee);
if(iTalentID == FEAT_RAPID_SHOT)
{
// Can't use ranged feats in melee, so just normal attack
ActionAttack(oTarget);
}
else
{
// Else, use the feat, and attack
ActionUseTalentOnObject(tMelee, oTarget);
}
}
}
else
{
ActionAttack(oTarget);
}
}
// Attack oTarget with a ranged weapon (if we have any), and ranged feats if we can hit them.
// - VERY basic!
void Combat_AttackRanged(object oTarget)
{
// Equip best
ClearAllActions();
ActionEquipMostDamagingRanged(oTarget);
// Check if we did equip a ranged
if(!GetWeaponRanged(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND)))
{
ActionAttack(oTarget);
return;
}
// Attack with feat if we can hit them
int iRandom = 5 + d10();
if(GetBaseAttackBonus(OBJECT_SELF) >= GetAC(oTarget) - iRandom)
{
// Feats for Range
if(GetHasFeat(FEAT_RAPID_SHOT))
{
ActionUseFeat(FEAT_RAPID_SHOT, oTarget);
return;
}
else if(GetHasFeat(FEAT_CALLED_SHOT))
{
ActionUseFeat(FEAT_CALLED_SHOT, oTarget);
return;
}
else
{
ActionAttack(oTarget);
}
}
else
{
ActionAttack(oTarget);
}
}
// This will check if the caller has nSpell, and casts it at oObject if so.
int Combat_CastAtObject(int nSpell, object oTarget)
{
if(GetHasSpell(nSpell) && !GetHasSpellEffect(nSpell, oTarget))
{
ClearAllActions();
ActionCastSpellAtObject(nSpell, oTarget);
return TRUE;
}
return FALSE;
}
// This will check if the caller has nSpell, and casts it at oObject's location if so.
int Combat_CastAtLocation(int nSpell, object oTarget)
{
if(GetHasSpell(nSpell) && !GetHasSpellEffect(nSpell, oTarget))
{
ClearAllActions();
ActionCastSpellAtLocation(nSpell, GetLocation(oTarget));
return TRUE;
}
return FALSE;
}
// Checks if tUse is TRUE, and uses it against oTarget if not got the effects.
int Combat_TalentAtObject(talent tUse, object oTarget)
{
if(GetIsTalentValid(tUse))
{
int iType = GetTypeFromTalent(tUse);
int iID = GetIdFromTalent(tUse);
// If it is a feat, check if they have the effect.
if(iType == TALENT_TYPE_FEAT && GetHasFeatEffect(iID, oTarget))
{
return FALSE;
}
// If a spell, check if got the spell effect
else if(iType == TALENT_TYPE_SPELL && GetHasSpellEffect(iID, oTarget))
{
return FALSE;
}
// Use it.
ClearAllActions();
ActionUseTalentOnObject(tUse, oTarget);
return TRUE;
}
return FALSE;
}
// Cheat-Casts nSpell, if under iPercent.
// * Doesn't cast if iPercent fails, or oTarget has nSpell's effects.
// Use this to make sure a caster doesn't run out of spells.
int Combat_CheatRandomSpellAtObject(int nSpell, object oTarget, int iPercent)
{
// Check %
if(d100() <= iPercent && !GetHasSpellEffect(nSpell, oTarget))
{
// Cheat cast it at oTarget
ClearAllActions();
ActionCastSpellAtObject(nSpell, oTarget, METAMAGIC_ANY, TRUE);
return TRUE;
}
return FALSE;
}
// This will loop oTarget's effects, and return TRUE if any are equal to
// iEffect, which is a constant EFFECT_TYPE_*
int Combat_GetHasEffect(int iEffect, object oTarget = OBJECT_SELF)
{
effect eCheck = GetFirstEffect(oTarget);
while(GetIsEffectValid(eCheck))
{
if(GetEffectType(eCheck) == iEffect)
{
return TRUE;
}
eCheck = GetNextEffect(oTarget);
}
return FALSE;
}
// This will walk the waypoints of the creature (re-activate them)
// Use this if the creature is not in combat/not attacking/no target to attack/
void Combat_WalkWaypoints()
{
ExecuteScript(FILE_WALK_WAYPOINTS, OBJECT_SELF);
}

2189
_content/_hak/rune_prc8_top/j_inc_constants.nss Normal file
View File

File diff suppressed because it is too large Load Diff

188
_content/_hak/rune_prc8_top/j_inc_debug.nss Normal file
View File

@ -0,0 +1,188 @@
/************************ [Debug] **********************************************
Filename: J_Inc_Debug
************************* [Debug] **********************************************
This contains DebugActionSpeak, the debug function.
Makes it easier to uncomment debug lines.
************************* [History] ********************************************
1.3 - Added
************************* [Workings] *******************************************
DebugActionSpeak normally writes a timestamped log entry, and speak a silent
string Server Admins can hear.
To Do: Might make it more generic debug lines, where you can uncomment all
"XX" lines HERE, not in the files, so it compiles without them, and only
need an integer to speak one.
1.3 added:
- DebugActionSpeakByInt(int iInteger);
- Removes many strings into this file
- Can easily comment out all string so they are not added to compiled
scripts if debugging unused (This saves space on compiled files :-D )
- Always uncomment the right bits if not using any debugging.
************************* [Arguments] ******************************************
Arguments: N/A
************************* [Debug] *********************************************/
// This will speak a cirtain integer number string (similar to a dialog reference).
// - I (Jass) have just moved all strings I used all the time into here, so
// if the strings are uncommented, they will not be compiled
// - The numbers have no reference to much really.
// - Calls DebugActionSpeak!
// - See J_INC_DEBUG to uncomment/recomment in
void DebugActionSpeakByInt(int iInteger, object oInput = OBJECT_INVALID, int iInput = FALSE, string sInput = "");
// Speaks and stamps a debug string.
// - See J_INC_DEBUG to uncomment/recomment the debug strings.
// - Only used in special circumstances.
void DebugActionSpeak(string sString);
// This will speak a cirtain integer number string (similar to a dialog reference).
// - I (Jass) have just moved all strings I used all the time into here, so
// if the strings are uncommented, they will not be compiled
// - The numbers have no reference to much really.
// - Calls DebugActionSpeak!
// - See J_INC_DEBUG to uncomment/recomment in
void DebugActionSpeakByInt(int iInteger, object oInput = OBJECT_INVALID, int iInput = FALSE, string sInput = "")
{
// TO UNCOMMENT/COMMENT:
// - Add/Remove in "//" before the next lines "/*"
// - Recompile all files
/*
string sDebug;
switch(iInteger)
{
// - Generic AI stuff
case 1: sDebug = "[DCR:Melee] Most Damaging Weapon. Target: " + GetName(oInput); break;
case 2: sDebug = "[DCR:Melee] Most Damaging as Not Effective"; break;
case 3: sDebug = "[DCR:Melee] Melee Code. No valid melee target/Dead. Exiting"; break;
case 4: sDebug = "[DCR:Melee] Melee attack. [Target] " + GetName(oInput) + " [Feat/Attack] " + IntToString(iInput); break;
case 5: sDebug = "[DCR:Caster] Defensive Casting Mode ON [Enemy] " + GetName(oInput); break;
case 6: sDebug = "[DCR:Caster] Moving away from AOO's. [Enemy] " + GetName(oInput); break;
case 7: sDebug = "[DCR:Casting] Talent(item) [TalentID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 8: sDebug = "[DCR:Casting] Workaround for Spontaeous [SpellID] " + IntToString(iInput) + " [Target] " + GetName(oInput); break;
case 9: sDebug = "[DCR:Casting] NormalSpell [ID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 10: sDebug = "[DCR:Casting] TalentSpell. [ID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 11: sDebug = "[DCR:Casting] SubSpecialSpell. [ID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 12: sDebug = "[DCR:Casting] NormalRandomSpell. [ID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 13: sDebug = "[DCR:Casting] Backup spell caught: " + IntToString(iInput); break;
case 14: sDebug = "[DCR:Feat] [ID] " + IntToString(iInput) + " [Enemy] " + GetName(oInput); break;
case 15: sDebug = "[DCR:Casting] Grenade [ID] " + IntToString(iInput) + " [Target] " + GetName(oInput) + " [Location] " + sInput; break;
case 16: sDebug = "[AOE Call] Moving out of/Dispeling an AOE. [Tag] " + GetTag(oInput); break;
case 17: sDebug = "[DCR:Special] Darkness + Caster. No seen enemy. Dispel/Move."; break;
case 18: sDebug = "[DRC:Talent] Using Talent (Healing). [TalentID] " + IntToString(iInput) + " [Target] " + GetName(oInput); break;
case 19: sDebug = "[DCR:Healing] (Should) Healing [Target]" + GetName(oInput) + " [CurrentHP|Max|ID|Rank|Power] " + IntToString(iInput); break;
case 20: sDebug = "[DCR Healing] Boss Action, create Critical Wounds potion"; break;
case 21: sDebug = "[DCR:Casting] Healing self with healing kit, [Kit] " + GetName(oInput); break;
case 22: sDebug = "[DCR:Feat] Summoning my familiar"; break;
case 23: sDebug = "[DCR:Feat] Summoning my animal companion"; break;
case 24: sDebug = "[DCR:Fleeing] Stupid/Panic/Flee moving from enemies/position - We are a commoner/no morale/failed < 3 int"; break;
case 25: sDebug = "[DCR:Fleeing] Fleeing to allies. [ID Array] " + sInput + " [Ally] " + GetName(oInput); break;
case 26: sDebug = "[DCR:GFTK] Attacking a PC who is dying/asleep! [Enemy]" + GetName(oInput); break;
case 27: sDebug = "[DCR:Moving] Archer Retreating back from the enemy [Enemy]" + GetName(oInput); break;
case 28: sDebug = "[DCR:Turning] Using Turn Undead"; break;
case 29: sDebug = "[DCR:Bard Song] Using"; break;
case 30: sDebug = "[DCR:Bard Curse Song] Using"; break;
case 31: sDebug = "[DCR:All Spells] Error! No casting (No spells, items, target Etc)."; break;
case 32: sDebug = "[DCR:All Spells] [Modifier|BaseDC|SRA] " + IntToString(iInput); break;
case 33: sDebug = "[DCR:Casting] Cheat Spell. End of Spells. [Spell] " + IntToString(iInput) + "[Target]" + GetName(oInput); break;
case 34: sDebug = "[DCR:All Spells] Ranged Spells. Should use closer spells/move nearer"; break;
case 35: sDebug = "[DCR:Dragon] Breath weapon & attacking [Breath ID] " + IntToString(iInput) + " [Target] " + GetName(oInput); break;
case 36: sDebug = "[DCR:Dragon] Wing Buffet [Target] " + GetName(oInput); break;
case 37: sDebug = "[DCR:Beholder] Teleport"; break;
case 38: sDebug = "[DCR:Beholder] Rays"; break;
case 39: sDebug = "[DCR:Targeting] No valid enemies in sight, moving to allies target's. [Target] " + GetName(oInput); break;
case 40: sDebug = "[DCR:Targeting] Override Target Seen. [Name]" + GetName(oInput); break;
case 41: sDebug = "[DCR:Targeting] No seen in LOS, Attempting to MOVE to something [Target]" + GetName(oInput); break;
case 42: sDebug = "[DCR:Skill] Using agressive skill (+Attack). [Skill] " + IntToString(iInput) + " [Enemy]" + GetName(oInput); break;
case 43: sDebug = "[DCR:Pre-Melee Spells] All Potions Using. [Spell ID] " + IntToString(iInput); break;
case 44: sDebug = "[DCR:Pre-Melee Spells] True Strike Emptive attack [Target] " + GetName(oInput); break;
case 45: sDebug = "[DCR:CounterSpell] Counterspelling. [Target] " + GetName(oInput); break;
case 46: sDebug = "[DRC] START [Intruder]" + GetName(oInput); break;
case 47: sDebug = "[DCR] [PREMITURE EXIT] Cannot Do Anything."; break;
case 48: sDebug = "[DCR] [PREMITURE EXIT] Dazed move away."; break;
case 49: sDebug = "[DCR] [PREMITURE EXIT] Fleeing or otherwise"; break;
case 50: sDebug = "[DRC] END - DELETE PAST TARGETS"; break;
// Perception
case 51: sDebug = "[Perception] Our Enemy Target changed areas. Stopping, moving too...and attack... [Percieved] " + GetName(oInput); break;
case 52: sDebug = "[Perception] Enemy Vanished (Same area) Retargeting/Searching [Percieved] " + GetName(oInput); break;
case 53: sDebug = "[Perception] Enemy seen, and was old enemy/cannot see current. Re-evaluating (no spell) [Percieved] " + GetName(oInput); break;
case 54: sDebug = "[Perception] Enemy Seen. Not in combat, attacking. [Percieved] " + GetName(oInput); break;
case 55: sDebug = "[Perception] Percieved Dead Friend! Moving and Searching [Percieved] " + GetName(oInput); break;
case 56: sDebug = "[Perception] Percieved Alive Fighting Friend! Moving to and attacking. [Percieved] " + GetName(oInput); break;
// Conversation
case 57: sDebug = "[Shout] Friend (may be PC) in combat. Attacking! [Friend] " + GetName(oInput); break;
case 58: sDebug = "[Shout] Responding to shout [Enemy] " + GetName(oInput) + " Who has spoken!"; break;
// Phisical Attacked
case 59: sDebug = "[Phisically Attacked] Attacking back. [Attacker(enemy)] " + GetName(oInput); break;
case 60: sDebug = "[Phisically Attacked] Not same area. [Attacker(enemy)] " + GetName(oInput); break;
// Damaged
case 61: sDebug = "[Damaged] Morale Penalty for 600 seconds [Penalty]" + IntToString(iInput); break;
case 62: sDebug = "[Damaged] Not in combat: DCR [Damager]" + GetName(oInput); break;
case 63: sDebug = "[Damaged] Not in combat: DCR. Ally hit us. [Damager(Ally?)]" + GetName(oInput); break;
// Death
case 64: sDebug = "[Death] Checking corpse status in " + IntToString(iInput) + " [Killer] " + GetName(oInput) + " [Times Died Now] " + sInput; break;
// Disturbed
case 65: sDebug = "[Disturbed] (pickpocket) Attacking Enemy [Disturber] " + GetName(oInput) + " [Type] " + IntToString(iInput); break;
// Rest
case 66: sDebug = "[Rested] Resting. [Type(should be invalid)] " + IntToString(iInput); break;
// Spell Cast at
case 67: sDebug = "[Spell] Caster isn't a creature! May look for target [Caster] " + GetName(oInput); break;
case 68: sDebug = "[Spell:Enemy/Hostile] Not in combat. Attacking: [Caster] " + GetName(oInput); break;
case 69: sDebug = "[Spell] (ally). Not in combat. May Attack/Move [Caster] " + GetName(oInput); break;
// Spell Other AI
// - Shouts
case 70: sDebug = "[Shout] Reacting To Shout. [ShoutNo.] " + IntToString(iInput) + " [Shouter] " + GetName(oInput); break;
// Constants
// - Search
case 71: sDebug = "[Search] Resting"; break;
case 72: sDebug = "[Search] Searching, No one to attack. [Time] " + sInput; break;
// - DCR
case 73: sDebug = "[Call for DCR] Default AI [Pre-Set Target]" + GetName(oInput); break;
case 74: sDebug = "[Call for DCR] Custom AI [" + sInput + "] [Pre-Set Target]" + GetName(oInput); break;
// Destroy self
case 75: sDebug = "[Dead] Setting to selectable/destroyable (so we go) for Bioware corpses."; break;
case 76: sDebug = "[Dead] Destroying self finally."; break;
// Waypoints
case 77: sDebug = "[Waypoints] Returning to spawn location. [Area] " + GetName(oInput); break;
default: return; break;
}
if(sDebug != "")
{
DebugActionSpeak(sDebug);
}
// */
}
void DebugActionSpeak(string sString)
{
// You MUST uncomment this line, IF you use either of the below things
//string sNew = "[Debug]" + GetName(OBJECT_SELF) + "[ObjectID]" + ObjectToString(OBJECT_SELF) + " [Debug] " + sString;
// Note, uncomment this, so that DM's can hear the debug speaks, normally it is
// only server admins who can hear the debug. If you are not testing, it might
// be best to keep this uncommented.
// Futher: - Must have debug mode set to 1
// - Only the server admin can seem to see this.
//SpeakString(sNew, TALKVOLUME_SILENT_TALK);
// Note, uncomment this line to send a message to the first PC in the module.
// - Useful for singleplayer testing
//SendMessageToPC(GetFirstPC(), sNew);
// This writes the entry to the log, very important, if debugging
// Futher: - If left up for a long time, logs can get very big with the AI
// - Use to find problems in the AI and report to me :-D (Jasperre)
//WriteTimestampedLogEntry(sNew);
}
// Debug: To compile this script full, uncomment all of the below.
/*
void main()
{
DebugActionSpeak("Test");
}
*/

14964
_content/_hak/rune_prc8_top/j_inc_generic_ai.nss Normal file
View File

File diff suppressed because it is too large Load Diff

277
_content/_hak/rune_prc8_top/j_inc_heartbeat.nss Normal file
View File

@ -0,0 +1,277 @@
/************************ [Heartbeat Include] **********************************
Filename: J_Inc_Heartbeat
************************* [Heartbeat Include] **********************************
This contains any heartbeat function calls.
Note that the heartbeat uses ExecuteScript for larget behaviours that are
better split up so the heartbeat is as tiny as possible.
************************* [History] ********************************************
1.3 After Beta - Added
************************* [Workings] *******************************************
This is included in nw_c2_default1 and j_ai_onheartbeat.
Contains things like in j_inc_other_ai
************************* [Arguments] ******************************************
Arguments: N/A
************************* [Heartbeat Include] *********************************/
#include "J_INC_CONSTANTS"
// Bioware walk waypoints condition name
const string sWalkwayVarname = "NW_WALK_CONDITION";
// Walk waypoint constant set in the SoU waypoint include
const int NW_WALK_FLAG_CONSTANT = 0x00000002;
// Checks:
// * Dead
// * Uncommandable
// * No valid location
// * Petrified, paralised, ETC.
// Note: If sleep is found, it may apply Zzzz randomly, as well as stopping.
int JumpOutOfHeartBeat();
// This checks fleeing, door bashing and so on, to stop the heartbeat
// and perform the override special action, rather then run normal behaviour.
int PerformSpecialAction();
// Get whether the condition is set
// * Bioware SoU Waypoint call.
int GetWalkCondition(int nCondition, object oCreature=OBJECT_SELF);
// Cast fleeing spells.
// - Invisiblity (best)
// - Haste/Expeditious Retreat
void ActionCastFleeingSpells();
// Attempt to cast iSpell. TRUE if true.
int FleeingSpellCast(int iSpell);
int JumpOutOfHeartBeat()
{
// What to return
int iReturn = FALSE;
// Checks:
// * Dead + Uncommandable are in GetAIOff
// * No valid location
// * Petrified, paralised, ETC.
// Note: If sleep is found, it may apply Zzzz randomly, as well as stopping.
// Effect checking
effect eCheck = GetFirstEffect(OBJECT_SELF);
int iEffectType;
while(GetIsEffectValid(eCheck) && iReturn == FALSE)
{
iEffectType = GetEffectType(eCheck);
// Sleep is special
if(iEffectType == EFFECT_TYPE_SLEEP)
{
iReturn = i2;// This immediantly breaks.
}
// ALL these stop heartbeat.
else if(iEffectType == EFFECT_TYPE_PARALYZE || iEffectType == EFFECT_TYPE_STUNNED ||
iEffectType == EFFECT_TYPE_FRIGHTENED || /* Removed sleep above */
iEffectType == EFFECT_TYPE_TURNED || iEffectType == EFFECT_TYPE_PETRIFY ||
iEffectType == EFFECT_TYPE_DAZED || iEffectType == EFFECT_TYPE_TIMESTOP ||
iEffectType == EFFECT_TYPE_DISAPPEARAPPEAR || iEffectType == EFFECT_TYPE_CHARMED ||
iEffectType == EFFECT_TYPE_DOMINATED || iEffectType == EFFECT_TYPE_CONFUSED)
{
iReturn = i1;// 1 = No Zzz. We continue to check for Zzz as well.
}
eCheck = GetNextEffect(OBJECT_SELF);
}
// Do we fire the heartbeat event?
if(iReturn != FALSE)
{
// If it is sleep... Zzzzz sometimes.
if(iReturn == i2 && d6() == i1)
{
ApplyEffectToObject(DURATION_TYPE_INSTANT,
EffectVisualEffect(VFX_IMP_SLEEP),
OBJECT_SELF);
}
FireUserEvent(
AI_FLAG_UDE_HEARTBEAT_EVENT,
EVENT_HEARTBEAT_EVENT);// Fire event 1001
}
return iReturn;
}
// This checks fleeing, door bashing and so on, to stop the heartbeat
// and perform the override special action, rather then run normal behaviour.
int PerformSpecialAction()
{
int iAction = GetCurrentSetAction();
object oTarget = GetAttackTarget();
object oRunTarget;
switch(iAction)
{
// - Leader has made me a runner. I must run to a nearby group calling
// for help to get more men
case AI_SPECIAL_ACTIONS_ME_RUNNER:
{
oRunTarget = GetAIObject(AI_RUNNER_TARGET);
if(GetIsObjectValid(oRunTarget))
{
if(GetObjectSeen(oRunTarget))
{
// Stop thinking we are a runner if we can see the run target
ResetCurrentAction();
AISpeakString(HELP_MY_FRIEND);
return FALSE;
}
else
{
// Else run to them
if(GetObjectHeard(oRunTarget))
{
AISpeakString(HELP_MY_FRIEND);
}
ClearAllActions();
ActionMoveToObject(oRunTarget, TRUE);
return TRUE;
}
}
}
break;
// - I am fleeing.
case AI_SPECIAL_ACTIONS_FLEE:
{
oRunTarget = GetAIObject(AI_FLEE_TO);
if(GetIsObjectValid(oRunTarget))
{
// If they are a leader, and seen, and they are running, we
// obviously follow only.
if(GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_GROUP_LEADER, AI_OTHER_COMBAT_MASTER, oRunTarget) ||
GetLocalInt(oRunTarget, AI_CURRENT_ACTION) == AI_SPECIAL_ACTIONS_FLEE)
{
ClearAllActions();
// New - cast fleeing spells. Important (and only used
// at higher intelligence) things like Expeditious retreat.
// - Only used once - one invisibility or haste. Deleted above.
ActionCastFleeingSpells();
ActionForceFollowObject(oRunTarget, f3);
}
else if(GetObjectSeen(oRunTarget))
{
// If we see the flee target, reset targets
ResetCurrentAction();
// We will delete the local int (set to TRUE) which we
// stopped fleeing spells from
DeleteAIInteger(AI_HEARTBEAT_FLEE_SPELLS);
// Speak to allies to come :-)
AISpeakString(HELP_MY_FRIEND);
// Return FALSE.
return FALSE;
}
else
{
// Else flee!
if(GetObjectHeard(oRunTarget))
{
AISpeakString(HELP_MY_FRIEND);
}
ClearAllActions();
// New - cast fleeing spells. Important (and only used
// at higher intelligence) things like Expeditious retreat.
// - Only used once - one invisibility or haste. Deleted above.
ActionCastFleeingSpells();
ActionMoveToObject(oRunTarget, TRUE);
return TRUE;
}
}
else
{
// Check if we have bad intellgence, and we will run away
// from the nearest enemy if heard.
if(GetAIInteger(AI_INTELLIGENCE) <= i3)
{
oRunTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, i1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oRunTarget))
{
oRunTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, i1, CREATURE_TYPE_PERCEPTION, PERCEPTION_HEARD, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oRunTarget))
{
oRunTarget = GetLastHostileActor();
if(!GetIsObjectValid(oRunTarget) || GetIsDead(oRunTarget))
{
ResetCurrentAction();
return FALSE;
}
}
}
// Run from enemy
ClearAllActions();
ActionMoveAwayFromObject(oRunTarget, TRUE, f50);
return TRUE;
}
ResetCurrentAction();
return FALSE;
}
}
break;
case AI_SPECIAL_ACTIONS_MOVE_OUT_OF_AOE:
{
// We must be X distance away from a cirtain AOE, if we are not, we
// move.
oRunTarget = GetAIObject(AI_AOE_FLEE_FROM);
// If not valid, or already far enough away, delete special action
// and return false.
if(!GetIsObjectValid(oRunTarget) ||
GetLocalFloat(OBJECT_SELF, AI_AOE_FLEE_FROM_RANGE) < GetDistanceToObject(oRunTarget))
{
ResetCurrentAction();
return FALSE;
}
else
{
// Valid and still in range
// - Run away
ClearAllActions();
ActionMoveAwayFromLocation(GetLocation(oRunTarget), TRUE, GetLocalFloat(OBJECT_SELF, AI_AOE_FLEE_FROM_RANGE));
return TRUE;
}
}
break;
}
// Return false to carry on a normal heartbeat
return FALSE;
}
// Get whether the condition is set
// * Bioware SoU Waypoint call.
int GetWalkCondition(int nCondition, object oCreature=OBJECT_SELF)
{
return (GetLocalInt(oCreature, sWalkwayVarname) & nCondition);
}
// Cast fleeing spells.
// - Invisiblity (best)
// - Haste/Expeditious Retreat
void ActionCastFleeingSpells()
{
// Not got local
if(GetAIInteger(AI_HEARTBEAT_FLEE_SPELLS)) return;
// Set local
SetAIInteger(AI_HEARTBEAT_FLEE_SPELLS, TRUE);
// Invisibilities
if(FleeingSpellCast(SPELL_IMPROVED_INVISIBILITY)) return;
if(FleeingSpellCast(SPELL_INVISIBILITY)) return;
// Haste
if(FleeingSpellCast(SPELL_MASS_HASTE)) return;
if(FleeingSpellCast(SPELL_HASTE)) return;
if(FleeingSpellCast(SPELL_EXPEDITIOUS_RETREAT)) return;
}
// Attempt to cast iSpell. TRUE if true.
int FleeingSpellCast(int iSpell)
{
if(GetHasSpell(iSpell))
{
ActionCastSpellAtObject(iSpell, OBJECT_SELF);
return TRUE;
}
return FALSE;
}

432
_content/_hak/rune_prc8_top/j_inc_npc_attack.nss Normal file
View File

@ -0,0 +1,432 @@
/************************ [Combat Attack] **************************************
Filename: j_inc_npc_attack
************************* [Combat Attack] **************************************
What does this do?
It is a wrapper/include for getting a creature to attack target X, or do
Y. I use this for conversations, triggers, the lot, as a simple wrapper
that will execute my AI.
There are several functions here to do things, that may be useful wrappers.
And it also keeps Combat files SMALL! I uses Execute Script to fire the
combat file, not include it here.
************************* [History] ********************************************
1.3 - Added
************************* [Workings] *******************************************
Include this in any conversation file or whatever, and mearly read the
descriptions of the different functions, and it will do what it says :-)
************************* [Arguments] ******************************************
Arguments:
************************* [Combat Attack] *************************************/
// Include the constants for the combat, spawn integers ETC.
#include "j_inc_constants"
// Hostile amount
const int HOSTILE = -100;// Reputation to change to
const int TYPE_ALL_PCS = 1;// is all PC's in the world.
const int TYPE_ALL_AREA = 2;// is all PC's in the specific area.
const int TYPE_IN_RANGE = 3;// is all PC's within fRange.
// A slightly modified way to determine a combat round.
// * oTarget - The target to attack
// * sShout - The string to silently speak to get allies to come and help
void DetermineSpeakCombatRound(object oTarget = OBJECT_INVALID, string sShout = "");
// A slightly modified way to determine a combat round.
// * oTarget - The target to attack
// * oAttacker - The NPC who you want to determine a combat round, on oTarget
void DetermineSpeakCombatRoundNotMe(object oTarget, object oAttacker);
// This is the main wrapper to get an NPC to attack in conversation.
// * fDelay - The delay AFTER adjusting reputation, that we attack and shout
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// Example, how to keep flags already set:
// HostileAttackPCSpeaker(0.0, GetPlotFlag(), GetImmortal());
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackPCSpeaker(float fDelay = 0.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE);
// This will make our faction hostile to the target, and attack them.
// * oTarget - The target object to attack
// * fDelay - The delay AFTER adjusting reputation, that we attack and shout
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// Example, how to keep flags already set:
// HostileAttackObject(oPC, 0.0, GetPlotFlag(), GetImmortal());
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackObject(object oTarget, float fDelay = 0.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE);
// This will make our faction hostile to the target, and shout.
// * oTarget - The target object to shout about.
// Use: Placeables, disturbers and so on.
// Note: Placeables are normally defaulted hostile faction! Must change it to work
void ShoutAbout(object oTarget);
// This will make our faction hostile to ALL(!) PC's...in the area or game or range
// * iType - TYPE_ALL_PCS (1) is all PC's in the world.
// - TYPE_ALL_AREA (2) is all PC's in the specific area.
// - TYPE_IN_RANGE (3) is all PC's within fRange.
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackAllPCs(int iType = 1, float fRange = 40.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE);
// This will thier most damaging weapon, and wait to disarm it.
// * fDuration - Delay until the weapon is withdrawn.
// * iRanged - if TRUE, it will equip a ranged weapon as a prioritory (EquipRanged call)
void EquipWeaponsDuration(float fDuration, int iRanged = FALSE);
// Disarms the persons right-hand-weapon
void RemoveWeapons();
// Plays talks like "ATTACK!" and "Group Near Me" etc.
// * iLowest, iHighest - the High/Lowest value to use.
// 0 = ATTACK, 1 = TAUNT, 2-4 = BATTLE(1-3), 5 = ENEMIES, 6 = GROUP, 7 = HELP.
void PlaySomeTaunt(int iLowest = 0, int iHighest = 7);
// Gets all allies of ourselves to attack oTarget
// * oTarget - The target to attack.
void AlliesAttack(object oTarget);
// Returns the nearest PC object
object GetNearestPCCreature();
// Returns the nearest enemy (but doesn't determine if it can see/hear it)
object GetNearestEnemyCreature();
// Returns the nearest friend
object GetNearestFriendCreature();
// A slightly modified way to determine a combat round.
// * oTarget - The target to attack
// * sShout - The string to silently speak to get allies to come and help
void DetermineSpeakCombatRound(object oTarget, string sShout)
{
// Shout
if(sShout != "") AISpeakString(sShout);
// Check for custom AI script, else fire default.
string sAI = GetCustomAIFileName();
// Fire default AI script
if(sAI == "")
{
// Sanity check - to not fire this off multiple times, we make sure temp
// object is not the same as oTarget (and valid)
if(!GetIsObjectValid(oTarget) || (GetIsObjectValid(oTarget) &&
!GetLocalTimer(AI_DEFAULT_AI_COOLDOWN)))
{
SetLocalObject(OBJECT_SELF, AI_TEMP_SET_TARGET, oTarget);
ExecuteScript(COMBAT_FILE, OBJECT_SELF);
SetLocalTimer(AI_DEFAULT_AI_COOLDOWN, 0.1);
}
}
// Fire custom AI script
else
{
SetLocalObject(OBJECT_SELF, AI_TEMP_SET_TARGET, oTarget);
ExecuteScript(sAI, OBJECT_SELF);
}
}
// A slightly modified way to determine a combat round.
// * oTarget - The target to attack
// * oAttacker - The NPC who you want to determine a combat round, on oTarget
void DetermineSpeakCombatRoundNotMe(object oTarget, object oAttacker)
{
// Check for custom AI script, else fire default.
string sAI = GetLocalString(oAttacker, AI_CUSTOM_AI_SCRIPT);
// Fire default AI script
if(sAI == "")
{
// Sanity check - to not fire this off multiple times, we make sure temp
// object is not the same as oTarget (and valid)
if(!GetIsObjectValid(oTarget) || (GetIsObjectValid(oTarget) &&
!GetLocalTimer(AI_DEFAULT_AI_COOLDOWN)))
{
SetLocalObject(oAttacker, AI_TEMP_SET_TARGET, oTarget);
ExecuteScript(COMBAT_FILE, oAttacker);
SetLocalTimer(AI_DEFAULT_AI_COOLDOWN, 0.1);
}
}
// Fire custom AI script
else
{
SetLocalObject(oAttacker, AI_TEMP_SET_TARGET, oTarget);
ExecuteScript(sAI, oAttacker);
}
}
// This is the main wrapper to get an NPC to attack in conversation.
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// Example, how to keep flags already set:
// AttackPCSpeaker(GetPlotFlag(), GetImmortal());
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackPCSpeaker(float fDelay = 0.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE)
{
// Get the PC
object oPC = GetPCSpeaker();
// Error checking
if(!GetIsObjectValid(oPC) || GetIsDM(oPC)) return;
// Change the flags
if(GetPlotFlag() != iPlot)
SetPlotFlag(OBJECT_SELF, iPlot);
if(GetImmortal() != iImmortal)
SetImmortal(OBJECT_SELF, iPlot);
// We make them hostile to our faction
AdjustReputation(oPC, OBJECT_SELF, HOSTILE);
// Attack them
SetLocalObject(OBJECT_SELF, AI_TO_ATTACK, oPC);
if(fDelay > 0.0)
{
// Round start...
DelayCommand(fDelay, DetermineSpeakCombatRound(oPC, I_WAS_ATTACKED));
if(iAllAllies)
DelayCommand(fDelay, AlliesAttack(oPC));
}
else
{
// Round start...
DetermineSpeakCombatRound(oPC, I_WAS_ATTACKED);
if(iAllAllies) AlliesAttack(oPC);
}
}
// This will make our faction hostile to the target, and attack them.
// * oTarget - The target object to attack
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// Example, how to keep flags already set:
// AttackObject(oPC, GetPlotFlag(), GetImmortal());
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackObject(object oTarget, float fDelay = 0.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE)
{
// Error checking
if(!GetIsObjectValid(oTarget) || GetIsDM(oTarget)) return;
// Change the flags
if(GetPlotFlag() != iPlot)
SetPlotFlag(OBJECT_SELF, iPlot);
if(GetImmortal() != iImmortal)
SetImmortal(OBJECT_SELF, iPlot);
// We make them hostile to our faction
AdjustReputation(oTarget, OBJECT_SELF, HOSTILE);
// Attack them
SetLocalObject(OBJECT_SELF, AI_TO_ATTACK, oTarget);
if(fDelay > 0.0)
{
// Round start...
DelayCommand(fDelay, DetermineSpeakCombatRound(oTarget, I_WAS_ATTACKED));
}
else
{
// Round start...
DetermineSpeakCombatRound(oTarget, I_WAS_ATTACKED);
}
}
// This will make our faction hostile to the target, and shout.
// * oTarget - The target object to shout about.
// Use: Placeables, disturbers and so on.
void ShoutAbout(object oTarget)
{
// We make them hostile to our faction
AdjustReputation(oTarget, OBJECT_SELF, HOSTILE);
// And shout for others to attack
AISpeakString(CALL_TO_ARMS);
}
// This will make our faction hostile to ALL(!) PC's...in the area or game or range
// * iType - TYPE_ALL_PCS (1) is all PC's in the world.
// - TYPE_ALL_AREA (2) is all PC's in the specific area.
// - TYPE_IN_RANGE (3) is all PC's within fRange.
// * iPlot - The plot flag to set to (Usually FALSE).
// * iImmortal - The immortal flag to set to (Usually FALSE).
// * iAllAllies - This will determine combat rounds against the target, that are in 50.0M. False = Don't
void HostileAttackAllPCs(int iType = 1, float fRange = 40.0, int iPlot = FALSE, int iImmortal = FALSE, int iAllAllies = TRUE)
{
object oPC, oToAttack;
int iShout, iCnt;
float fNearestEnemy = 10000.0;
object oArea = GetArea(OBJECT_SELF);
switch(iType)
{
case TYPE_ALL_PCS:// s all PC's in the world.
{
oPC = GetFirstPC();
while(GetIsObjectValid(oPC))
{
if(!GetIsDM(oPC) &&
GetIsObjectValid(GetArea(oPC)))
{
AdjustReputation(oPC, OBJECT_SELF, HOSTILE);
if(GetArea(oPC) == oArea)
{
if(GetDistanceToObject(oPC) <= fNearestEnemy)
{
oToAttack = oPC;
}
}
iShout = TRUE;
}
oPC = GetNextPC();
}
}
break;
case TYPE_ALL_AREA:// is all PC's in the specific area.
{
iCnt = 1;
oPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
while(GetIsObjectValid(oPC))
{
// Attack it! (if not a DM!)
if(!GetIsDM(oPC))
{
AdjustReputation(oPC, OBJECT_SELF, HOSTILE);
if(GetArea(oPC) == oArea)
{
if(GetDistanceToObject(oPC) <= fNearestEnemy)
{
oToAttack = oPC;
}
}
iShout = TRUE;
}
// Next one
iCnt++;
oPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC,
OBJECT_SELF, iCnt);
}
}
break;
case TYPE_IN_RANGE:// is all PC's within fRange.
{
iCnt = 1;
oPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
while(GetIsObjectValid(oPC) && GetDistanceToObject(oPC) <= fRange)
{
// Attack it! (if not a DM!)
if(!GetIsDM(oPC))
{
AdjustReputation(oPC, OBJECT_SELF, HOSTILE);
if(GetArea(oPC) == oArea)
{
if(GetDistanceToObject(oPC) <= fNearestEnemy)
{
oToAttack = oPC;
}
}
iShout = TRUE;
}
// Next one
iCnt++;
oPC = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC,
OBJECT_SELF, iCnt);
}
}
break;
}
// Attack nearest one (if valid)
if(GetIsObjectValid(oToAttack))
{
DetermineSpeakCombatRound(oToAttack);
if(iAllAllies) AlliesAttack(oToAttack);
}
// Check if we shout
if(iShout) AISpeakString(CALL_TO_ARMS);
}
// This will thier most damaging melee weapon, and wait to disarm it.
// * fDuration - Delay until the weapon is withdrawn.
void EquipWeaponsDuration(float fDuration, int iRanged = FALSE)
{
if(iRanged)
{
// Equip any most damaging (don't use oVersus, incase it doesn't arm anything)
ActionEquipMostDamagingRanged();
}
else
{
// Equip any most damaging (don't use oVersus, incase it doesn't arm anything)
ActionEquipMostDamagingMelee();
}
// Delay the un-equip
DelayCommand(fDuration, RemoveWeapons());
}
// Disarms the persons right-hand-weapon
void RemoveWeapons()
{
// cannot be in combat, duh!
if(GetIsInCombat() || GetIsObjectValid(GetAttackTarget()))
return;
// Get the weapon, make sure it is valid, and...
object oUnequip = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND);
if(GetIsObjectValid(oUnequip))
{
// ...unequip it.
ClearAllActions();
ActionUnequipItem(oUnequip);
}
}
/*::///////////////////////////////////////////////
//:: PlaySomeTaunt
//::///////////////////////////////////////////////
Plays talks like "ATTACK!" and "Group Near Me" etc.
* iLowest, iHighest - the High/Lowest value to use.
0 = ATTACK, 1 = TAUNT, 2-4 = BATTLE(1-3), 5 = ENEMIES, 6 = GROUP, 7 = HELP.
//::///////////////////////////////////////////////
//:: Created by : Jasperre
//:://///////////////////////////////////////////*/
void PlaySomeTaunt(int iLowest, int iHighest)
{
int iRandom = Random(iHighest) + iLowest;
int iVoice = VOICE_CHAT_ATTACK;
switch (iRandom)
{
case 0: iVoice = VOICE_CHAT_ATTACK; break;
case 1: iVoice = VOICE_CHAT_TAUNT; break;
case 2: iVoice = VOICE_CHAT_BATTLECRY1; break;
case 3: iVoice = VOICE_CHAT_BATTLECRY2; break;
case 4: iVoice = VOICE_CHAT_BATTLECRY3; break;
case 5: iVoice = VOICE_CHAT_ENEMIES; break;
case 6: iVoice = VOICE_CHAT_GROUP; break;
case 7: iVoice = VOICE_CHAT_HELP; break;
default: iVoice = VOICE_CHAT_ATTACK; break;
}
PlayVoiceChat(iVoice);
}
// Gets all allies of ourselves to attack oTarget
// * oTarget - The target to attack.
void AlliesAttack(object oTarget)
{
if(!GetIsObjectValid(oTarget)) return;
int iCnt = 1;
object oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, OBJECT_SELF, iCnt, CREATURE_TYPE_IS_ALIVE, TRUE);
while(GetIsObjectValid(oAlly) && GetDistanceToObject(oAlly) <= 50.0)
{
// A slightly modified way to determine a combat round.
// * oTarget - The target to attack
// * oAttacker - The NPC who you want to determine a combat round, on oTarget
DetermineSpeakCombatRoundNotMe(oTarget, oAlly);
iCnt++;
oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, OBJECT_SELF, iCnt, CREATURE_TYPE_IS_ALIVE, TRUE);
}
}
// Returns the nearest PC object
object GetNearestPCCreature()
{
return GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC);
}
// Returns the nearest enemy (but doesn't determine if it can see/hear it)
object GetNearestEnemyCreature()
{
return GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY);
}
// Returns the nearest friend
object GetNearestFriendCreature()
{
return GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND);
}
//void main(){}

511
_content/_hak/rune_prc8_top/j_inc_other_ai.nss Normal file
View File

@ -0,0 +1,511 @@
/************************ [Include - Other AI Functions] ***********************
Filename: j_inc_other_ai
************************* [Include - Other AI Functions] ***********************
This contains fuctions and calls for these scripts:
nw_c2_default2 - Percieve
nw_c2_default3 - On Combat round End (For DetermineCombatRound() only)
nw_c2_default4 - Conversation (shout)
nw_c2_default5 - Phisical attacked
nw_c2_default6 - Damaged
nw_c2_default8 - Disturbed
nw_c2_defaultb - Spell cast at
Ones that don't use this use different/No includes.
HOPEFULLY it will make them faster, if they don't run combat.
They use Execute Script to initiate combat. (With the override ones
initiating the override version, the normal initiateing the normal).
************************* [History] ********************************************
1.3 - Added to speed up compilings and gather non-combat, or other workings
in one place.
************************* [Workings] *******************************************
This is included, by #include "J_INC_OTHER_AI" in other AI files.
They then use these functions in them scripts.
************************* [Arguments] ******************************************
Arguments: N/A
************************* Include - Other AI Functions] ***********************/
// All constants.
#include "j_inc_constants"
// Responds to it (like makinging the callers attacker thier target)
// Called in OnConversation, and thats it. Use "ShouterFriend" To stop repeated GetIsFriend calls.
void RespondToShout(object oShouter, int nShoutIndex);
// Gets the attacker or attakee of the target, which should be a friend
object GetIntruderFromShout(object oShouter);
// Shouts, or really brings all people in 60.0M(by default) to the "shouter"
void ShoutBossShout(object oEnemy);
// Checks the target for a specific EFFECT_TYPE constant value
// Returns TRUE or FALSE. Used On Damaged for polymorph checking.
int GetHasEffect(int nEffectType, object oTarget = OBJECT_SELF);
// This sets a morale penalty, to the exsisting one, if there is one.
// It will reduce itself after fDuration (or if we die, ETC, it is deleted).
// It is deleted at the end of combat as well.
void SetMoralePenalty(int iPenalty, float fDuration = 0.0);
// Removes iPenalty amount if it can.
void RemoveMoralePenalty(int iPenalty);
// At 5+ intelligence, we fire off any dispells at oPlaceables location
void SearchDispells(object oPlaceable);
// This MAY make us set a local timer to turn off hiding.
// Turn of hiding, a timer to activate Hiding in the main file. This is
// done in each of the events, with the opposition checking seen/heard.
void TurnOffHiding(object oIntruder);
// Used when we percieve a new enemy and are not in combat. Hides the creature
// appropriatly with spawn settings and ability.
// - At least it will clear all actions if it doesn't set hiding on
void HideOrClear();
// This MIGHT move to oEnemy
// - Checks special actions, such as fleeing, and may run instead!
void ActionMoveToEnemy(object oEnemy);
// Returns TRUE if we have under 0 morale, set to flee.
// - They then run! (Badly)
int PerceptionFleeFrom(object oEnemy);
/*::///////////////////////////////////////////////
//:: Name: ShoutBossShout
//::///////////////////////////////////////////////
This is used in the OnPercieve, and if we are set to,
we will "shout" and bring lots of allies a running
//:://///////////////////////////////////////////*/
void ShoutBossShout(object oEnemy)
{
if(GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_BOSS_MONSTER_SHOUT, AI_OTHER_COMBAT_MASTER))
{
// Get the range (and default to 60.0 M)
float fRange = IntToFloat(GetBoundriedAIInteger(AI_BOSS_MONSTER_SHOUT_RANGE, i60, 370));
// We loop through nearest not-seen, not-heard allies and get them
// to attack the person.
int Cnt = i1;
// Not seen, not heard...
object oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND,
OBJECT_SELF, Cnt, CREATURE_TYPE_IS_ALIVE, TRUE,
CREATURE_TYPE_PERCEPTION, PERCEPTION_NOT_SEEN_AND_NOT_HEARD);
// Get who thier target is.
object oThierTarget;
while(GetIsObjectValid(oAlly) && GetDistanceToObject(oAlly) <= fRange)
{
oThierTarget = GetLocalObject(oAlly, AI_TO_ATTACK);
// If they are not attacking the enemy, we assing them to attack.
if(oThierTarget != oEnemy)
{
// Can't be in combat.
if(!GetIsInCombat(oAlly))
{
// Set them to move to this
SetLocalObject(oAlly, AI_TO_ATTACK, oEnemy);
// Make them attack the person
SetLocalObject(oAlly, AI_TEMP_SET_TARGET, oEnemy);
ExecuteScript(COMBAT_FILE, oAlly);
}
}
Cnt++;
oAlly = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND,
OBJECT_SELF, Cnt, CREATURE_TYPE_IS_ALIVE, TRUE,
CREATURE_TYPE_PERCEPTION, PERCEPTION_NOT_SEEN_AND_NOT_HEARD);
}
// Remove it :-)
DeleteSpawnInCondition(AI_FLAG_OTHER_COMBAT_BOSS_MONSTER_SHOUT, AI_OTHER_COMBAT_MASTER);
}
}
// This MAY make us set a local timer to turn off hiding.
// Turn of hiding, a timer to activate Hiding in the main file. This is
// done in each of the events, with the opposition checking seen/heard.
void TurnOffHiding(object oIntruder)
{
if(!GetLocalTimer(AI_TIMER_TURN_OFF_HIDE) &&
// Are we actually seen/heard or is it just an AOE?
(GetObjectSeen(OBJECT_SELF, oIntruder) ||
GetObjectHeard(OBJECT_SELF, oIntruder)))
{
SetLocalTimer(AI_TIMER_TURN_OFF_HIDE, f18);
}
}
// Used when we percieve a new enemy and are not in combat. Hides the creature
// appropriatly with spawn settings and ability.
// - At least it will clear all actions if it doesn't set hiding on
void HideOrClear()
{
// Spawn in conditions for it
if(!GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_NO_HIDING, AI_OTHER_COMBAT_MASTER) &&
GetActionMode(OBJECT_SELF, ACTION_MODE_STEALTH) == FALSE)
{
// Need skill or force on
if((GetSkillRank(SKILL_HIDE) - i4 >= GetHitDice(OBJECT_SELF)) ||
GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_FORCE_HIDING, AI_OTHER_COMBAT_MASTER))
{
// Use hide
ClearAllActions(TRUE);
SetActionMode(OBJECT_SELF, ACTION_MODE_STEALTH, TRUE);
// Stop
return;
}
}
// Else clear all actions normally.
ClearAllActions();
}
/*::///////////////////////////////////////////////
//:: Respond To Shouts
//:: Copyright (c) 2001 Bioware Corp.
//::///////////////////////////////////////////////
Useage:
//NOTE ABOUT BLOCKERS
int NW_GENERIC_SHOUT_BLOCKER = 2;
It should be noted that the Generic Script for On Dialogue attempts to get a local
set on the shouter by itself. This object represents the LastOpenedBy object. It
is this object that becomes the oIntruder within this function.
//NOTE ABOUT INTRUDERS
These are the enemy that attacked the shouter.
//NOTE ABOUT EVERYTHING ELSE
I_WAS_ATTACKED = 1;
If not in combat, attack the attackee of the shouter. Basically the best
way to get people to come and help us.
CALL_TO_ARMS = 3;
If not in combat, determine combat round. By default, it should check any
allies it can see/hear for thier targets and help them too.
HELP_MY_FRIEND = 4;
This is a runner thing. Said when the runner sees the target to run to.
Gets a local location, and sets off people to run to it.
If no valid area for the location, no moving :-P
We also shout this if we are fleeing. It will set the person to buff too.
LEADER_FLEE_NOW = 5
We flee to a pre-set object or follow the leader (who should be fleeing).
LEADER_ATTACK_TARGET = 6
We attack the intruder next round, by setting it as a local object to
override other choices.
I_WAS_KILLED = 7
If lots are killed in one go - ouch! morale penalty each time someone dies.
I_WAS_OPENED = 8
Chests/Doors which say this get the AI onto the tails of those who opened it, OR
they get searched! :-)
//::///////////////////////////////////////////////
// Modified almost completely: Jasperre
//:://///////////////////////////////////////////*/
// Gets the attacker or attakee of the target, which should be a friend
object GetIntruderFromShout(object oShouter)
{
object oIntruder = GetAttackTarget(oShouter);
if(!GetIsObjectValid(oIntruder) ||
GetIgnoreNoFriend(oIntruder))
{
oIntruder = GetLastHostileActor(oShouter);
if(GetIgnoreNoFriend(oIntruder))
{
return OBJECT_INVALID;
}
}
return oIntruder;
}
void RespondToShout(object oShouter, int nShoutIndex)
{
object oIntruder;
// Ones we don't care about if we are in combat...
if(nShoutIndex == i6) // "Attack specific object"
{
// If a leader, we set it as a local object, nothing more
if(GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_GROUP_LEADER, AI_OTHER_COMBAT_MASTER, oShouter))
{
oIntruder = GetLocalObject(oShouter, AI_ATTACK_SPECIFIC_OBJECT);
if(GetObjectSeen(oIntruder))
{
// Set local object to use in next DetermineCombatRound.
// We do not interrupt current acition (EG: Life saving stoneskins!) to re-direct.
SetAIObject(AI_ATTACK_SPECIFIC_OBJECT, oIntruder);
// 6 second delay.
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f6);
}
}
return;
}
else if(nShoutIndex == i5)// "leader flee now"
{
// If a leader, we set it as a local object, nothing more
if(GetSpawnInCondition(AI_FLAG_OTHER_COMBAT_GROUP_LEADER, AI_OTHER_COMBAT_MASTER, oShouter))
{
oIntruder = GetLocalObject(oShouter, AI_FLEE_TO);
// RUN! If intruder set is over 5.0M or no valid intruder
ClearAllActions();
// 70. "[Shout] Reacting To Shout. [ShoutNo.] " + IntToString(iInput) + " [Shouter] " + GetName(oInput)
DebugActionSpeakByInt(70, oShouter, nShoutIndex);
SetCurrentAction(AI_SPECIAL_ACTIONS_FLEE);
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f12);
if(GetIsObjectValid(oIntruder))
{
SetAIObject(AI_FLEE_TO, oIntruder);
ActionMoveToObject(oIntruder);
}
else // Else, we will just follow our leader!
{
SetAIObject(AI_FLEE_TO, oShouter);
ActionForceFollowObject(oShouter, f3);
}
}
return;
}
// If the shout is number 8, it is "I was opened" and so can only be a
// placeable or door.
else if(nShoutIndex == i8)// "I was opened"
{
// We need somewhat complexe here - to get thier opener.
int nType = GetObjectType(oShouter);
// Check object type. If not a placeable nor door - stop script.
if(nType == OBJECT_TYPE_PLACEABLE ||
nType == OBJECT_TYPE_DOOR)
{
// Now, we assign the placeable/door to set thier opener.
// - Need to check it works.
AssignCommand(oShouter, SetLocalObject(oShouter, PLACEABLE_LAST_OPENED_BY, GetLastOpenedBy()));
oIntruder = GetLocalObject(oShouter, PLACEABLE_LAST_OPENED_BY);
if(GetIsObjectValid(oIntruder))
{
// Attack
ClearAllActions();
DetermineCombatRound(oShouter);
}
}
}
// Else, we must not be in combat for the rest
else if(!CannotPerformCombatRound())
{
// Call to arms requires nothing special
if(nShoutIndex == i3)// "Call to arms"
{
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f6);
// 70. "[Shout] Reacting To Shout. [ShoutNo.] " + IntToString(iInput) + " [Shouter] " + GetName(oInput)
DebugActionSpeakByInt(70, oShouter, nShoutIndex);
DetermineCombatRound();
}
// Ones we can GetIntruderFromShout(oShouter);
if(nShoutIndex == i1 || // "I was attacked"
nShoutIndex == i4 || // "Help my friend"
nShoutIndex == i7) // "I was killed"
{
// Am not already fighting, and we don't ignore the intruder
oIntruder = GetIntruderFromShout(oShouter);
if(!GetIsObjectValid(oIntruder))
{
return;
}
}
if(nShoutIndex == i1 ||
nShoutIndex == i7)
{
// Morale penalty if they were killed
if(nShoutIndex == i7)
{
SetMoralePenalty((GetHitDice(oShouter)/i4), f18);
}
// Get intruder
// 70. "[Shout] Reacting To Shout. [ShoutNo.] " + IntToString(iInput) + " [Shouter] " + GetName(oInput)
DebugActionSpeakByInt(70, oShouter, nShoutIndex);
if(GetObjectSeen(oIntruder))
{
// Stop, and attack, if we can see them!
ClearAllActions();
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f9);
DetermineCombatRound(oIntruder);
DelayCommand(f2, AISpeakString(I_WAS_ATTACKED));
}
else // Else the enemy is not seen
{
// If I can see neither the shouter nor the enemy
// stop what I am doing, and move to the attacker.
// - 1.3 change. They move to the attackers location (IE directed by ally)
ClearAllActions();
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f6);
// This will move to oIntruder if nothing else
DetermineCombatRound(oIntruder);
// Shout to other allies, after a second.
DelayCommand(f2, AISpeakString(HELP_MY_FRIEND));
}
}
else if(nShoutIndex == i4)// "Help my friend"
{
// We move to where the runner/shouter wants us.
location lMoveTo = GetLocalLocation(oShouter, AI_HELP_MY_FRIEND_LOCATION);
// 70. "[Shout] Reacting To Shout. [ShoutNo.] " + IntToString(iInput) + " [Shouter] " + GetName(oInput)
DebugActionSpeakByInt(70, oShouter, nShoutIndex);
SetLocalTimer(AI_TIMER_SHOUT_IGNORE_ANYTHING_SAID, f6);
if(GetIsObjectValid(GetAreaFromLocation(lMoveTo)))
{
ActionMoveToLocation(lMoveTo, TRUE);
ActionDoCommand(DetermineCombatRound());
}
else
{
// If we do not know of the friend attacker, we will follow them
ClearAllActions();
SetSpawnInCondition(AI_FLAG_COMBAT_FLAG_FAST_BUFF_ENEMY, AI_COMBAT_MASTER);
ActionForceFollowObject(oShouter, f3);
ActionDoCommand(DetermineCombatRound());
}
}
}
}
void SearchDispells(object oPlaceable)
{
// No dispelling at low intelligence.
if(GetBoundriedAIInteger(AI_INTELLIGENCE) < i5) return;
location lPlace = GetLocation(oPlaceable);
// Move closer if not seen.
if(!GetObjectSeen(oPlaceable))
{
// Move nearer - 6 M is out of the dispell range
ActionMoveToObject(oPlaceable, TRUE, f6);
}
// Dispell if we have any - at the location of oPlaceable.
if(GetHasSpell(SPELL_LESSER_DISPEL))
{
ActionCastSpellAtLocation(SPELL_LESSER_DISPEL, lPlace);
}
else if(GetHasSpell(SPELL_DISPEL_MAGIC))
{
ActionCastSpellAtLocation(SPELL_DISPEL_MAGIC, lPlace);
}
else if(GetHasSpell(SPELL_GREATER_DISPELLING))
{
ActionCastSpellAtLocation(SPELL_GREATER_DISPELLING, lPlace);
}
else if(GetHasSpell(SPELL_MORDENKAINENS_DISJUNCTION))
{
ActionCastSpellAtLocation(SPELL_MORDENKAINENS_DISJUNCTION, lPlace);
}
}
// Get Has Effect
// Checks to see if the target has a given
// effect, usually from a spell. Really useful this is.
int GetHasEffect(int nEffectType, object oTarget = OBJECT_SELF)
{
effect eCheck = GetFirstEffect(oTarget);
while(GetIsEffectValid(eCheck))
{
if(GetEffectType(eCheck) == nEffectType)
{
return TRUE;
break;
}
eCheck = GetNextEffect(oTarget);
}
return FALSE;
}
// This sets a morale penalty, to the exsisting one, if there is one.
// It will reduce itself (by the penalty) after fDuration (or if we die, ETC, it is deleted).
// It is deleted at the end of combat as well.
void SetMoralePenalty(int iPenalty, float fDuration = 0.0)
{
int iOriginal = GetAIInteger(AI_MORALE_PENALTY);
int iNew = iOriginal + iPenalty;
SetAIInteger(AI_MORALE_PENALTY, iNew);
DelayCommand(fDuration, RemoveMoralePenalty(iPenalty));
}
void RemoveMoralePenalty(int iPenalty)
{
int iOriginal = GetAIInteger(AI_MORALE_PENALTY);
int iNew = iOriginal - iPenalty;
if(iNew > 0 && !GetIsDead(OBJECT_SELF))
{
SetAIInteger(AI_MORALE_PENALTY, iNew);
}
else
{
DeleteAIInteger(AI_MORALE_PENALTY);
}
}
// This MIGHT move to oEnemy
// - Checks special actions, such as fleeing, and may run instead!
void ActionMoveToEnemy(object oEnemy)
{
// Make sure that we are not fleeing badly (-1 morale from all enemies)
if(GetIsEnemy(oEnemy))
{
// -1 morale, flee
if(PerceptionFleeFrom(oEnemy)) return;
}
if(GetIsPerformingSpecialAction())
{
// Stop if we have an action we don't want to override
return;
}
// End default is move to the enemy
ClearAllActions();
ActionMoveToObject(oEnemy, TRUE);
// combat round to heal/search/whatever
if(!GetFactionEqual(oEnemy))
{
ActionDoCommand(DetermineCombatRound(oEnemy));
}
}
// Returns TRUE if we have under 0 morale, set to flee.
// - They then run! (Badly)
int PerceptionFleeFrom(object oEnemy)
{
object oRunTarget = oEnemy;
if(GetAIInteger(AI_INTELLIGENCE) < FALSE)
{
// Valid run from target
if(!GetIsObjectValid(oRunTarget))
{
oRunTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, i1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oRunTarget))
{
oRunTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, i1, CREATURE_TYPE_PERCEPTION, PERCEPTION_HEARD, CREATURE_TYPE_IS_ALIVE, TRUE);
if(!GetIsObjectValid(oRunTarget))
{
oRunTarget = GetLastHostileActor();
if(!GetIsObjectValid(oRunTarget) || GetIsDead(oRunTarget))
{
// Stop - nothing to flee from!
return FALSE;
}
}
}
}
// Run from enemy
ClearAllActions();
ActionMoveAwayFromObject(oRunTarget, TRUE, f50);
return TRUE;
}
// 0 or more morale.
return FALSE;
}
// Debug: To compile this script full, uncomment all of the below.
/* - Add two "/"'s at the start of this line
void main()
{
return;
}
//*/

444
_content/_hak/rune_prc8_top/j_inc_seteffects.nss Normal file
View File

@ -0,0 +1,444 @@
/************************ [Set Effects Include] ********************************
Filename:
************************* [Set Effects] ****************************************
This can be executed on a PC or NPC, and sets what thier current effects
are - the hostile ones.
It is executed on a PC every 6 seconds in combat, delayed by a timer,
by other NPCs who want to target them.
It is meant to be more efficient then doing countless checks against other
NPCs and PCs for what effects they already have on them.
************************* [History] ********************************************
1.3 - Added
************************* [Workings] *******************************************
ExecuteScript - might not work faster. If so, it is easy to add into the
generic AI and have oTarget to set to.
It searches the code and sets 3 custom integers, but only once (so not
during the loop)
************************* [Arguments] ******************************************
Arguments: N/A
************************* [Set Effects] ***************************************/
#include "J_INC_CONSTANTS"
// List (use Global to not conflict with the nwscript.nss!)
const int GlobalEffectUncommandable = 0x00000001;// Stun. Sleep. Fear. Turning.
const int GlobalEffectSilenced = 0x00000002;// Eeek!
const int GlobalEffectSlowed = 0x00000004;// Stop with haste.
const int GlobalEffectUltravision = 0x00000008;
const int GlobalEffectSeeInvisible = 0x00000010; // NOT Inc. Trueseeing
const int GlobalEffectTrueSeeing = 0x00000020;
const int GlobalEffectTimestop = 0x00000040;
const int GlobalEffectInvisible = 0x00000080;
const int GlobalEffectDeaf = 0x00000100;// Ack!
const int GlobalEffectHaste = 0x00000200;
const int GlobalEffectPolymorph = 0x00000400;// Only attack
const int GlobalEffectBlindness = 0x00000800;// Oh no!
const int GlobalEffectDisease = 0x00001000;
const int GlobalEffectPoison = 0x00002000;
const int GlobalEffectCurse = 0x00004000;
const int GlobalEffectNegativeLevel = 0x00008000;
const int GlobalEffectEntangle = 0x00010000;
const int GlobalEffectMovementSpeedDecrease = 0x00020000;
const int GlobalEffectDarkness = 0x00040000;// Noo! Need ultravision!
const int GlobalEffectDazed = 0x00080000;// Special: 1.30 patch, we can move!
const int GlobalEffectEthereal = 0x00100000;
const int GlobalEffectPetrify = 0x00200000;
const int GlobalEffectParalyze = 0x00400000;// Divided from Uncommandable for healing of
//const int GlobalEffectAbilityDecrease = 0x00080000;// Ohh! Tingly!
const int GlobalEffectSpellFailure = 0x00800000;// Makes sure spells are not cast under high failure.
const int GlobalEffectDamageShield = 0x01000000;// All damage shields
//int GlobalEffectAbilityDecrease = 0; // In combat include
// These are Globals for spell effects, to not csat them on us again, and to
// speed things up...
const int GlobalHasStoneSkinProtections = 0x00000001;
const int GlobalHasElementalProtections = 0x00000002;
const int GlobalHasVisageProtections = 0x00000004;
const int GlobalHasMantalProtections = 0x00000008;
const int GlobalHasGlobeProtections = 0x00000010;
const int GlobalHasMindResistanceProtections = 0x00000020;
const int GlobalHasAidingSpell = 0x00000040;
const int GlobalHasRangedConsealment = 0x00000080;
const int GlobalHasRageSpells = 0x00000100;
const int GlobalHasBullsStrengthSpell = 0x00000200;
const int GlobalHasCatsGraceSpell = 0x00000400;
const int GlobalHasClairaudienceSpell = 0x00000800;
const int GlobalHasDeathWardSpell = 0x00001000;
const int GlobalHasDivinePowerSpell = 0x00002000;
const int GlobalHasEaglesSpledorSpell = 0x00004000;
const int GlobalHasEnduranceSpell = 0x00008000;
const int GlobalHasFoxesCunningSpell = 0x00010000;
const int GlobalHasProtectionEvilSpell = 0x00020000;
const int GlobalHasProtectionGoodSpell = 0x00040000;
const int GlobalHasLightSpell = 0x00080000;
const int GlobalHasConsealmentSpells = 0x00100000;// Displacement
const int GlobalHasProtectionSpellsSpell = 0x00200000;
const int GlobalHasRegenerateSpell = 0x00400000;
const int GlobalHasOwlsWisdomSpell = 0x00800000;
const int GlobalHasSpellResistanceSpell = 0x01000000;
const int GlobalHasSpellWarCrySpell = 0x02000000;
//const int GlobalHasElementalShieldSpell = 0x04000000;
const int GlobalHasDomainSpells = 0x08000000;
const int GlobalHasDeflectionACSpell = 0x10000000;
const int GlobalHasNaturalACSpell = 0x20000000;
const int GlobalHasOtherACSpell = 0x40000000;
const int GlobalHasWeaponHelpSpell = 0x80000000;
// Other, AOE ones
//const int GlobalHasAreaEffectDamaging = 0x04000000;
//const int GlobalHasAreaEffectImpeding = 0x08000000;
int TempEffectHex, TempSpellHex;
// Sets up an effects thing to that
void AI_SetWeHaveEffect(int iEffectHex);
// Sets we have spell iSpellHex's effects.
void AI_SetWeHaveSpellsEffect(int iSpellHex);
// Sets up effects on oTarget
void AI_SetEffectsOnTarget(object oTarget = OBJECT_SELF);
// Simple return TRUE if it matches hex.
// - Effects tested on oTarget
int AI_GetAIHaveEffect(int iEffectHex, object oTarget = OBJECT_SELF);
// Simple return TRUE if it matches hex.
// - Uses oTarget
int AI_GetAIHaveSpellsEffect(int iSpellHex, object oTarget = OBJECT_SELF);
// Sets up an effects thing to that
void AI_SetWeHaveEffect(int iEffectHex)
{
TempEffectHex = TempEffectHex | iEffectHex;
}
// Sets we have spell iSpellHex's effects.
void AI_SetWeHaveSpellsEffect(int iSpellHex)
{
TempSpellHex = TempSpellHex | iSpellHex;
}
// Simple return TRUE if it matches hex.
// - Effects tested on oTarget
int AI_GetAIHaveEffect(int iEffectHex, object oTarget = OBJECT_SELF)
{
return (GetLocalInt(oTarget, AI_EFFECT_HEX) & iEffectHex);
}
// Simple return TRUE if it matches hex.
// - Uses oTarget
int AI_GetAIHaveSpellsEffect(int iSpellHex, object oTarget = OBJECT_SELF)
{
return (GetLocalInt(oTarget, AI_SPELL_HEX) & iSpellHex);
}
void AI_SetEffectsOnTarget(object oTarget = OBJECT_SELF)
{
TempEffectHex = FALSE;
TempSpellHex = FALSE;
// Checks our effects once.
effect eCheck = GetFirstEffect(oTarget);
int iEffect, iEffectAbilityDecrease, iSpellID;
// EFFECTS:
// For ALL targets (that we will use), we set up effects on a system of Hexes.
// like spawn in things. Replaces GetHasSpellEffect, except genralising -
// IE we will NOT cast more than one of the stoneskin type things at once.
while(GetIsEffectValid(eCheck))
{
iEffect = GetEffectType(eCheck);
switch(iEffect)
{
case EFFECT_TYPE_INVALIDEFFECT:
case EFFECT_TYPE_VISUALEFFECT:
// Don't check these for spell values.
break;
case EFFECT_TYPE_PARALYZE:
AI_SetWeHaveEffect(GlobalEffectParalyze);
break;
case EFFECT_TYPE_STUNNED:
case EFFECT_TYPE_FRIGHTENED:
case EFFECT_TYPE_SLEEP:
case EFFECT_TYPE_TURNED:
case EFFECT_TYPE_DISAPPEARAPPEAR:// Added for dragon flying
AI_SetWeHaveEffect(GlobalEffectUncommandable);
break;
case EFFECT_TYPE_DAZED:
AI_SetWeHaveEffect(GlobalEffectDazed);
break;
case EFFECT_TYPE_SILENCE:
AI_SetWeHaveEffect(GlobalEffectSilenced);
break;
case EFFECT_TYPE_SLOW:
AI_SetWeHaveEffect(GlobalEffectSlowed);
break;
case EFFECT_TYPE_ULTRAVISION:
AI_SetWeHaveEffect(GlobalEffectUltravision);
break;
case EFFECT_TYPE_SEEINVISIBLE:
AI_SetWeHaveEffect(GlobalEffectSeeInvisible);
break;
// Caused by Beholder things mainly, but this stops any spell being
// cast, not just, for example, arcane spells cast in armor.
case EFFECT_TYPE_SPELL_FAILURE:
AI_SetWeHaveEffect(GlobalEffectSpellFailure);
break;
// Penetrates darkness.
case EFFECT_TYPE_TRUESEEING:
AI_SetWeHaveEffect(GlobalEffectTrueSeeing);
break;
// Timestop - IE don't cast same spell twice.
case EFFECT_TYPE_TIMESTOP:
AI_SetWeHaveEffect(GlobalEffectTimestop);
break;
// Invisibility/Improved (although improved only uses normal in the spell)
// Sneak attack/whatever :-)
// - include the spell EFFECT_TYPE_ETHEREAL.
case EFFECT_TYPE_INVISIBILITY:
case EFFECT_TYPE_IMPROVEDINVISIBILITY:
AI_SetWeHaveEffect(GlobalEffectInvisible);
break;
// Deaf - spell failing of 20%, but still cast.
case EFFECT_TYPE_DEAF:
AI_SetWeHaveEffect(GlobalEffectDeaf);
break;
// Special invis.
case EFFECT_TYPE_ETHEREAL:
AI_SetWeHaveEffect(GlobalEffectEthereal);
break;
// Haste - so don't cast haste again and whatever.
case EFFECT_TYPE_HASTE:
AI_SetWeHaveEffect(GlobalEffectHaste);
break;
// Haste - so don't cast haste again and whatever.
case EFFECT_TYPE_POLYMORPH:
AI_SetWeHaveEffect(GlobalEffectPolymorph);
break;
// Blindness - oh no, can't see, only hear!
case EFFECT_TYPE_BLINDNESS:
AI_SetWeHaveEffect(GlobalEffectBlindness);
break;
// Damage shield = Elemental shield, wounding whispers, Death armor, mestals
// sheth and so on.
case EFFECT_TYPE_ELEMENTALSHIELD:
AI_SetWeHaveEffect(GlobalEffectDamageShield);
break;
// Things we may want to remove VIA cirtain spells, we set here - may as well.
// Same setting as any other.
// IF we can remove it (not confusion ETC of course) then we set it.
case EFFECT_TYPE_DISEASE:
AI_SetWeHaveEffect(GlobalEffectDisease);
break;
case EFFECT_TYPE_POISON:
AI_SetWeHaveEffect(GlobalEffectPoison);
break;
// SoU Petrify
case EFFECT_TYPE_PETRIFY:
AI_SetWeHaveEffect(GlobalEffectPetrify);
break;
case EFFECT_TYPE_CURSE:
AI_SetWeHaveEffect(GlobalEffectCurse);
break;
case EFFECT_TYPE_NEGATIVELEVEL:
AI_SetWeHaveEffect(GlobalEffectNegativeLevel);
break;
case EFFECT_TYPE_ABILITY_DECREASE:
case EFFECT_TYPE_AC_DECREASE:
case EFFECT_TYPE_ATTACK_DECREASE:
case EFFECT_TYPE_DAMAGE_DECREASE:
case EFFECT_TYPE_DAMAGE_IMMUNITY_DECREASE:
case EFFECT_TYPE_SAVING_THROW_DECREASE:
case EFFECT_TYPE_SPELL_RESISTANCE_DECREASE:
case EFFECT_TYPE_SKILL_DECREASE:
// Special - we add one to this, to determine when to use restoration
iEffectAbilityDecrease++;
break;
case EFFECT_TYPE_ENTANGLE:
AI_SetWeHaveEffect(GlobalEffectEntangle);
break;
case EFFECT_TYPE_MOVEMENT_SPEED_DECREASE:
AI_SetWeHaveEffect(GlobalEffectMovementSpeedDecrease);
break;
case EFFECT_TYPE_DARKNESS:
AI_SetWeHaveEffect(GlobalEffectDarkness);
break;
default:
{
// Check spells we have on...so we don't cast over them!
iSpellID = GetEffectSpellId(eCheck);
if(iSpellID != iM1)
{
switch(iSpellID)
{
// All weapon things are on one variable. We cast the best.
case SPELL_MAGIC_WEAPON:
case SPELL_BLESS_WEAPON:
case SPELL_FLAME_WEAPON:
case SPELL_GREATER_MAGIC_WEAPON:
case SPELL_BLACKSTAFF:
case SPELL_BLADE_THIRST:
AI_SetWeHaveSpellsEffect(GlobalHasWeaponHelpSpell);
break;
case SPELL_ENDURE_ELEMENTS:
case SPELL_ENERGY_BUFFER:
case SPELL_RESIST_ELEMENTS:
case SPELL_PROTECTION_FROM_ELEMENTS:
AI_SetWeHaveSpellsEffect(GlobalHasElementalProtections);
break;
case SPELL_BARKSKIN:
case SPELL_STONE_BONES: // +3 to undead
AI_SetWeHaveSpellsEffect(GlobalHasNaturalACSpell);
break;
case SPELL_SHIELD:
case SPELL_DIVINE_SHIELD:
AI_SetWeHaveSpellsEffect(GlobalHasDeflectionACSpell);
break;
case SPELL_EPIC_MAGE_ARMOR:// Epic spell +20 to AC.
case SPELL_MAGE_ARMOR:
AI_SetWeHaveSpellsEffect(GlobalHasOtherACSpell);
break;
case SPELL_ENTROPIC_SHIELD:
AI_SetWeHaveSpellsEffect(GlobalHasRangedConsealment);
break;
case AI_SPELL_EPIC_WARDING:
case SPELL_STONESKIN:
case SPELL_GREATER_STONESKIN:
case SPELL_PREMONITION:
case SPELL_SHADES_STONESKIN: // Stoneskin one: 342
AI_SetWeHaveSpellsEffect(GlobalHasStoneSkinProtections);
break;
case SPELL_GHOSTLY_VISAGE:
case SPELL_SHADOW_SHIELD:
case SPELL_ETHEREAL_VISAGE:
case SPELL_GREATER_SHADOW_CONJURATION_MIRROR_IMAGE: // one: 351 is gostly visage. Speeds up not using number
case SPELL_SHADOW_EVADE: // Shadow dancer
case SPELLABILITY_AS_GHOSTLY_VISAGE: // Assassin
AI_SetWeHaveSpellsEffect(GlobalHasVisageProtections);
break;
case SPELL_GREATER_SPELL_MANTLE:
case SPELL_SPELL_MANTLE:
case SPELL_LESSER_SPELL_MANTLE:
AI_SetWeHaveSpellsEffect(GlobalHasMantalProtections);
break;
case SPELL_MINOR_GLOBE_OF_INVULNERABILITY:
case SPELL_GLOBE_OF_INVULNERABILITY:
case SPELL_GREATER_SHADOW_CONJURATION_MINOR_GLOBE:
AI_SetWeHaveSpellsEffect(GlobalHasGlobeProtections);
break;
case SPELL_AID:
case SPELL_PRAYER:
case SPELL_BLESS:
AI_SetWeHaveSpellsEffect(GlobalHasAidingSpell);
break;
case SPELL_BULLS_STRENGTH:
case SPELL_GREATER_BULLS_STRENGTH:
case SPELLABILITY_BG_BULLS_STRENGTH: // Blackguard
AI_SetWeHaveSpellsEffect(GlobalHasBullsStrengthSpell);
break;
case SPELL_CATS_GRACE:
case SPELL_GREATER_CATS_GRACE:
case AI_SPELL_HARPER_CATS_GRACE: // Harper
AI_SetWeHaveSpellsEffect(GlobalHasCatsGraceSpell);
break;
case SPELL_CLAIRAUDIENCE_AND_CLAIRVOYANCE:
AI_SetWeHaveSpellsEffect(GlobalHasClairaudienceSpell);
break;
case SPELL_CLARITY:
case SPELL_LESSER_MIND_BLANK:
case SPELL_MIND_BLANK:
AI_SetWeHaveSpellsEffect(GlobalHasMindResistanceProtections);
break;
case SPELL_DEATH_WARD:
case SPELL_UNDEATHS_ETERNAL_FOE:// Similar to death ward. Got more things.
AI_SetWeHaveSpellsEffect(GlobalHasDeathWardSpell);
break;
case SPELL_DISPLACEMENT:// 50% consealment
AI_SetWeHaveSpellsEffect(GlobalHasConsealmentSpells);
break;
case SPELL_DIVINE_POWER:
AI_SetWeHaveSpellsEffect(GlobalHasDivinePowerSpell);
break;
case SPELL_EAGLE_SPLEDOR:
case SPELL_GREATER_EAGLE_SPLENDOR:
case AI_SPELL_HARPER_EAGLE_SPLEDOR: // Harper
AI_SetWeHaveSpellsEffect(GlobalHasEaglesSpledorSpell);
break;
case SPELL_ENDURANCE:
case SPELL_GREATER_ENDURANCE:
AI_SetWeHaveSpellsEffect(GlobalHasEnduranceSpell);
break;
case SPELL_FOXS_CUNNING:
case SPELL_GREATER_FOXS_CUNNING:
AI_SetWeHaveSpellsEffect(GlobalHasFoxesCunningSpell);
break;
case SPELL_HOLY_AURA:
case SPELL_MAGIC_CIRCLE_AGAINST_EVIL:
case SPELL_PROTECTION_FROM_EVIL:
AI_SetWeHaveSpellsEffect(GlobalHasProtectionEvilSpell);
break;
case SPELL_UNHOLY_AURA:
case SPELL_MAGIC_CIRCLE_AGAINST_GOOD:
case SPELL_PROTECTION_FROM_GOOD:
AI_SetWeHaveSpellsEffect(GlobalHasProtectionGoodSpell);
break;
case SPELL_LIGHT:
case SPELL_CONTINUAL_FLAME:
AI_SetWeHaveSpellsEffect(GlobalHasLightSpell);
break;
case SPELL_OWLS_WISDOM:
case SPELL_GREATER_OWLS_WISDOM:
case AI_SPELL_OWLS_INSIGHT:// Missed spell
AI_SetWeHaveSpellsEffect(GlobalHasOwlsWisdomSpell);
break;
case SPELL_PROTECTION_FROM_SPELLS:
AI_SetWeHaveSpellsEffect(GlobalHasProtectionSpellsSpell);
break;
case SPELL_REGENERATE:
AI_SetWeHaveSpellsEffect(GlobalHasRegenerateSpell);
break;
case SPELL_SPELL_RESISTANCE:
AI_SetWeHaveSpellsEffect(GlobalHasSpellResistanceSpell);
break;
case SPELL_WAR_CRY:
AI_SetWeHaveSpellsEffect(GlobalHasSpellWarCrySpell);
break;
case SPELLABILITY_DIVINE_PROTECTION:
case SPELLABILITY_DIVINE_STRENGTH:
case SPELLABILITY_DIVINE_TRICKERY:
case SPELLABILITY_BATTLE_MASTERY:
AI_SetWeHaveSpellsEffect(GlobalHasDomainSpells);
break;
case SPELLABILITY_RAGE_3:
case SPELLABILITY_RAGE_4:
case SPELLABILITY_RAGE_5:
case SPELLABILITY_BARBARIAN_RAGE:
case SPELLABILITY_INTENSITY_1:
case SPELLABILITY_INTENSITY_2:
case SPELLABILITY_INTENSITY_3:
case SPELLABILITY_FEROCITY_1:
case SPELLABILITY_FEROCITY_2:
case SPELLABILITY_FEROCITY_3:
case SPELL_BLOOD_FRENZY:
AI_SetWeHaveSpellsEffect(GlobalHasRageSpells);
break;
}
}
}
break;
}
eCheck = GetNextEffect(oTarget);
}
// If undead, set some immunities by default
if(GetRacialType(oTarget) == RACIAL_TYPE_UNDEAD)
{
AI_SetWeHaveSpellsEffect(GlobalHasDeathWardSpell);
}
DeleteLocalInt(oTarget, AI_ABILITY_DECREASE);
DeleteLocalInt(oTarget, AI_EFFECT_HEX);
DeleteLocalInt(oTarget, AI_SPELL_HEX);
// Set final ones from temp integers
SetLocalInt(oTarget, AI_ABILITY_DECREASE, iEffectAbilityDecrease);
SetLocalInt(oTarget, AI_EFFECT_HEX, TempEffectHex);
SetLocalInt(oTarget, AI_SPELL_HEX, TempSpellHex);
}

2043
_content/_hak/rune_prc8_top/j_inc_setweapons.nss Normal file
View File

File diff suppressed because it is too large Load Diff

1237
_content/_hak/rune_prc8_top/j_inc_spawnin.nss Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
_content/_hak/rune_prc8_top/nw_c2_default7.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_c2_default9.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_c2_defaultd.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_aurablnda.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_auracoldc.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_auraelecc.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_aurafirec.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_auramenca.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_aurastuna.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_aurauneaa.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltacid.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltcharm.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltchrdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltcold.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltcondr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltconf.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltdaze.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltdeath.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltdexdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltdisese.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltdomn.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltfire.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltintdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltknckd.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltlightn.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltlvldr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltparal.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltpoison.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltshards.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltslow.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltstrdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltstun.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltweb.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_bltwisdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_coneacid.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_conecold.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_coneelec.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_conesonic.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_dragfear.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_dragfeara.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazechaos.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazecharm.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazeconfu.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazedaze.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazedeath.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazedomn.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazedoom.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazeevil.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazefear.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazegood.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazelaw.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_gazestun.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_hndbreath.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howlconf.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howldaze.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howldeath.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howlfear.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howlparal.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howlsonic.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_howlstun.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_krenscare.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_mephsalt.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_mephsteam.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulschrdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulscold.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulscondr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsdeath.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsdexdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulselec.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsfire.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsholy.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsintdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulslvldr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsneg.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulsstrdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulswind.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_pulswisdr.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_smokeclaw.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_stink_a.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s1_tyrantfga.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s2_divprot.ncs
View File

Binary file not shown.

BIN
_content/_hak/rune_prc8_top/nw_s3_balordeth.ncs
View File

Binary file not shown.

BIN
_release/Rune [PRC8-CEP2].7z
View File

Binary file not shown.