SRC総合支援センター

ヘルプh| 連絡先

GSCトップ掲示板巨大データ掲示板


巨大データ掲示板

注意事項


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

【2262】pilot_message&include

名前
 霞薙 WEB
投稿日時
 - 2008年06月22日(日) 16時51分 -
設定
引用なし
パスワード
テレオ=ラ=コース
回避, ……
ダメージ小, ……
ダメージ中, ……
ダメージ大, ……
破壊, ……
射程外, ……
攻撃, ……


#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
戦闘アニメ_BWING_回転ゆらぎ投射攻撃:
# 引数1 画像名
# 引数2 画像サイズ
# 引数3 効果音
# 引数4 発光
# 引数5 速度
# 引数6 UID
Local ANG = _GetAngle(UID)
Local i
Local posX
Local posY
Local DST
Local A1
Local G_S
Local C_X
Local C_Y
Local DRCT
Local FL
Local UID
Local SPD

_UnSetBattleAnimeValue

Set UID _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Set C_X WX(UID)
Set C_Y WY(UID)

Set A1 Args(1)

Set G_S _GetPicSizeFromArgs()
If (G_S != 32) Then
 Incr C_X (16 - (G_S \ 2))
 Incr C_Y (16 - (G_S \ 2))
EndIf

If (X(UID) < _Get_X(相手ユニットID)) Then
 Set DRCT 左右反転
Else
 Set DRCT ""
EndIf

If (_IsLight() = 1) Then
 Set FL 1
Else
 Set FL ""
EndIf

If (_SearchOptionFromArgs("速") != "") Then
 Set SPD 0.4
ElseIf (_SearchOptionFromArgs("遅") != "") Then
 Set SPD 1.2
Else
 Set SPD 0.8
EndIf
#
#Wait Start
#For i = 1 To 4
# ClearPicture
# PaintPicture (A1 & Random(4) & ".bmp") C_X C_Y G_S G_S 透過 DRCT _ColorTime(FL) 右回転 ANG
# Refresh
# Wait Until (i * 0.5)
#Next

Set posX ((X(UID) - _Get_X(相手ユニットID)) * 32)
Set posY ((Y(UID) - _Get_Y(相手ユニットID)) * 32)

Set DST (Abs(X(UID) - _Get_X(相手ユニットID)) + Abs(Y(UID) - _Get_Y(相手ユニットID)))

PlaySound _GetName("-.wav",_GetWavFromArgs())

Wait Start
For i = 1 To (DST + 3)
 ClearPicture
 PaintPicture (A1 & Random(4) & ".bmp") (C_X - (posX / (DST + 4)) * i) (C_Y - (posY / (DST + 4)) * i) G_S G_S 透過 DRCT _ColorTime(FL) 右回転 ANG
 Refresh
 Wait Until (SPD * i)
Next

ClearPicture
Refresh
Return


#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
戦闘アニメ_BWING_実弾発射連続描画攻撃:
# 引数1 画像名
# 引数2 画像サイズ
# 引数3 効果音
# 引数4 発光
# 引数5 速度
# 引数6 UID
# 引数7 コマ数
Local ANG = _GetAngle(UID)
Local i
Local posX
Local posY
Local DST
Local A1
Local G_S
Local C_X
Local C_Y
Local DRCT
Local FL
Local UID
Local SPD

_UnSetBattleAnimeValue

Set UID _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Set C_X WX(UID)
Set C_Y WY(UID)

Set A1 Args(1)
Set A7 Args(7)

Set G_S _GetPicSizeFromArgs()
If (G_S != 32) Then
 Incr C_X (16 - (G_S \ 2))
 Incr C_Y (16 - (G_S \ 2))
EndIf

If (X(UID) < _Get_X(相手ユニットID)) Then
 Set DRCT 左右反転
Else
 Set DRCT ""
EndIf

If (_IsLight() = 1) Then
 Set FL 1
Else
 Set FL ""
EndIf

#
#Wait Start
#For i = 1 To 4
# ClearPicture
# PaintPicture (A1 & Random(4) & ".bmp") C_X C_Y G_S G_S 透過 DRCT _ColorTime(FL) 右回転 ANG
# Refresh
# Wait Until (i * 0.5)
#Next

Set posX ((X(UID) - _Get_X(相手ユニットID)) * 32)
Set posY ((Y(UID) - _Get_Y(相手ユニットID)) * 32)

Set DST (Abs(X(UID) - _Get_X(相手ユニットID)) + Abs(Y(UID) - _Get_Y(相手ユニットID)))

If (_SearchOptionFromArgs("速") != "") Then
 Set SPD (0.25 + 0.05 * DST)
 If SPD > 0.4 Then
     Set SPD 0.4
 EndIf
ElseIf (_SearchOptionFromArgs("遅") != "") Then
 Set SPD (0.2 + 0.2 * DST)
 If SPD > 1 Then
     Set SPD 1
 EndIf
Else
 Set SPD (0.3 + 0.1 * DST)
 If SPD > 0.7 Then
     Set SPD 0.7
 EndIf
EndIf

PlaySound _GetName("-.wav",_GetWavFromArgs())

Wait Start
For i = 1 To A7
 ClearPicture
 If i > 1 Then
  PaintPicture (A1 & (i - 1) & ".bmp") (C_X - (posX / (A7 + 1)) * (i - 1)) (C_Y - (posY / (A7 + 1)) * (i - 1)) G_S G_S 透過 セピア 右回転 ANG
 EndIf
 PaintPicture (A1 & i & ".bmp") (C_X - (posX / (A7 + 1)) * i) (C_Y - (posY / (A7 + 1)) * i) G_S G_S 透過 DRCT _ColorTime(FL) 右回転 ANG
 Refresh
 Wait Until (SPD * i)
Next

ClearPicture
Refresh
Return


#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
戦闘アニメ_BWING_自己中心回転武器防御発動:

_CenteringCheck 相手ユニットID
Font 12pt
Local G_S = _GetPicSizeFromArgs()
Local C_X = (_Get_WX(相手ユニットID) + (32 - G_S) \ 2)
Local C_Y = (_Get_WY(相手ユニットID) + (32 - G_S) \ 2)
Local C_X2 = (_Get_WX(相手ユニットID))
Local C_Y2 = (_Get_WY(相手ユニットID))
Local WP_FILE = _GetBmpFromArgs()
Local FL ANG1 ANG2 DRCT
Local i
Local STR = _GN("",_GN(Args(1),_GetOptValueFromArgs("別名")))
Local S_S = TextWidth(STR)

If (_IsLight() = 1) Then
 Set FL 1
Else
 Set FL ""
EndIf

_SelectSound "Swing.wav" _GetWavFromArgs()

Wait Start
Set ANG1 45
For i = 1 To 36
 Incr ANG1 60
 ClearPicture
 PaintPicture WP_FILE (C_X + X_P) C_Y G_S G_S 透過 右回転 ANG1 _ColorTime(FL)

 Font RGB(i * 8,i * 8,i * 8)
 PaintString (C_X2 + 1 + (16 - (S_S \ 2))) (C_Y2 + 33) STR
 Font #000000
 PaintString (C_X2 + (16 - (S_S \ 2))) (C_Y2 + 32) STR

 Refresh
 Wait Until (i * 0.6)

Next

ClearPicture
Refresh

Return

524 hits



4463 / 6689 ←次へ前へ→

ページ:

記事番号:

538,508

(SS)C-BOARD v3.8 is Free

ページトップへt


SRC総合支援センター