地球軍&ミケーネ帝王 - alan - 2016/12/21(Wed) 20:18:19 [No.5503]

└ 投稿予告 - Alan - 2017/01/10(Tue) 09:07:50 [No.5570]

└ Re: 投稿予告 - Alan - 2017/01/14(Sat) 06:18:36 [No.5574]

└ 投稿完了 - alan - 2017/01/14(Sat) 14:14:35 [No.5575]

└ リリースを見合わせます - 白河　愁 - 2017/01/15(Sun) 12:09:02 [No.5576]

└ Re: リリースを見合わせます - Alan - 2017/01/15(Sun) 17:56:42 [No.5578]

└ Re: リリースを見合わせます - へのへのもへじ - 2017/01/16(Mon) 18:29:27 [No.5579]

└ Re: ボチューン(ゼラーナ隊用)について - 白河　愁 - 2017/01/16(Mon) 22:50:34 [No.5583]

└ Re: ボチューン(ゼラーナ隊用)について - へのへのもへじ - 2017/01/16(Mon) 22:55:01 [No.5584]

└ 自分が投稿した、エラー発生したデータ&エラー発生予�... - Alan - 2017/01/16(Mon) 21:31:00 [No.5581]

└ Re: リリースを見合わせます - Alan - 2017/01/16(Mon) 21:23:51 [No.5580]

└ Re: リリースを見合わせます - へのへのもへじ - 2017/01/16(Mon) 22:32:04 [No.5582]

└ この話題を停止して下さい - 白河　愁 - 2017/01/16(Mon) 23:00:02 [No.5585]

└ Re: この話題を停止して下さい - へのへのもへじ - 2017/01/17(Tue) 00:20:14 [No.5586]

└ グレートマジンガー_ミケーネ帝国(追加希望分)_robot - alan - 2016/12/21(Wed) 20:32:10 [No.5516]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_ro... - alan - 2016/12/21(Wed) 20:34:37 [No.5517]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_ro... - 白河　愁 - 2016/12/22(Thu) 23:24:08 [No.5532]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_ro... - alan - 2016/12/23(Fri) 10:10:11 [No.5533]

└ ギャラハンについて - ひろ2号 - 2016/12/23(Fri) 22:13:45 [No.5535]

└ Re: ギャラハンについて - alan - 2016/12/24(Sat) 14:26:19 [No.5536]

└ グレートマジンガー_ミケーネ帝国(追加希望分)_pilot_... - alan - 2016/12/21(Wed) 20:31:31 [No.5515]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_pi... - alan - 2016/12/24(Sat) 14:27:30 [No.5537]

└ グレートマジンガー_ミケーネ帝国(追加希望分)_pilot - alan - 2016/12/21(Wed) 20:30:53 [No.5514]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_pi... - alan - 2016/12/24(Sat) 14:28:04 [No.5538]

└ グレートマジンガー_ミケーネ帝国(追加希望分)_animat... - alan - 2016/12/21(Wed) 20:30:11 [No.5513]

└ Re: グレートマジンガー_ミケーネ帝国(追加希望分)_an... - alan - 2016/12/24(Sat) 14:28:41 [No.5539]

└ 地球連合軍_変更点1 - alan - 2016/12/21(Wed) 20:29:25 [No.5512]

└ 地球連合軍_robot - alan - 2016/12/21(Wed) 20:23:17 [No.5511]

└ 地球連合軍_pilot_message - alan - 2016/12/21(Wed) 20:22:56 [No.5510]

└ 二人分メッセ追加 - alan - 2016/12/22(Thu) 21:45:14 [No.5531]

└ 地球連合軍_pilot - alan - 2016/12/21(Wed) 20:21:45 [No.5509]

└ パイロット二名追加 - alan - 2016/12/22(Thu) 21:44:01 [No.5530]

└ 地球連合軍_non_pilot - alan - 2016/12/21(Wed) 20:21:21 [No.5508]

└ 地球連合軍_item - alan - 2016/12/21(Wed) 20:20:54 [No.5507]

└ 地球連合軍_include - alan - 2016/12/21(Wed) 20:20:32 [No.5506]

└ 地球連合軍_animation - alan - 2016/12/21(Wed) 20:19:59 [No.5505]

└ 地球連合軍_alias - alan - 2016/12/21(Wed) 20:19:16 [No.5504]

地球連合軍_include (No.5503 への返信) - alan ##############################シルエット関連初処理 使用 Unit(対象ユニットＩＤ) シルエット換装 : If Not 使用済みシルエットナンバー > 0 Then 使用済みシルエットナンバー = 1 EndIf 戦艦換装シルエットナンバー = 1 For i = 0 To CountItem(未装備) If i = 0 Then 戦艦換装シルエット[0] = キャンセル EndIf If Info(アイテム,Item(未装備,i),アイテムクラス) = シルエット Then For j = 1 To 使用済みシルエットナンバー If 使用済みシルエット[j] = Item(未装備,i) Then このシルエットは使用済み = 1 EndIf Next If Not このシルエットは使用済み = 1 Then 戦艦換装シルエット[戦艦換装シルエットナンバー] = Item(未装備,i) Incr 戦艦換装シルエットナンバー EndIf EndIf UnSet このシルエットは使用済み Next Ask 戦艦換装シルエット "$(Info(ユニットデータ,対象ユニットＩＤ,愛称))に装備するシルエットを選択してください" If 選択 = 0 Then Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf ##カオス、ガイア、アビスシルエットを、アウトフレームに付けれなくするための処理 If Info(戦艦換装シルエット[選択],名称) = カオスシルエット Then If Not Unit(対象ユニットＩＤ) = インパルスガンダム(ＡＳＴＲＡＹ対応) Then Talk 換装可能な機体ではありません End Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf ElseIf Info(戦艦換装シルエット[選択],名称) = アビスシルエット Then If Not Unit(対象ユニットＩＤ) = インパルスガンダム(ＡＳＴＲＡＹ対応) Then Talk 換装可能な機体ではありません End Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf ElseIf Info(戦艦換装シルエット[選択],名称) = ガイアシルエット Then If Not Unit(対象ユニットＩＤ) = インパルスガンダム(ＡＳＴＲＡＹ対応) Then Talk 換装可能な機体ではありません End Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf EndIf ## Exit 使用後 Unit(対象ユニットＩＤ) シルエット換装 : Call 使用済みシルエット処理 Equip 対象ユニットＩＤ 戦艦換装シルエット[選択] UnSet i UnSet j UnSet 戦艦換装シルエットナンバー UnSet 戦艦換装シルエット SpecialPower 対象ユニットＩＤ 覚醒 Exit 使用済みシルエット処理: For i = 0 To CountItem(対象ユニットＩＤ) If Info(アイテム,Item(対象ユニットＩＤ,i),アイテムクラス) = シルエット Then 使用済みシルエット[使用済みシルエットナンバー] = Item(対象ユニットＩＤ,i) EndIf Next Incr 使用済みシルエットナンバー Return ##############################ストライカーパック関連初処理 #######スカイグラスパーから換装する際の処理 使用 Unit(対象ユニットＩＤ) ストライカーパック換装 : If Not 使用済みSPナンバー > 0 Then 使用済みSPナンバー = 1 EndIf #↑戦艦からの換装を使用するとき用の処理 ##Ｇフライトを、アウトフレーム以外に付けれなくするための処理 If Info(アイテム,Item(対象ユニットＩＤ,1),名称) = Ｇフライト Then If Not Unit(相手ユニットＩＤ) = アストレイアウトフレーム Then If Not Unit(相手ユニットＩＤ) = アストレイアウトフレームＤ Then Talk 換装可能な機体ではありません End Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf EndIf EndIf ## Exit 使用後 Unit(対象ユニットＩＤ) ストライカーパック換装 : スカグラ装備中パック = (Item(対象ユニットＩＤ,1)) Call 使用済みストライカーパック処理 Equip 対象ユニットＩＤ ダミーストライカーパック RemoveItem (対象ユニットＩＤ) ダミーストライカーパック Equip 相手ユニットＩＤ スカグラ装備中パック UnSet スカグラ装備中パック RecoverEN 相手ユニットＩＤ 100 Exit #######戦艦から換装する際の処理 使用 Unit(対象ユニットＩＤ) ストライカーパック換装(Ｓ) : If Not 使用済みSPナンバー > 0 Then 使用済みSPナンバー = 1 EndIf 戦艦換装SPナンバー = 1 For i = 0 To CountItem(未装備) If i = 0 Then 戦艦換装ストライカーパック[0] = キャンセル EndIf If Info(アイテム,Item(未装備,i),アイテムクラス) = ストライカーパック Then For j = 1 To 使用済みSPナンバー If 使用済みストライカーパック[j] = Item(未装備,i) Then このＳＰは使用済み = 1 EndIf Next If Not このＳＰは使用済み = 1 Then 戦艦換装ストライカーパック[戦艦換装SPナンバー] = Item(未装備,i) Incr 戦艦換装SPナンバー EndIf EndIf UnSet このＳＰは使用済み Next Ask 戦艦換装ストライカーパック "$(Info(ユニット,相手ユニットＩＤ,愛称))に装備するストライカーパックを選択してください" If 選択 = 0 Then SpecialPower 対象ユニットＩＤ 覚醒 Cancel EndIf ##Ｇフライトを、アウトフレーム以外に付けれなくするための処理 If Info(アイテム,戦艦換装ストライカーパック[選択],名称) = Ｇフライト Then If Not Unit(相手ユニットＩＤ) = アストレイアウトフレーム Then If Not Unit(相手ユニットＩＤ) = アストレイアウトフレームＤ Then Talk 換装可能な機体ではありません End Cancel SpecialPower 対象ユニットＩＤ 覚醒 EndIf EndIf EndIf ## Exit 使用後 Unit(対象ユニットＩＤ) ストライカーパック換装(Ｓ) : Call 使用済みストライカーパック処理 Equip 対象ユニットＩＤ ダミーストライカーパック Equip 相手ユニットＩＤ 戦艦換装ストライカーパック[選択] RemoveItem (対象ユニットＩＤ) ダミーストライカーパック UnSet i UnSet j UnSet 戦艦換装SPナンバー UnSet 戦艦換装ストライカーパック RecoverEN 相手ユニットＩＤ 100 Exit 使用済みストライカーパック処理: For i = 0 To CountItem(相手ユニットＩＤ) If Info(アイテム,Item(相手ユニットＩＤ,i),アイテムクラス) = ストライカーパック Then 使用済みストライカーパック[使用済みSPナンバー] = Item(相手ユニットＩＤ,i) EndIf Next Incr 使用済みSPナンバー Return #####以下アウトフレーム専用処理 *使用後 アストレイアウトフレーム シルエット換装 : *使用後 アストレイアウトフレームＤ シルエット換装 : Equip 対象ユニット ダミーストライカーパック RemoveItem 対象ユニット ダミーストライカーパック Equip 対象ユニット ダミーウィザード RemoveItem 対象ユニット ダミーウィザード Equip 対象ユニット ダミーアストレイ換装パーツ RemoveItem 対象ユニット ダミーアストレイ換装パーツ Exit *使用後 Unit(対象ユニットＩＤ) ストライカーパック換装 : *使用後 Unit(対象ユニットＩＤ) ストライカーパック換装(Ｓ) : If Unit(相手ユニットＩＤ) = アストレイアウトフレーム then Equip 相手ユニットＩＤ ダミーシルエット RemoveItem 相手ユニットＩＤ ダミーシルエット Equip 相手ユニットＩＤ ダミーウィザード RemoveItem 相手ユニットＩＤ ダミーウィザード Equip 相手ユニットＩＤ ダミーアストレイ換装パーツ RemoveItem 相手ユニットＩＤ ダミーアストレイ換装パーツ ElseIf Unit(相手ユニットＩＤ) = アストレイアウトフレームＤ then Equip 相手ユニットＩＤ ダミーシルエット RemoveItem 相手ユニットＩＤ ダミーシルエット Equip 相手ユニットＩＤ ダミーウィザード RemoveItem 相手ユニットＩＤ ダミーウィザード Equip 相手ユニットＩＤ ダミーアストレイ換装パーツ RemoveItem 相手ユニットＩＤ ダミーアストレイ換装パーツ EndIf Exit [No.5506] 2016/12/21(Wed) 20:20:32

この記事への返信は締め切られています。
返信は投稿後 30 日間のみ可能に設定されています。

Rocket Board Type-T (Free)