次回作とか書いといて、あっという間に出来てしまった。
ランダムにスタンプするのではなく、ランダムに並べます。
＝＝＝＝＝
{---プログラム掲示板投稿フォーム---
【ソフト名】記号をランダムに並べるセーバー (バージョン 1.00)
【作 成 者】moka (連絡先:moka21@ybb.ne.jp)
【種 別】フリーソフトウェア
【ひまわりのバージョン】ver.1.18
【転 件】可 (転載条件:ご自由に)
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】無
【コメント】ダブルクリックで終了します。
---投稿フォームここまで---}
{描画に関する設定}
マーク=「★,●,■,◆,▲」
文字サイズ=50
母艦の、ダブルクリックした時は、終わる。
母艦の、クリックした時は、初期化。
母艦全画面化。
カーソル表示は、オフ。
横数は、整数((母艦の、幅)/(文字サイズ*1.5))+1
縦数は、整数((母艦の、高さ)/(文字サイズ*1.5))+1
横縦表=「」
縦数回(
それは、回数
横数回(
横縦表=横縦表&「{回数-1},{それ-1}\n」
)
)
＊初期化
黒色で、画面クリア。
'文字色は、RGB(乱数(256),乱数(256),乱数(256))
{マークの決定}
それは、マーク。
「,」を、「\n」に、置換。
要素数。
乱数。
描画マークは、マーク#それ#0。
横縦表を、配列シャッフル。
横縦表は、それ。
＊ループ
横縦表を、反復(
文字色は、RGB(乱数(256),乱数(256),乱数(256))
x=(それ#0#0)*(文字サイズ*1.5)
y=(それ#1#0)*(文字サイズ*1.5)
母艦の、(x,y)へ、描画マークと、文字描画。
描画処理反映。
)
初期化へ、飛ぶ。
|
記号を順番に並べるセーバー
/moka (02/01/22(Tue) 15:54) [276]