test8.hsp

sample\obaq\test8.hsp » Plain Format

#include "obaq.as"

	;
	;	マウスクリックした場所にあるオブジェクトを削除
	;	左クリックでマウスカーソル位置のオブジェクトが消えます
	;	[ESC]で終了します
	;
	randomize		; 乱数の初期化
	screen 0,640,480	; ウィンドウ初期化
	celload "obaqlogo.bmp"	; OBAQロゴ読み込み
	logoid=stat		; ロゴのID

	qreset			; OBAQの初期化
	kazu=25			; 出現数
	frame=0
*main
	;	メインループ
	;
	redraw 0		; 画面の更新を開始
	gradf ,,,,1,0,128	; 画面クリア
	qexec			; OBAQによるオブジェクトの更新

	stick key,15		; キーの取得
	if key&128 : end	; [ESC]キーで終了
	if key&256 {
		qcnvaxis ax,ay,mousex,mousey,1	; 画面座標から内部座標に変換
		qinner res,ax,ay		; 座標を含むオブジェクトを調べる
		if res>=0 {
			qdel res		; オブジェクトを削除
		}
	}

	;	一定時間ごとに出現
	;
	if kazu>0 {
		qaddpoly my, rnd(3)+3, 96,24,0.01*rnd(628)	; 多角形を追加
		if my>=0 {
			qspeed my,0.1*rnd(10)-0.5,0,0.01	; ランダムな方向に飛ばす
			kazu--
		}
	}

	qdraw			; オブジェクトの描画

	color 255,255,255
	pos 0,0:mes "Frame:"+frame	; フレーム数を表示

	gmode 2:pos 470,40	; ロゴ表示
	celput logoid

	redraw 1		; 画面の更新を終了
	await 12		; 一定時間待つ
	frame++
	goto *main