From e39c44eabaea7bafa58aa85593b80a6c55f907a3 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 23 Apr 2019 18:26:09 +0200 Subject: ... --- src/shared/struct/shr_character.erl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/shared/struct/shr_character.erl') diff --git a/src/shared/struct/shr_character.erl b/src/shared/struct/shr_character.erl index 133a6c2..09ad10b 100644 --- a/src/shared/struct/shr_character.erl +++ b/src/shared/struct/shr_character.erl @@ -56,6 +56,7 @@ ataxia_set_name/2, set_equipment/2, + ataxia_set_equipment/2, ataxia_set_equipment/3, set_extra_omnimods/2, @@ -138,6 +139,19 @@ set_equipment (Eq, Char) when is_record(Char, shr_char) -> set_equipment (EqRef, CharRef) when is_record(CharRef, shr_char_ref) -> CharRef#shr_char_ref{ equipment = EqRef }. +-spec ataxia_set_equipment + (shr_equipment:type(), type()) -> {type(), ataxic:basic()}; + ( + shr_equipment:unresolved(), + unresolved() + ) + -> {unresolved(), ataxic:basic()}. +ataxia_set_equipment (Eq, Char) -> + { + set_equipment(Eq, Char), + ataxic:update_field(get_equipment_field(), ataxic:constant(Eq)) + }. + -spec ataxia_set_equipment (shr_equipment:type(), ataxic:basic(), type()) -> {type(), ataxic:basic()}; ( -- cgit v1.2.3-70-g09d2