板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart18
[78]名無しさん(ザコ)：2009/01/27(火) 20:12:41 ID:Cm3juaas0
げぇ、被ったorz
動作確認は適当
-*ユニットコマンド アイテム交換 味方 Info(ユニット,対象ユニットＩＤ,特殊能力所有,母艦):
Local 候補
Foreach 味方 格納
候補[対象ユニットＩＤ] = "$(Unit(対象ユニットＩＤ))/$(Pilot(対象ユニットＩＤ))"
Next
If Count(候補) = 0 then
Talk
格納中のユニットがいません。
End
Exit
endif
Do
Ask 候補 "交換するユニットを選んでください" 拡大 連続表示 キャンセル可
If 選択 <> "" then
ExchangeItem 選択
Endif
Loop while (選択 <> "")
Ask 終了
exit
前 次
0ch BBS 2005-06-05