Fireflower fix

diff -ur yasraena/setup-yasraena.tp2 yasraena/setup-yasraena.tp2
--- yasraena/setup-yasraena.tp2 2010-07-12 17:36:24.000000000 +0300
+++ yasraena/setup-yasraena.tp2 2013-07-18 21:17:18.359103408 +0300
@@ -176,6 +176,58 @@

 SAY DESC @71

+COPY_EXISTING ~fireflow.itm~   ~override~
+              ~fireflo2.itm~   ~override~
+  PATCH_IF (SOURCE_SIZE > 0x71) THEN BEGIN // protects against invalid files
+    READ_LONG   0x64 "abil_off"
+    READ_SHORT  0x68 "abil_num"
+    READ_LONG   0x6a "fx_off"
+    READ_SHORT  0x70 "fx_num"
+    SET delta = 0
+    FOR (index = 0 ; index < fx_num ; ++index) BEGIN
+      READ_SHORT ("%fx_off%" +        ("%index%" * 0x30)) "type"
+      READ_ASCII ("%fx_off%" + 0x14 + ("%index%" * 0x30)) "eff_file"
+      PATCH_IF (("%type%" = 177) AND
+                 ("%eff_file%" STRING_COMPARE_CASE "UNDDAM1" = 0) OR
+                 ("%eff_file%" STRING_COMPARE_CASE "TROLLD1" = 0) OR
+                 ("%eff_file%" STRING_COMPARE_REGEXP "FT[1-3]DAM" = 0) OR
+                 ("%eff_file%" STRING_COMPARE_REGEXP "SW1H62[BCDEF]" = 0)) BEGIN
+        READ_ASCII   ("%fx_off%" +        ("%index%" * 0x30)) "clone" (48)
+        DELETE_BYTES ("%fx_off%" +        ("%index%" * 0x30)) 0x30
+        SET fx_num = (fx_num - 1)
+        SET delta  = (delta - 1)
+        SET index  = (index - 1)
+        INNER_ACTION BEGIN // lazy, just grab ids targeting from eff
+
+          COPY_EXISTING ~%eff_file%.eff~ ~override~
+            READ_ASCII 0x1c "ids" (8)
+            BUT_ONLY
+
+        END
+        FOR (index2 = 0 ; index2 < abil_num ; index2 = index2 + 1) BEGIN
+          READ_BYTE   ("%abil_off%" +        ("%index2%" * 0x38)) "type"
+          READ_SHORT  ("%abil_off%" + 0x20 + ("%index2%" * 0x38)) "abil_fx_idx"
+          SET "abil_fx_idx" = "%abil_fx_idx%" + "%delta%"
+          WRITE_SHORT ("%abil_off%" + 0x20 + ("%index2%" * 0x38)) "%abil_fx_idx%"
+          PATCH_IF (("%type%" = 1) OR ("%type%" = 2)) BEGIN
+            INSERT_BYTES (fx_off +        (0x30 * abil_fx_idx)) 0x30
+            WRITE_ASCIIE (fx_off +        (0x30 * abil_fx_idx)) "%clone%"
+            WRITE_SHORT  (fx_off +        (0x30 * abil_fx_idx)) 177     // use eff
+            WRITE_BYTE   (fx_off + 0x02 + (0x30 * abil_fx_idx))   2     // preset target
+            WRITE_ASCIIE (fx_off + 0x04 + (0x30 * abil_fx_idx)) "%ids%" // ids target from eff
+            WRITE_BYTE   (fx_off + 0x0c + (0x30 * abil_fx_idx))   1     // instant/perm
+            WRITE_ASCIIE (fx_off + 0x14 + (0x30 * abil_fx_idx)) "%eff_file%" #8 // for the items with changing effs
+            READ_SHORT  ("%abil_off%" + 0x1e + ("%index2%" * 0x38)) "abil_fx_num"
+            WRITE_SHORT ("%abil_off%" + 0x1e + ("%index2%" * 0x38)) ("%abil_fx_num%" + 1)
+            SET delta = (delta + 1)
+          END
+        END
+      END
+    END
+    WRITE_SHORT  0x70 "%fx_num%"
+  END
+  BUT_ONLY
+
 /* compile .d files into .dlg files which get stored in the Overide directory */
 COMPILE ~Yasraena\Dialogues\YASRAENP.d~ ~Yasraena\Dialogues\YASRA25P.d~
 USING ~Yasraena\English\JOURNAL.tra~