Code: Select all
# tRO new packets (2008-09-16Ragexe12_Th)
'02B1' => ['quest_list'],
Code: Select all
sub quest_list {
my ($self, $args) = @_;
my ($questID, $state, $i);
for ($i = 8; $i < $args->{RAW_MSG_SIZE}; $i += 5) {
($questID, $state) = unpack('V C', substr($args->{RAW_MSG}, $i, 5));
# TODO
}
}
srry if is the wrong section =X