▼スレッド
│
└◇410:Re[2]:アイテム交換 [masaki] 03/08 17:57

　└◇411:Re[3]:アイテム交換 [masaki] 03/08 18:06
　　└◇412:Re[4]:アイテム交換 [moon] 03/08 18:32
　　　└◇413:Re[5]:アイテム交換 [masaki] 03/08 18:53<-last

ありがとうございます！
早速やってみたところ、正常に動きました！！
どうもありがとうございましたｍ(_ _)ｍ

あと一つ質問させて頂いてもいいでしょうか？
スキルで判別する場合はどうすればいいのでしょうか？
Pbのスキルを持っていればポテト引換券とポテトを交換
その他の場合は〜というふうな感じです。。
my %trade_items = (
　　　　　　 '交換元名前1'=>'交換先データ1'
　　　　　　,'交換元名前2'=>'交換先データ2'
　　　　　　,'交換元名前3'=>'交換先データ3'
# 例　　　　,'ポテト引換券'=>'ポテト△00010100Fd'
　　　　);
ここを、
if($psp =~ /Pb/){
my %trade_items = (
　　,'ポテト引換券'=>'ポテト△00010100Fd'
　　　　);
}
else{
my %trade_items = (
　　　　　　 '交換元名前1'=>'交換先データ1'
　　　　　　,'交換元名前2'=>'交換先データ2'
　　　　　　,'交換元名前3'=>'交換先データ3'
# 例　　　　,'ポテト引換券'=>'ポテト△00010100Fd'
　　　　);
}
こうでしょうか？（＾＾；
質問多くてすみません。。

> あと一つ質問させて頂いてもいいでしょうか？
> スキルで判別する場合はどうすればいいのでしょうか？
> Pbのスキルを持っていればポテト引換券とポテトを交換
> その他の場合は〜というふうな感じです。。
> my %trade_items = (
> 　　　　　　 '交換元名前1'=>'交換先データ1'
> 　　　　　　,'交換元名前2'=>'交換先データ2'
> 　　　　　　,'交換元名前3'=>'交換先データ3'
> # 例　　　　,'ポテト引換券'=>'ポテト△00010100Fd'
> 　　　　);
> ここを、
> if($psp =~ /Pb/){
> my %trade_items = (
> 　　,'ポテト引換券'=>'ポテト△00010100Fd'
> 　　　　);
> }
> else{
> my %trade_items = (
> 　　　　　　 '交換元名前1'=>'交換先データ1'
> 　　　　　　,'交換元名前2'=>'交換先データ2'
> 　　　　　　,'交換元名前3'=>'交換先データ3'
> # 例　　　　,'ポテト引換券'=>'ポテト△00010100Fd'
> 　　　　);
> }
> こうでしょうか？（＾＾；
> 質問多くてすみません。。

my %trade_items;というように宣言をifの前に予めやっておき、あとは上記のmyをなくした形にすれば良いです。
もしくは、上記のmyをただ消去するだけでも良いです。

ありがとうございました（＾＾
これからもよろしくお願いします！