find
Code: Select all
'0144' => ['minimap_indicator', 'V1 V1 V1 V1 v1 x3', [qw(ID clear x y color)]],
Code: Select all
'0144' => ['minimap_indicator', 'a4 V3 C5', [qw(npcID type x y ID blue green red alpha)]],
Code: Select all
sub minimap_indicator {
Code: Select all
sub minimap_indicator {
my ($self, $args) = @_;
- if ($args->{clear}) {
+ if ($args->{type} == 2) {
message TF("Minimap indicator at location %d, %d " .
- "with the color %s cleared\n", $args->{x}, $args->{y}, $args->{color}),
+ "with the color %s cleared\n", $args->{x}, $args->{y}, "[R:$args->{red}, G:$args->{green}, B:$args->{blue}, A:$args->{alpha}]"),
"info";
} else {
message TF("Minimap indicator at location %d, %d " .
- "with the color %s shown\n", $args->{x}, $args->{y}, $args->{color}),
+ "with the color %s shown\n", $args->{x}, $args->{y}, "[R:$args->{red}, G:$args->{green}, B:$args->{blue}, A:$args->{alpha}]"),
"info";
}
}