Radar for first object only

PerlGameDev · Aug 29, 2011 · 83da47a · 83da47a
1 parent 7c1ff6c
commit 83da47a
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/examples/radar.pl b/examples/radar.pl
@@ -20,9 +20,10 @@ sub ReportFixture {
 
     my $id = $fixture->GetUserData();
 
-    $self->{objects}->[$id]->{color} = 0xFF0000FF;
 
-    return 1;
+    	$self->{objects}->[$id]->{color} = 0xFF0000FF;
+
+    return 0;
 }
 
 package main;