Mob Nro

Index: src/Network/Receive.pm
===================================================================
--- src/Network/Receive.pm  (revision 8979)
+++ src/Network/Receive.pm  (working copy)
@@ -512,8 +512,9 @@
    }

    #### Step 1: create the actor object ####
-
+   message "[Type]type is ".$args->{type}."\n";
    if ($object_class eq 'Actor::Player') {
+       message "[Actor]Actor is a Player\n";
        # Actor is a player
        $actor = $playersList->getByID($args->{ID});
        if (!defined $actor) {
@@ -529,6 +530,7 @@
        }
        $actor->{nameID} = $nameID;
    } elsif ($object_class eq 'Actor::Slave') {
+       message "[Actor]Actor is a Slave\n";
        # Actor is a homunculus or a mercenary
        $actor = $slavesList->getByID($args->{ID});
        if (!defined $actor) {
@@ -542,6 +544,7 @@
        }
        $actor->{nameID} = $nameID;
    } elsif ($object_class eq 'Actor::Portal') {
+       message "[Actor]Actor is a Portal\n";
        # Actor is a portal
        $actor = $portalsList->getByID($args->{ID});
        if (!defined $actor) {
@@ -561,6 +564,7 @@
        }
        $actor->{nameID} = $nameID;
    } elsif ($object_class eq 'Actor::Pet') {
+       message "[Actor]Actor is a Pet\n";
        # Actor is a pet
        $actor = $petsList->getByID($args->{ID});
        if (!defined $actor) {
@@ -583,6 +587,7 @@

        }
    } elsif ($object_class eq 'Actor::Monster') {
+       message "[Actor]Actor is a Monster\n";
        $actor = $monstersList->getByID($args->{ID});
        if (!defined $actor) {
            $actor = new Actor::Monster();
@@ -599,6 +604,7 @@
            $actor->{nameID} = $args->{type};
        }
    } elsif ($object_class eq 'Actor::NPC') {
+       message "[Actor]Actor is a Npc\n";
        # Actor is an NPC
        $actor = $npcsList->getByID($args->{ID});
        if (!defined $actor) {
@@ -622,6 +628,10 @@
    $actor->{time_move_calc} = distance(\%coordsFrom, \%coordsTo) * $actor->{walk_speed};
    # 0086 would need that?
    $actor->{object_type} = $args->{object_type} if (defined $args->{object_type});
+   my ($key1,$value1);
+   while (($key1,$value1) = each %{$actor}) {
+        message "[Actor]$key1=$value1\n";
+    }

    if (UNIVERSAL::isa($actor, "Actor::Player")) {
        # None of this stuff should matter if the actor isn't a player... => does matter for a guildflag npc!