


Модератор: 4epT
Новый wx.pm ($Id: Wx.pm 4710 2006-07-08 12:01:48Z hongli $)sub updateItemList {
my $self = shift;
if ($conState == 5) {
$self->{itemList}->set(\@playersID, \%players, \@monstersID, \%monsters,
\@itemsID, \%items, \@npcsID, \%npcs);
$self->{hpBar}->SetValue($char->{hp} / $char->{hp_max} * 100) if ($char->{hp_max});
$self->{spBar}->SetValue($char->{sp} / $char->{sp_max} * 100) if ($char->{sp_max});
$self->{expBar}->SetValue($char->{exp} / $char->{exp_max} * 100) if ($char->{exp_max});
$self->{jobExpBar}->SetValue($char->{exp_job} / $char->{exp_job_max} * 100) if ($char->{exp_job_max});
$self->{weightBar}->SetValue($char->{weight} / $char->{weight_max} * 100) if ($char->{weight_max});
}
}
Красным подсвечено то что изменено.sub updateItemList {
my $self = shift;
if ($conState == 5) {
$self->{hpBar}->SetValue($char->{hp} / $char->{hp_max} * 100) if ($char->{hp_max});
$self->{spBar}->SetValue($char->{sp} / $char->{sp_max} * 100) if ($char->{sp_max});
$self->{expBar}->SetValue($char->{exp} / $char->{exp_max} * 100) if ($char->{exp_max});
$self->{jobExpBar}->SetValue($char->{exp_job} / $char->{exp_job_max} * 100) if ($char->{exp_job_max});
$self->{weightBar}->SetValue($char->{weight} / $char->{weight_max} * 100) if ($char->{weight_max});
}
}
Это кусок кода, то что красным выделено, то добавлено.sub OnGetItemImage {
return 0;
}
sub set {
my $self = shift;
my @objectsID;
my %objects;
my $r_playersID = shift;
my $players = shift;
foreach (@{$r_playersID}) {
next if (!$_ || !$players->{$_});
push @objectsID, $_;
$objects{$_} = {%{$players->{$_}}};
$objects{$_}{type} = 'p';
}
my $r_monstersID = shift;
my $monsters = shift;
foreach (@{$r_monstersID}) {
next if (!$_ || !$monsters->{$_});
push @objectsID, $_;
$objects{$_} = {%{$monsters->{$_}}};
$objects{$_}{type} = 'm';
}
my $r_itemsID = shift;
my $items = shift;
foreach (@{$r_itemsID}) {
next if (!$_ || !$items->{$_});
push @objectsID, $_;
$objects{$_} = {%{$items->{$_}}};
$objects{$_}{type} = 'i';
}
my $r_npcsID = shift;
my $npcs = shift;
foreach (@{$r_npcsID}) {
next if (!$_ || !$npcs->{$_});
push @objectsID, $_;
$objects{$_} = {%{$npcs->{$_}}};
$objects{$_}{type} = 'n';
}
$self->{objectsID} = \@objectsID;
$self->{objects} = \%objects;
$self->SetItemCount(scalar(@objectsID)) if (scalar(@objectsID) != $self->GetItemCount);
$self->RefreshItems(0, -1);
}
1;