| 山水様、十拳剣様、ありがとうございます!! 無事解決いたしました〜!
ヘルプとにらめっこして、何とかなりました。 山水様、ClearEvent は、マップコマンドもユニットコマンドも出来るようです。 ありがとうございます。
##########まず、戦闘前に各自のアイテムをチェック
ForEach 味方 全て For i = 1 To CountItem(対象ユニット) Incr アイテムの数[Item(対象ユニット,i)] Next Next For i = 1 To CountItem(未装備) Incr アイテムの数[Item(未装備,i)] Next
#############ここから
ユニットコマンド 食べる 味方 IIf(アイテムの数[チョココロネ] + アイテムの数[メロンパン] + アイテムの数[焼きそばパン] + アイテムの数[オレンジジュース] + アイテムの数[ヤクルト] + アイテムの数[青汁] + アイテムの数[コーラ] > 0,1,0):
If 対象パイロット = 主人公 Then この方 = 主人公 EndIf
If 対象パイロット = 味方1 Then この方 = 味方1 EndIf
If 対象パイロット = 味方2 Then この方 = 味方2 EndIf
Unset アイテムの数
ForEach 味方 全て For i = 1 To CountItem(対象ユニット) Incr アイテムの数[Item(対象ユニット,i)] Next Next For i = 1 To CountItem(未装備) Incr アイテムの数[Item(未装備,i)] Next
If アイテムの数[チョココロネ] > 0 Then Set 使用アイテム選択[チョココロネ使用] チョココロネ使用・所持数$(アイテムの数[チョココロネ]) EndIf If アイテムの数[メロンパン] > 0 Then Set 使用アイテム選択[メロンパン使用] メロンパン使用・所持数$(アイテムの数[メロンパン]) EndIf If アイテムの数[焼きそばパン] > 0 Then Set 使用アイテム選択[焼きそばパン使用] 焼きそばパン使用・所持数$(アイテムの数[焼きそばパン]) EndIf If アイテムの数[オレンジジュース] > 0 Then Set 使用アイテム選択[オレンジジュース使用] オレンジジュース使用・所持数$(アイテムの数[オレンジジュース]) EndIf If アイテムの数[ヤクルト] > 0 Then Set 使用アイテム選択[ヤクルト使用] ヤクルト使用・所持数$(アイテムの数[ヤクルト]) EndIf If アイテムの数[青汁] > 0 Then Set 使用アイテム選択[青汁使用] 青汁使用・所持数$(アイテムの数[青汁]) EndIf If アイテムの数[コーラ] > 0 Then Set 使用アイテム選択[コーラ使用] コーラ使用・所持数$(アイテムの数[コーラ]) EndIf
Ask 使用アイテム選択 何を食べる?
Switch 選択
Case チョココロネ使用 〜使用時の効果〜 RemoveItem チョココロネ Incr アイテムの数[チョココロネ] -1
Case メロンパン使用 〜使用時の効果〜 RemoveItem メロンパン Incr アイテムの数[メロンパン] -1
Case 焼きそばパン使用 〜使用時の効果〜 RemoveItem 焼きそばパン Incr アイテムの数[焼きそばパン] -1
Case オレンジジュース使用 〜使用時の効果〜 RemoveItem オレンジジュース Incr アイテムの数[オレンジジュース] -1
Case ヤクルト使用 〜使用時の効果〜 RemoveItem ヤクルト Incr アイテムの数[ヤクルト] -1
Case 青汁使用 〜使用時の効果〜 RemoveItem 青汁 Incr アイテムの数[青汁] -1
Case コーラ使用 〜使用時の効果〜 RemoveItem コーラ Incr アイテムの数[コーラ] -1
EndSw
Unset 使用アイテム選択
Exit
で、問題なく動作済みです。 ありがとうございました。
一応解決済みをつけましたが、ここの部分もうちょっと短く出来るYO! とかありましたらご指摘宜しくお願い申し上げます。
|