Perl コーディング初心者質問コーナー Part26

　　　　　　, '　ｓ　　　 ＼::::::::::::i
　　　　　／"""''／ーﾅ-ｔ----|
.　　　　/ 　　,.‐　　 ⌒ 　　　／ﾍ
　　　　｛入｜(･)　　(･)　　　 ||||||| 　　／￣￣￣￣￣￣￣
　　　　　　｜⊂⌒◯-------9） 　＜ 　　　まだ、動かないぜ！ベイビー！！
　　　　　　｜ |||||||||＿　　　　｜ 　　　＼＿＿＿＿＿＿＿
　　　　　　　＼ ﾍ＿／　＼　／￣`＼､
.　　　　　　　　＼、__ i⌒i／, -'"~ 　`ヽ､
　　　　　　　,.‐'´　　　i--i　　　　　　　　＼
　　　　　　　`〈ヽ, -'"~T 　ヽ、　, -'"　~ `ヽ、
　　　　　　　／　（￣　T　　　iヽ、__　　　　　＼.
　　　　　／　　　　（￣T　　　|　　　`ヽ、　　　　｝
　　　　く　　　　　　￣　`ヽ、/__　　　　　　　　/

　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　|| ($damage < 0) and ($damage = 0);
　　　|| $defense->{'HP1'} -= $damage;はダメージ
　　　|| 　 　 　 　　　　∧＿∧ 　 。
　　　||　　　　　　　　 （　　＾＾ ）／
　　　￣￣￣￣￣￣ （　　　　つ￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 / ￣￣￣ ./| lヽ──────────────
　 　 　 　 　 　 　 　 |￣￣￣￣| | |　ダメージを受けると、糞をもらします
￣￣￣￣￣￣￣￣|＿＿＿＿|/ |
　　　　　　　　　　　　 　 　 　 　 　 ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 (・,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　〜（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)〜ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　〜（＿__ﾉ　 　 〜（＿__ﾉ