sub pre_check { # ステータス変動 ($u_str,$u_dex,$u_int,$u_x_hits,$u_x_stam,$u_x_mana,$u_use_skill,$u_count_skill) = &status_change($u_nm,'u',$u_a_skill,$u_st,$u_dx,$u_it,$u_ss,$u_pb,$u_nb_nm,$u_nb_ig,$u_use_skill,$u_count_skill,$u_battel_count); ($p_str,$p_dex,$p_int,$p_x_hits,$p_x_stam,$p_x_mana,$p_use_skill,$p_count_skill) = &status_change($p_nm,'p',$p_a_skill,$p_st,$p_dx,$p_it,$p_ss,$p_pb,$p_nb_nm,$p_nb_ig,$p_use_skill,$p_count_skill,$p_battel_count); push (@msg,"☆ 自分-STR:$u_str DEX:$u_dex INT:$u_int M-HITS:$u_x_hits M-STAM:$u_x_stam M-MANA:$u_x_mana") if $sn_dump; push (@msg,"☆ 相手-STR:$p_str DEX:$p_dex INT:$p_int M-HITS:$p_x_hits M-STAM:$p_x_stam M-MANA:$p_x_mana") if $sn_dump; push (@msg,' ') if $sn_dump; # 盾 ($u_shield,$u_shield_sts) = &shield_check($u_a_skill,'u'); ($p_shield,$p_shield_sts) = &shield_check($p_a_skill,'p'); push (@msg,"☆ 自分-盾:$u_shield") if $sn_dump; push (@msg,"☆ 相手-盾:$p_shield") if $sn_dump; push (@msg,' ') if $sn_dump; # 右手武器 ($u_lv_r,$u_fg_r,$u_weapon,$u_weapon_sts,$u_weapon_no,$u_weapon_flag,$u_weapon_half) = &weapon_check($u_a_skill,'u'); ($u_add_r_a,$u_add_r_b,$u_add_r_c,$u_add_r_d,$u_inval) = &arms_add_check($u_weapon_sts,$u_inval) if $u_weapon_sts; ($u_sp_r) = &special_check($u_race,$u_add_r_d) if $u_add_r_d; ($u_bd_r) = &bind_check($u_race,$u_add_r_c) if $u_add_r_c; ($p_lv_r,$p_fg_r,$p_weapon,$p_weapon_sts,$p_weapon_no,$p_weapon_flag,$p_weapon_half) = &weapon_check($p_a_skill,'p'); ($p_add_r_a,$p_add_r_b,$p_add_r_c,$p_add_r_d,$p_inval) = &arms_add_check($p_weapon_sts,$p_inval) if $p_weapon_sts; ($p_sp_r) = &special_check($p_race,$p_add_r_d) if $p_add_r_d; ($p_bd_r) = &bind_check($p_race,$p_add_r_c) if $p_add_r_c; push (@msg,"☆ 自分-メイン武器:$u_weapon Lv:$u_lv_r Flag1:$u_fg_r Non:$u_weapon_no Flag2:$u_weapon_flag Half:$u_weapon_half") if $sn_dump; push (@msg,"☆ 武器効果1 命中:$u_add_r_a 致命:$u_add_r_b 付加:$u_add_r_c 特効:$u_add_r_d 無効:$u_inval") if $sn_dump; push (@msg,"☆ 武器効果2 特効発生:$u_sp_r バインド発生:$u_bd_r") if $sn_dump; push (@msg,"☆ 相手-メイン武器:$p_weapon Lv:$p_lv_r Flag1:$p_fg_r Non:$p_weapon_no Flag2:$p_weapon_flag Half:$p_weapon_half") if $sn_dump; push (@msg,"☆ 武器効果1 命中:$p_add_r_a 致命:$p_add_r_b 付加:$p_add_r_c 特効:$p_add_r_d 無効:$p_inval") if $sn_dump; push (@msg,"☆ 武器効果2 特効発生:$p_sp_r バインド発生:$p_bd_r") if $sn_dump; push (@msg,' ') if $sn_dump; # 左手武器 ($u_lv_l,$u_fg_l,$u_left,$u_left_sts,$u_left_no,$u_left_flag) = &left_weapon($u_a_skill,'u'); ($u_add_l_a,$u_add_l_b,$u_add_l_c,$u_add_l_d,$u_inval) = &arms_add_check($u_left_sts,$u_inval) if $u_left_sts; ($u_sp_l) = &special_check($u_race,$u_add_l_d) if $u_add_l_d; ($u_bd_l) = &bind_check($u_race,$u_add_l_c) if $u_add_l_c; ($p_lv_l,$p_fg_l,$p_left,$p_left_sts,$p_left_no,$p_left_flag) = &left_weapon($p_a_skill,'p'); ($p_add_l_a,$p_add_l_b,$p_add_l_c,$p_add_l_d,$p_inval) = &arms_add_check($p_left_sts,$p_inval) if $p_left_sts; ($p_sp_l) = &special_check($p_race,$p_add_l_d) if $p_add_l_d; ($p_bd_l) = &bind_check($p_race,$p_add_l_c) if $p_add_l_c; if ($u_left_sts && $sn_dump) { push (@msg,"☆ 自分-サブ武器:$u_left Lv:$u_lv_l Flag1:$u_fg_l Non:$u_left_no Flag2:$u_left_flag"); push (@msg,"☆ 武器効果1 命中:$u_add_l_a 致命:$u_add_l_b 付加:$u_add_l_c 特効:$u_add_l_d 無効:$u_inval"); push (@msg,"☆ 武器効果2 特効発生:$u_sp_l バインド発生:$u_bd_l"); } else { push (@msg,'☆ 自分-サブ武器:NONE') if $sn_dump } if ($p_left_sts && $sn_dump) { push (@msg,"☆ 相手-サブ武器:$p_left Lv:$p_lv_l Flag1:$p_fg_l Non:$p_left_no Flag2:$p_left_flag"); push (@msg,"☆ 武器効果1 命中:$p_add_l_a 致命:$p_add_l_b 付加:$p_add_l_c 特効:$p_add_l_d 無効:$p_inval"); push (@msg,"☆ 武器効果2 特効発生:$p_sp_l バインド発生:$p_bd_l"); } else { push (@msg,'☆ 相手-サブ武器:NONE') if $sn_dump } push (@msg,' ') if $sn_dump; # アクティブスキル ($u_a_dmg,$u_a_hit,$u_a_evade,$u_a_reduc,$u_bbs15,$u_bbs16,$u_bbs19,$u_bbs23,$u_use_skill,$u_count_skill) = &active_skill_bonus($u_a_skill,$u_weapon_half,$u_weapon_flag,$u_use_skill,$u_count_skill); ($p_a_dmg,$p_a_hit,$p_a_evade,$p_a_reduc,$p_bbs15,$p_bbs16,$p_bbs19,$p_bbs23,$p_use_skill,$p_count_skill) = &active_skill_bonus($p_a_skill,$p_weapon_half,$p_weapon_flag,$p_use_skill,$p_count_skill); push (@msg,"☆ 自分-A_Skill_Bonus DMG:$u_a_dmg HIT:$u_a_hit EVD:$u_a_evade RDC:$u_a_reduc ACTIV /Bs15:$u_bbs15 /Bs16:$u_bbs16 /Bs19:$u_bbs19 /Bs23:$u_bbs23") if $sn_dump; push (@msg,"☆ 相手-A_Skill_Bonus DMG:$p_a_dmg HIT:$p_a_hit EVD:$p_a_evade RDC:$p_a_reduc ACTIV /Bs15:$u_bbs15 /Bs16:$u_bbs16 /Bs19:$u_bbs19 /Bs23:$u_bbs23") if $sn_dump; push (@msg,' ') if $sn_dump; }