その８ スクリーンセーバーの作り方(2)

;スクリーンセーバー本体 *ssproc ax=dispx:ay=dispy bgscr 2,ax,ay,1,0,0,ax,ay *mainlp gosub *brown goto *mainlp *brown font "ＭＳ ゴシック",80,0 cls 4 ct=0 xx=ax-250 if a<10 :ax=100 rnd rx,xx rnd rs,4 *g2 ct+=1 if ct>400 :return rnd rr,6 palcolor 135+rr rnd ry,ay/80 ry=ry*80 rnd rx,ax/80 rx=rx*80 pos rx+rs,ry+rs print "□" wait 1 goto *g2

"その７"のスクリーンセーバーの本体の部分を差し替えてみました。
上にあるスクリプトは本体分だけです。
これは、すでにダウンロードコーナーで発表している”スクリーンセーバー[001b]”の一部です。

今回のポイントはdispxとdispyを使っている事です。
現在使用している画面の解像度が分かります。

スクリーンセーバーが動いているときに、同じパターンを表示し続けると、スクリーンにパターンが焼き付いてしまいます。
これでは、スクリーンセーバーの意味がありません。

乱数ｒｓを使用し、毎回微妙に位置をずらしています。
また、実際にスクリーンセーバーとしての完成度を考えたら、
数パターンの画像を用意するの方がよいでしょう。

さて、中身の解説ですが、font命令で８０ポイントの大きなフォントを指定しています。
画面上に見える四角はスクリプトの終わりの方でprint命令で表示している四角です。

print命令はmes命令と全く同じ動きをする命令です。

その９に行く

目次に戻る