板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart10
[75]名無しさん(ザコ)：2006/02/23(木) 23:27:36 ID:Y9h4H69E0
こんなものを組んでみたんだが実行すると途中の線が消えずに残ってしまうようで
どこが原因か教えてくれるとありがたい
戦闘アニメ_レーザー照準β:
# 引数 色 音 太さ
_CenteringCheck 相手ユニットＩＤ
Local i a b
Local T_X = WX(相手ユニットＩＤ)
Local T_Y = WY(相手ユニットＩＤ)
Local S_X = WX(対象ユニットＩＤ)
Local S_Y = WX(対象ユニットＩＤ)
Local CLR = _GetName(#FF0000,_GetColor(_GetColorFromArgs()))
Local WID = _GetName(2,_GetNumberFromArgs())
Color CLR
DrawWidth WID
_SelectSound hittyuu.wav _GetWavFromArgs()
For i = 1 To 5
ClearPicture
Line (S_X + 16) (S_Y + 16) (T_X + Random(31)) (T_Y + Random(31))
Refresh
Wait 2
Next
ClearPicture
Line (S_X + 16) (S_Y + 16) (T_X + 16) (T_Y + 16)
Refresh
Wait 5
Return "Keep"
前 次
0ch BBS 2005-06-05