| 2006/07/17(Mon) 04:14:16 編集(投稿者)
以下のインクルなのですが、
戦闘アニメ_乱刺攻撃: FillStyle 塗りつぶし For i = 1 To Args(1) set var1 random(454) set var2 random(466) Color Args(2) FillColor Args(3) Playsound Args(4) If Args(5) = 二刀流 Then Switch Random(4) Case 1 Polygon var2 0 (var2 + random(13)) 0 random(479) 479 Case 2 Polygon var2 479 (var2 + random(13)) 479 random(479) 0 Case 3 Polygon 0 var2 0 (var2 + random(13)) 479 random(479) Case 4 Polygon 479 var2 479 (var2 + random(13)) 0 random(479) Endsw refresh wait (random(6) / 10) Else EndIf Switch Random(4) Case 1 Polygon var1 0 (var1 + random(26)) 0 random(479) 479 Case 2 Polygon var1 479 (var1 + random(26)) 479 random(479) 0 Case 3 Polygon 0 var1 0 (var1 + random(26)) 479 random(479) Case 4 Polygon 479 var1 479 (var1 + random(26)) 0 random(479) Endsw If Args(6) = 血 Then Color RGB(Random(200) + 55,0,0) FillColor RGB(Random(200) + 55,0,0) Circle (Random(479)) (Random(479)) (Random(24)) Color RGB(Random(200) + 55,0,0) FillColor RGB(Random(200) + 55,0,0) Circle (Random(479)) (Random(479)) (Random(48)) Else EndIf refresh wait (random(6) / 10) If Args(7) = 残像 Then Else redraw EndIf Next redraw Return #例 乱刺 30 RGB(Random(200) + 55,0,0) RGB(Random(255),0,0) Slash.wav 二刀流 血
と、血の部分の様にインクル内にカラー設定をしていれば描画の度に色が変わるのですが、animation.txtの方で色を指定できるようにしてあるColor Args(2)と(3)は、色が固定され(戦闘毎には変わりますが)、例えばRandomの結果が200ならば、30回の描画全てRGB(200,0,0)として扱われます。 これを描画毎に変化させる良い方法は無いでしょうか? 色々試しては居るのですがなかなか思いつかず…どなたかご存知の方居られましたらよろしくお願いします。
|