From bc703f9c5ac17c561a61db7f1e548a0be5fceb21 Mon Sep 17 00:00:00 2001
From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 18 Aug 2010 22:45:23 -0400
Subject: [PATCH] Fixed stop and jump in reverse direction

---
 scroller.pl | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/scroller.pl b/scroller.pl
index 255a34c..9465f14 100644
--- a/scroller.pl
+++ b/scroller.pl
@@ -89,8 +89,8 @@
             if ( $move =~ 'right' ) { $state->x($state->x+1); $state->v_x(80); $moving = 1 }
         }      
            
-            if ( $move =~ 'stopl' ) {  $moving = -1; $state->v_x(0.7* $state->v_x )}
-            if ( $move =~ 'stopr' ) {  $moving = -1; $state->v_x(0.7* $state->v_x ) }
+            if ( $move =~ 'stopl' && $move !~ 'left' && $move !~ 'right') {  $moving = -1; $state->v_x(0.7* $state->v_x )}
+            if ( $move =~ 'stopr' && $move !~ 'right' && $move =~ 'left' ) {  $moving = -1; $state->v_x(0.7* $state->v_x ) }
        
 
        # $print = " $move | $moving ";
@@ -178,7 +178,9 @@ sub check_collision {
  my @collisions = ();
 
  foreach ( @$blocks )
- {
+ { 
+	 #last if $_->[0] < 0;
+    # last if $_->[0] > $app->w;
    my $hash = { x => $mario->x, y=> $mario->y, w=> 10, h => 10, xv => $mario->v_x*0.03, yv => $mario->v_y*0.03 };
    my $rect = hash2rect ($hash);
    my $bhash =  {x=> $_->[0], y=> $_->[1], w => $_->[2], h => $_->[3] };
@@ -189,12 +191,7 @@ sub check_collision {
 
 		my $axis =  $c->axis() || 'y';
 
-		my $xdiff = $mario->x - $_->[0];
-		$xdiff = int( abs($xdiff + 0.01)/($xdiff + 0.01) );
-
-		my $ydiff = $mario->y - $_->[0];
-		$ydiff =  int( abs($ydiff + 0.01)/($ydiff + 0.01) );
-		return [$axis, $xdiff, $ydiff];
+		return [$axis];
 	 
 	}