Making actors in a level

kthakore · Jun 15, 2012 · e36fc1c · e36fc1c
1 parent a2fab5f
commit e36fc1c
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 8 deletions.
diff --git a/lib/Avenger/Actor.pm b/lib/Avenger/Actor.pm
@@ -8,11 +8,33 @@ sub actor {
 
   foreach my $actor_key ( keys %args ) {
       my $actor_class = "$base::$actor_key";
-      my $actor; #TODO: Make DSL calling DSL work = $actor_class
+      my $actor = new( $actor_class,  $args{$actor_key} ); 
+      #TODO: Make DSL calling DSL work = $actor_class
   }
 
 }
 
+
+sub new {
+    my $class = shift; 
+    my %args = @_;
+    my $body_hash = delete $args{body};
+    my $body = world->create_body( $body_hash );
+
+    if(my $v =  delete %{$body_hash}{velocity} )
+    {
+        $body->velocity( @$v )
+    }
+    #HOLY COMMUNION 
+    my $flesh = bless { body => $body }, $class;
+
+
+    $flesh->setup( @_ );
+
+    return $flesh;
+
+}
+
 sub import {
     my $class      = shift;
     my %properties = ( ref $_[0] ? %{ $_[0] } : @_ );
@@ -23,8 +45,8 @@ sub import {
     #  *{"${caller}::setup"}   = sub {$self};
 }
 
-sub setup {
-
+sub body {
+    return $_[0]->{body}
 }
 
 sub draw {

diff --git a/lib/Zemmings/Actor/Zemming.pm b/lib/Zemmings/Actor/Zemming.pm
@@ -1,11 +1,11 @@
 package Zemmings::Actor::Zemming;
 use Avenger::Actor;
 
-setup {
+sub setup {
     my $self = shift;
-    $self->body->velocity = 5;
-    $self->body->y = 600;
-    $self->body->x = 100;
+
+#    $self->{body} is the body
+
 };
 
 event 'tick' => sub {

diff --git a/lib/Zemmings/Level.pm b/lib/Zemmings/Level.pm
@@ -10,7 +10,7 @@ actor 'Zemming' => {
     body => {
         x        => 10,
         y        => 600,
-        velocity => { x => 5, y => 0 }
+        velocity => [ 5, 0 ]
     }
 };