Reply to thread

Message

<blockquote data-quote="sfedi" data-source="post: 4999386" data-attributes="member: 15746">What would the party's tactic be?(we must first add more conditions to make this work: the marked condition and to-hit bonuses or something like that from the Cleric, oh, and Healing Word)Isn't the default to not attack downed foes?Why would we want to see that scenario?Mmm, that makes sense.Maybe in a group that may be different.Perhaps we should stick to: downed creature is out of the combat. period.Oh, I didn't meant a test case, only a run experiment and posted here, something like that.Some thing I got thinking today and what we should have next is a good idea/specification on:&nbsp;- how the simulation is ran&nbsp;- the steps taken in the combatSo we are sure we are doing the same, and avoid subtle bugs.After that, define/know what are we measuring, when and how.So we can be sure what the numbers mean.For now, it seems that posting the code is the best way to go for having this.Having said that...[sblock=Script that runs the simulation][code]&quot;Run a combat simulation&quot;| cr |cr := SimulationRunner new.cr simulatorBuilder: [CombatSimulator new].cr addPCsBlock: [ :cs |&nbsp; &nbsp; (cs addPlayer: (Player with: (Fighter level: 1))); group: 'PCs'].cr addMonstersBlock: [ :cs |&nbsp; &nbsp; (cs addPlayer: (Player with: (Soldier level: 1))); group: 'Monsters'].cr numberOfRuns: 1000.cr addMeasuring: TotalRuns new.cr addMeasuring: (Average of: DailiesUsed).cr addMeasuring: (Average of: CombatDurations).cr addMeasuring: (Histogram of: CombatDurations).cr addMeasuring: (AverageFromTotal &nbsp; &nbsp; of: (HitPointsRemaining) &nbsp; &nbsp; fromTotal: [:creature | creature maxHitpoints]).cr addMeasuring: (Histogram of: (HitPointsRemaining)).cr addMeasuring: (AverageFromTotal &nbsp; &nbsp; of: (HitPointsRemainingAfterDay) &nbsp; &nbsp; fromTotal: [:creature | creature maxHitpoints]).cr addMeasuring: (Histogram of: (HitPointsRemainingAfterDay)).cr addMeasuring: (AverageFromTotal &nbsp; &nbsp; of: (HealingSurgesRemaining) &nbsp; &nbsp; fromTotal: [:creature | creature maxHealingSurges]).cr addMeasuring: (Histogram of: (HealingSurgesRemaining)).cr addMeasuring: (Average&nbsp; &nbsp; of: CombatsPerDay).cr addMeasuring: (Histogram of: (CombatsPerDay)).cr run.(CombatReport on: cr) displayString.[/code][/sblock][sblock=Running a simulation and getting the data][code]run&nbsp; &nbsp; self initializeMeasurings.&nbsp; &nbsp; self numberOfRuns timesRepeat: [| simulation currentCombat maxCombats arePCsAlive |&nbsp; &nbsp; &nbsp; &nbsp; simulation := self newSimulation.&nbsp; &nbsp; &nbsp; &nbsp; self addPCsTo: simulation.&nbsp; &nbsp; &nbsp; &nbsp; maxCombats := 50.&nbsp; &nbsp; &nbsp; &nbsp; currentCombat := 1.&nbsp; &nbsp; &nbsp; &nbsp; arePCsAlive := simulation arePCsAlive.&nbsp; &nbsp; &nbsp; &nbsp; [currentCombat &lt;= maxCombats and: [arePCsAlive]] whileTrue: [&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; simulation removeMonsters.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; self addMonstersTo: simulation.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; simulation context at: 'currentCombat' put: currentCombat.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; simulation run.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; self measureAfterCombat: simulation.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; arePCsAlive := simulation arePCsAlive.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; arePCsAlive ifTrue: [&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; simulation runAfterCombat.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; self measureAfterShortRest: simulation].&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentCombat := currentCombat + 1.&nbsp; &nbsp; &nbsp; &nbsp; ].&nbsp; &nbsp; &nbsp; &nbsp; self measureAfterDay: simulation.&nbsp; &nbsp; ].[/code][/sblock][sblock=Running the combat][code]run&nbsp; &nbsp; self players do: [:each | each combat: self].&nbsp; &nbsp; self rollInitiative.&nbsp; &nbsp; self runCombat.rollInitiative&nbsp; &nbsp; | initiativesAndPlayers |&nbsp; &nbsp; initiativesAndPlayers := self players &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; collect: [:player | Association key: player initiativeRoll value: player].&nbsp; &nbsp; initiativesAndPlayers := initiativesAndPlayers asSortedCollection.&nbsp; &nbsp; orderedCombatants := initiativesAndPlayers collect: [:each | each value]runCombat&nbsp; &nbsp; | anyoneActed |&nbsp; &nbsp; anyoneActed := true.&nbsp; &nbsp; self currentRound: 0.&nbsp; &nbsp; [anyoneActed] whileTrue: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [anyoneActed := false.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; orderedCombatants do: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [:player | &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (player wantsToAct) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ifTrue: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [anyoneActed := true.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; player act]].&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; self currentRound: self currentRound + 1.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (anyoneActed not and: [self currentRound = 1]) ifTrue: [self halt]].[/code][/sblock][sblock=How the player acts][code][b]When Second Wind is a minor, I put this code[/b]act&nbsp; &nbsp; ^self shouldHealInCombat ifTrue: [self doSecondWind. self doAttack] ifFalse: [self doAttack][b]When Second Wind is a standard, I put this code[/b]act&nbsp; &nbsp; ^self shouldHealInCombat ifTrue: [self doSecondWind] ifFalse: [self doAttack]shouldHealInCombat&nbsp; &nbsp; ^self areHitpointLowEnough and: [self isSecondWindAvailble]areHitpointLowEnough&nbsp; &nbsp; ^self character currentHitpoints + self character healingSurgeValue &lt;= self character maxHitpointsdoSecondWind&nbsp; &nbsp; self getSecondWindAction actOn: self character.doAttack&nbsp; &nbsp; | enemies |&nbsp; &nbsp; enemies := self activeEnemiesIn: self combat.&nbsp; &nbsp; enemies isEmpty ifTrue: [^nil].&nbsp; &nbsp; self combat resolve: self chooseAttack against: enemies first characterchooseAttack&nbsp; &nbsp; | minimumUsageAllowed |&nbsp; &nbsp; minimumUsageAllowed := EncounterUsage.&nbsp; &nbsp; self isSituationDesperate ifTrue: [minimumUsageAllowed := DailyUsage].&nbsp; &nbsp; ^(self character powers select: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [:each | &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (each isAttack and: [each isAvailable]) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; and: [each usage isAsFrequentOrMoreThan: minimumUsageAllowed]]) &nbsp; &nbsp; &nbsp; &nbsp; maxUsing: [:each | each averageDamage]isSituationDesperate&nbsp; &nbsp; ^self character isBloodied.[/code][/sblock][sblock=What happens after/between a combat(s)][code]runAfterCombat&nbsp; &nbsp; ^self players do: [:each | each takeShortRest].Player&gt;&gt;takeShortRest&nbsp; &nbsp; [character healingSurges &gt; 0 and: [self shouldHealInShortRest]] &nbsp; &nbsp; &nbsp; &nbsp; whileTrue: [self spendHealingSurgeWhileInShortRest].&nbsp; &nbsp; self character powers do: [:each | each takeShortRest]shouldHealInShortRest&nbsp; &nbsp; ^self isDamageTakenMoreThan: (3/4) of: self character healingSurgeValue.spendHealingSurgeWhileInShortRest&nbsp; &nbsp; ^self character spendHealingSurge.spendHealingSurge&nbsp; &nbsp; (self healingSurges &gt; 0) ifTrue: [&nbsp; &nbsp; &nbsp; &nbsp; self healingSurges: self healingSurges - 1.&nbsp; &nbsp; &nbsp; &nbsp; self regainHitpoints: self healingSurgeValue.&nbsp; &nbsp; ].regainHitpoints: anInteger&nbsp; &nbsp; (self currentHitpoints &lt;= 0) ifTrue: [self currentHitpoints: 0].&nbsp; &nbsp; self currentHitpoints: self currentHitpoints + anInteger.&nbsp; &nbsp; self currentHitpoints &gt; self maxHitpoints ifTrue: [self currentHitpoints: self maxHitpoints][/code][/sblock]Oh, BTW, this is Smalltalk code. Run on Dolphin Smalltalk 6.I can mail or upload the packages for all the code if someone wants.</blockquote>

[QUOTE="sfedi, post: 4999386, member: 15746"] What would the party's tactic be? (we must first add more conditions to make this work: the marked condition and to-hit bonuses or something like that from the Cleric, oh, and Healing Word) Isn't the default to not attack downed foes? Why would we want to see that scenario? Mmm, that makes sense. Maybe in a group that may be different. Perhaps we should stick to: downed creature is out of the combat. period. Oh, I didn't meant a test case, only a run experiment and posted here, something like that. Some thing I got thinking today and what we should have next is a good idea/specification on: - how the simulation is ran - the steps taken in the combat So we are sure we are doing the same, and avoid subtle bugs. After that, define/know what are we measuring, when and how. So we can be sure what the numbers mean. For now, it seems that posting the code is the best way to go for having this. Having said that... [sblock=Script that runs the simulation][code] "Run a combat simulation" | cr | cr := SimulationRunner new. cr simulatorBuilder: [CombatSimulator new]. cr addPCsBlock: [ :cs | (cs addPlayer: (Player with: (Fighter level: 1))); group: 'PCs']. cr addMonstersBlock: [ :cs | (cs addPlayer: (Player with: (Soldier level: 1))); group: 'Monsters']. cr numberOfRuns: 1000. cr addMeasuring: TotalRuns new. cr addMeasuring: (Average of: DailiesUsed). cr addMeasuring: (Average of: CombatDurations). cr addMeasuring: (Histogram of: CombatDurations). cr addMeasuring: (AverageFromTotal of: (HitPointsRemaining) fromTotal: [:creature | creature maxHitpoints]). cr addMeasuring: (Histogram of: (HitPointsRemaining)). cr addMeasuring: (AverageFromTotal of: (HitPointsRemainingAfterDay) fromTotal: [:creature | creature maxHitpoints]). cr addMeasuring: (Histogram of: (HitPointsRemainingAfterDay)). cr addMeasuring: (AverageFromTotal of: (HealingSurgesRemaining) fromTotal: [:creature | creature maxHealingSurges]). cr addMeasuring: (Histogram of: (HealingSurgesRemaining)). cr addMeasuring: (Average of: CombatsPerDay). cr addMeasuring: (Histogram of: (CombatsPerDay)). cr run. (CombatReport on: cr) displayString. [/code][/sblock] [sblock=Running a simulation and getting the data][code] run self initializeMeasurings. self numberOfRuns timesRepeat: [| simulation currentCombat maxCombats arePCsAlive | simulation := self newSimulation. self addPCsTo: simulation. maxCombats := 50. currentCombat := 1. arePCsAlive := simulation arePCsAlive. [currentCombat <= maxCombats and: [arePCsAlive]] whileTrue: [ simulation removeMonsters. self addMonstersTo: simulation. simulation context at: 'currentCombat' put: currentCombat. simulation run. self measureAfterCombat: simulation. arePCsAlive := simulation arePCsAlive. arePCsAlive ifTrue: [ simulation runAfterCombat. self measureAfterShortRest: simulation]. currentCombat := currentCombat + 1. ]. self measureAfterDay: simulation. ]. [/code][/sblock] [sblock=Running the combat][code] run self players do: [:each | each combat: self]. self rollInitiative. self runCombat. rollInitiative | initiativesAndPlayers | initiativesAndPlayers := self players collect: [:player | Association key: player initiativeRoll value: player]. initiativesAndPlayers := initiativesAndPlayers asSortedCollection. orderedCombatants := initiativesAndPlayers collect: [:each | each value] runCombat | anyoneActed | anyoneActed := true. self currentRound: 0. [anyoneActed] whileTrue: [anyoneActed := false. orderedCombatants do: [:player | (player wantsToAct) ifTrue: [anyoneActed := true. player act]]. self currentRound: self currentRound + 1. (anyoneActed not and: [self currentRound = 1]) ifTrue: [self halt]]. [/code][/sblock] [sblock=How the player acts][code] [b]When Second Wind is a minor, I put this code[/b] act ^self shouldHealInCombat ifTrue: [self doSecondWind. self doAttack] ifFalse: [self doAttack] [b]When Second Wind is a standard, I put this code[/b] act ^self shouldHealInCombat ifTrue: [self doSecondWind] ifFalse: [self doAttack] shouldHealInCombat ^self areHitpointLowEnough and: [self isSecondWindAvailble] areHitpointLowEnough ^self character currentHitpoints + self character healingSurgeValue <= self character maxHitpoints doSecondWind self getSecondWindAction actOn: self character. doAttack | enemies | enemies := self activeEnemiesIn: self combat. enemies isEmpty ifTrue: [^nil]. self combat resolve: self chooseAttack against: enemies first character chooseAttack | minimumUsageAllowed | minimumUsageAllowed := EncounterUsage. self isSituationDesperate ifTrue: [minimumUsageAllowed := DailyUsage]. ^(self character powers select: [:each | (each isAttack and: [each isAvailable]) and: [each usage isAsFrequentOrMoreThan: minimumUsageAllowed]]) maxUsing: [:each | each averageDamage] isSituationDesperate ^self character isBloodied. [/code][/sblock] [sblock=What happens after/between a combat(s)][code] runAfterCombat ^self players do: [:each | each takeShortRest]. Player>>takeShortRest [character healingSurges > 0 and: [self shouldHealInShortRest]] whileTrue: [self spendHealingSurgeWhileInShortRest]. self character powers do: [:each | each takeShortRest] shouldHealInShortRest ^self isDamageTakenMoreThan: (3/4) of: self character healingSurgeValue. spendHealingSurgeWhileInShortRest ^self character spendHealingSurge. spendHealingSurge (self healingSurges > 0) ifTrue: [ self healingSurges: self healingSurges - 1. self regainHitpoints: self healingSurgeValue. ]. regainHitpoints: anInteger (self currentHitpoints <= 0) ifTrue: [self currentHitpoints: 0]. self currentHitpoints: self currentHitpoints + anInteger. self currentHitpoints > self maxHitpoints ifTrue: [self currentHitpoints: self maxHitpoints] [/code][/sblock] Oh, BTW, this is Smalltalk code. Run on Dolphin Smalltalk 6. I can mail or upload the packages for all the code if someone wants. [/QUOTE]

Verification