X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FAymCommand.pm;h=e6099aecdcf0d8f89872f81d5bb944c074cc11c4;hp=032d0c0c6e7b674700f7aa157e0689781f21d91a;hb=448ecd81168816b51bf23219e8cc802ed4e2346e;hpb=f67c6dd32094e525b54a599e96416fa1d701296a

diff --git a/src/AymCommand.pm b/src/AymCommand.pm
index 032d0c0..e6099ae 100644
--- a/src/AymCommand.pm
+++ b/src/AymCommand.pm
@@ -1896,10 +1896,16 @@ sub first_phase{
   # calculate duration
   $self->setDuration($::conf->{-DURATION}->{-BUILD_ARK});
 
-  $self->event($self->{-location},
-	       'EVENT_BUILD_ARK');
+  my $loc = $self->{-location};
+  
+  $self->event($loc,'EVENT_BUILD_ARK');
 
   $self->use_mana();
+  
+  $self->{-affected} = {
+      -fields => [$loc],
+      -mana => $self->{-player},
+  };
 
   return $self->{-duration};
 }