複数回探索を実現しようとして、オリジナルをループするのはまずいです。

・&splititem('i');はループ(for)の前。
・@itemlines = &opendat($itmdat);とif (!@itemlines) { &error('アイテムデータ読みこみエラー') }もループの前。
・sleep(1); srand(time | $$);は削除。
・foreach $item (@itemlines)の上に@founditems = ();を追加。
・if ($Fm{'sp'} =~ /Ft/)はVer.1.9のように修正。
・「死んでいます」「ヒットポイントが足りません」「これ以上は持てません」のreturnをlast;に、それ以外のreturnをnext;に変更。
・joinitemと2つあるuseroutを削除し、forの{}の後に&joinitem('i'); &userout;を追加。

何か問題があるかもしれないですが、とりあえず上記のような修正が必要です。

▼関連発言
│
└◆207:Myrecordについて [masaki] 12/22 19:34
　└◆208:Re:Myrecordについて [masaki] 12/22 19:35
　　└◆209:Re[2]:Myrecordについて [moon] 12/22 21:46
　　　└◆210:Re[3]:Myrecordについて [masaki] 12/22 22:23
　　　　└◆211:Re[4]:Myrecordについて [moon] 12/22 22:47
　　　　　└◆212:Re[5]:Myrecordについて [masaki] 12/23 07:09
　　　　　　└◆213:Re[6]:Myrecordについて [moon] 12/23 13:18
　　　　　　　└◆214:Re[7]:Myrecordについて [moon] 12/23 13:26
　　　　　　　　└◆215:Re[8]:Myrecordについて [masaki] 12/23 22:36<-last