Incr C_X2 8
Incr C_Y2 8
Local BMP_FILE = _GetBMPName(UID)
Local BMP_FILE2 = _GetTileName(UID)
Local X_F = _GetCircumference(ANG2,X)
Local Y_F = _GetCircumference(ANG2,Y)
Local DRCT
Local T_COL = _ColorTime()
If (X(UID) < _Get_X(相手ユニットID)) Then
Set DRCT 左右反転
Else
Set DRCT ""
EndIf
Set BMP_FILE _GetBMPName(相手ユニットID)
Set BMP_FILE2 _GetTileName(相手ユニットID)
Set ANG _GetAngle(UID)
Set X_F _GetCircumference(ANG,X)
Set Y_F _GetCircumference(ANG,Y)
Local BMP_FILE = _GetBMPName(対象ユニットID)
Local BMP_FILE2 = _GetBMPName(相手ユニットID)
Local BMP_FILE3 = _GetTileName(相手ユニットID)
Local C_X = WX(相手ユニットID)
Local C_Y = WY(相手ユニットID)
Local i
Local UID = _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Local C_X = WX(UID)
Local C_Y = WY(UID)
Local WP_FILE = _GetBmpFromArgs()
Local G_S = _GetPicSizeFromArgs()
Local X_P
Local T_COL_F = _ColorTime(_IsLight())
Local WA = _GetOptValueFromArgs("待機")
Local UID = _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Local GS_STR = _GetBoxSizeFromArgs(Args(2))
Local G_SX = _GN(32,_SelectBmpSizeType(GS_STR,"X"))
Local G_SY = _GN(32,_SelectBmpSizeType(GS_STR,"Y"))
Local i
Local j
Local C_X = WX(UID)
LOcal C_Y = WY(UID)
Local G_X = (WX(UID) + 16)
LOcal G_Y = (WY(UID) + 16)
Local BMP_FILE = _GetBMPName(UID)
Local T_COL_F = _ColorTime(_IsLight())
Local W_T
Local B_FLG = _S_OPT_FA("背面")
Local DRCT = ""
Local POS = _GetDrawPosFromArgs()
Local T_COL = _ColorTime()
Local ANG = 0
Local ANGP
If ((X(対象ユニットID) < _Get_X(相手ユニットID)) And (_S_OPT_FA("方向判定") = "方向判定")) Then
Set DRCT 左右反転
EndIf
Local UD_OPT = _S_OPT_FA("上下反転")
Local LR_OPT = _S_OPT_FA("左右反転")
If ((DRCT != "") And (LR_OPT != "")) Then
Set DRCT ""
ElseIf (LR_OPT != "") Then
Set DRCT LR_OPT
EndIf
Local UID = _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Local GS_STR = _GetBoxSizeFromArgs(Args(2))
Local GS_STR2 = _GetBoxSizeFromArgs(Args(4))
Local G_SX = _GN(32,_SelectBmpSizeType(GS_STR,"X"))
Local G_SY = _GN(32,_SelectBmpSizeType(GS_STR,"Y"))
Local G_SX2 = _GN(32,_SelectBmpSizeType(GS_STR2,"X"))
Local G_SY2 = _GN(32,_SelectBmpSizeType(GS_STR2,"Y"))
Local i j k
Local C_X = WX(UID)
LOcal C_Y = WY(UID)
Local G_X = (WX(UID) + 16)
LOcal G_Y = (WY(UID) + 16)
Local BMP_FILE = _GetBMPName(UID)
Local T_COL_F = _ColorTime(_IsLight())
Local W_T
Local B_FLG = _S_OPT_FA("背面")
Local DRCT = ""
Local DRCT2 = ""
Local POS = _GetDrawPosFromArgs()
Local T_COL = _ColorTime()
Local ANG = 0
# 画像反転判定
If ((X(対象ユニットID) < _Get_X(相手ユニットID)) And (_S_OPT_FA("方向判定") = "方向判定")) Then
Set DRCT 左右反転
Set DRCT2 左右反転
EndIf
Local UD_OPT = _S_OPT_FA("上下反転")
Local LR_OPT = _S_OPT_FA("左右反転")
If ((DRCT != "") And (LR_OPT != "")) Then
Set DRCT ""
ElseIf (LR_OPT != "") Then
Set DRCT LR_OPT
EndIf
Local UD_OPT2 = ""
If (_SearchOptionFromArgs("上下反転2") != "") Then
UD_OPT2 = "上下反転"
EndIf
Local LR_OPT2 = ""
If (_SearchOptionFromArgs("左右反転2") != "") Then
LR_OPT2 = "左右反転"
Endif
If ((DRCT2 != "") And (LR_OPT2 != "")) Then
Set DRCT2 ""
ElseIf (LR_OPT != "") Then
Set DRCT2 LR_OPT2
EndIf
Local UID = _GetName(対象ユニットID,_GetIDFromArgs())
_CenteringCheck UID
Local C_X = WX(UID)
Local C_Y = WY(UID)
Local i L_NUM
Local BMP_FILE = _GetBMPName(UID)
Local BMP_FILE2 = _GetTileName(UID)
Local BMP_FILE3
Local ANG = _GetAngle(UID)
Local TYPE = Args(1)
Local X_F
Local Y_F
Local DRCT
Local DRCT2
Local DRCT3
Local W_T
Local UDR
Local FJ
Local R_S
Local UPE
_UnSetBattleAnimeValue
Set L_NUM 5
Set X_F _GetCircumference(ANG,X)
Set Y_F 1
If (X(UID) < _Get_X(相手ユニットID)) Then
Set DRCT 左右反転
Set DRCT2 左右反転
Set DRCT3 左右反転
Set ANG 270
Else
Set DRCT ""
Set DRCT2 ""
Set DRCT3 ""
Set ANG 90
EndIf
If (_SearchOptionFromArgs("垂直") != "") Then
Set X_F 0
EndIf
Set W_T 1
If (_SearchOptionFromArgs("速") != "") Then
Set W_T 0.5
ElseIf (_SearchOptionFromArgs("遅") != "") Then
Set W_T 1.5
EndIf
Set UDR ""
If (_SearchOptionFromArgs("上下反転") != "") Then
Set UDR 上下反転
EndIf
# 方向判定
Set FJ 1
If (_SearchOptionFromArgs("正") != "") Then
Set FJ -1
EndIf
If (_SearchOptionFromArgs("小移動") != "") Then
FJ = (FJ * 0.5)
EndIf
If (_SearchOptionFromArgs("高") != "") Then
Y_F = (Y_F * 2)
EndIf
If (_SearchOptionFromArgs("回転") != "") Then
If DRCT2 = 左右反転 Then
Set DRCT2 ""
Set DRCT3 ""
Else
Set DRCT2 左右反転
Set DRCT3 左右反転
EndIf
EndIf
If (_SearchOptionFromArgs("昇龍") != "") Then
If DRCT3 = 左右反転 Then
Set DRCT3 ""
Else
Set DRCT3 左右反転
EndIf
EndIf
# アッパー・振り下ろしエフェクト指定
Set BMP_FILE3 "-"
Set UPE ""
If (_SearchOptionFromArgs("アッパー") != "") Then
Set BMP_FILE3 "Attack\EFFECT_Swing0"
Set UPE 上下反転
ElseIf (_SearchOptionFromArgs("振り下ろし") != "") Then
Set BMP_FILE3 "Attack\EFFECT_Swing0"
EndIf
Wait Start
ChangeUnitBitmap UID 非表示
For i = 1 To L_NUM
ClearPicture
_PaintTile BMP_FILE2 C_X C_Y
Local i
Local j
Local A_X
Local A_X
Local X_F
Local X_D
Local Y_F
Local ANG
Local DRC
Local BMP_FILE
Local BMP_FILE2
Local EFFECT_FILE
Local S_D
Local C_X
Local C_Y
Local UID
Local Time
_UnSetBattleAnimeValue
Set UID _GetName(対象ユニットID,_GetIDFromArgs())
Center UID
Set C_X WX(UID)
Set C_Y WY(UID)
Set EFFECT_FILE _GetBeamColor(_GetColorFromArgs())
If (EFFECT_FILE != "") Then
Set EFFECT_FILE ("Common\EFFECT_SonicBoom" & EFFECT_FILE & "02.bmp")
EndIf
Set ANG _GetAngle(UID)
Set BMP_FILE _GetBMPName(UID)
Set BMP_FILE2 _GetTileName(UID)
If (X(UID) < _Get_X(相手ユニットID)) Then
Set X_D -1
Set DRC 左右反転
Else
Set X_D 1
Set DRC ""
EndIf
Wait Start
_SelectSound Whiz.wav _GetWavFromArgs()
If (BMP_FILE2 = "") Then
ChangeUnitBitmap UID 非表示
EndIf
Set Time 0.6
For i = 1 To 5
ClearPicture
If (BMP_FILE2 != "") Then
PaintPicture BMP_FILE2 C_X C_Y _ColorTime()
EndIf
Switch i
Case 1
Set Y_F 8
Case 2
Set Y_F -32
Case 3
Set Y_F -48
Case 4
Set Y_F -56
EndSw
PaintPicture BMP_FILE C_X (C_Y + Y_F) 透過 DRC _ColorTime()
Refresh
Wait Until (i * Time)
Next
Center _Get_X(相手ユニットID) _Get_Y(相手ユニットID)
Set A_X WX(UID)
Set A_Y WY(UID)
Wait Start
For i = 1 To 3
ClearPicture
If (BMP_FILE2 != "") Then
PaintPicture BMP_FILE2 A_X A_Y _ColorTime()
EndIf
Switch i
Case 1
Set X_F 48
Set Y_F -48
Case 2
Set X_F 36
Set Y_F -36
Case 3
Set X_F 24
Set Y_F -24
EndSw