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

>>71
あれ、気づかれてない?
漏れがそうなんだけどなぁ・・・・・・
やっぱ、なんかコード貼らないとダメかな

+if($config{'storageGet'}==1){
+foreach(keys %items_control){
+$invIndex = findIndexString_lc(\@{$chars[$config{'char'}]{'inventory'}}, "name", $_);
+if($invIndex eq ''){
+$i=0 ;
+}else{
+$i=$chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'};
+}
+$invIndex = findIndexString_lc(\@{$storage{'inventory'}}, "name",$_);
+next if($invIndex eq '');
+if($storage{'inventory'}[$invIndex]{'amount'}>0){
+print "$items_control{$_}{'keep'}-" if($config{'debug'});
+$i=$items_control{$_}{'keep'}-$i;
+$i=$storage{'inventory'}[$invIndex]{'amount'} if($i>$storage{'inventory'}[$invIndex]{'amount'});
+print "$storage{'inventory'}[$invIndex]{'name'}を$i個引き出します" if($config{'debug'});
+sleep(1) if($i>0);
+sendStorageGet(\$remote_socket,$invIndex,$i) if($i>0);
+}
+}
+}

自動引き出しのコードをきれいにしようとしてみたもの
やってることは大して変わってないんで、すでにいれてるんならスルーでOK