あと一つ質問させて頂いてもいいでしょうか？
スキルで判別する場合はどうすればいいのでしょうか？
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'
　　　　);
}
こうでしょうか？（＾＾；
質問多くてすみません。。

▼関連発言
│
└◆408:アイテム交換 [masaki] 03/08 10:17
　└◆409:Re:アイテム交換 [moon] 03/08 16:40
　　└◆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