私設SoS2オーナー応援BBS

新規発言一覧最新記事過去一覧検索ダウンロードページHOME

No.146  Re:アイテムを個別にソート
発言者: moon
発言日: 2002 11/15 19:59
> いつもゲームを楽しく遊ばしてもらってます☆
>
> ちなみに今現在私の作ってるsos2でちょっといきずまったので
> 質問させてもらいます。
> moonさんのところのカード関係にある
> 替えるカードにチェックを入れ決定ボタンを押してください
> のやり方を教えてほしいのです。
> アイテムを個別にいれかえる方法がわからなく、たぶんこれを
> 少しいじくればできると思うので・・・。
> どうぞよろしくお願いします。

交換処理は次のような感じです。
ここで、$Fm{'アイテム番号'}は呼び出し側フォームで設定します。

if(@items){
  my $change = -1;
  foreach(0..$#items){
    if($Fm{"$_"}){
      if($change>=0){ # 選択アイテムがあれば真
        ($items[$change],$items[$_]) = ($items[$_],$items[$change]); # 選択アイテムと現在のアイテムを交換
        $change = -1;
      }
      else{
        $change = $_; # 選択アイテムを現在のアイテムに設定
      }
    }
  }
}

# カードのスクリプトを見て即興で作成し直したのでミスをしているかも。

▼関連発言

145:アイテムを個別にソート [ナム〜ン] 11/15 17:28
 └146:Re:アイテムを個別にソート [moon] 11/15 19:59
  └178:エラーが・・・。 [ナム〜ン] 11/18 09:44
   └179:Re:エラーが・・・。 [moon] 11/18 19:39
    └182:無事にできました〜☆ [ナム〜ン] 11/19 14:41<-last

Pass 保存


CGIROOM