| Games-Nintendo-Mario documentation | Contained in the Games-Nintendo-Mario distribution. |
Games::Nintendo::Mario::SMBTLL - a class for long-lost Italian plumbers
version 0.204
use Games::Nintendo::Mario::SMBLL;
my $hero = new Games::Nintendo::Mario::SMB
name => 'Luigi',
state => 'normal';
$hero->powerup('mushroom'); # doop doop doop!
$hero->powerup('flower'); # change clothes
$hero->powerup('poison_mushroom'); # uh oh!
$hero->damage; # cue the Mario Death Music
This class subclasses Games::Nintendo::Mario, providing a model of the behavior of the Mario Brothers in Super Mario Brothers: The Lost Levels. All of the methods described in the Mario interface exist as documented.
The plumber may be named Mario or Luigi.
The plumber's state may be any of: normal, super, or fire
Valid powerups are: mushroom, poison_mushroom, and flower
gamesThis ruleset reflects Mario in Super Mario Bros.: The Lost Levels, the original Japanese sequel to SMB, later released as SMBTLL in the US (and now available on the Wii Virtual Console).
Ricardo SIGNES <rjbs@cpan.org>
Copyright 2007 by Ricardo SIGNES <rjbs@cpan.org>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
| Games-Nintendo-Mario documentation | Contained in the Games-Nintendo-Mario distribution. |
use strict; use warnings; package Games::Nintendo::Mario::SMBTLL; our $VERSION = '0.204'; use base qw(Games::Nintendo::Mario::SMB); sub _items { qw[mushroom flower poison_mushroom] } sub _goto_hash { my ($self) = @_; my $goto_hash = $self->SUPER::_goto_hash; return { %$goto_hash, poison_mushroom => $goto_hash->{damage} } } sub games { return ( 'Super Mario Bros.: The Lost Levels', # 'Super Mario Bros. 2: For Super Players', ); } "It's-a me! Mario!"; __END__