こないだの街移動システムの件でお世話になりましたファズです。
またまた、ちょっと教えてほしいことはあって参りました。
http://www15.big.or.jp/~gunsou/SoSH/mat.html
↑のオークションのことなんですけど、オークションのところから手紙が来るとMy record が消えてしまう現象がおき困っています。
なにとぞお助けすけください。念のためソース張っておきます。

sub auction_check{
@auc_lines = &opendat($aucdat);
@end_lines = &opendat($enddat);
my (@trade_lines,@new_end_auc,$pass_flag);
foreach(0..$#end_lines){
undef $pass_flag;
($a_nm,$a_id,$a_it,$a_pc,$a_tm,$a_pnm,$a_pid,$a_cm) = split(/<>/,$end_lines[$_]);
$a_now_min=$end_limit*1440 - int((time-$a_tm)/60);
if((index($a_it,'[済]')>=0)&&(index($a_pc,'[済]')>=0)){
$pass_flag=1;
}
if (($a_now_min>0)&&(!$pass_flag)){
push(@new_end_auc,$end_lines[$_]);
}
}
foreach(0..$#auc_lines){
($a_nm,$a_id,$a_it,$a_pc,$a_tm,$a_pnm,$a_pid,$a_cm) = split(/<>/,$auc_lines[$_]);
$a_now_min=$auc_limit*1440 - int((time-$a_tm)/60);
if ($a_now_min<=0){
if ($a_pid){
$auc_lines[$_] = join('<>',"$a_nm","$a_id","$a_it","$a_pc",time,"$a_pnm","$a_pid","$a_cm","\n");
push(@new_end_auc,$auc_lines[$_]);
($item,$sts) = split(/△/,$a_it);

@prclines = &get_partner("$a_id");
if ($msg_cnt_use){
($pcc,$pfc,$psc,$ptc,$psb) = split(/△/,$prcd);
$pcc++;
$prcd = "$pcc△$pfc△$psc△$ptc△$psb";
}
&add_record("$auc_npc_nameからの手紙：$pnmの出品していた $item が $a_pc\G で落札されたもじゃよー<br>今から $end_limit日以内に落札金を引き取りに来て欲しいもじゃー<br>期限を過ぎると引き取れなくなるから注意もじゃー");

@prclines = &get_partner("$a_pid");
if ($msg_cnt_use){
($pcc,$pfc,$psc,$ptc,$psb) = split(/△/,$prcd);
$pcc++;
$prcd = "$pcc△$pfc△$psc△$ptc△$psb";
}
&add_record("$auc_npc_nameからの手紙：$pnmの入札していた $item が $a_pc\G で落札されたもじゃよー<br>今から $end_limit日以内に落札したアイテムを引き取りに来て欲しいもじゃー<br>期限を過ぎると引き取れなくなるから注意もじゃー ");

}
}else{push(@trade_lines,$auc_lines[$_]);}
}
&auction_out("$aucdat",@trade_lines);
&auction_out("$enddat",@new_end_auc);
}

重くなってすいません。
あと、ステラの交換表を作りたいのですがどうやればいいのか
わかりません。http://queserasera.main.jp/sos2/stellatio.cgi?md=0
↑のような表を作りたいのです。
あつかましいこととは思いますが、なにとぞお教えください。
m(*- -*)m

▼関連発言
│
└◆1233:オークションのこととステラ交換の表 [ファズ] 03/29 11:42
　└◆1234:Re:オークションのこととステラ交換の表 [moon] 03/29 19:45
　　└◆1235:Re[2]:オークションのこととステラ交換の表 [moon] 03/29 19:51
　　　└◆1236:Re[3]:オークションのこととステラ交換の表 [ファズ] 03/30 08:56<-last