Removed "stop" direction.

jtpalmer · Aug 7, 2010 · 6e54fae · 6e54fae
1 parent 85ec110
commit 6e54fae
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 deletions.
diff --git a/lib/Games/Maze/SDL/Model.pm b/lib/Games/Maze/SDL/Model.pm
@@ -79,7 +79,7 @@ has 'player_y' => (
 has 'player_direction' => (
     is      => 'rw',
     isa     => 'Games::Maze::SDL::Direction',
-    default => 'stop',
+    default => 'south',
 );
 
 has 'player_velocity' => (

diff --git a/lib/Games/Maze/SDL/Types.pm b/lib/Games/Maze/SDL/Types.pm
@@ -4,6 +4,6 @@ package Games::Maze::SDL::Types;
 
 use Moose::Util::TypeConstraints;
 
-enum 'Games::Maze::SDL::Direction' => qw(north south west east stop);
+enum 'Games::Maze::SDL::Direction' => qw(north south west east);
 
 no Moose::Util::TypeConstraints;
diff --git a/lib/Games/Maze/SDL/View.pm b/lib/Games/Maze/SDL/View.pm
@@ -104,8 +104,6 @@ sub _build_player {
 
     $sprite->sequence( $self->model->player_direction );
 
-    $sprite->start;
-
     return $sprite;
 }
 
@@ -190,8 +188,6 @@ sub draw_maze {
 sub draw_player {
     my ($self) = @_;
 
-    $self->player->sequence('stop') if $self->model->player_velocity == 0;
-
     $self->player->draw( $self->display );
 }
 
@@ -219,8 +215,10 @@ sub handle_event {
     }
     elsif ( $event->{type} eq 'player_turned' ) {
         $self->player->sequence( $self->model->player_direction );
+        $self->player->start;
     }
     elsif ( $event->{type} eq 'player_stopped' ) {
+        $self->player->reset;
     }
 }