# ߔNeBJAjuߔv\
퓬Aj_:
_CenteringCheck 胆jbghc
Font 12pt
Local C_X = _Get_WX(胆jbghc)
Local C_Y = _Get_WY(胆jbghc)
Local i

Wait Start
_SelectSound "Reload.wav" Args(1)
For i = 1 To 16

  If ((i mod 4) = 1) Then
    _SelectSound "Reload.wav" Args(1)
  EndIf

Switch i
Case 1
PaintPicture "CT\EFFECT_Bind01.bmp" (C_X - 8) (C_Y - 8)  E] 0 _ColorTime()
Case 5
PaintPicture "CT\EFFECT_Bind01.bmp" (C_X - 8) (C_Y - 8)  E] 135 _ColorTime()
Case 9
PaintPicture "CT\EFFECT_Bind01.bmp" (C_X - 8) (C_Y - 8)  E] 45 _ColorTime()
Case 13
PaintPicture "CT\EFFECT_Bind01.bmp" (C_X - 8) (C_Y - 8)  E] 90 _ColorTime()
EndSw

  Refresh
  Wait Until (i * 0.6)
Next
ClearPicture
Refresh
Return
