HSP - Hot Soup Processor [14]

1 名前：名前は開発中のものです。 mailto:sage [2006/12/09(土) 22:35:08 ID:E0eCgjhQ] 　　　　　　 (　 ,,,) 　　　　　 　 .( 　,,)　　　　　　スクリプト言語 HotSoupProcessor について 　　　　　　　 ( ,,).　　　 　 　 ゲーム製作の視点から、また〜りと語り合うスレ。 　　　　　, -──- ､ 　　　　（,;::-──-; ）-､ 　　 　 .|｀￣￣￣´;;|ヽ l　　　* 質問する前に検索してみる事 　　　　 l;　　　　:::;;;l-' /　　　* ｦﾁ、ﾈﾀなどはスレ違い 　　　 ,-ヽ───.'-､´..　　　* 歴代スレ、関連サイトは >>2-4 あたり 　　　 ヽ ──── ' 　　ONION software　（本家） 　　　www.onionsoft.net/ 374 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:04:26 ID:hGyUf3nj] 目的を示す必要があるなら示します。 昔作ったゲームのソースを無くしたので、 それを実行ファイルから復元したいだけです。 375 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:12:11 ID:SmOS/jbK] 言うと思った が、それなら「どのバージョンでもいいです」はおかしいだろ？ 376 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:24:30 ID:hGyUf3nj] 長い間、ネットで公開していて、 いくつかのバージョンを使ってバージョンアップしていたので、 どのバージョンでも大方良いと思ったからです。 377 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:32:10 ID:SmOS/jbK] そんなソースを外部メディアにバックアップしてないのもどうかと思うが。 HSP2.55〜2.61用なら、「HSP　逆コンパイラ」でGoogle検索すれば Vectorにある物が思いっきりトップに出てくるぞ。 全機能使うには、いくらかの金が必要なようだが。 同等のゲームを作り直すのにかかる手間ヒマを考えれば安いもんだろ。 378 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:36:17 ID:OgJGyxCC] 逆コンパイルとか以前に動いてるのをみて処理を予想できないなら意味ないっしょ 忘れたなら　勉強しなおせるいい機会 この話題はおわり　他のが沸く前に 379 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:43:58 ID:hGyUf3nj] すいません。最後に１つだけお願いします。 expを使ってaxにしたやつを教えて頂いたソフトにかけたのですが、 ヘッダーが違いますと言われました。なぜなんでしょうか？ 380 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 15:56:51 ID:aZgeyRmX] >>379 ヘッダーが違うからでしょ？ 381 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 18:50:31 ID:N1RWXgNC] ヘルシア吹いた 382 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 20:31:37 ID:ajzZ8DFd] >>369 HSP3用かな？ 383 名前：名前は開発中のものです。 [2007/02/12(月) 21:08:01 ID:EN6Hiq9g] mes 2.4^3 みたいなのやるとき、どうするんすか？ 384 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 21:46:27 ID:Q9QrTKmW] >>383 mes expf(logf(2.4)*(3)) 詳細は↓参照 ttp://quasiquote.org/hspwiki/HSP3%C9%B8%BD%E0%A5%E9%A5%A4%A5%D6%A5%E9%A5%EA:math.as 385 名前：名前は開発中のものです。 mailto:sage [2007/02/12(月) 22:24:00 ID:GKCctX48] HSPで作ったソフトで商売してる人いる？ 386 名前：383 [2007/02/12(月) 22:55:34 ID:EN6Hiq9g] >>384 おーーさんくすです。 ざっと読みましたが関数電卓レベルの計算は内部で実装してないんですね。 見掛けでかい式になるのがまんすれば、なんとかなりそうです。 技術計算で少し目をつぶれば、他はかなりよさそうですね。 387 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 02:41:15 ID:22dT8zMg] >>385 www.meti.go.jp/press/20050711002/20050711002.html 平成１７年度の「ＩＴクラフトマンシップ・プロジェクト」(経済産業省) に採択された 「スーパープログラマーを育てる！」プロジェクト学習教材としてHSPが採用されました。 小中学生がHSPを通して、基礎からプログラミングを学んでゆく大きな試みです。 (2005/07/12) ってことらしいので 塾の別コースみたいな 子供らにHSP教える商売ってどう？ 388 名前：名前は開発中のものです。 [2007/02/13(火) 04:46:26 ID:rIw2M+fr] いや、HSPで作ったソフトをシェアウェアとかにしてる人いるのかなぁって、、 別に問題はないんだよね？ 389 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 04:46:47 ID:f7P6uizV] そうかな 390 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 05:22:52 ID:xFBPpsWt] >>388 最初からそう書けよ。>385の文章だと誤解の余地がありすぎるだろ。 で、 最近の子供はFAQを当たるくらいのこともできないのか？ hsp.tv/make/faq.html#f5 391 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 14:13:41 ID:WeyFWZXA] >>388 吉里吉里だろうが、Nスクだろうが、HSPだろうが 全て作者次第だろうが… 392 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 14:38:12 ID:rIw2M+fr] >>390 そんな無気になることでもないだろ 常識的に考えて・・ 393 名前：名前は開発中のものです。 [2007/02/13(火) 14:53:04 ID:kAlK9wyi] >>392 自分で調べる 教えてもらったら礼を言う って、事が出来ない奴に常識的にどうこう言って欲しくないｗ 394 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 14:57:49 ID:LC1ckLR9] >>387に対する礼儀がなっていないからです。 一生懸命あなたのために貴重な時間を割いて調べたのかもしれないのです。 自分の期待した答えでないからと 「いや」のただの2文字で好意を踏みにじったのです。 自分の言葉足らずの文章のせいで誤解をさせた上に、 自分で調べるという最低限の努力もせず、相手に無駄なことをさせたのです。 詫びの一言ぐらいあってもいいでしょう。 ムキになるのは当たり前です。 常識的に考えて・・ 395 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 15:23:52 ID:22dT8zMg] >>385 有名なメモリークリーナーってHSP製じゃなかったっけ？ 396 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 15:47:21 ID:HAyUA+Hu] 飛翔鮎 397 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 16:54:33 ID:22dT8zMg] ダイソーで100円で売られてる 「ザ・ボクシング　実写でボクシング」 ってHSPコンテスト入賞作だったような・・・？ 398 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 16:56:30 ID:22dT8zMg] >>385 探せば他にもあると思います。 399 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 17:13:32 ID:fKNeUGFg] スクリーンセーバーとかHSP製多そう 400 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 20:22:02 ID:ISiSh35o] HANAGE2もショップ９９で販売されてたな 401 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 20:53:32 ID:RWx7Cc7Y] Kz3はしきりすぎだろｗ 402 名前：名前は開発中のものです。 mailto:sage [2007/02/13(火) 23:47:42 ID:HsMZmwhC] 385について別にピザ食いながら鼻息立ててキレるほどのことでもないなと 思ったよ、俺は。 403 名前：名前は開発中のものです。 mailto:sage [2007/02/14(水) 00:10:25 ID:1fiM9B0G] ピザ食っちゃダメですか 404 名前：名前は開発中のものです。 mailto:sage [2007/02/14(水) 01:28:43 ID:4st9F958] 鼻息立ててキレなければ多分おk でも太るなよ。 健康面の不安定さから、国内医療費食い潰すのに加えて、外貨絡みの多い穀物関係の消費は無意味に貿易財政逼迫するから。 ただでさえ破綻しそうなドルを、この国は保有しすぎですけん。 国産の穀物だけで食えとは言ってないけど、バランス良いまっとうな食事心掛けたら国内需要が自然と増えるよって程度の話ー 405 名前：名前は開発中のものです。 mailto:sage [2007/02/14(水) 08:15:18 ID:C0kmHPEU] マジレスすると 俺メタボリック 406 名前：名前は開発中のものです。 mailto:sage [2007/02/14(水) 09:34:41 ID:mCS9GJHX] HSPはキチガイを呼ぶ力があるらしい 407 名前：名前は開発中のものです。 [2007/02/15(木) 06:22:55 ID:T4SorQda] 多次元配列の変数に文字列を代入することは不可能なんですか？ １次元の配列変数ならできたんですが・・・。 408 名前：名前は開発中のものです。 mailto:sage [2007/02/15(木) 06:36:09 ID:dFEe2Ryw] >>407 可能です。 sdim mojiretu,256,3,3 mojiretu(0,0)= "叶恭子","本名小山恭子","長女" mojiretu(0,1)= "叶春栄","本名不詳","次女" mojiretu(0,2)= "叶美香","本名玉井 美香","三女" repeat 3 j=cnt repeat 3 i=cnt pos i*160,j*32 mes mojiretu(i,j) loop loop stop 409 名前：名前は開発中のものです。 mailto:sage [2007/02/15(木) 08:53:41 ID:oDKH/5jA] >>480 できました。ありがとうございます 410 名前：名前は開発中のものです。 mailto:sage [2007/02/15(木) 11:07:31 ID:3CEsEVi7] >>480に期待 そしてサンプルの文吹いた 411 名前：名前は開発中のものです。 [2007/02/15(木) 23:49:40 ID:UV1ebeZU] HSPでWizっぽい3Dダンジョンつくりたいのですが、 3Dダンジョン部分の簡単なサンプルとかないですか？ 412 名前：名前は開発中のものです。 mailto:sage [2007/02/15(木) 23:52:39 ID:1i3++4tX] >411 www.smith-project.jp/main/index.html ここなんかどう？ 413 名前：411 [2007/02/16(金) 00:10:53 ID:14qwsicF] >>412 どうも。早速ダウンロードしました。 HSP3なんですが、palcopy 2 がエラーでます。 414 名前：名前は開発中のものです。 mailto:sage [2007/02/16(金) 00:14:52 ID:gJ9zatU3] >>413 そりゃどう考えてもお前が悪いだろ 415 名前：名前は開発中のものです。 mailto:sage [2007/02/16(金) 00:15:25 ID:Sx+Dxelr] 頭がな 416 名前：名前は開発中のものです。 [2007/02/16(金) 01:43:53 ID:ppH9PRcO] palcopyは廃止されてる sp30\common\hsp3util.as の bmppalette を見てみ 417 名前：名前は開発中のものです。 [2007/02/16(金) 02:02:56 ID:ppH9PRcO] hsp30\common\hsp3util.as hが抜けてた・・・ 418 名前：名前は開発中のものです。 [2007/02/16(金) 23:53:45 ID:ppH9PRcO] >>365 今日試したらtexloadでも補間出来た 何か条件があるのかも・・・ 419 名前：418 [2007/02/17(土) 00:33:49 ID:bW0Rt6ue] >>365 すまん勘違いだった texload2も関係ないや 420 名前：名前は開発中のものです。 [2007/02/17(土) 13:53:05 ID:/kaaJsCE] gmode ←2で設定してます gcopy ←まあ基本ですよね gzoom ←回転も一緒にやってくれるのって無いですか？ grotate ←これが説明書と違って上手く透過できない時があるのですが、なぜでしょうか？ 421 名前：名前は開発中のものです。 [2007/02/17(土) 15:49:27 ID:8zaigqCL] grotateはgmodeが5か6のときだけ使えば解決 422 名前：名前は開発中のものです。 mailto:sage [2007/02/18(日) 03:08:43 ID:YCBwpDKa] >>420 多分、gmodeが４以降の黒で透過ならcolor 0,0,0と書き込むと 旨く色抜きできるかもしれません。 color 0,0,0 pos xx,xx gmode xx,xx,xx grotate xx,xx,xx 423 名前：名前は開発中のものです。 [2007/02/18(日) 21:32:54 ID:oMzBretM] 在日＝竹石圭佑らしいが、熊本の済々黌の弓削達也って奴も朝鮮人だろ 在日って顔が日本人とは全然違うもんな 424 名前：名前は開発中のものです。 mailto:sage [2007/02/19(月) 10:53:53 ID:RiMEf6zX] おや？ 425 名前：420 [2007/02/19(月) 12:27:02 ID:N5sPNDQg] 回答ありがとうございます。 426 名前：名前は開発中のものです。 [2007/02/20(火) 02:16:00 ID:hQkR02aA] ラブちぇんって番組の効果音聞くとＨＳＰ思い出す 427 名前：名前は開発中のものです。 [2007/02/20(火) 16:31:25 ID:35NxbGRL] すいません、かなり初心者な質問なのですが、HSPでRPGを作ろうと思うのですが キャラの向きってどうやって表示させるのでしょうか？ BMP画像で4方向のキャラの絵がかいたやつがありますよね、あれを使って表示 させたいのですが、どうすればいいかわかりません。 なんか、説明が下手でわかりにくいかもしれませんが、わかる方がいられましたら よろしくおねがいいたします。 428 名前：名前は開発中のものです。 [2007/02/20(火) 17:34:10 ID:UJXvMqBN] >>427 まずキャラをどうやって表示してるか書け まぁ、簡単にやってみると screen 1,32*4,32,0,0,0 :font "ＭＳ ゴシック",32,1 :mes "←↑→↓" :screen 0,640,480,0,200,100 :x=300:y=200 repeat stick ky,$fff if ky=1 {ctx=0 :cty=0 :x-4} if ky=2 {ctx=32 :cty=0 :y-4} if ky=4 {ctx=64 :cty=0 :x+4} if ky=8 {ctx=96 :cty=0 :y+4} pos x,y :gcopy 1,ctx,cty,32,32 pos 0,0 :mes "stick="+ky :redraw 1 :await 15 :redraw 0 :color 255,255,255:boxf :color loop こんな感じ（分かる安さ優先） どーせ、アニメーションもさせるんだろうから screen 1,32*4,32*4,0,0,0 :font "ＭＳ ゴシック",32,1 repeat 4:pos 0,cnt*32 :color 200*(cnt=1),200*(cnt=2),200*(cnt=3):mes "←↑→↓" :loop :screen 0,640,480,0,200,100 :x=300:y=200 repeat stick ky,$fff if ky=1 {ctx=0 :x-4} if ky=2 {ctx=32 :y-4} if ky=4 {ctx=64 :x+4} if ky=8 {ctx=96 :y+4} if ky&15 {cty=((cnt/3)\4)*32} pos x,y gcopy 1,ctx,cty,32,32 pos 0,0 :mes "stick="+ky :redraw 1 :await 15 :redraw 0 :color 255,255,255:boxf :color loop こっちはアニメ付き 429 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 17:38:40 ID:j28Q+xuO] >>427 キャラの向きを変数で持っとけばいい。 ↑0、→1、↓2、←3みたいに。 方向キー入力の度に現在の向きを数値で保存しておいて、後は実際にキャラを描画する際に、 保存した方向の値を元に、表示する画像を選べば良いだけ。 画像データを配列にして持っておけば、if文もいらないからもっと楽。 430 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 17:41:57 ID:j28Q+xuO] >>428 うお、早ｗ ・・・うん、まあ>>427はそんな感じで頑張れｗ 431 名前：４２７ [2007/02/20(火) 17:56:20 ID:35NxbGRL] >>428 >>429 >>430 様 ありがとうございます！！　がんばります！ これでやっとRPGが作りはじめられる；； 432 名前：名前は開発中のものです。 [2007/02/20(火) 18:32:53 ID:nJaWXZmF] >>431 まずはシューティングだろ、技術的に考えて… 433 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 19:44:08 ID:cfAvRUKe] なんでやねん 434 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 19:54:31 ID:67b5bLjK] シューティングらしきものを作るのは楽だからな。 まあアクションの細分ジャンルみたいなもんだから フォーマットが限られてるという理由もある。 435 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 20:01:11 ID:4t1drqz4] こんな基本的なこと質問してるレベルじゃあ ろくなモン作れないさ。 436 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 20:32:38 ID:tSiBbCYw] まぁシューティングからかな ドラクエ式RPGを最初に作ろうってのは無謀 437 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 21:47:31 ID:TEatCogU] つーか、普通のＲＰＧみたいなのは素材が問題だからなｗ 438 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 22:04:17 ID:sIMFx+0Q] 難易度的には簡単だと思うが、ドラクエみたいなのを作ろうとしたら膨大な素材が必要だし一人で作るのはまず無理だな 技術的に可能でもとてもやる気がもたんだろうｗ 439 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 22:49:44 ID:tSiBbCYw] RPGとかノベルゲーは思いのほか プログラムが面倒だぞ アクション系はものにもよるけど 結構いきあたりばったりでいける 440 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 23:12:55 ID:j28Q+xuO] 個人的な経験上、RPGやノベルゲームは、システムを作るかゲーム内容を作るか、 絵や絵素材を描き込むか、三つの内の二つまでが根気の続く限界だったｗ 昔初めて作った自作RPGも、結局ドット絵で4方向キャラ絵描くのが大変で、 システムじゃ対応させていたのに、画面じゃ初代DQ1と同じ正面固定キャラだったり・・・ 441 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 23:19:48 ID:2Kw8UJd6] 最終的には、くだらないツール作り・・・ 442 名前：名前は開発中のものです。 mailto:sage [2007/02/20(火) 23:27:54 ID:zE56GDp8] マップ上のキャラだけポリゴンにするとかｗ 443 名前：名前は開発中のものです。 [2007/02/21(水) 02:24:31 ID:fMYYp1Y1] randomize sexplay=rnd(100) if sexplay = 0 : dialog "ﾌﾟｷﾞｬｰ" F5 　！　ﾌﾟｷﾞｬｰ ('A`) 444 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 10:11:04 ID:VNWQKOrq] 200回実行して、一度もﾌﾟｷﾞｬｰされないんだが 445 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 14:44:56 ID:Lykz6MYj] >>431 ドラクエ型RPGよりも 20年前のウィザードリー型 （直線だけで書かれたヘボイ３D迷路のダンジョンで 　ストーリーが殆どないRPG。 　あるのは迷路探索と戦闘と店の売買と宝探しと 　多少のイベント） のRPGのほうが作りやすいんじゃないかい？ それだと、ソースのテンプレみたいのもあるし マップがあまり広くなくても大丈夫だし ストーリーも殆どいらないし 主人公や仲間のグラフィック書かなくていいし 重要なのは敵の出現率と強さのバランスだけだから （これは重要。本当に重要）作りやすいよ。 446 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 14:55:21 ID:2oVWmjXk] >>445 消防の頃、88で自作の3DRPG作ったのを思い出す。 初めて自分の作ったダンジョンの中を歩いた時は、そりゃ感動したもんだ。 LINE文が、描画中の線が目に見えるほど遅かったのには難儀したが。 447 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 20:10:26 ID:sqTKc8XK] >>446 俺もやったけど、描画は遅いんであらかじめ描いておいてパレットチェンジで対応した。 描画の速さはちょっと自慢だったが、完成してないので誰も見ていないｗ 448 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 20:27:05 ID:2oVWmjXk] >>447 ああ、そう言う方法の方が早かったかも知れないですな。 あんまり遅かったんで、俺はLINE文を自作のマシン語で置き換えて作ってたよ。 まあダンジョンの中歩けた時点で満足して、俺もゲームらしいゲームには作らなかったけど・・・ 449 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 21:51:11 ID:ffqSjqvs] >>446 消防でか。すげーな。 俺の通ってた小学校にいたら間違いなくヒーローだぞ。 450 名前：447 mailto:sage [2007/02/21(水) 21:57:51 ID:sqTKc8XK] さすがにマシン語は無理だったｗ 緑の点を打つ、あたりで挫折した覚えがあるよ。446すげーな つーかここHSPスレじゃねえかｗ 451 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 22:25:26 ID:CjGnhR5w] てかなんでそんな人間が今HSPなんだよ 452 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 23:00:10 ID:sqTKc8XK] ラクだからじゃないのか 453 名前：名前は開発中のものです。 mailto:sage [2007/02/21(水) 23:29:33 ID:0jTyllT+] いくつかの数字から、何個か選ぶみたいな命令ってあるの？ ロト６用に簡単なものをつくってみたいんだけど、 ぱっと思いつくrepeatとrndをつかった文だと、重複した時の対処を 一つずつやっていかなきゃならないけど、 なんかもっときれいな形にできないかなと。 454 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 00:04:43 ID:MHAA7b9m] ぱっと思いつくrepeatとrndをつかった文で重複した時の対処を一つずつやっていけばいいと思う。 455 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 00:44:26 ID:XI+KwTS4] ちょっと分かりにくいかもしれない。 シューティング作ってるんだけど、弾の出し方がよく分からない。 ・押しっぱなしで出続ける（最大何発とかの制限あり） ・離すと切れる は出来るんだけど、 ・一回押したら最後まで出る（ミサイルが4発時間差で出たり） ってのが出来ない。 だれかヒントを… 456 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 00:55:44 ID:0D03FtgL] ショットボタン押されたらカウンター生成（カウンター≠0ならショットボタンを無視） ↓ カウンターが規定値に達したらカウンターを0に。 ↓ カウンターが特定の値のとき、自機の座標に応じてショットを生成 ↓ ループ で良くね 457 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 00:58:29 ID:MHAA7b9m] ミサイルのフラグ（待機、発射中、硬直中、残弾無し、一時使用不可）を作って キー押されたらフラグ変えて、ループ中に作ったif文で関数なりなんなりに飛んでけばおｋ モジュール空間にミサイル発射間隔とカウンタ等を入れるのがお勧め 458 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 03:06:11 ID:AGuE7p3B] >454 そうですかそれしかないですか(´･ω･`)ｼｮﾝﾎﾞﾘ 459 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 04:11:10 ID:AGuE7p3B] #include "hspda.as" *saisho dim a,6 randomize repeat 6,0 *yarinaoshi a(cnt)=rnd(43)+1 if cnt=1 & a(1)=a(0) :goto *yarinaoshi if cnt=2 & (a(2)=a(1) or a(2)=a(0)) :goto *yarinaoshi if cnt=3 & (a(3)=a(2) or a(3)=a(1) or a(3)=a(0)) :goto *yarinaoshi if cnt=4 & (a(4)=a(3) or a(4)=a(2) or a(4)=a(1) or a(4)=a(0)) :goto *yarinaoshi if cnt=5 & (a(5)=a(4) or a(5)=a(3) or a(5)=a(2) or a(5)=a(1) or a(5)=a(0)) :goto *yarinaoshi loop sortval a, repeat 6 mes a(cnt) loop mes "\n enterでもう一回。ESCで終了" *keycode stick key if key&32 :cls :goto *saisho if key&128 :end await 1 goto *keycode つくって見たんだけど、EXEファイルが実行してもエラー。 どうすれば良いか全然分からん。( つД｀) 460 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 05:04:52 ID:lPfRj7VD] ;その件に関するオレ的考え *selnum ;数字選定 dim r,44 repeat 6 repeat cnt+1 a=rnd(7)+1:if r(a)=0:r(a)=1:break loop loop ;表示 repeat 43,1:if r(cnt) :mes cnt loop ;まだやるかい mes "\nENTERで「元気…イッパイ…だぜ…ヘッ…」\nESCで、「ヒ…」":a=0 repeat:wait 1:stick key if key&32 :a=1:break if key&128 :end loop if a:cls :goto *selnum 461 名前：460 mailto:sage [2007/02/22(木) 05:07:35 ID:lPfRj7VD] ;６行目間違い。デバッグ用の数値のままだった。 a=rnd(43)+1:if r(a)=0:r(a)=1:break 462 名前：名前は開発中のものです。 [2007/02/22(木) 06:26:39 ID:TB+Oxm9G] >>459 出来るなら [Ctrl]+[F9] で実行ファイル作ってる？ 463 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 06:27:44 ID:PPY3Nm7Z] >>453 ロト６のやつ randomize: notesel a: repeat 43,1: noteadd ""+cnt: loop repeat 6: i=rnd(43-cnt): noteget n(cnt),i: notedel i: loop repeat 6: mes n(cnt): loop: stop 464 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 12:39:48 ID:ULv4wJip] >460 ｵﾒｽｹﾞｰﾅ。やり用によってはこうやってできるのか。 ちょっとわからんところ。 repeat cnt+1　の意味と最後にa=0とかa=1の意味とか、 良かったら教えてくれ。 if ってこういう使い方もあったのか。ヘルプだけじゃﾜｶﾗﾝ。 >462 内部エラー38とか言われる。何がダメなのかわからないので、晒してみた。 >463 重複が重複のまま・・。 465 名前：名前は開発中のものです。 [2007/02/22(木) 14:41:18 ID:TB+Oxm9G] >>464 >内部エラー38とか言われる。何がダメなのかわからないので 「38 "外部DLLの呼び出しに失敗しました"」 hsp30のフォルダにあるhspda.dllを 作った実行ファイルと同じフォルダにコピーしる 466 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 15:15:46 ID:ULv4wJip] >465 うぉうデキタ。ﾄﾝ exeにしたときは同じとこにないとダメなのね。憶えた。 一緒にひっくるめてファイルにしてくれるもんかと思ってた。 できた記念に一口買ってくるヮ 8、11、12、16、19、38 思いきり当たらなそうだけどなーorz 467 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 15:43:16 ID:lPfRj7VD] >>464 思いついて適当に書いたけど 問われて改めて考えると、バグの元や無駄があるのに気づくな…。 ─repeat cnt+1 は─ 無限ループに陥るのを回避するために、ループ回数を指定してるんだけど 「ランダムで数字を選んだ時、すでに選択した数字とカブってる」 という状況は、７回以上連続して発生してもおかしくないんで、 試行回数 cnt+1 では不十分だ…。 >463氏の、選択した数値を抜き取っていく方法なら、 同じ数値が選ばれる問題は発生しないから、そっちのほうがいいやね。 ─a=0とかa=1は─ キー待ちループの所で、 どういう理由でループを脱出したかを、あとで判定するための フラグ操作のつもりだったのだけど、 脱出する理由は一つだけなんだから、フラグ立てるまでもなかった。 repeat:wait 1:stick key if key&32 :break if key&128 :end loop cls :goto *selnum ;これで十分だった。 468 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 21:00:40 ID:u/uL+4lY] HSPでRPG作ろうと思ってるんだけど、音楽の再生（BGM)までの時間遅くない？ これを皆さんどうやって解決してますか？ 469 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 21:09:48 ID:5nAwOm3S] なんじゃそら データの無音時間が長いんじゃねえの 470 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 21:44:16 ID:TMK/38nP] >>466 そぉい！ #define ALL 43 //0~42の合計43個から #define NEED 6 //6個選ぶとして dim a, ALL repeat ALL a(cnt) = cnt loop repeat NEED idx = rnd(ALL-(cnt+1)) idx += (cnt+1) //ここで２つをスワップ tmp = a(cnt) a(cnt) = a(idx) a(idx) = tmp loop //処理が終了した、結果を確認 **** repeat ALL mes "a[" + cnt + "] = " + a(cnt) if(cnt == (NEED-1)): mes "↑　ここまで" loop 471 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 23:23:00 ID:MHAA7b9m] #define ALL 43 //0~42の合計43個から #define NEED 6 //6個選ぶとして if ALL < NEED : dialog "ALL が NEED 未満\nALL="+ALL+" NEED="+NEED,1,"MyError!" : end //初期化 dim a, ALL repeat ALL : a(cnt) = cnt : loop //シャッフル randomize repeat NEED 　 idx = rnd(ALL-cnt)+cnt 　 //←*******ここ、これでもいけるんじゃね？********* 　 //ここで２つをスワップ 　 tmp = a(cnt) : a(cnt) = a(idx) : a(idx) = tmp loop //処理が終了した、結果を確認 **** sdim result, 32*ALL : notesel result repeat ALL 　 noteadd "a[" + strf("%2d",cnt) + "] = " + a(cnt) 　 if(cnt == NEED-1) : noteadd "↑　ここまで" loop mesbox result, ginfo_winx,ginfo_winy, 0 472 名前：名前は開発中のものです。 [2007/02/22(木) 23:57:08 ID:TB+Oxm9G] >>468 .MID? なら音の初期化に時間が掛かってる（仕様） それが嫌なら MCI コマンド で mpegvideoのデバイス使用したりすればいい 473 名前：名前は開発中のものです。 mailto:sage [2007/02/23(金) 00:14:35 ID:O0erhAiM] BGMは普通にオーディオファイル使いなよ 474 名前：470 mailto:sage [2007/02/23(金) 10:12:11 ID:E2Prn5Yf] >>471 指摘と訂正ありがとう！ 言われて気づきますた。>>470は rnd() で拾う範囲が間違ってました。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef