obaqでのアクションゲーム作成

はじめまして　ロマンと申します。

今obaqを用いたアクションゲームを作ろうと思い、触り始めたのですが
そこでいくつかわからないことがあり質問させていただきます。

1.デスクトップパソコンとノートパソコンを使っているのですがモニターのサイズが違い画面いっぱいにウィンドウを表示できません。screenを使ってサイズを合わせているのですが、screenを使わずに画面いっぱいに表示する方法を教えてください。
　
2.コリジョンでジャンプできるかどうかを判定しているのですが、ブロックからジャンプせずに落ちた場合空中でジャンプできてしまいます。空中ではジャンプできないようにする方法を教えてください。

3.コリジョンで判定しているので壁と接触している際もジャンプしてしまいます。以下のスクリプトでは違うコリジョングループのオブジェクトを挟んで対処しているのですがより簡単に対応できる方法を教えてください。

4.地面に着地するときに跳ねないようにそっと着地したいのですが1フレーム当たりの計算回数を増やすしか方法はないのでしょうか。

5.qviewを使ったオブジェクトの注視をしたいのですが、qviewを使ってもオブジェクト上ではないところが拡大されてしまいます。オブジェクトの動きに応じて画面が動くようにするにはどうしたらいいでしょうか。

質問3で動かすオブジェクトを十字の形にするように2つのオブジェクトを交差させ、壁に触れてもジャンプしないように試みたのですが失敗しました。
1つのオブジェクトでコリジョンを2つに分けるまたは2つのオブジェクトを離れないようにがっちり固定できれば質問3,4が解決できる気がします。

色々考えてみたのですが全くわかりませんでした。やり方ヒントなどをご教示ください。

以下が作成したスクリプトになります。




#include "obaq.as"

screen 0,1280,920,,0,0

qreset									;obaqの初期化

qdamper 0,1.0,0.5


qaddpoly  obj,4,40,30,,5,5				;□
qtype  obj,type_bindR,1					;回転の固定
qdamper  obj,1.5,0.2					;跳ね、摩擦
qinertia obj,0.999						;惰性	

qaddpoly obj2,4,14.3,118,,3,150,0,4,8		
qtype obj2,type_bind ,1					;背景に固定


qaddpoly obj3,4,150,30,,10,10,0,8,4
qtype obj2,type_bindR,1	


qaddpoly block,4,80,80,,50,10
qtype block,,1
qdamper block,0.5,0.2

qaddpoly block2,7,260,180,,20,30

qgroup obj,1,,1		;□のコリジョン
qgroup 0,2,,1		;外壁のコリジョン

;-----------メインループ-----------

*main
	redraw 0

	color 0,0,0 : boxf
	qexec
	
	gosub *collision
	gosub *hantei
	gosub *move
	qdraw 
	redraw 1
	await 15
	goto *main

;----------------------------------

*move
	
	stick key,1+4				;←と→のキーの取得

	qspeed obj,pax,pay,par		;□のスピード

	pax = 0.0
	pay = 0.0
	par = 0.0
	
	if key & 1 {
		if sx < 0.0 {
			pax =  -( 0.5 + sx ) * 0.05		; 限界速度に近づくほど、加速は小さくなる
		} else {
			pax = -0.5 * 0.05				;ブレーキの効きは一定
		}
	}

	if key & 4 {
		if sx > 0.0 {
			pax = ( 0.5 - sx) * 0.05
		} else {
			pax = 0.5 * 0.05
		}
	}

	if key & 2 {
			if jump > 1  {
				pay = -( 0.5 + psy) * 1.3
			} 
			jump = -1
	}

	if sy > 0.7 {
		pay = ( 0.5 - sy ) * 0.05			;終端速度（地面にめり込んでしまうため）
	} 

return


*hantei
	
	qgetpos obj,px,py,angle
	qgetspeed obj,sx,sy,sr
	sdim info
    notesel info
    noteadd strf("X座標                :%10.5f",px)
    noteadd strf("Y座標                :%10.5f",py)
    noteadd strf("角度                 :%10.5f",angle)
    noteadd strf("X方向速度            :%10.5f",sx)
    noteadd strf("Y方向速度            :%10.5f",sy)
    noteadd strf("回転速度             :%10.5f",ar)
    noteadd strf("jumpの値	  　 :%4d   "      ,jump)
    noteunsel

    color 255,255,255:pos 0,0:mes info

return


*collision

    qcollision obj;オブジェクトの指定
    qgetcol cobj,cx,cy ;コリジョン情報の取得

    ;コリジョン検出時の処理
    if cobj>=0{
	    
        color ,255,255
        circle cx*4-4,cy*4-4,cx*4+4,cy*4+4		;水色の球を表示

        jump += 1
	}

	if jump > 2 : jump = 2

return

HSPTV!掲示板