HSP - Hot Soup Processor [7]

**名前は開発中のものです。** · 04/06/10 04:28

前スレ
　　HSP - Hot Soup Processor
　　　http://game.2ch.net/gamedev/kako/1005/10053/1005332663.html
　　HSP - Hot Soup Processor [2]
　　　http://game.2ch.net/test/read.cgi/gamedev/1035428757/
　　HSP - Hot Soup Processor [3]
　　　http://pc2.2ch.net/gamedev/kako/1043/10436/1043609896.html
　　HSP - Hot Soup Processor [4]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1047082415/
　　HSP - Hot Soup Processor [5]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1058507713/
　　HSP - Hot Soup Processor [6]
　　　http://pc5.2ch.net/test/read.cgi/gamedev/1078660876/

関連サイト
　　ONION software　（本家）
　　　http://www.onionsoft.net/
　　HSP CENTER
　　　http://hspcenter.com/
　　HSP ML
　　　http://garde.esprix.net/hsp-ml/

**名前は開発中のものです。** · 04/07/05 21:52

>>290
最初に、5ドット進む距離を内包する正方形でも求めて、敵を絞り込んでから1ドットずつ絞り込んだ敵で判定しては？
その処理方法だとこれぐらいかな？

**名前は開発中のものです。** · 04/07/05 22:12

>>294
お？それというのは、
敵が回りにいないのに当り判定をするのは無駄だから、
近い敵だけ探して判定すると言うこと？

まじゴメン、バカで理解できんかった･･･(='ω`）トホー

**名前は開発中のものです。** · 04/07/05 22:16

自機に近い弾だけ先に抽出するとか…。
つか少しくらいのすり抜け気にするな。

**名前は開発中のものです。** · 04/07/05 22:19

ああすまん重複

**名前は開発中のものです。** · 04/07/05 22:20

>>295
そう。
５回、全敵に対してやるのはかなりの無駄だからなぁ・・・
できるだけ、絞り込まないと。

**名前は開発中のものです。** · 04/07/05 22:22

295さんじゃないけど、同じくstg作っているものとして関心あります。
いや、295さんと違い、わたしは弾のすり抜け問題なぞここを見て初めて認識したのですが。
es_checkで済ませ、すり抜けることがありうるなんて考えてもいなかった…。

294さんのおっしゃるのは、たとえば透明な、実際の弾よりも大きめのスプライトを一緒に飛ばして
それで簡易に当たり判定。
もしも判定がイエスならば、細かくさらに判定ということでしょうか？

**名前は開発中のものです。** · 04/07/05 22:23

すみません、書き込んでいる間に返事がありましたね…。

**名前は開発中のものです。** · 04/07/05 22:42

ふむ、なるほど。
場に弾が200個あって5回判定すると1000、
近いのだけ抽出すれば、200回強で済むわけか。
今まで考えもつかなかったなぁ。これでかなり
処理速度が向上しそうだ、助言マジ感謝！

>>296
ゲームとして成り立つなら
気にしなくてもOKだとは思うけどねｗ

２９９氏も同じSTG製作ｶﾞﾝﾊﾞﾛﾅｰ

**名前は開発中のものです。** · 04/07/05 23:20

さっき思いついたが、１フレームにそれぞれ高々数ドットしか進まないと考えると、
ある一定距離以上の弾は数フレーム間は判定をはしょってもいいな、と。
けど、FPSが揺れるから微妙か･･･

**名前は開発中のものです。** · 04/07/05 23:24

http://ww22.tiki.ne.jp/~y-shirakawa/hsp/sokudo.txt
速度。
へんなテストばっかりだが。

**名前は開発中のものです。** · 04/07/05 23:26

アセンブリに落とせれば凄く勉強になるのになぁ。

**名前は開発中のものです。** · 04/07/05 23:27

ま、弾幕シューティングなら敵弾はゆっくり飛ばそうぜってことだな。

**名前は開発中のものです。** · 04/07/05 23:29

それは、敵弾と自機との距離の差を求めて、
一定範囲内に入ったら細かくするってこと？
なんかこのスレの方々は、優しくレスくれて涙が出るよ、ありがとう！

①弾を中心に範囲を決めたレイヤーを打ち出し、
　レイヤー内に対象が入ったら細かく判定する。
②弾と対象の差を求めて、対象と近づいた値のものだけを
　判定する。
どちらの方法も大雑把→詳細と、２重の判定を
するってことになるね。ふむふむ。
②で差を求めたほうが簡潔でいいかなぁ？

**名前は開発中のものです。** · 04/07/05 23:42

>>306
あー、302のことは、一定距離以上の弾は、初めから判定を数フレームやらないという意味ね。
説明しにくいけど
1フレームにnドット進むならmフレーム進むのはその弾中心の円内（半径mnドット)にいるはず。
逆に、自機も同じようにその自機中心の円内にいるはず。
とすると、円同士が重ならなかったら、mフレームはその弾との判定はしなくてもいい。
・・・って感じなんだけど、実装するとなるとちょっとめんどくさそうだ・・・
それに計算で逆に遅くなっても意味ないし、バグの原因を作りそうだな・・・
あんまり効力はなさそうでメンゴ（汗

**名前は開発中のものです。** · 04/07/06 00:43

>281
のやり方でいいんでない？

描画１フレーム中に「座標更新～当り判定」を２回以上にする。

**名前は開発中のものです。** · 04/07/06 00:45

そもそも弾幕ゲーのお約束として

遅い弾は小さくて大量
速い球はデカイor長くて小量

だし。

**名前は開発中のものです。** · 04/07/06 01:22

軽くで良いからｘ軸ｙ軸でソートしておく。
そうすると当たり判定が一気に省ける。
弾幕系は当たり判定に関係ない弾が多いから。

**名前は開発中のものです。** · 04/07/06 03:10

あれ？
もう一つのPC　Duron 800MHz ： Meで測ったら、2400msぐらい・・・
>>268とあんまり変わらない・・・
そういえば、前作ったシューティングゲー(DirectX無し)も>>268のPCより、Meの奴のほうがFPS出てるんだよね・・・
なんか、泣けてきた・・・

**名前は開発中のものです。** · 04/07/06 07:32

>>308
それをやってるから処理速度が追いつかなくなる、
という話題なのだが･･･。
当り判定が突き抜ける問題はいくらでも克服できるようになったよ。

>>310
すまそ相変わらずバカで理解できなかった･･･。
詳しくお願いしま。

**308** · 04/07/06 08:18

>312
スマソ.斜め読みしてた。

**名前は開発中のものです。** · 04/07/06 21:28

>312
310ではないけど例えば弾のX座標を取得して10,2040,50,80,100という風にソートしておいて
自機+-10以内に入ってる弾だけ当たり判定をするっていう事かな
やり方は違うけど弾幕の場合どの方法でも自機に近い弾だけを当たり判定するって考え方は同じかと

**名前は開発中のものです。** · 04/07/06 21:57

>>314
なるほど理解した
みんなのおかげで、自機に近い弾だけ判定するというのは
かなーり理解しました、マジ感謝、頭が上がらんよ
310(314)氏のも参考にして、時間はたっぷりあるので
簡易判定を飛ばす、差を求める、ソートする
の３つは全部試してみまつ

俺、暗算とか頭で考えるの苦手だから
実際に動かしてみないと理解できないんだよね
（プログラマにとって致命的だな）
試して、一番速いのを実装することにしまｗ

**名前は開発中のものです。** · 04/07/06 22:18

ソートするなら、めんどくさい（高度な）ソートルーチン組まないと逆に低速化するだろう
と予言

**名前は開発中のものです。** · 04/07/06 22:39

正確にはソートというより並び替えだね。
大抵は前後の順番が入れ替わるだけだから。
弾を発射するときだけ重くなるけど他は大して重くならないと思う。
毎フレーム比較するんじゃなくて各フレームで部分部分比較すれば
そんなに誤差でないと思うし。

**名前は開発中のものです。** · 04/07/06 23:21

当方のHSPがおかしい・・・
OS(XP pro)なんだが、await 1がどうみてもwait 1になってる・・・それもawait 10までwait 1。
でも、ソースによってはwait 1扱いにはならない。
なんだよ、これ・・・OTL

**名前は開発中のものです。** · 04/07/06 23:21

goto命令で、
ラベル名に変数を使うのは仕様上無理らしいんですが、
他の方法でそれに近いことをするのは出来ませんか？
ないなら諦めて、地道に名前書きますが・・・

**名前は開発中のものです。** · 04/07/06 23:38

>>319
onで実現できるように書いたら

**名前は開発中のものです。** · 04/07/06 23:43

on gotoでは駄目？

**名前は開発中のものです。** · 04/07/06 23:55

>>315
速いソートルーチンを組んでおくと
ゲームを作る上でめちゃめちゃ便利なので
(ハイスコアのソートとか、ホーミング武器の標的選択順とか)
面倒でも手をつけておくことをおすすめする。

**名前は開発中のものです。** · 04/07/06 23:58

>315
水を差すようで悪いが
労力の割にはあまり報われない気が…

自機当り判定が2*2ドットでも敵弾の最小8*8（東方の最小弾が見た目上はこの大きさ）が貫通するのに
相対速度が最低でも10ドット以上（敵弾の判定も見た目より小さいのかもしれないけど）

8*8の弾なんてせいぜい1フレームあたり6～8ドット移動ぐらいまでだと思うし
1フレーム１～2回くらいの当り判定計算でも十分な希ガス。
いくらなんでも1ドット動くごとに判定してやる必要はないと思う。

もっと小さい敵弾を想定しているならある程度仕方ないけど。

HPS製の飛翔鮎（体験版しかやったことないけど）みたいに思いきって最小敵弾16*16にするとか。
東方を久しぶりにやってみたら速い弾は16*16で8*8の弾は遅いし。（意外と16*16の弾がメインだった）
案外1フレーム1回しか計算してないのかもしれない。

**319** · 04/07/07 00:11

onですか・・・
分岐が数百個なので結構面倒ですね・・・。
文字が横に伸びてしまうのがちょっと難点ですが
それで頑張ってみることにします。
ありがとうございました

**名前は開発中のものです。** · 04/07/07 00:15

>>324
本家より引用
> on a goto *00,*01 ・・・ *09
> on a-10 goto *10,*11 ・・・*19
> on a-20 goto *20,*21　・・・

**名前は開発中のものです。** · 04/07/07 00:21

まあ、ラベル多いのが嫌ならラベル使わないような書き方にするしかないな。
if文が多くなりそうだけど。

**名前は開発中のものです。** · 04/07/07 00:41

>>323
うむ、それについては俺もさすがに考えた（X*Y弾がAﾄﾞｯﾄ移動して云々とか）
でも8*8の弾が5ﾄﾞｯﾄ動いて、自機が4ﾄﾞｯﾄ動けば9ﾄﾞｯﾄ
突き抜ける可能性があるのよー。あと、判定は特殊なことしない限り四角形だから、
カドに斜めに入っていったときは判定の幅が小さくなってしまう。

それから、8*8で円形を描くとカドが空くでしょ？
空いたところまで判定入れるの変だな、って思うから、
自分は8*8の弾だったら、判定は6*6or5*5にしたいのよ。

飛翔鮎はやったことないけど妖々夢はある(体験版だけど）
妖々夢の場合は弾遅いけど、怒首領蜂やケツイみたいなのだと
これスゲーなってのが良くある（と思わない？）
ま、そういう有名な弾幕STGを
パクろうってのは無理だけどね（汗

**327** · 04/07/07 00:45

すまそ、よく見たら被った内容多かったね･･･

**名前は開発中のものです。** · 04/07/07 01:14

TMAX = 50:dim TX,TMAX:dim TY,TMAX:dim TF,TMAX:dim TH,TMAX
dim TSIZEX,TMAX:dim TSIZEY,TMAX:ZX = 30:ZY = 200
screen 0,300,300
*MAIN
redraw 1:redraw 0:color 255,255,255 : boxf:stick KEY,15
if KEY&1 : ZX -= 4
if KEY&2 : ZY -= 4
if KEY&4 : ZX += 4
if KEY&8 : ZY += 4
color 0,0,0 : boxf ZX,ZY,ZX+2,ZY+2:COUNT++:COUNT2++
repeat TMAX : if (TF.cnt=0)&(COUNT>=10):TF.cnt = 1:TX.cnt = 30:TY.cnt = 20:TSIZEX.cnt = 8:TSIZEY.cnt=8:TH.cnt=1:COUNT = 0
if (TF.cnt=0)&(COUNT2>=10):TF.cnt=1 : TX.cnt=30:TY.cnt=20:TSIZEX.cnt=8:TSIZEY.cnt=8:COUNT2=0:TH.cnt=2
if TF.cnt { if TH.cnt=1:TY.cnt += 7
if TH.cnt=2:TY.cnt += 5 : TX.cnt += 5
color 0,0,0 : boxf TX.cnt,TY.cnt,TX.cnt+TSIZEX.cnt,TY.cnt+TSIZEY.cnt
HX1 = TX.cnt-ZX : HX2 = (-TSIZEX.cnt<HX1)&(HX1<2):HY1 = TY.cnt-ZY : HY2 = (-TSIZEY.cnt<HY1)&(HY1<2)
if HX2&HY2 : color 180,0,0 : boxf : TF.cnt = 0
}
if TY.cnt>=300:TF.cnt=0
loop:await 16:goto *MAIN
ちょっと試してみたけど微妙だね･･･
向かって動くと抜ける、
カドは場所によって抜ける

**323** · 04/07/07 01:26

>.327
自機が2*2で敵弾が5*5なら貫通に必要な相対速度が7ドット以上やね。
自機が4ドット速度で5ドット速度で向かってくる敵弾に突っ込めば相対速度は9ドット。
貫通しちゃうね。

自機2*2って小さすぎないかな？（他の弾幕ゲーはどうなんだろ）
上の例なら、自機5*5なら相対速度9ドットでも貫通しないし。

すまそ
怒首領蜂やケツイはやったことないや。

飛翔鮎（hspdx＋α）体験版　まだあった。
ttp://www.h7.dion.ne.jp/~tenkuu/

…なんて書いてたらテストサンプルが書きこまれてるのでやってみて寝まつ。

**名前は開発中のものです。** · 04/07/07 02:43

飛翔鮎の2周目？って鬼のように弾速いけどすり抜けないのかな。

**名前は開発中のものです。** · 04/07/07 02:45

速すぎて、すり抜けたことが分からないとかw

**名前は開発中のものです。** · 04/07/07 04:04

CAVEシューは確か弾は大きいのも小さいのも全て1ドットで自機は結構大きめだったような
弾幕シューだと一般的に弾か自機どちらかの当たり判定が極小でもう一方は見た目通りかな？

**名前は開発中のものです。** · 04/07/07 05:28

でも怒蜂や大往生よりガルーダのほうが判定小さく感じるな。

**名前は開発中のものです。** · 04/07/07 07:19

>333
敵弾のほうが小さいケースもあるのか。STGあんまりやらないからシランカッタ。
まぁ両方小さかったらほとんど当らなくなるだろうけど。

個人的にはSTGに限らずアクションゲームの当り判定は見た目どおりのほうが落ち着くな。

ところでリプレイ機能ってどうやってるんだろう？
全ての自機、敵、弾のフレーム毎の位置を記録してるのかな？

ランダム要素が一切なくて入力ログだけをとってるとか？

**名前は開発中のものです。** · 04/07/07 07:33

>>335
ランダムがあろうとなかろうと関係ない。
なぜなら、乱数の時に自分でシード指定すれば
おなじ、ランダムを再現できるから。

**名前は開発中のものです。** · 04/07/07 08:33

>336
なるほど。
なんにせよ敵も味方も座標ではなくて
挙動を再現する方法になるな。

**名前は開発中のものです。** · 04/07/07 08:45

１フレーム単位で全部保存していったらとんでもない量になる。
まあ、せめてタイミング（敵＆弾を出す）を覚えさせくぐらいにしないと。
でも、プログラムがめんどくさくなるからランダム再現が一番楽だと思う。

**名前は開発中のものです。** · 04/07/07 13:02

フレームごとのキー入力再現で良いのでは…。

**名前は開発中のものです。** · 04/07/07 14:36

>>339
敵の動きが毎回完全に一致ならね。
ランダム要素使ってるのにキー入力だけでやったらおかしなことになる。

**名前は開発中のものです。** · 04/07/07 16:22

乱数シードもいっしょに保存しておけば1対1に対応するんじゃないか？
HSPの乱数がどうなってるか知らないけど。

**名前は開発中のものです。** · 04/07/07 16:23

randomizeも一緒に保存すれば良いでしょ。

**名前は開発中のものです。** · 04/07/07 16:24

WAO
被った。

**254** · 04/07/07 23:06

みんなの意見・指摘のおかげで、
無事、うちのPCでFPSを落とさずに敵弾200個を出すことに成功しますた！
自機を4*4ﾄﾞｯﾄに妥協して、敵弾の最小は6*6に。
速さ3以上の弾だけ3ﾄﾞｯﾄに1回の判定を入れることに。

ただ、今は敵弾200個強の時にギリギリで、その他の細かい処理が入ると
どうなるかわからんね。わからん。

感謝の気持ちたっぷりで
報告させてもらいました。ありがとう！

**名前は開発中のものです。** · 04/07/07 23:39

乙
いつか遊ばせてくれ

**名前は開発中のものです。** · 04/07/07 23:48

そいや、最近の弾幕シューて敵弾増えるとソフトでスローかけてるよね。
それやればもう少しごまかせるんじゃない？>>344

**名前は開発中のものです。** · 04/07/08 00:10

>>303の
*@fで強引にやるやり方はバカにできね
caseよりはやくなったまじで

**名前は開発中のものです。** · 04/07/08 00:38

>>345
9月下旬までに完成したらこのスレに貼ろうと思うよ
10月になっても現れなかったら挫折したとみて間違いない（爆

>>346
奥の手として頭の片隅に入れておくｗ
多分自動でスローかかるからわざわざルーチン組む
必要はなさそうですが

>>303のやつ俺も参考にしたね
括弧使うとかなり遅くなるみたいだから、
初めて計算順序を意識してみたよｗ

**名前は開発中のものです。** · 04/07/08 00:49

オリジナルで作ってコンテスト出せば？

**名前は開発中のものです。** · 04/07/08 01:00

まぁ弾の進行方向真正面にわざわざぶつかっていくこと自体希なケースだし
仮に正面衝突しても、許容値9（自機4*4、敵弾6*6）に対して10の相対速度でぶつかっても
貫通確立は1/9
11の速度でぶつかれば2/10
12の速度なら3/11
13の速度なら4/12　（…計算あってるかな？）
自分ならちょっとくらいの貫通はめんどくさくて目をつぶりそうｗ

>349
そのほうが有意義かもね

・・

とか書いている間にスゲーーー良い方法を思いついた！！
貫通対策。

**名前は開発中のものです。** · 04/07/08 02:19

>とか書いている間にスゲーーー良い方法を思いついた！！
>貫通対策。

それだけ書いて消えるな！
気になるだろ！ｗ

**名前は開発中のものです。** · 04/07/08 02:45

>351
すまそ　ｗ
本当に妥当な方法かどうかフォトショップでのグリッドで方眼紙作って検討してた。

◆漏れが今思いついた貫通対策◆（暫定版）

自機の当り判定に加えて「金魚の糞」式仮想当り判定部を加える。（グラディウスのオプションみたいな）
※ただし、自機停止時には金魚の糞は自機と同じ位置（つまり無し）
金魚の糞に喰らったら、当った弾の移動方向から妥当性を判定する。

例えば　↑から↓にまっすぐ飛んできた弾を自機を横に移動して避けて、金魚の糞に喰らった場合
判定は回避、
金魚の糞が弾の進行方向と同じ（この場合自機の↓にある＝自機が↑に進んでる）場合はHit

自機が2*2の当り判定で敵弾最小が6*6なら自機の進行方向逆の後方5ドットに2*2の金魚の糞を配置する。
これで、敵弾に正面衝突しに行った時のみ貫通してしまうのなら貫通を防げる。

難点は自機の方向は8方向しかないこと。敵弾は360度の方向があるから厳密性には欠けるかも。

眠いから朝起きてもっかい妥当かどうか考えてみる　ｗ

**名前は開発中のものです。** · 04/07/08 03:33

>>352
判定をもう一つ持たせるってことは判定回数が単純に倍になるんじゃ…。

**名前は開発中のものです。** · 04/07/08 04:18

●…TL

飲み杉かもしれん。普通に1フレーム2回判定したほうがマシだな。

**名前は開発中のものです。** · 04/07/08 05:38

やっぱり、すり抜ける可能性が高い弾（判定小＆高速）だけ細かく判定して、
すり抜ける可能性の低いのは通常通りってのが良いんじゃないかなあと思った…。

**名前は開発中のものです。** · 04/07/08 16:11

弾をすり抜けるのは紙一重でたまに避けるシステムですと
仕様にしてしまえばいい。

**名前は開発中のものです。** · 04/07/08 18:03

いや、そりゃあマズいだろ！

**名前は開発中のものです。** · 04/07/08 19:37

自機の動きと弾の動きを線分にして
それらが交わってるか調べるってのは？

**名前は開発中のものです。** · 04/07/08 20:53

>>358
それは本気で言ってるのか・・・？

**名前は開発中のものです。** · 04/07/08 21:08

バッファスクリーンに弾の大きさの分だけ描画して色判定は？
全部を描画すると重くなるから自機の周りだけ。
大して変わらないか、逆に重くなる可能性もあるが・・・

**名前は開発中のものです。** · 04/07/08 21:31

そもそも1フレームで貫通するほどの速度は当り判定のすり抜け云々以前に
見た目が許容できないかもしれない。

個人的には
最速でも自身の見た目の大きさの　ドット数/フレーム　以内までかなぁ
（自機が16*16なら　16ドット/フレーム　敵弾8*8なら　8ドット/フレーム）
欲を言えば自身の半分まで
（自機が16*16なら　8ドット/フレーム　敵弾8*8なら　4ドット/フレーム）

それより速いと残像拳みたいにみえる。

**名前は開発中のものです。** · 04/07/08 21:38

弾幕シューは基本的に弾のろいしな。

**名前は開発中のものです。** · 04/07/08 22:01

>>359
漏れの頭じゃこれしか思いつかなかった。

**名前は開発中のものです。** · 04/07/08 22:27

ﾋﾞﾐｮｳに話し変わるけど、丸い当り判定を使ってるのは漏れだけかな？

丸いって言ってもキャラ間の距離を当り判定に使ってるだけだけど
結果的にはほぼ丸になる。

**名前は開発中のものです。** · 04/07/08 23:44

そうでもないでしょ。
でも、大抵、長方形か丸。
まあ、計算的に多角形とか複雑な形は重くなるしなぁ・・・

**名前は開発中のものです。** · 04/07/09 14:26

四角の判定ならなんかＲＥＣＴ構造体の重なってる部分かえしてくれるＡＰＩあったんでそれつかってぴたら？

**名前は開発中のものです。** · 04/07/09 17:53

インターセクトってやつか

**名前は開発中のものです。** · 04/07/09 18:57

sinとか√とかそいゆう数学的な計算はどうやるんですか？

**名前は開発中のものです。** · 04/07/09 19:17

そいゆうのはマユアリュに書いてあるヨ

**名前は開発中のものです。** · 04/07/09 19:38

また質問なんですが
*main1
x=mousex : y=mousey
color 255,255,255:boxf 0,0,99,23
color 0,0,0:pos 0,0:mes "X="+x+"/Y="+y
getkey a,1
if a : goto *main2
await 5
goto *main1
*main2
end
こんな感じのソフトでHPSのウィンドウじゃない別のウィンドウとかでやりたい
のですがどうやったらいいんですか？

**名前は開発中のものです。** · 04/07/09 19:48

どこを別のウィンドウでやりたいんだ

**名前は開発中のものです。** · 04/07/09 20:30

だからこれはHSPのウィンドウからマウスが出たら計ってくれないじゃん？
それを他のウィンドウとかゲームとか操作とかしながら常に計ってくれるようｎa

**名前は開発中のものです。** · 04/07/09 20:39

*main1
ginfo 0
x=prmx : y=prmy
color 255,255,255:boxf 0,0,99,23
color 0,0,0:pos 0,0:mes "X="+x+"/Y="+y
getkey a,1
if a : goto *main2
await 5
goto *main1
*main2
end

こういうことをいってんの？

**名前は開発中のものです。** · 04/07/09 21:00

おしい！けど違う。それは他のウィンドウやファイル操作しようとしたら消えてしまう。

**名前は開発中のものです。** · 04/07/09 21:06

もともとそういう仕様ちゃうんか。。。

onclick *click
*main1
ginfo 0
x=prmx : y=prmy
color 255,255,255:boxf 0,0,99,23
color 0,0,0:pos 0,0:mes "X="+x+"/Y="+y
await 5
goto *main1
*click
end

**名前は開発中のものです。** · 04/07/09 21:08

レスもらっといて、おしい！じゃねーヨ。
おまいの説明不足だろ。
368の質問といいリア厨以下？

**名前は開発中のものです。** · 04/07/09 21:14

まあそうでしょうな
だが気にするな

**名前は開発中のものです。** · 04/07/09 21:17

>>370

HSP以外のウィンドウで処理できるものを作りました。
これで完璧です

;--------------------
#include "llmod.as"
mes "対象のウィンドウをクリックしてください"
repeat:wait 1:stick a:if a&256:break
loop:ginfo:pm=prmx,prmy
dllproc "WindowFromPoint",pm,2,1:mes "hWnd:"+dllret
pm=dllret:dllproc "GetDC",pm,1,1:mes "hdc:"+dllret
hdc=dllret:mref bm,67:repeat
ginfo:x=prmx : y=prmy
color 255,255,255:boxf:color 0,0,0:pos 0,0:mes "X="+x+"/Y="+y
pm=hdc,0,0,100,18,bm.4,0,0,0xCC0020:dllproc "BitBlt",pm,9,5
wait 5:loop
;---------------------------

**名前は開発中のものです。** · 04/07/09 21:34

人の手を借りまくってコンテストに応募とか？

**名前は開発中のものです。** · 04/07/09 21:58

ちょっと改造してやった。
キャプチャソフト
自由に使いたまい。

;--------------------
#include "llmod.as"
mes "対象のウィンドウをクリックしてください"
repeat:wait 1:stick a:if a&256:break
loop:ginfo:pm=prmx,prmy
dllproc "WindowFromPoint",pm,2,1
hwnd=dllret:pm=hwnd:dllproc "GetDC",pm,1,1
hdc=dllret:mref bm,67
pm=hwnd:dim rect,4:getptr pm.1,rect
dllproc"GetClientRect",pm,2,1
screen 0,rect.2,rect.3
pm=bm.4,0,0,rect.2,rect.3,hdc,0,0,0xCC0020:dllproc "BitBlt",pm,9,5
redraw
stop
;---------------------------

**名前は開発中のものです。** · 04/07/10 01:10

HSPでMicrosoft SAPIを使ってテキストを喋らせるのはどうやるんですか？

**名前は開発中のものです。** · 04/07/10 13:00

コンテストなんて興味ない。ただ自分が使いやすいソフトが作りたいだけ

**名前は開発中のものです。** · 04/07/10 13:25

おしい！けど違う

**名前は開発中のものです。** · 04/07/10 13:33

>>381
http://www.kct.ne.jp/~okuda/comlab/TextToSpeach/TextToSpeach.html
に
#include "rrmod/com/obsolete.as"
の一行を追加

LOLLIPOP ver3.00 β12をソースと同じフォルダに解凍しておく
http://yokohama.cool.ne.jp/chokuto/download/index.html

とりあえずこれでしゃべる
OSによってインストールされてるTTSエンジンが違うから
何か入れないとダメな場合もある
http://falsh2ch.hp.infoseek.co.jp/TTSengines.htm

**名前は開発中のものです。** · 04/07/10 16:39

#include "llmod.as"　　;llmod.asを使えるようにする？
mes "対象のウィンドウをクリックしてください"
repeat　　;ループ開始
wait 1　　;0.01秒待つ
stick a　　;何か押されたらaに1を代入
if a&256:break　　;aと256がともに正しければループ抜け出す？
loop　　;ループ繰り返す
ginfo　　;prmx.prmyにマウスの位置を代入
pm=prmx,prmy　　;pmにマウスの位置を入れる？
dllproc "WindowFromPoint",pm,2,1　　;WindowFromPointにマウスの位置を渡す？
mes "hWnd:"+dllret　　;?
pm=dllret　　;?
dllproc "GetDC",pm,1,1　　;?
mes "hdc:"+dllret　　;?
hdc=dllret　　;?
mref bm,67　　;?
repeat　　;ループ開始
ginfo　　;prmx.prmyにマウスの位置を代入
x=prmx　　;xにprmxを代入
y=prmy　　;yにprmyを代入
color 255,255,255　　;色を白に
boxf　　;画面を白色に塗りつぶす
color 0,0,0　　;色を黒に
pos 0,0　　;カレントポジションを0,0に
mes "X="+x+"/Y="+y　　;XとYを表示
pm=hdc,0,0,100,18,bm.4,0,0,0xCC0020　　;?
dllproc "BitBlt",pm,9,5　　;?
wait 5　　;0.05秒待つ
loop　　;無限ループ繰り返し
初心者なのでよく分からない所があります。教えて下さい。

**381** · 04/07/10 16:50

>>384
激しく感謝

**名前は開発中のものです。** · 04/07/10 16:51

> aと256がともに正しければループ抜け出す
まるで翻訳サイトの直訳みたいだね

**名前は開発中のものです。** · 04/07/10 16:53

× stick a ;何か押されたらaに1を代入
○ stick b ;押されているキーを2進数を単位に取得する
× a&256:break ;aと256がともに正しければループ抜け出す？
○ a&256:break ;256と同じビットが1なら抜ける

○ #include "llmod.as" ;llmod.asを使えるようにする？
○ pm=prmx,prmy　　;pmにマウスの位置を入れる？

　 dllproc "WindowFromPoint",pm,2,1　　;WindowFromPointにマウスの位置を渡す？
説 WindowFromPointにマウスの座標を渡して、カーソルの下にあるウィンドウのハンドルを取得
　 mes "hWnd:"+dllret　　;?
説カーソルの下にあるウィンドウハンドルを表示
　 pm=dllret　　;?
説ウィンドウハンドルをpmに代入
　 dllproc "GetDC",pm,1,1　　;?
説カーソルの下にあるウィンドウのデバイスコンテキストを取得
　 mes "hdc:"+dllret　　;?
説デバイスコンテキストを表示
　 hdc=dllret　　;?
説 hdcにデバイスコンテキストを代入
　 mref bm,67　　;?
説 HSPが持つBMSCR構造体をbmに割り当てる
　 pm=hdc,0,0,100,18,bm.4,0,0,0xCC0020　　;?
説 HSPのウィンドウからカーソルの下にあるウィンドウへコピーするように設定
　 dllproc "BitBlt",pm,9,5　　;?
説ビットブリット(BitBlt)を行う。gcopyと同様の機能。

**名前は開発中のものです。** · 04/07/10 17:25

>>388
説明どうも。
でもほとんど分からなかったり・・・汗

F1押しても出てこなかったり説明が変だったりして難しい

**名前は開発中のものです。** · 04/07/10 17:54

>>369
マニュアル読んだけど
-2147483647～2147483647 10進整数
$0～$FFFFFFFF 16進整数（0xでも可）
%0～%111111... 2進整数（0bでも可）
'A' 文字コード（1ﾊﾞｲﾄ）
+,-,*,/ 加算，減算，乗算，除算
&,|,^ 論理演算(and,or,xor)
\ 割り算の余り
=,<,>,! 条件式（同じ，小さい，大きい，同じでない）
==,<=,>=,!= 条件式2（同じ，以下，以上，同じでない）
<<,>> 左、右方向にビットシフト

しかなかった。これだけですか？

**名前は開発中のものです。** · 04/07/10 18:21

演算子と関数はﾁｮﾄﾁｶﾞｰｳ

**378** · 04/07/10 19:56

ネタなのであまり気にしないように
↓他のレスとかぶってるけど解答
stick a　　;aにキーコード取得
if a&256:break　　;※①aに256が含まれていたらループを抜ける
pm=prmx,prmy　　;pm.0にprmx　pm.1にprmyを代入
dllproc "WindowFromPoint",pm,2,1　　;WindowFromPoint＝pmの座標にあるウィンドウのHWNDを求める
mes "hWnd:"+dllret　　;HWNDを表示。気にしなくてもよい
pm=dllret　　;pmにdllret（返り値）を代入
dllproc "GetDC",pm,1,1　　;HWND（pmに代入された値）からHDCを求める
mes "hdc:"+dllret　　　;HDCを表示。気にしなくてもよい
hdc=dllret　　;hdcにdllret（返り値）を代入
mref bm,67　　;bm＝ID:0のウィンドウのBMSCRのポインタ
pm=hdc,0,0,100,18,bm.4,0,0,0xCC0020　　;※②pm.0にHDCpm.1に0以下0,100,18,bm.4,0,0,0xcc0020を代入
dllproc "BitBlt",pm,9,5　　;画像をコピー

※①
aを二進数にした場合
左クリックされた（256がaに代入される）→a=10000000
右クリックされた（512がaに代入される）→a=100000000
左＆右を同時にクリックされた（256+512がaに代入される）→a=110000000
ifの＆条件は8ビット（８桁）目が１だった場合という意味
例）
10000000;実行される　　11111111;実行される
00000000;実行されない　　01111111;実行されない
※②
pm=hdc,0,0,100,18,bm.4,0,0,0xCC0020は
pm.0=hdc : pm.1=0 : pm.2=0 : pm.3=100 : pm.4=18
pm.5=bm.4 : pm.6=0 : pm.7=0 : pm.8=0xCC0020
と同じ意味で、
pmの内容はBitBltに送るデータ（HSPで言うp1,p2,p3,p4,・・・・と同じ）
0xCC0020は頭に0xがついているので16進数の扱い　　　　　0xCC0020　=　13369376

**名無しさん＠そうだ選挙に行こう** · 04/07/11 07:49

さて去年はいろいろあってコンテスト出せなかったけど
今年もやってくれたから出したい所。

◆HOTsoUpxjY · 04/07/11 10:30

>>368　>>390
sinならマクローリン展開とか
平方根ならニュートン法とか何か使って
モジュールを自作すればいいかも
面倒ならそういうDLLを探すとか～