![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
![]() ![]() |
SP鉄壁のアニメをマイナーチェンジ SPアニメ_鉄壁: Local i unit_bitmap unit_bitmap = GetUnitBitmap(Args(1)) Center Args(1) Wait Start PlaySound Transform.wav For i = 1 To 5 PaintPicture SpecialPowerBmp("teppeki_1_",1) (172 + i * 4) 200 96 64 透過 PaintPicture SpecialPowerBmp("teppeki_1_",2) (212 - i * 4) 200 96 64 透過 PaintPicture unit_bitmap - - 透過 PaintPicture SpecialPowerBmp("teppeki_2_",1) (172 + i * 4) (220 - i * 4) 96 64 透過 PaintPicture SpecialPowerBmp("teppeki_2_",2) (212 - i * 4) (220 - i * 4) 96 64 透過 Refresh Wait Until (0.5 * i) ClearPicture Next Wait Start For i = 1 To 4 PaintPicture SpecialPowerBmp("teppeki_1_",3) - 200 96 64 透過 PaintPicture unit_bitmap - - 透過 PaintPicture SpecialPowerBmp("teppeki_2_",i + 2) - 200 96 64 透過 Refresh Wait Until (0.5 * i) ClearPicture Next PaintPicture SpecialPowerBmp("teppeki_1_",3) - 200 96 64 透過 PaintPicture unit_bitmap - - 透過 PaintPicture SpecialPowerBmp("teppeki_2_",3) - 200 96 64 透過 Refresh Wait Until 5 ClearPicture Refresh Return [No.20] 2010/09/25(Sat) 09:56:16 |