diff options
Diffstat (limited to 'bin/smt')
-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"; |