Fix success/failure computation

lang/en.json

@@ -386,10 +386,10 @@
       "combat": "Combat",
       "Counters": "Counters",
       "creature": "Creature",
-      "fiendishSuccess": "Fiendish Failure",
+      "fiendishFailure": "Fiendish Failure",
       "satanicSuccess": "Satanic Success",
-      "bonus": "Bonus",
+      "bonus": "Upright XP Trigger",
-      "penalty": "Penalty",
+      "penalty": "Reversed XP Trigger",
       "quote": "Quote",
       "current": "Curr.",
       "damage": "Damage",

module/documents/roll.mjs

@@ -219,22 +219,32 @@ export default class HellbornRoll extends Roll {
     } else if (this.total >= options.difficulty) {
       resultType = "success"
     }
+
     // Compute the result quality
     this.options.satanicSuccess = false
     this.options.fiendishFailure = false
     this.options.rollData = foundry.utils.duplicate(rollData)
-    if (resultType === "success") {
+
-      let nb6 = roll.terms[0].results.filter(r => r.result >= 4).length
+    // Check if all results are equal
-      nb6 += roll.terms[2].total <= 4 ? 1 : 0
+    let workResults = foundry.utils.duplicate(roll.terms[0].results)
-      this.options.satanicSuccess = nb6 >= 3
+    // Get the most common result of the roll
+    let commonResult = workResults.reduce((acc, r) => {
+      acc[r.result] = (acc[r.result] || 0) + 1
+      return acc
+    }, {})
+    commonResult = Object.entries(commonResult).reduce((a, b) => (a[1] > b[1]) ? a : b)[0]
+    let nbEqual = workResults.filter(r => Number(r.result) === Number(commonResult)).length
+
+    if (commonResult >= 4 && nbEqual >= 2) {
+      nbEqual += (options.nbAdvantages > 0 && roll.terms[2].total === commonResult) ? 1 : 0
+      this.options.satanicSuccess = nbEqual >= 3
       if (this.options.satanicSuccess) {
         resultType = "success"
       }
     }
-    if (resultType === "failure") {
+    if (commonResult <= 3 && nbEqual >= 2) {
-      let nb1 = roll.terms[0].results.filter(r => r.result <= 3).length
+      nbEqual += (options.nbDisadvantages > 0 && roll.terms[4].total === commonResult) ? 1 : 0
-      nb1 += roll.terms[4].total <= 3 ? 1 : 0
+      this.options.fiendishFailure = nbEqual >= 3
-      this.options.fiendishFailure = nb1 >= 3
       if (this.options.fiendishFailure) {
         resultType = "failure"
       }

templates/chat-message.hbs

@@ -23,7 +23,7 @@
 
         <li>Results :
           {{#each results as |result|}}
-            {{result.result}}
+          {{result.result}}
           {{/each}}
         </li>
 
@@ -35,39 +35,37 @@
         {{/if}}
 
 
-        {{#if (eq resultType "unknown")}}
+        {{#if isSuccess}}
-        <li class="result-unknown">
+          {{#if satanicSuccess}}
-          {{localize "HELLBORN.Label.unknown"}}
+          <li class="result-satanic-success">
-        </li>
+            {{localize "HELLBORN.Label.satanicSuccess"}}
-        {{else}}
+          </li>
-          {{#if isSuccess}}
+          {{else}}
-            {{#if satanicSuccess}}
+          <li class="result-success">
-            <li class="result-satanic-success">
+            {{localize "HELLBORN.Label.success"}}
-              {{localize "HELLBORN.Label.satanicSuccess"}}
+          </li>
-            </li>
-            {{else}}
-            <li class="result-success">
-              {{localize "HELLBORN.Label.success"}}
-            </li>
-            {{/if}}
-          {{/if}}
-
-
-          {{#if isFailure}}
-            {{#if fiendishFailure}}
-            <li class="result-fiendish-failure">
-              {{localize "HELLBORN.Label.fiendishFailure"}}
-            </li>
-            {{else}}
-            <li class="result-failure">
-              {{localize "HELLBORN.Label.failure"}}
-            </li>
-            {{/if}}
-          {{/if}}
-
-          {{#if isCritical}}
           {{/if}}
         {{/if}}
+
+
+        {{#if isFailure}}
+          {{#if fiendishFailure}}
+          <li class="result-fiendish-failure">
+            {{localize "HELLBORN.Label.fiendishFailure"}}
+          </li>
+          {{else}}
+          <li class="result-failure">
+            {{localize "HELLBORN.Label.failure"}}
+          </li>
+          {{/if}}
+        {{/if}}
+
+        {{#if (eq resultType "unknown")}}
+          <li class="result-unknown">
+            {{localize "HELLBORN.Label.unknown"}}
+          </li>
+        {{/if}}
+
       </ul>
     </div>
   </div>