sample\obaq\test10.hsp » Plain Format
#include "obaq.as" ; ; 重力のない平面でのビリヤード風動作サンプル ; カーソルキー左右で角度を決定してスペースキーで発射します ; [ESC]で終了します ; randomize ; 乱数の初期化 screen 0,640,480 ; ウィンドウ初期化 celload "obaqlogo.bmp" ; OBAQロゴ読み込み logoid=stat ; ロゴのID qreset ; OBAQの初期化 qgravity 0,0 ; 重力なし qborder -40,-50,40,50 cenx=320/4:ceny=240/4 hako=10 repeat 100 if hako=0 : break qaddpoly my, 16, cenx+rnd(60)-30,ceny+rnd(100)-50,0,5,5 ; 多角形を追加 if my>=0 { hako-- } loop *main ; メインループ ; redraw 0 ; 画面の更新を開始 gradf ,,,,1,0,128 ; 画面クリア qexec ; OBAQによるオブジェクトの更新 stick key,15 ; キーの取得 if key&128 : end ; [ESC]キーで終了 qgetpos my, xx,yy,mr if key&1 : mr-=0.05 if key&4 : mr+=0.05 qpos my, xx,yy,mr if key&16 { qspeed my, cos(mr), sin(mr) } qdraw ; オブジェクトの描画 color 255,255,255 qcnvaxis x,y,xx,yy pos x,y:line x+cos(mr)*32,y+sin(mr)*32 gmode 2:pos 500,404 ; ロゴ表示 celput logoid redraw 1 ; 画面の更新を終了 await 12 ; 一定時間待つ goto *main