等身大ゲームデータ掲示板

【6778】インクルード(EDF讃歌)

名前: panu
投稿日時: - 2015年09月09日(水) 21時50分 -
設定: 引用なし
パスワード

### EDF讃歌の使用アニメーション。
### 歌詞をカスタマイズする場合、EDF4変数_讃歌歌詞を配列変数として、長さ4のリストを設定してください。
### 設定例：
### EDF4変数_讃歌歌詞[1] = List("あ","い","う","え")
戦闘アニメ_EDF4_讃歌使用:

Local L_MainID L_CenterX L_CenterY L_Party L_Distance L_TargetPilots L_i L_Lyrics L_lrc L_LyricCount

L_MainID　= 対象パイロット
L_CenterX = X(対象ユニットＩＤ)
L_CenterY = Y(対象ユニットＩＤ)
L_Party　 = Party(対象ユニットＩＤ)

L_i = 0

# 効果範囲内(M全2マス)にいる味方ユニットから3体選ぶ
ForEach L_Party 出撃
　　　　L_Distance = Abs(X() - L_CenterX) + Abs(Y() - L_CenterY)
　　　　
　　　　If ((L_Distance > 0) And (L_Distance < 3)) Then
　　　　　　　　Incr L_i
　　　　　　　　L_TargetPilots[L_i] = PilotID()
　　　　　　　　If L_i = 3 Then
　　　　　　　　　　　　Break
　　　　　　　　EndIf
　　　　EndIf
Next

# 最後の締めは使用者
L_TargetPilots[L_i + 1] = L_MainID

# カスタム歌詞がある場合
If Count(EDF4変数_讃歌歌詞) > 0 Then
　　　　L_i = 0
　　　　ForEach L_lrc In EDF4変数_讃歌歌詞
　　　　　　　　If LLength(EDF4変数_讃歌歌詞[L_lrc]) = 4 Then
　　　　　　　　　　　　Incr L_i
　　　　　　　　　　　　L_Lyrics[L_i] = EDF4変数_讃歌歌詞[L_lrc]
　　　　　　　　EndIf
　　　　Next
　　　　L_LyricCount = L_i
EndIf

# カスタム歌詞がないか、または内容が無効の場合
If L_LyricCount = 0 Then
　　　　L_LyricCount = 2
　　　　L_Lyrics[1] = List("青い地球を守るため","EDFの出動だ","煌めく勝利の稲光","宇宙人ども撃滅だ")
　　　　L_Lyrics[2] = List("緑の地球が危ないぞ","EDFの出動だ","地球を守護する戦士達","宇宙人どもやっつけろ")
EndIf

L_Lrc = L_Lyrics[Random(L_LyricCount)]

# メッセージ表示の実行
For L_i = 1 To 4
　　　　AutoTalk L_TargetPilots[(L_i - 1) Mod 4 + 1]
　　　　　　　　20;$(LIndex(L_Lrc, L_i))
　　　　Suspend
Next

Return

397 hits