r8236

[Kaspy]

[EN]
For a project I'm riding now ridden 0859 (show_eq) but well back to my project.
The package show_eq 0859 operates differently from the 02D7 and not for the case.

Who wants to implement, you can use the sketch as I rode (excuse the variable names in Brazilian Portuguese, but I'm in a hurry now):
http://pastebin.com/74ZYLYGG

[PT-BR]
Para um projeto que estou montando, já montei 0859 (show_eq), mas bem voltado ao meu projeto.
O show_eq do pacote 0859 funciona de forma diferente do 02D7 e não serve para o caso.

Quem quiser implementar, pode usar como esboço o que montei (desculpa pelos nomes das variáveis em português brasileiro, mas é que estou com pressa agora):
http://pastebin.com/74ZYLYGG

[4epT]

This patch does not work on rRO:

Length: 101
-------------------------------
Name: Name
Class: ()
Sex: Girl (0)
-------------------------------
Quantidade de equips: 2
-------------------------------

[Kaspy]

[EN]
Sorry, I created the topic prey and forgot an important part:

Use this:

Code: Select all

'0859' => ['show_eq2', 'v Z24 v8 C a*', [qw(len name class head accessory accessory2 accessory3 robe headpalette bodypalette sex equips)]],

Regarding this part:

Code: Select all

$messageSender->sendRaw("93 01 $slot3");

I recommend you leave it as a comment, it still is not working properly on some servers.

I tested in bRO and iRO and it worked perfectly.
Foul just test some other servers and merge with the 02D7 showeq (is not a cute and showeq showeq2).

[PT-BR]
Desculpa, criei o tópico as presas e esqueci de uma parte importante:

Use isso:

Code: Select all

'0859' => ['show_eq2', 'v Z24 v8 C a*', [qw(len name class head accessory accessory2 accessory3 robe headpalette bodypalette sex equips)]],

Em relação a essa parte:

Code: Select all

$messageSender->sendRaw("93 01 $slot3");

Recomendo que deixe como comentário, pois ainda não esta funcionando corretamente em alguns servidores.

Eu testei no bRO e iRO e funcionou perfeitamente.
Falta apenas testar em alguns outros servidores e mesclar junto com o 02D7 showeq (não fica bonito um showeq e showeq2).

[4epT]

it works!!

Length: 241
-------------------------------
Name: innnga
Class: Sniper (4012)
Sex: Girl (0)
-------------------------------
Quantidade de equips: 7
-------------------------------
valor1: 39
Nome : Мантия райского уголка II (2571)
valor3: 260
valor4: 4
Slot : robe (4)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 0
---------------
valor1: 40
Nome : Костюм райского уголка IV (15031)
valor3: 260
valor4: 16
Slot : armor (16)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: Живучесть2 (4741)
Slot4: Магическая защита8 (4789)
valor11: 0
valor12: 0
valor13: 0
valor14: 0
---------------
valor1: 41
Nome : Шапка райского уголка II (18514)
valor3: 260
valor4: 256
Slot : topHead (256)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 682
---------------
alor1: 42
Nome : Сапоги райского уголка IV (2473)
valor3: 260
valor4: 64
Slot : shoes (64)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 0
---------------
valor1: 43
Nome : Охотничий лук (1718)
valor3: 264
valor4: 34
Slot : (34)
Refine: (512)
Refine: 2 (512)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 11
---------------
valor1: 44
Nome : Крестик (2608)
valor3: 260
valor4: 136
Slot : rightAccessory (8)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 0
---------------
valor1: 45
Nome : Крестик (2608)
valor3: 260
valor4: 136
Slot : leftAccessory (128)
Refine: (0)
Refine: 0 (0)
Slot1: (0)
Slot2: (0)
Sot3: (0)
Slot4: (0)
valor11: 0
valor12: 0
valor13: 0
valor14: 0
---------------

but need little to fix your code:

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 forca
# # VS = Forte | VVS = Muito forte | ??? = Fortissima | ??? = 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;
}
my $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 %refine_lut;
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";
message "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{$slot4} ($slot4) \n";
message "valor11: $valor11 \n";
message "valor12: $valor12 \n";
message "valor13: $valor13 \n";
message "valor14: $valor14 \n";
error "--------------- \n";
}
}

[Kaspy]

[EN]
The %refine_lut; is unnecessary. I wore this variable before you have a
better idea.
The rest, the command error when formatava forum.

If you can organize the command, merge with 02D7 and put in SVN, thanks.

Change

my %refine_lut;

to

#my %refine_lut;

Also change

message "Refine: $refine_lut{$refine} ($refine) \n";

to

#message "Refine: $refine_lut{$refine} ($refine) \n";

[PT-BR]
O %refine_lut; desnecessário. Eu usava essa variável antes de ter uma ideia melhor.
O resto, erro quando formatava o comando no fórum.

Se puder organizar o comando, mesclar com 02D7 e colocar no SVN, agradeço.

Altere

my %refine_lut;

para

#my %refine_lut;

Também altere

message "Refine: $refine_lut{$refine} ($refine) \n";

para

#message "Refine: $refine_lut{$refine} ($refine) \n";