From ad2b9ab0fb199b53d71f74a8dea2fb524eeca38e Mon Sep 17 00:00:00 2001
From: NovaRain <novarain@gmail.com>
Date: Tue, 26 Mar 2024 12:15:15 +0800
Subject: [PATCH] Added a new example mod gl_molotov

---
 .../example_mods/MolotovFire/gl_molotov.int   | Bin 0 -> 678 bytes
 .../example_mods/MolotovFire/gl_molotov.ssl   |  55 ++++++++++++++++++
 artifacts/example_mods/MolotovFire/readme.txt |  12 ++++
 3 files changed, 67 insertions(+)
 create mode 100644 artifacts/example_mods/MolotovFire/gl_molotov.int
 create mode 100644 artifacts/example_mods/MolotovFire/gl_molotov.ssl
 create mode 100644 artifacts/example_mods/MolotovFire/readme.txt

diff --git a/artifacts/example_mods/MolotovFire/gl_molotov.int b/artifacts/example_mods/MolotovFire/gl_molotov.int
new file mode 100644
index 0000000000000000000000000000000000000000..3b09f808be1778f9537b490f67f3198f49b8d418
GIT binary patch
literal 678
zcmZo*I>5-lz#!DX3#NB8urvrXNHr)lNHr)nNHr)mNHr)os5GcHs4*}wFf%YPurZ*5
zQ&6r1l!j3-aRrzFl>P&yjTi*<Pyop6;*!Lo5(Wmb#I%ysqKwRvqWqkk_>9E7l$_Ke
z28RFt|NjT+2GI>VVD~aKFoWq+4J-}XVAhkylm>k;ixEsRH6?**h6dgS$p)<k%?6$Z
z889sa)xiLf$0Qq{K*Smhp)5u?i>bj7B*)YTA{m$(j2fgtEXKG7i3a@!DG-~1vB3!9
z62?Vv{{9AIsLC#g%ErlHIfe#fh*}0nd@w`IXWY=h0+xsP1u6<M87#`&VARM4X0brj
zL*2sych3)qEl@Q^jS#=ihuOyD2bKZ3{{)l;bsv)fl1_#OBd{!Eg9X%;^TB)rFv-@$
h3Zj|%pl(H$V}i&rKw=5vH-@G}Xb3_4hAxUFrU1N6kCXra

literal 0
HcmV?d00001

diff --git a/artifacts/example_mods/MolotovFire/gl_molotov.ssl b/artifacts/example_mods/MolotovFire/gl_molotov.ssl
new file mode 100644
index 00000000..567d2cf1
--- /dev/null
+++ b/artifacts/example_mods/MolotovFire/gl_molotov.ssl
@@ -0,0 +1,55 @@
+/*
+
+Molotov Fire Damage mod for Fallout 2 by NovaRain
+-------------------------------------------------
+
+- molotov cocktail now inflicts fire damage to critters
+- molotov cocktail can still blow up some doors and scenery objects as before
+
+Requires sfall 3.8.4 or higher
+
+NOTE: this script requires compiler from sfall modderspack with -s option
+(short circuit evaluation)
+
+*/
+
+
+procedure start;
+procedure afterhitroll_handler;
+
+#include "..\headers\define.h"
+#include "..\headers\sfall\sfall.h"
+#include "..\headers\sfall\define_extra.h"
+
+procedure start begin
+   if game_loaded then begin
+      register_hook_proc(HOOK_AFTERHITROLL, afterhitroll_handler);
+   end
+end
+
+procedure afterhitroll_handler begin
+   variable
+      hitType := get_sfall_arg,
+      attacker := get_sfall_arg,
+      target := get_sfall_arg,
+      slot, item;
+
+   if (target and attacker) then begin
+      if (attacker == dude_obj and active_hand == 0) then begin
+         slot := INVEN_TYPE_LEFT_HAND;
+      end else begin
+         slot := INVEN_TYPE_RIGHT_HAND;
+      end
+      item := critter_inven_obj(attacker, slot);
+
+      if (item and obj_pid(item) == PID_MOLOTOV_COCKTAIL) then begin
+         if (obj_type(target) == OBJ_TYPE_SCENERY and hitType > 1) then begin
+            set_proto_data(PID_MOLOTOV_COCKTAIL, PROTO_WP_DMG_TYPE, DMG_explosion);
+         end else begin
+            set_proto_data(PID_MOLOTOV_COCKTAIL, PROTO_WP_DMG_TYPE, DMG_fire);
+            set_attack_explosion_radius(2); // grenade radius
+            set_attack_is_explosion_fire;
+         end
+      end
+   end
+end
diff --git a/artifacts/example_mods/MolotovFire/readme.txt b/artifacts/example_mods/MolotovFire/readme.txt
new file mode 100644
index 00000000..9ec6dc6e
--- /dev/null
+++ b/artifacts/example_mods/MolotovFire/readme.txt
@@ -0,0 +1,12 @@
+Molotov Fire Damage mod for Fallout 2 by NovaRain
+-------------------------------------------------
+
+- molotov cocktail now inflicts fire damage to critters
+- molotov cocktail can still blow up some doors and scenery objects as before
+
+
+Requires sfall 3.8.4 or higher.
+
+To use, copy gl_molotov.int to your scripts folder.
+
+This mod is an example of how you can use metarule2_explosions macros.