Loading...   


use Data::Dumper;

#::: Store

# @hatelist = $npc->GetHateList();
@hatelist = (1, 4, 7, 8, 10);

# $hatelist[$npc->GetEntityID()] = @hatelist;
$hate_list[100] = [@hatelist];

#::: Access

@a_hatelist = $hate_list[100];

# print Dumper(@a_hatelist);

$n = 0;
while($hate_list[100][$n]){
	print $hate_list[100][$n] . "\n";
	$n++;
}

Raw Paste Data