★RO Kore情報交換所　中級猿雑談スレ20★

>>473
-} elsif ($switch eq "00A8") {
-$index = unpack("S1",substr($msg, 2, 2));
-$amount = unpack("C1",substr($msg, 6, 1));
-undef $invIndex;
-$invIndex = findIndex(\@{$chars[$config{'char'}]{'inventory'}}, "index", $index);
-$chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'} -= $amount;
-print "You used Item: $chars[$config{'char'}]{'inventory'}[$invIndex]{'name'} ($invIndex) x $amount\n";
-if ($chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'} <= 0) {
-undef %{$chars[$config{'char'}]{'inventory'}[$invIndex]};
-}
-$msg_size = 7;