diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-06-16 22:54:18 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-06-16 22:54:18 -0400 |
commit | 9cdb41b9182286fe654dfb760d914fddc135c4ec (patch) | |
tree | 5a19ff25204326073fe2c541fabd14c9119c4e35 | |
parent | 172d8a9e6f6050bc3d4223c96b0818460831f1c5 (diff) | |
download | games-smtnocturne-demons-9cdb41b9182286fe654dfb760d914fddc135c4ec.tar.gz games-smtnocturne-demons-9cdb41b9182286fe654dfb760d914fddc135c4ec.zip |
add all_demons to the script
-rwxr-xr-x | bin/smt | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -9,6 +9,7 @@ use Games::SMTNocturne::Demons; sub _demon { Games::SMTNocturne::Demons::demon(@_) } sub _demons_of_type { Games::SMTNocturne::Demons::demons_of_type(@_) } +sub _all_demons { Games::SMTNocturne::Demons::all_demons(@_) } sub _fuse { Games::SMTNocturne::Demons::fuse(@_) } sub _fusions_for { Games::SMTNocturne::Demons::fusions_for(@_) } @@ -48,6 +49,10 @@ sub demons_of_type { print join("\n", _demons_of_type($type)), "\n"; } +sub all_demons { + print join("\n", _all_demons), "\n"; +} + sub fuse { my ($demon1, $demon2, $sacrifice) = @_; print _fuse($demon1, $demon2, { sacrifice => $sacrifice, %$options }), "\n"; |