雨

エフェクトとして使えそうかなぁと思い立ち、テストスクリプトを作ってみました。
30行以内の短いソースです。

適当なフォルダに次のファイルを用意し、HSPで実行してみて下さい。

• rain_test.hsp（↓からゲット）

うまく起動するとこんな画面で雨が降っているのを見ることができます。

静止画像なのでイメージがわきにくいかと思いますが、実行するとそれなりに見えますｗ
ウソザナに組み込むと面白いかな？と思ったのですが、ダンジョン内に雨は降るはずが無いのでボツかな＾＾；

rain_test.hsp

;
; プログラム　　：「雨」を作ってみる
;
; 作成　　　　　：ふじぽん
;
; Copyright 　　：http://d.hatena.ne.jp/fujiponXP
;
; 変更履歴
;  ver.1.0 2009/12/20 新規作成

#define cs 32
screen 0, cs*9, cs*9
title "雨"
randomize

*main
	color:boxf
	repeat 30
		x = rnd(cs*9)
		y = rnd(cs*9)
		z = rnd(3)*5
		c = rnd(5)
		color c*10+50, c*10+50, c*10+50
		line x,y, x+z, y+z*3
	loop
	await 50
	goto *main