▼スレッド
│
└◇256:Re[5]:一期一会 [masaki] 01/12 11:01

　└◇257:Re[6]:一期一会 [moon] 01/12 13:34
　　├◇258:Re[7]:一期一会 [moon] 01/12 14:57
　　└◇259:Re[7]:一期一会 [masaki] 01/12 15:37
　　　└◇260:Re[8]:一期一会 [moon] 01/12 15:46
　　　　└◇261:Re[9]:一期一会 [masaki] 01/12 17:42

できました〜（＾＾
すみません。ずっとにらめっこしてたら、全角のスペースが入ってるのかな？とか思って、直したらできました〜。
ですが、ちょっと問題発生です。NPCにVvという略字をつけて、Vvの略字をつけたアイテムもつくったのですが、そのアイテムを持っていても「〜に会うためにはあるアイテムが必要です」とでて会えません。
sub contact_check {
if ($Fm{'pd2'}) { $Fm{'pd'} = $Fm{'pd2'} }
if ($Fm{'pd2'} eq $Fm{'id'}) { push (@msg,"自分に会うことはできません"); $notfound = 1; return }
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　@prclines = &get_partner("$Fm{'pd'}");
　　　　$now = (time - $ptm) - ($def_np * 60);
if($psp =~ /Pa/){ push (@msg,"$pnmが現れた"); &partnerout }
if ($tw ne $ptw && $psp !~ /Pa/) { push (@msg,"$pnmは現在ここには居ません"); $notfound = 1; return }
if ($psp =~ /(V[a-z])/) {
$vflag = $1;
&splititem('i');
if(@items){
foreach(0..$#items){
if(index((split(/△/))[1],$vflag)>=0){
$right = 1;
splice(@items,$_,1); # 紹介状を削除
&joinitem('i'); # アイテム結合
&userout; # ユーザデータ書き込み
last; # ループ終了
}
}
}
}
if ($vflag && !$right) {
push (@msg,"$pnmに会うためにはあるアイテムが必要です");
$notfound = 1;
}
↑街移動の改造もしたので、この辺がおかしいのかもしれません。
問題ばかりですみません（TT

すみません。書き間違いです。
if(@items){foreach(0..$#items){〜}}を、foreach(@items){〜}にしてください。

これとは関係ないですが、Paスキルの処理が変だと思いますよ。（&partneroutは余計だし、メッセージが変になるし）
・不明とかを無視したくない場合は、if($psp =~ /Pa/){ push (@msg,"$pnmが現れた"); &partnerout }を削除。
・無視しても良い場合は、if($psp =~ /Pa/){ push (@msg,"$pnmが現れた"); &partnerout }の&partneroutをreturn;に変更。

たぶん、PerlEditorなどを使用していると思いますが、そういうエディタの中には全角空白を表示する機能があるものがあります。
PerlEditorの場合は、表示→設定→表示色→マーク表示のところ。

ありがとうございます！
Paスキルは、いろいろやってわけがわからなくなっていたやつです。（ぉぃ
質屋につけようと思っていたのですが（＾＾；
それまで直していただきありがとうございます。

ええと、話はもどりますが、moonさんの言われたとおりなおしてみて、会えるようにはなったのですが、今度は紹介状アイテムがなくなりません。
（何度でも会えてしまいます）
なぜでしょうか？

さらに訂正箇所が間違っていました。
訂正したところを戻して、split(/△/)をsplit(/△/,$items[$_])に修正してください。
今度こそは。（笑）

できました〜〜〜〜！！
ありがとうございます！！
本当にありがとうございます〜【感激】