From 90485a205a532ba317e4e755126ca38bbf0b8582 Mon Sep 17 00:00:00 2001
From: NovaRain <novarain@gmail.com>
Date: Sun, 7 Jan 2018 21:37:26 +0800
Subject: [PATCH] Changed item highlighting mod to only highlight lootable
 corpses. #126

---
 artifacts/config_files/sfall-mods.ini |   2 +-
 artifacts/mods/gl_highlighting.int    | Bin 3386 -> 3428 bytes
 artifacts/mods/gl_highlighting.ssl    |   3 ++-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/artifacts/config_files/sfall-mods.ini b/artifacts/config_files/sfall-mods.ini
index 5cb7d32d..86beef7e 100644
--- a/artifacts/config_files/sfall-mods.ini
+++ b/artifacts/config_files/sfall-mods.ini
@@ -7,7 +7,7 @@ Key=42
 ; Set to 1 to also highlight containers
 Containers=1
 
-; Set to 1 to also highlight corpses
+; Set to 1 to also highlight lootable corpses
 Corpses=1
 
 ; Set to 1 to only highlight objects in the player's line-of-sight
diff --git a/artifacts/mods/gl_highlighting.int b/artifacts/mods/gl_highlighting.int
index a6d0f9b19befa7c606b622d02f902539a4c82706..31771aeafff59aec52f0ffa310ca08366b8d5d2e 100644
GIT binary patch
delta 387
zcmdlb^+amIOUX41V8AE`rr-p3#%3l)Z)V1f&3-KEER0=~%Q);AyC!er@O8~Pz{tSB
zz}R5a@Egi9Zjc7CI2{@!8uS~aKx~kFBLkSF(8L0v8yp&38}vbJ&Wy=&oYS=fKx~jo
zC@s`r43XzH0*f#-7(w|wlOJ#@3jP9%GQmW-u1pr<(qud|*@nxSamVBhT(Z(<8X$IY
zGzc~90IBBs1QFr-FnI%)j0`smgv-DVQ^2hS5#iPVDd6G`fO7pN^KqMV`!uFN{Knli
zIe=SSa!~^>$W#W1&sZ8*A-?54Gr56VpYhM+4cz*SI+Gu8>odko7U0om?3wJqqtCc&
casiJj<D<#bc=VWfc_ts@(PT86{DH>{0I0ZLC;$Ke

delta 347
zcmaDNwM%NkOUWh%FkqAeQ*eUYZZi|3H#4K%W<M5n7RH3hWgPa536r;R_)0q*U}Rum
zU~DjI_zh(lH|T>{oOYA-IMgTSa~3eFO@6>BDaZj5WngG9g2;0{n#{$eD0l%Z$^;i(
zHQ9zslX1r6G%jn#zR9<^WMsG&HL!pcaWn`u>;SR2PC!JsjzJXMf^ZqwVG6hzAR=7<
zCg0+c<y3?4xK$=waGP5zHKsI3gN)%$Xpm^oZ;)yd0Pz@D8q6Rr<F07n1&c6%NtOoI
z1}PAWd(q@o-1>}{Cg0-LXJnep#iP$?G}($rpD}527LPvTgvqmbR2g?nKER{L#PewK
N2OdpEp2<?YUI6RxRNDXm

diff --git a/artifacts/mods/gl_highlighting.ssl b/artifacts/mods/gl_highlighting.ssl
index 45387116..654fc21c 100644
--- a/artifacts/mods/gl_highlighting.ssl
+++ b/artifacts/mods/gl_highlighting.ssl
@@ -23,6 +23,7 @@
 #define CRITTER_IS_DEAD    (1)
 #define PID_MOTION_SENSOR  (59)
 #define NO_HIGHLIGHT(obj)  (get_flags(obj) bwand FLAG_NOHIGHLIGHT)
+#define NO_STEAL(obj)      (get_proto_data(obj_pid(obj), PROTO_CR_FLAGS) bwand CFLG_NOSTEAL)
 
 variable configSection := "Highlighting";
 variable highlightKey;
@@ -52,7 +53,7 @@ procedure ToggleHighlight(variable enable) begin
    end
    if (alsoCorpse) then begin
       foreach obj in list_as_array(LIST_CRITTERS) begin
-         if critter_state(obj) == CRITTER_IS_DEAD then begin
+         if critter_state(obj) == CRITTER_IS_DEAD and not NO_STEAL(obj) then begin
             call ToggleHighlightObject(obj, enable);
          end
       end