HSPTV!掲示板

この記事は投稿者により削除されました。
2014/6/24(Tue) 23:36:20

確かにオプション０と２の挙動が全く同じですね。
オプション２の実装が出来てないのでデフォルトの０が
適用されているという事でしょうか？

#include "obaq.as"
	qreset
	qaddpoly cube1, 4, 30, 30, 0, 10, 10,1
	qaddpoly cube2, 4, 80, 30, 0, 10, 10,1
	qaddpoly cube3, 4, 130, 30, 0, 10, 10,1
	qtype cube1, type_bindX|type_bindR, 1
	qtype cube2, type_bindX|type_bindR, 1
	qtype cube3, type_bindX|type_bindR, 1

	title "左クリックでqspeed使用"
*main
	redraw 0
	color : boxf
	qexec
	
	stick key	
	if key & 256 {
		qspeed cube1, 0, -0.8, 0, 0
		qspeed cube2, 0, -0.8, 0, 1
		qspeed cube3, 0, -0.8, 0, 2
	}

	qgetspeed cube1, sx1, sy1 ,sr1
	qgetspeed cube2, sx2, sy2 ,sr2
	qgetspeed cube2, sx3, sy3 ,sr3
	qdraw

	pos 90, 300 : mes "option 0\n" + sy1
	pos 290, 300 : mes "option 1\n" + sy2
	pos 490, 300 : mes "option 2\n" + sy3

	redraw 1
	await 16
	goto *main

修正してもらったのに検証するのをすっかり忘れていました。ごめんなさい。別の作業に没頭してました。

これは0と同じで加算されてますね。

#include "obaq.as"

	screen 0,640,480	; ウィンドウ初期化

	qreset			; OBAQの初期化
	qgravity 0.0, 0.0
	qaddpoly my, 3, 96,20,0	; 三角形を追加
*main
	;	メインループ
	;
	redraw 0		; 画面の更新を開始
	color 0,0,0:boxf	; 画面をクリア
	qexec			; OBAQによるオブジェクトの更新
	
;	qspeed my, , 0.01, , 1		; y = 0.01 * 2
	qspeed my, , 0.01, , 2		; y = 0.01
	qgetspeed my, vx, vy, vr	; y = 0.01 ?
	pos 50, 50
	color 255,255,255
	mes "x = " + vx
	mes "y = " + vy
	mes "r = " + vr
	
	qdraw			; オブジェクトの描画
	redraw 1		; 画面の更新を終了
	await 12		; 一定時間待つ
	goto *main

失礼　読み違えてました
http://hsp.tv/play/pforum.php?mode=all&num=61507
の後追加されたモード2が0と同じと言うのはおにたまさんのミスなんでしょうかね

ご報告ありがとうございます。
大変申し訳ありません、hsp34b4.zipに含まれているobaq.dllが手違いで古いバージョンを
同梱してしまっていました。
取り急ぎ、新しいバージョンのdllをこちらからダウンロードして差し替えてお試しくください。
http://www.onionsoft.net/hsp/file/obaq34b4.zip

次回の公開時は、正しいバージョンを同梱したいと思います。
お手数をおかけしてすみませんでした。

>新しいバージョンのdllをこちらからダウンロードして差し替えてお試しくください。

差し替えたobaq.dllでqspeedが正しい動作をする事を確認しました。

対応有難うございました。
こちらでもobaq.dllを差し替えたところ、マニュアル通りの動作を確認できました。