再配布を公開しているのでもない限り、ファイルそのままはリンクしないほうが良いと思いますよ。

スクリプトを見た感じ新規登録時も同じ症状になりそうな気がしますね・・・。
normal_actionの
　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line);
　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $myjb = $pjb }
を、
　　($pid, $pnm, $pps, $pjb, $pig, $psp, $pbp, $ptw) = (split(/<>/, $line))[0, 1, 2, 3, 4, 5, 6, ???]; # ???は$ptwに相当するパラメータの番号（IDから順に数えていってください。）
　　if($Fm{'id'} eq $pid){$mysp = $psp; $mybp = $pbp; $myjb = $pjb; $hp = $php; $tw = $ptw;}
に変更すれば良いと思います。

▼関連発言
│
└◆824:街ごとにアイテム変化（探索回数指定付） [織江] 10/15 14:17
　└◆825:Re:街ごとにアイテム変化（探索回数指定付） [moon] 10/15 19:51
　　└◆826:有難うございます！！ [織江] 10/15 23:07
　　　└◆833:コンタクト後の探索エラー [織江] 10/17 23:47
　　　　├◆834:つけたし。 [織江] 10/18 00:07
　　　　│└◆836:Re:つけたし。 [moon] 10/18 00:24
　　　　│　└◆837:Re[2]:つけたし。 [moon] 10/18 00:31
　　　　│　　└◆838:さらに追記 [moon] 10/18 00:35
　　　　└◆835:Re:コンタクト後の探索エラー [moon] 10/18 00:16
　　　　　└◆842:Re[2]:コンタクト後の探索エラー [織江] 10/18 20:49
　　　　　　└◆843:Re[3]:コンタクト後の探索エラー [moon] 10/18 23:30
　　　　　　　└◆844:今度こそ。 [織江] 10/19 01:11<-last