Added Gecko Skinning perk to controlled critters if player has the perk, to make geckos killed by controlled critters also have gecko skins in their inventory.

This commit is contained in:
NovaRain
2017-10-02 09:54:47 +08:00
parent f0f4948856
commit 1bde433a16
+5 -1
View File
@@ -11,12 +11,14 @@
*/ */
#include "..\headers\define.h"
#include "main.h" #include "main.h"
variable variable
configSection := "CombatControl", configSection := "CombatControl",
controlMode, controlMode,
pidList; pidList,
hasGeckoSkinning := false;
procedure combatturn_handler begin procedure combatturn_handler begin
@@ -32,6 +34,7 @@ procedure combatturn_handler begin
and (len_array(pidList) == 0 or scan_array(pidList, pid bwand 0xFFFFFF) != -1) and (len_array(pidList) == 0 or scan_array(pidList, pid bwand 0xFFFFFF) != -1)
and (controlMode == 1 or party_member_obj(pid))) then begin and (controlMode == 1 or party_member_obj(pid))) then begin
set_dude_obj(critter); set_dude_obj(critter);
if hasGeckoSkinning then critter_add_trait(critter, TRAIT_PERK, PERK_gecko_skinning_perk, 1);
end else begin end else begin
set_dude_obj(real_dude_obj); set_dude_obj(real_dude_obj);
end end
@@ -44,6 +47,7 @@ procedure start begin
if (controlMode > 0) then begin if (controlMode > 0) then begin
pidList := GetConfigListInt("CombatControl", "PIDList"); pidList := GetConfigListInt("CombatControl", "PIDList");
fix_array(pidList); fix_array(pidList);
if has_trait(TRAIT_PERK, dude_obj, PERK_gecko_skinning_perk) then hasGeckoSkinning := true;
register_hook_proc(HOOK_COMBATTURN, combatturn_handler); register_hook_proc(HOOK_COMBATTURN, combatturn_handler);
end end