板 1- 前 次 新 ﾚｽ
くだらねぇ質問にもマジレスする
[277]名無しさん(ザコ)：2009/07/22(水) 11:24:53 ID:Y1eRD1O60
これでどうよ
j = 0
For i = 1 to 15
ClearPicture
If j = 4 Then
j = 0
EndIf
Incr j
PaintPicture ("Bitmap\Anime\ScrollBack\EFFECT_SlidFront(White)0" & j & ".bmp") - - 512 320 透過
PaintPicture カットイン.gif - (480 - 30 * i) 480 480 透過
Refresh
Wait Until 0.1
Next
前 次
0ch BBS 2005-06-05