#引数1 対象ユニットID
#引数2 画像名
Local UID
Local BMP_FILE
Local BMP_FILE2
Local TILE_FILE
Local i j R
Local C_X
Local C_Y
Local I_X
Local I_Y
Local T_COL1 = _ColorTime(1)
Local RAD
_UnSetBattleAnimeValue
Set UID _GetName(対象ユニットID,_GetIDFromArgs())
Set BMP_FILE "Weapon\EFFECT_FancyMagicRod01.bmp"
Set TILE_FILE _GetTileName(UID)
_CenteringCheck UID
Set C_X WX(UID)
Set C_Y WY(UID)
Set RAD (3.141592 / 180)
Set R 24
#For j = 1 To 4
Wait Start
Playsound MultipleRocketLauncher(Light).wav
For i = -9 To 24
Set I_X (R * Cos(RAD * (i * 10)))
Set I_Y (R * Sin(RAD * (i * 10)) * 0.8)
ClearPicture
PaintPicture BMP_FILE (C_X + I_X) (C_Y + I_Y) 右回転 (i * 45) 透過 _ColorTime()
Refresh
Wait Until (i * 0.3)
Incr R -0.5
Next
#Next
#Local KP_FLG = _S_OPT_FA("保持")
Local FILENAME
If X(対象ユニットID) < X(相手ユニットID) Then
Local LR = 左右反転
Else
Local LR = ""
EndIf
PaintPicture White.bmp - - 480 480
Refresh
Wait 2
Wait Start
For i = 1 to 4
PaintPicture White.bmp - - 480 480
Set FILENAME ("Anime\Slash\EFFECT_SlashLine(Black)0" & i & ".bmp")
PaintPicture FILENAME - - 240 240 LR
Refresh
Wait Until (i * 0.5)
Next
PaintPicture White.bmp - - 480 480
Refresh
Wait 2
Local UID = _GetName(相手ユニットID,_GetIDFromArgs())
Local i
Local B_C BMP_FILE BMP_FILE1 BMP_FILE2 SOUND
Local N_C N_S
Local RNG
Local T_COL1 = _ColorTime(1)
_UnSetBattleAnimeValue
Set BMP_FILE _GetBMPName(UID)
BMP_FILE1 = (Map\EFFECT_MapHole)
Center UID
PlaySound Args(1)
Set N_S 64
Set N_C 1
Set RNG 1
Wait Start
For i = 1 To 32
Set BMP_FILE2 BMP_FILE1
#(BMP_FILE1 & _GetRainbowColor(k) & "0" & N_C & ".bmp")
PaintPicture (BMP_FILE1 & _GetRainbowColor(i) & "0" & N_C & ".bmp") - (240 - (N_S / 2)) N_S N_S 透過 T_COL1
PaintPicture BMP_FILE - - 透過 T_COL1 シルエット
Refresh
If ((i Mod 2) = 0) Then
Incr N_C 1
EndIf
If (N_C = 4) Then
Set N_C 1
EndIf
Wait Until (i * 0.3)
#If (N_S > ((RNG + 1) * 32 + 32)) Then
# Break
#EndIf
Set N_S (N_S + 1)
Next
_CenteringCheck 対象ユニットID
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
If (_IsLight() = 1) Then
Set FL 1
Else
Set FL ""
EndIf
_SelectSound "Swing.wav" _GetWavFromArgs()
Wait Start
Set ANG1 45
For i = 1 To 24
Incr ANG1 60
ClearPicture
PaintPicture WP_FILE (C_X + X_P) C_Y G_S G_S 透過 右回転 ANG1 _ColorTime(FL)