Handle show_eq

sub show_eq2 {
   my ($self, $args) = @_;

   message "Length: $args->{len}\n";
   error "-------------------------------\n";
   message "Name: $args->{name}\n";
   message "Class: $jobs_lut{$args->{class}} ($args->{class})\n";
   message "Sex: $sex_lut{$args->{sex}} ($args->{sex})\n";
   error "-------------------------------\n";

   my $QuantidadeDeEquips = ($args->{len} - 45)/28;
   message "Quantidade de equips: $QuantidadeDeEquips \n";
   error "-------------------------------\n";

   for (my $offset = 0; $offset < length($args->{equips}); $offset += 28) {
      my ($valor1, $ID, $valor3, $valor4, $slot, $refine, $slot1, $slot2, $slot3, $slot4, $valor11, $valor12, $valor13, $valor14) = unpack("v14", substr($args->{equips}, $offset, 28));

      if ($slot1 == 255) {
         # Forged weapon
         #
         # # Display e.g. "VVS Earth" or "Fire"

         # # slot1 -> Intensidade da força
          # # VS = Forte  |  VVS = Muito forte  |  ??? = Fortíssima  |  ??? = Exra forte
         # # slot2 -> Elemento
         # # slot4 e slot4 -> Nick do criador da arma
         my $elementID = $slot2 % 10;
         my $elementName = $elements_lut{$elementID};
         my $starCrumbs = ($slot2 >> 8) / 5;
            if ($starCrumbs >= 1 && $starCrumbs <= 3 ) {
            $slot1 .= ('V'x$starCrumbs)."S " if $starCrumbs;
            }
         $prefix .= "$elementName " if ($elementName ne "");
         $slot2 = "$elementName" if ($elementName ne "");

         # Recolher o nick de quem criou a arma
         $slot3 = unpack("x16 a4 x10", substr($args->{equips}, $offset, 28));
         $slot3 = getHex($slot3);
         $messageSender->sendRaw("93 01 $slot3");

         $slot4 = '';
      }

      my $refineDividido = $refine / 256;

      message "valor1: $valor1 \n";
      message "Nome  : $items_lut{$ID} ($ID) \n";
      message "valor3: $valor3 \n";
      message "valor4: $valor4 \n";
      message "Slot  : $equipSlot_lut{$slot} ($slot) \n";
      essage "Refine: $refine_lut{$refine} ($refine) \n";
      message "Refine: $refineDividido ($refine) \n";
      message "Slot1: $items_lut{$slot1} ($slot1) \n";
      message "Slot2: $items_lut{$slot2} ($slot2) \n";
      message "Sot3: $items_lut{$slot3} ($slot3) \n";
      message "Slot4: $items_lut{$slota4} ($slot4) \n";
      message "valor11: $valor11 \n";
      message "valor12: $valor12 \n";
      message "valor13: $valor13 \n";
      message "valor14: $valor14 \n";
      error "--------------- \n";
   }
}