| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battle')
| -rw-r--r-- | src/battle/mechanic/condition/blt_cond_heal.erl | 117 | ||||
| -rw-r--r-- | src/battle/struct/btl_condition.erl | 34 |
2 files changed, 111 insertions, 40 deletions
diff --git a/src/battle/mechanic/condition/blt_cond_heal.erl b/src/battle/mechanic/condition/blt_cond_heal.erl index edb01fd..021739f 100644 --- a/src/battle/mechanic/condition/blt_cond_heal.erl +++ b/src/battle/mechanic/condition/blt_cond_heal.erl @@ -1,7 +1,9 @@ -module(btl_cond_heal). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +-include("tacticians/conditions.hrl"). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -24,14 +26,14 @@ -> { btl_condition:type(), - btl_condition:update_order(), + btl_condition:update_action(), [{btl_character:type(), ataxic:basic()}] }. apply_to_character (Condition, S0Character) -> - {_, Amount} = btl_condition:get_parameters(Condition), + {_TargetIX, Amount} = btl_condition:get_parameters(Condition), case btl_character:get_is_alive(S0Character) of - false -> {Condition, btl_condition:do_nothing(), []}; + false -> {Condition, none, []}; true -> RemainingUses = btl_condition:get_remaining_uses(Condition), CurrentHealth = btl_character:get_current_health(S0Character), @@ -39,7 +41,7 @@ apply_to_character (Condition, S0Character) -> shr_attributes:get_health ( shr_character:get_attributes - j( + ( btl_character:get_base_character(S0Character) ) ), @@ -54,7 +56,7 @@ apply_to_character (Condition, S0Character) -> (RemainingUses == -1) -> { Condition, - btl_condition:do_nothing(), + do_nothing, [{S1Character, CharacterUpdate}] }; @@ -65,14 +67,14 @@ apply_to_character (Condition, S0Character) -> UpdatedRemainingUses, Condition ), - btl_condition:remove(), + remove, [{S1Character, CharacterUpdate}] }; (RemainingUses == 0) -> { Condition, - btl_condition:remove(), + remove, [{S1Character, CharacterUpdate}] }; @@ -85,52 +87,95 @@ apply_to_character (Condition, S0Character) -> ), { UpdatedCondition, - btl_condition:update(ConditionUpdate), + {update, ConditionUpdate}, [{S1Character, CharacterUpdate}] } end end. +-spec handle_trigger + ( + btl_condition:trigger(), + btl_condition:type() + ) + -> btl_condition:trigger(). +handle_trigger ({TriggerType, S0TriggerData}, Condition) -> + {TargetIX, _Amount} = btl_condition:get_parameters(Condition), + + case + ( + (TriggerType == ?CONDITION_TRIGGER_START_OF_OWN_ATTACK) + or (TriggerType == ?CONDITION_TRIGGER_END_OF_OWN_ATTACK) + or (TriggerType == ?CONDITION_TRIGGER_START_OF_OWN_HIT) + or (TriggerType == ?CONDITION_TRIGGER_END_OF_OWN_HIT) + or (TriggerType == ?CONDITION_TRIGGER_OWN_DODGE) + or (TriggerType == ?CONDITION_TRIGGER_OWN_CRITICAL) + or (TriggerType == ?CONDITION_TRIGGER_OWN_DOUBLE_HIT) + or (TriggerType == ?CONDITION_TRIGGER_OWN_DAMAGE) + or (TriggerType == ?CONDITION_TRIGGER_START_OF_TARGET_ATTACK) + or (TriggerType == ?CONDITION_TRIGGER_END_OF_TARGET_ATTACK) + or (TriggerType == ?CONDITION_TRIGGER_START_OF_TARGET_HIT) + or (TriggerType == ?CONDITION_TRIGGER_END_OF_TARGET_HIT) + or (TriggerType == ?CONDITION_TRIGGER_TARGET_DODGE) + or (TriggerType == ?CONDITION_TRIGGER_TARGET_CRITICAL) + or (TriggerType == ?CONDITION_TRIGGER_TARGET_DOUBLE_HIT) + or (TriggerType == ?CONDITION_TRIGGER_TARGET_DAMAGE) + ) + of + false -> {TriggerType, S0TriggerData}; + true -> + {Char0IX, Char0, Char1IX, Char1} = TriggerData, + if + (Char0IX == TargetIX) -> + {_UpdatedCondition, _UpdateOrder, UpdatedChar} = + apply_to_character(Condition, Char0), + + { + TriggerType, + { + Char0IX + UpdatedChar, + Char1IX, + Char1 + } + }; + + (Char1IX == TargetIX) -> + {_UpdatedCondition, _UpdateOrder, UpdatedChar} = + apply_to_character(Condition, Char0), + + { + TriggerType, + { + Char0IX + Char0, + Char1IX, + UpdatedChar + } + }; + + true -> {TriggerType, S0TriggerData} + end + end. + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -spec apply ( btl_condition:trigger(), - tuple(), btl_condition:type(), btl_character_turn_update:type() ) -> { - [{btl_condition:type(), ataxic:basic()}], - tuple(), + btl_condition:type(), + btl_condition:update_action(), + btl_condition:trigger(), btl_character_turn_update:type() }. -apply(?CONDITION_TRIGGER_START_OF_PLAYER_TURN, {PlayerIX}, Condition, Update) -> -apply(?CONDITION_TRIGGER_END_OF_PLAYER_TURN, {PlayerIX}, Condition, Update) -> -apply -( - ?CONDITION_TRIGGER_START_OF_CHARACTER_TURN, - {CharacterIX}, - Condition, - Update -) -> -apply -( - ?CONDITION_TRIGGER_END_OF_CHARACTER_TURN, - {CharacterIX}, - Condition, - Update -) -> -apply -( - ?CONDITION_TRIGGER_END_OF_CHARACTER_TURN, - {CharacterIX}, - Condition, - Update -) -> +apply (S0Trigger, Condition, Update) -> + S1Trigger = handle_trigger(S0Trigger, Condition), - Trigger, Parameters, Condition, Update) -> @@ -139,6 +184,4 @@ apply {StoredTargetIX, StoredAmount} -> {StoredTargetIX, StoredAmount}; Other -> error({condition, parameter, Other}) end, - - % TODO {[{Condition, []}], Update}. diff --git a/src/battle/struct/btl_condition.erl b/src/battle/struct/btl_condition.erl index 1f8228f..4697a3c 100644 --- a/src/battle/struct/btl_condition.erl +++ b/src/battle/struct/btl_condition.erl @@ -51,7 +51,7 @@ non_neg_integer(), btl_character:type(), non_neg_integer(), - btl_character:type(), + btl_character:type() } } @@ -77,6 +77,8 @@ } ). +-type update_action() :: (none, remove, {update, ataxic:basic()}). + -record ( btl_cond, @@ -91,7 +93,7 @@ -opaque type() :: #btl_cond{}. --export_type([type/0, trigger/0]). +-export_type([type/0, trigger/0, update_action/0]). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -129,7 +131,8 @@ -export ( [ - triggers_on/2 + triggers_on/2, + apply/3 ] ). @@ -296,5 +299,30 @@ get_duration_field () -> #btl_cond.duration. -spec get_parameters_field () -> non_neg_integer(). get_parameters_field () -> #btl_cond.parameters. +-spec apply + ( + type(), + trigger(), + btl_character_turn_update() + ) + -> {trigger(), btl_character_turn_update:type()}. +apply (S0Condition, S0Trigger, S0Update) -> + Module = shr_condition_selector:get_module(get_category(S0Condition)), + + {S1Condition, UpdateAction, S1Trigger, S1Update} = + erlang:apply(Module, apply, [S0Trigger, S0Condition, S0Update]), + + case UpdateAction of + none -> {S1Trigger, S1Update}; + remove -> + % TODO + {S1Trigger, S1Update}; + + {update, ConditionUpdate} -> + % TODO + {S1Trigger, S1Update} + + end. + -spec encode (type()) -> {list({binary(), any()})}. encode (Condition) -> {[]} % TODO. |