fallout2sfall/sfall
0
0
Fork 0
mirror of https://github.com/sfall-team/sfall.git synced 2026-07-27 16:52:34 -07:00
Code Issues Packages Projects Releases Wiki Activity

Rearranged and simplified gl_highlighting.ssl from the previous commit a bit.

Browse Source
This commit is contained in:
NovaRain
2018-01-17 21:22:37 +08:00
parent 3227966767
commit b3e2b8b5b8
3 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
artifacts/mods/gl_highlighting.ssl
+7 -9
View File
@@ -4,7 +4,7 @@
Previously was part of sfall itself, now a separate mod.
Features:
- highlighting items, containers (optional), critters (optional) and dead bodies (optional) on the ground
- highlighting items on the ground, containers (optional), dead bodies (optional) and critters (optional)
- configurable hotkey is used to trigger highlight
- only objects in direct line-of-sight of player are highlighted (optional)
- motion scanner is required to enable highlight (optional)
@@ -28,9 +28,9 @@
variable configSection := "Highlighting";
variable highlightKey;
variable alsoContainer;
variable ignoreNoHighlight;
variable alsoCorpse;
variable alsoCritter;
variable ignoreNoHighlight;
variable checkLOS;
variable outlineColor;
variable motionScanner;
@@ -39,7 +39,7 @@ variable highlightFailMsg2;
procedure ToggleHighlightObject(variable obj, variable enable) begin
if obj and (not enable or not checkLOS or not obj_blocking_line(dude_obj, tile_num(obj), BLOCKING_TYPE_SHOOT)) then begin
if (alsoContainer and obj_item_subtype(obj) == item_type_container) or (not (NO_HIGHLIGHT(obj) and not ignoreNoHighlight)) then begin
if (alsoContainer and obj_item_subtype(obj) == item_type_container) or (ignoreNoHighlight or not NO_HIGHLIGHT(obj)) then begin
if (enable) then set_outline(obj, outlineColor);
else set_outline(obj, 0);
end
@@ -53,15 +53,13 @@ procedure ToggleHighlight(variable enable) begin
call ToggleHighlightObject(obj, enable);
end
end
if (alsoCorpse) then begin
foreach obj in list_as_array(LIST_CRITTERS) begin
foreach obj in list_as_array(LIST_CRITTERS) begin
if (alsoCorpse) then begin
if critter_state(obj) == CRITTER_IS_DEAD and not NO_STEAL(obj) then begin
call ToggleHighlightObject(obj, enable);
end
end
end
if (alsoCritter) then begin
foreach obj in list_as_array(LIST_CRITTERS) begin
if (alsoCritter) then begin
if critter_state(obj) != CRITTER_IS_DEAD then begin
call ToggleHighlightObject(obj, enable);
end
@@ -110,9 +108,9 @@ procedure start begin
highlightKey := GetConfig(configSection, "Key", 0);
alsoContainer := GetConfig(configSection, "Containers", 0);
ignoreNoHighlight := GetConfig(configSection, "IgnoreNoHighlight", 0);
alsoCorpse := GetConfig(configSection, "Corpses", 0);
alsoCritter := GetConfig(configSection, "Critters", 0);
ignoreNoHighlight := GetConfig(configSection, "IgnoreNoHighlight", 0);
checkLOS := GetConfig(configSection, "CheckLOS", 0);
outlineColor := GetConfig(configSection, "OutlineColor", 16);
if (outlineColor < 1) then outlineColor := 64;