▼スレッド
│
└◇1240:Re:転職所内臓 [moon] 04/21 22:05

　└◇1241:Re[2]:転職所内臓 [ブラッド] 04/22 00:49
　　└◇1242:Re[3]:転職所内臓 [moon] 04/22 14:46
　　　└◇1243:Re[4]:転職所内臓 [ブラッド] 04/22 15:57<-last

> 本体は、MISSINGLINKさんの所で配布されている物を使っています。
>
> マシマロさんが配布していらっしゃる転職内臓システムを組み込もうとしたのですが、そのまま組み込もうとした結果、職を選んで決定を押した後に「パスワードが違います」と表示されて転職が行えませんでした。
オリジナル＋転職所内蔵でしたら$Fm{'ps'}と$Fm{'pass'}の違いのためにエラーになっていることが考えられます。
転職所として組み込んだスクリプト中の$Fm{'pass'}を$Fm{'ps'}に置き換えてみてください。

> それと同様に、覇王出現システムも組み込もうとしたのですが、戦わせようとすると「IDは存在しません」と表示されて覇王と戦えません。
win.datというファイルが無い場合にもそのエラーになるようですがこのファイルは存在していますか？

お早いレスありがとうございます。

転職内臓システムは、スクリプト中の$Fm{'pass'}を$Fm{'ps'}と置き換えましたところ、今度は「パスワードが未入力です」と表示されてしまい、転職が行えませんでした。

覇王出現システムですが、win.datは同じディレクトリに置いてあります。

> 転職内臓システムは、スクリプト中の$Fm{'pass'}を$Fm{'ps'}と置き換えましたところ、今度は「パスワードが未入力です」と表示されてしまい、転職が行えませんでした。
ダウンロードして確認してみましたところ修正が足りませんでした。
転職所のスクリプト中にpassという文字列があと2箇所あると思いますが、これをpsに置き換えてください。

> 覇王出現システムですが、win.datは同じディレクトリに置いてあります。
では、まずどのサブルーチンでエラーが発生しているのかを特定してみましょう。
下記のスクリプトをsub error内の「if (!$headflag) { &header }」の次の行に追加してエラーを発生させて、表示されるメッセージをお知らせください。
※ 先頭に全角空白を使用していますのでスペースかタブに置換してください。
　　my $index = 0;
　　my @caller;
　　my ($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask);
　　while(@caller = caller($index++)){
　　　　($package, $filename, $line, $subroutine, $hasargs, $wantarray, $evaltext, $is_require, $hints, $bitmask) = @caller;
　　　　print $filename, '(', $line, '): ', $subroutine, '<br>';
　　}

転職内臓システムは、moonさんの教えに沿い置き換えたところ、正常に動かすことが出来ました。
覇王出現システムなのですが、どうやら私の設置にミスがあったようで、改めて設置したところ、正常に動きました。

色々とお騒がせしてすいませんでした。
そして、親切に教えていただき、ありがとうございます。
また改造に行き詰まり、ここにお世話になる事があるかもしれませんが、その時はよろしくお願いします。