get weight 4

sub get_item_weight_by_name {
    my ($name) = @_;

    my $item = Match::inventoryItem($name);

    if (!$item) {
        error "[get_item_weight_by_name] Item doesn't exist in inventory.\n";
        return -1;

    } elsif (!exists $itemsDesc_lut{$item->{nameID}}) {
        error "[get_item_weight_by_name] Item has no description.\n";
        return -1;
    }

    my $desc = $itemsDesc_lut{$item->{nameID}};

    if ($desc =~ /Peso:\s+\^\d\d\d\d\d\d(\d+)\^\d\d\d\d\d\d/) {
        message "Found weight of $1 in description of item $name.\n";
        return $1;

    } elsif ($desc =~ /Peso:\s+(\d+)/) {
        message "Found weight of $1 in description of item $name.\n";
        return $1;

    } else {
        error "[get_item_weight_by_name] Could not find weight in item description.\n";
        return -1;
    }
}

macro get_weight {
    $itemName = erva vermelha
    $itemWeight = get_item_weight_by_name("$itemName")
    log Item $itemName weights $itemWeight
}