SRC総合支援センター

ヘルプh| 連絡先

GSCトップ掲示板等身大ゲームデータ掲示板


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

注意事項


当掲示板に掲載されているテストシナリオは、
SRC総合支援センターの登録式画像パック、非登録式画像パック、丸投げ画像パック、
SRCオリジナルサポートセンターのオリサポパックを利用しています。

【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(対象ユニットID)
L_CenterY = Y(対象ユニットID)
L_Party  = Party(対象ユニットID)

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

463 hits



550 / 7216 ←次へ前へ→

ページ:

記事番号:

635,989

(SS)C-BOARD v3.8 is Free

ページトップへt


SRC総合支援センター