| GAMEMASTERです。
> ご返信ありがとうございます。 > しかし、いまいち分からないのでサブルーチンの本文を掲載しますのでご観覧願います。 > > (後略)
ます、このサブルーチンの引数はこのような形にしましょう。
Call タイトル表示 "最初の文字の設定リスト" "最初の文字" "次の文字の設定リスト" "次の文字"
色はForコマンドで段階的に変化させる模様ですので、それ以外のオプション(サイズ・タイプ・斜体・太字)をリスト形式で一括して下さい。
オプションのリストは、文字を表示させる前に分解してFontコマンドで適用させます。
タイトル表示:
Local i
FadeOut 20
For i = 1 To LLength(Args(1))
Font LIndex(Args(1),i)
Next
For i = 1 to 16
Font RGB(16 * i, 16 * i, 16 * i)
PaintString - - Args(2)
Refresh
Wait 1
Next
Wait 20
FadeOut 20
For i = 1 To LLength(Args(3))
Font LIndex(Args(3),i)
Next
For i = 1 to 16
Font RGB(16 * i, 16 * i, 16 * i)
PaintString - - Args(4)
Wait 1
Next
Wait 20
FadeIn 20
ClearPicture
Return
リストの詳細はヘルプをご覧下さい。
参考になれば幸いです。
もう時間がないようでございますね。では、これにて退散させてもらいましょう。
|