虹裏SRCまとめwiki掲示板

インクルya等の丸投げツリー - としあき - 2010/09/25(Sat) 09:52:50 [No.18]

└

バトコン・サイズ差補正関連だけ - としあき - 2011/10/23(Sun) 10:40:42 [No.95]

└

ザオリクとかレイズの再現インクル - としあき - 2011/09/01(Thu) 19:33:07 [No.91]

└

Re: インクルya等の丸投げツリー - としあき - 2011/09/01(Thu) 19:32:10 [No.90]

└

今風バトコン(2011/09/01版) - としあき - 2011/02/13(Sun) 10:04:50 [No.80]

└

終了メッセージ - としあき - 2010/11/05(Fri) 22:48:18 [No.63]

└

必中武器とかの作り方・バトコン編 - としあき - 2010/10/20(Wed) 18:12:19 [No.51]

└

[削除] - - 2010/10/18(Mon) 10:12:14 [No.50]

└

[削除] - - 2010/10/17(Sun) 22:50:09 [No.49]

└

[削除] - - 2010/10/17(Sun) 22:45:22 [No.48]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 09:54:54 [No.19]

└

[削除] - - 2010/09/25(Sat) 10:17:08 [No.28]

└

[削除] - - 2010/10/17(Sun) 22:43:28 [No.47]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 10:04:11 [No.27]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 10:02:54 [No.26]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 10:02:13 [No.25]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 10:00:22 [No.24]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 09:59:32 [No.23]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 09:58:52 [No.22]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 09:57:28 [No.21]

└

Re: インクルや戦闘アニメ等の丸投げツリー - としあき - 2010/09/25(Sat) 09:56:16 [No.20]

インクルya等の丸投げツリー - としあき

ＳＰ祈りが強すぎる人のためのルーチン

祈り, いのり
祈, 60, 破壊味方, 即効, -, -, 祈り
復活イベント=ReviveSP
破壊された味方ユニット１体を、ＨＰが１／２の状態で復活する

### ＳＰ祈り ###----------------------------------------------------------------

# 破壊されたユニットのデータを格納
*使用味方祈り:
Local i

ForEach 味方破壊
Set DES_UNIT[対象ユニットＩＤ, UNIT_EN] EN(対象ユニットＩＤ)
For i = 1 To CountPilot(対象ユニットＩＤ)
Set DES_UNIT[対象ユニットＩＤ, UNIT_SP, i] SP(PilotID(対象ユニットＩＤ, i))
Set DES_UNIT[対象ユニットＩＤ, UNIT_PLA, i] Plana(PilotID(対象ユニットＩＤ, i))
Next

For i = 1 To Info(ユニット, 対象ユニットＩＤ, 武器数)
Set DES_UNIT[対象ユニットＩＤ, W_BLT, i] Info(ユニット, 対象ユニットＩＤ, 武器, i, 弾数)
Next

For i = 1 To Info(ユニット, 対象ユニットＩＤ, アビリティ数)
Set DES_UNIT[対象ユニットＩＤ, A_STK, i] Info(ユニット, 対象ユニットＩＤ, アビリティ, i, 使用回数)
Next
Next
Exit

# 格納したデータをコピーする
ReviveSP:
Local i
HP(相手ユニットＩＤ) = HP(相手ユニットＩＤ) \ 2
EN(相手ユニットＩＤ) = DES_UNIT[相手ユニットＩＤ, UNIT_EN]
For i = 1 To CountPilot(相手ユニットＩＤ)
SP(PilotID(相手ユニットＩＤ, i)) = DES_UNIT[相手ユニットＩＤ, UNIT_SP, i]
Plana(PilotID(相手ユニットＩＤ, i)) = DES_UNIT[相手ユニットＩＤ, UNIT_PLA, i]
Next

For i = 1 To Info(ユニット, 相手ユニットＩＤ, 武器数)
SetBullet 相手ユニットＩＤ i DES_UNIT[相手ユニットＩＤ, W_BLT, i]
Next

For i = 1 To Info(ユニット, 相手ユニットＩＤ, アビリティ数)
SetStock 相手ユニットＩＤ i DES_UNIT[相手ユニットＩＤ, A_STK, i]
Next

Action(相手ユニットＩＤ) = 0
Return

# 格納データを全て消去
*使用後味方祈り:
UnSet DES_UNIT
Exit

[No.18] 2010/09/25(Sat) 09:52:50

Name

E-Mail

URL

Subject

> ＳＰ祈りが強すぎる人のためのルーチン
> 
> 祈り, いのり
> 祈, 60, 破壊味方, 即効, -, -, 祈り
> 復活 イベント=ReviveSP
> 破壊された味方ユニット１体を、ＨＰが１／２の状態で復活する
> 
> ### ＳＰ祈り ###----------------------------------------------------------------
> 
> # 破壊されたユニットのデータを格納
> *使用 味方 祈り:
> 	Local i
> 
> 	ForEach 味方 破壊
> 		Set DES_UNIT[対象ユニットＩＤ, UNIT_EN] EN(対象ユニットＩＤ)
> 		For i = 1 To CountPilot(対象ユニットＩＤ)
> 			Set DES_UNIT[対象ユニットＩＤ, UNIT_SP, i] SP(PilotID(対象ユニットＩＤ, i))
> 			Set DES_UNIT[対象ユニットＩＤ, UNIT_PLA, i] Plana(PilotID(対象ユニットＩＤ, i))
> 		Next
> 
> 		For i = 1 To Info(ユニット, 対象ユニットＩＤ, 武器数)
> 			Set DES_UNIT[対象ユニットＩＤ, W_BLT, i] Info(ユニット, 対象ユニットＩＤ, 武器, i, 弾数)
> 		Next
> 
> 		For i = 1 To Info(ユニット, 対象ユニットＩＤ, アビリティ数)
> 			Set DES_UNIT[対象ユニットＩＤ, A_STK, i] Info(ユニット, 対象ユニットＩＤ, アビリティ, i, 使用回数)
> 		Next
> 	Next
> Exit
> 
> # 格納したデータをコピーする
> ReviveSP:
> 	Local i
> 	HP(相手ユニットＩＤ) = HP(相手ユニットＩＤ) \ 2
> 	EN(相手ユニットＩＤ) = DES_UNIT[相手ユニットＩＤ, UNIT_EN]
> 	For i = 1 To CountPilot(相手ユニットＩＤ)
> 		SP(PilotID(相手ユニットＩＤ, i)) = DES_UNIT[相手ユニットＩＤ, UNIT_SP, i]
> 		Plana(PilotID(相手ユニットＩＤ, i)) = DES_UNIT[相手ユニットＩＤ, UNIT_PLA, i]
> 	Next
> 
> 	For i = 1 To Info(ユニット, 相手ユニットＩＤ, 武器数)
> 		SetBullet 相手ユニットＩＤ i DES_UNIT[相手ユニットＩＤ, W_BLT, i]
> 	Next
> 
> 	For i = 1 To Info(ユニット, 相手ユニットＩＤ, アビリティ数)
> 		SetStock 相手ユニットＩＤ i DES_UNIT[相手ユニットＩＤ, A_STK, i]
> 	Next
> 
> 	Action(相手ユニットＩＤ) = 0
> Return
> 
> # 格納データを全て消去
> *使用後 味方 祈り:
> 	UnSet DES_UNIT
> Exit

Color ■ ■ ■ ■ ■ ■ ■ ■

Cookie / Pass