HSP - Hot Soup Processor [6]

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

　　　　　　 (　 ,,,)
　　　　　　 .( 　,,)　　　　　　スクリプト言語 HotSoupProcessor について
　　　　　　　 ( ,,).　　　　　ゲーム製作の視点から、また～りと語り合うスレ。
　　　　　, -──- ､
　　　　（,;::-──-; ）-､
　　　 .|｀￣￣￣´;;|ヽ l　　　* 質問する前に検索してみる事
　　　　 l;　　　　:::;;;l-' /　　　* ｦﾁ、ﾈﾀなどはスレ違い
　　　 ,-ヽ───.'-､´..　　　* 前スレ、関連サイトは >>2-5 あたり
　　　ヽ ──── '

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

しかし、こんな事言うのもアレだけどさ。winnyとかあると自作ゲームなんて作るの馬鹿らしくならない？
多額の開発費を掛けたサイズもギガバイトクラスのゲームが割れとしてフリーの状態にされちまう。
そんな中、素人の作ったゲームなんざもう・・・。
そんな違法な事やってるのごく一部だと思っても、やはり空しさを感じる。
シューティングもMAMEでアーケードの奴やった方が面白い・・・。

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

>>822
そうでもない

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

自作のゲームと市販のゲームでは
見るとこが違うしな

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

市販のゲームは大抵金をかけてやる分どうしても大作になりがち。
単純というと語弊があるがむかしのファミコンぐらいのゲームだって需要はある。

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

>>822
市販のゲームがつまんないからフリーゲーム作るんじゃん

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

遊んでもらいたいという作者もいれば、単に作りたいだけという作者もいる。
そして友人に喜んでもらえればそれでいい、という人もな。
あるいは市販では絶対に出せない類のものにも需要はあるのだよ。
版権ものとかな。

アーケードものについてもそうだ。ゲーセンで名前を残したいやつだっているさ。
単に遊びたいだけ、という者ばかりでもないのだよ。
君の考えは否定しないが、だからといって割れは推奨できないよな。

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

市販ゲームは金儲けのためだから力が入る
同人ゲームは完成、コミケにいったときの喜びを得るためだから楽しい

その差。

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

実はnyでゲーム落としてる漏れとしては確かにもうフリゲーなんてやってらんねという感じはある。（ｗ

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

>>829
http://pc5.2ch.net/test/read.cgi/tech/1085465098/
こっちでゲーム製作計画進行中。

**あみじ房** ◆HSP.RPGgiU · 04/05/29 23:56

>>809
誘導弾にもいろいろありますねー。

①es_aim技
常にes_aimで自機を狙う。一番簡単。
ただ、これはかなりキツいホーミングになるんで、
必ず指定フレーム後解除するか、es_aimを使う頻度を下げないとだめ。

②es_apos技
常に自機と誘導弾の座標を調べる。
自機x > 弾x　なら弾速度x成分を増やす。
もちろん調整も必要。
速度成分の上限や、何フレームに一度調べるかなど。

③es_adir技
常に自機と誘導弾の相対角度を調べる。
角度の差を縮めるように設定する。
その際、右か左かどちらに回すかの判定がムズイ。

ちなみにes_aimはかなり制度が悪い。
低密度弾幕ならごまかせるが、高密度低速弾幕系STGの場合
使わない方がいい。
自前で、制度の高い角度を算出しないといけない。

**名前は開発中のものです。** · 04/05/30 03:45

>>818
随分前もこんな感じで荒してた奴がいたな。

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

>>822&829
おまえらの言っている意味がわからん。

自分でプログラムを組んで、絵を描いて、動かして、完成したそれをサイトで公開して、
人の感想を聞いたり、２ちゃんやフリゲサイトで紹介されたり、雑誌掲載されたり。
そういった諸々が楽しいから俺はゲームを作ってる。
ゲームで遊ぶ事と作る事はまったく別の事だ。
それともおまえらゲームを作るんじゃなくて、ただ遊ぶ目的だけでこのスレ（板）にいるのか？

しかも堂々とｎｙで落としたとか言いやがって。
お前等みたいなバカのせいで４７氏は逮捕されたんだろうが。氏ね乞食どもが。

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

露骨な釣りに反応するなっての

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

流れをぶった切って超初心者的質問。

キャラクター（今回は●で）を、クリックで指定したセルに３セル／秒くらいの速度
で移動させるにはどうしたら良いかのぉ。

色々調べてみて、マウスの座標を取得とかあったんだが、クリックとかがどうにも･･･
できればご教授願いたき所存････

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

;マウスでクリックしたところに●が移動するサンプル
;意図するものと違ったらｽﾏｿ
chr="●"
x=312 :y=232
mx=312 :my=232

repeat
redraw 0
stick m :if m&256 :gosub *ms
gosub *draw
if x!mx|(y!my) :gosub *mov
redraw 1
await 30
loop

*draw
color :boxf
color 255,255,255
pos x,y :mes chr
return

*ms
mx=mousex :my=mousey
if mx\2!0 :mx--
if my\2!0 :my--
return

*mov
if x!mx :xx=mx-x :if xx>0 :x+=2 :else :x-=2
if y!my :yy=my-y :if yy>0 :y+=2 :else :y-=2
return

**名前は開発中のものです。** · 04/05/30 06:17

>>822
>>829
やるならせめて人前でカミングアウトせず隠れてやれよ厨房。
ｎｙやってる俺ってすげ～っみたいに思ってるのか？
あと、釣りならメル欄に釣りってやらないと釣りにならないよ。
あと出しで言っても負け犬の遠吠え。ｗ

あ、ｎｙ使わないと欲しいゲームも手に入れられない、
お前らは元々人生負け犬の最下層のクズ人間か。ｗｗｗｗ

**835** · 04/05/30 13:35

>>836
か、完璧すぎますΣ(´Д｀　）
まさに頭の中にあったやつですよ、これ。

しかしまだ結構な初心者なので、どういう仕組みなのか･･･
（！とか＆とか、HSPで使うんだねぇ）

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

>>838
意外と簡単だと思う。
あと、ifの説明見れば!も&も、あと\も載ってる。

**名前は開発中のものです。** · 04/05/30 14:47

;>>836に便乗して俺も作ってみた。

#define WHITE 255
#define BALL_SPEED 50
#define BALL_SPIN 5

repeat
redraw 1 : redraw 0
await 40 : color : boxf

stick key
if key&256>0&(MoveFlag=0){
Goto_x = mousex
Goto_y = mousey
MoveFlag = BALL_SPEED
}

if MoveFlag{
ax = Ball_x : ay = Ball_y
Ball_x -= -Goto_x+Ball_x/MoveFlag+BALL_SPIN
Ball_y -= -Goto_y+Ball_y/MoveFlag
MoveFlag-=MoveFlag>1
if Ball_x=ax&(Ball_y=ay) : MoveFlag=0
}

palcolor WHITE
pos Ball_x ,Ball_y
mes "●"

loop

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

>>821
ここを我慢して読むとわかる。あちこち貼られてるのは怨恨かと。
http://pc5.2ch.net/test/read.cgi/tech/1085465098/

>>840
同じ場所をクリックすると・・・。

**840** · 04/05/30 15:30

;>>841 これでできる筈。

#define WHITE 255
#define BALL_SPEED 45
#define BALL_SPIN_X 3
#define BALL_SPIN_Y 0

Ball_x=310 : Ball_y=230

repeat
redraw 1 : redraw 0
await 40 : color : boxf

stick key
if key&256>0&(MoveFlag<2){
Goto_x = mousex : Goto_y = mousey
MoveFlag = BALL_SPEED
}
if MoveFlag{
ax = Ball_x : ay = Ball_y
Ball_x -= -Goto_x+Ball_x/MoveFlag+BALL_SPIN_X
Ball_y -= -Goto_y+Ball_y/MoveFlag+BALL_SPIN_Y
MoveFlag-=MoveFlag>1
}
palcolor WHITE
pos Ball_x ,Ball_y
mes "●"

loop

**835** · 04/05/30 16:24

色々参考になりますねぇ。

>>839
簡単ﾅﾉｶ･･･
わからないコマンドなんかは、マニュアルで調べてみます（ifも）

なぜだか移動ルートまで想定してたのとまったく同じだったので、そこらへんも
なぜなのか調べてみよう。

考えてた移動ルート
＝＝＝＝＝＝＝＝＝＝
＝＊＊＊＊＊＊＊＊＝
＝＊＊＊→→→★＊＝
＝＊＊／＊＊＊＊＊＝
＝＊●＊＊＊＊＊＊＝
＝＊＊＊＊＊＊＊＊＝
＝＝＝＝＝＝＝＝＝＝

>>840
すげーなんかうねうねする。
でも自キャラの移動方法として、●を画像に置き換えてやるつもりだから>>836の
ソースが妥当かなー。

**835** · 04/05/30 17:14

if文の書き方で、(=,!,&,|)の意味はわかったのですが、(\)だけなぜか見つかりません･･･
公式のマニュアルにも書いてないし･･･

ここだけ教えてもらえますでしょうかOTL

//ついでに#deineとrepeat~loopもそれとなく覚えた´ω`)ﾉ

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

>>844
余り。

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

>>844
剰余。除算の余り。

10/3 = 3
10\3 = 1

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

>>845
被った。スマソ。

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

>>847
イヤ、俺のは一言だし・・・

**835** · 04/05/30 17:41

>>845,846
ｔｈｘ
難しくなってきた･･･

**名前は開発中のものです。** · 04/05/30 17:48

\はしょっちゅう使うね。

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

Aimbotってなんですか？

**835** · 04/05/30 23:44

やっと>>836のソースの全貌が掴めてきたかな。
次は自分で似たようなのを組めるかどうか試してみよう。

現在付属のサンプルソース（HSPで作った説明書みたいなやつ）を、
命令リストと見比べながら読み解いてます。
やっと配列変数の概念がわかった（まだ試してないけど）。

ところでこのスレで段違いに初心者な俺はスレ違いですか？(´・ω・`)

**あみじ房** ◆HSP.RPGgiU · 04/05/31 00:04

>>852
普段から物を0から数えないと気がすまなくなるほど
配列を使いまくりましょう。

スレ違いの人は居ないと思う。
スレ違いのレスはあると思う。

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

>>837
人前でカミングアウト？俺は誰の前でカミングアウトしたんだよ？www
ここで何か告白したら他人に重大な秘密を知られた事になんのか？（w
現実との区別位つけような僕ちゃん（ｗ

ま、そう怒るなよ。お前がどんなカスゲー作ろうとお前の勝手だよ。
俺は多分、お前の作った素人丸出しのゴミゲーなんざ見ただけで吐き気を催すだろうけどなwww

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

>>854
お前のことはどうでもいいから、いちいちここに書くな。

**名前は開発中のものです。** · 04/05/31 00:35

スレ違いだからどっか行ってね

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

厨は語尾にｗをよく付けるな。

**854** · 04/05/31 04:58

うるせー言っとくがお前らのＩＰ丸わかりだぞ。
俺はそういう会社に勤めてるから調べる機械あるし。

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

>>858
IPなんか調べて何に使うのかね。

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

何しにきてんのかねこのひと…

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

いいかげんスレ違い。
>>858は真性っぽいから放置しる。

↓次のＨＳＰの質問ドーゾ。

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

初心者です。質問させてください。
HSPについてどういう質問をすればいいんですか？

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

ピンポンゲームの練習としてこんなの作ったんですけど

bx=4 : by=4 : lx=640 : ly=480
*main
redraw 1
color 0,0,0 : boxf : color 255,255,0 : pos x,y : mes "●"
line lx,0,lx,480 : line 0,ly,640,ly
x+=bx : y+=by
gosub *ball : gosub *bar
redraw 0 : await 1
goto *main
*ball
if x<0 : bx=4
if x+16>lx : bx-=4
if y<0 : by=4
if y+16>ly : by-=4
return
*bar
stick ky,15
if ky=1 : lx-=4 : if lx<200 : lx=200
if ky=4 : lx+=4 : if lx>640 : lx=640
if ky=2 : ly-=4 : if ly<200 : ly=200
if ky=8 : ly+=4 : if ly>480 : ly=480
return

→●　│←　こういう動きでぶつかった場合ボールの移動速度が増えてしまうんですけど
速度を一定にするにはどうしたらいいでしょう？

**名前は開発中のものです。** · 04/05/31 09:56

>>863こんな感じ？

bx=4 : by=4 : lx=640 : ly=480
*main

title ""+bx+"/"+by+"//"+x+"/"+y;速度と位置表示
redraw 0;描画開始は１じゃなくて０or２　終了は１

color 0,0,0 : boxf : color 255,255,0 : pos x,y : mes "●"
line lx,0,lx,480 : line 0,ly,640,ly

if (bx<0)&(bx<-4): x=x+(bx+4):bx=-4;速度４以上なら位置からバーの進んだ分を引いて速度を４に修正
if (by<0)&(by<-4): y=y+(by+4):by=-4

x+=bx : y+=by
gosub *ball : gosub *bar
redraw 1 : await 1
goto *main
*ball
if x<0 : bx=4
if x+16>lx : bx-=4
if y<0 : by=4
if y+16>ly : by-=4
return
*bar
stick ky,15
if ky=1 : lx-=4 : if lx<200 : lx=200
if ky=4 : lx+=4 : if lx>640 : lx=640
if ky=2 : ly-=4 : if ly<200 : ly=200
if ky=8 : ly+=4 : if ly>480 : ly=480
return

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

>>864
ありがとうございます。上手くいきました。
if (bx<0)&(bx<-4): x=x+(bx+4):bx=-4
if (by<0)&(by<-4): y=y+(by+4):by=-4
この辺が難しいですね...一人じゃ思いつかない

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

picloadしたインデックスカラー画像の
指定座標(x,y)のパレット番号nを得るに
はどうしたらいいんでしょうか？

**名前は開発中のものです。** · 04/05/31 13:56

>>866
マニュアルすべて読んでからまた来い。

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

>>867
pgetもgetpalもRGB値しか取得できないように思うのですが？

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

mentime+
if mentime=1 {
dim missile_SP,1400 :dim missile_kakudo,1400 :dim missile_count,1400
}
if time\100=0 {
es_new missile_SP.missile_temp,0
efx_set missile_SP.missile_temp,257,127,85
es_type missile_SP.missile_temp,32;誘導ミサイルのタイプ値
missile_count.missile_temp=20;誘導ミサイルの誘導時間
missile_kakudo.missile_temp=0;誘導ミサイルの方向入力
es_adir missile_SP.missile_temp,missile_kakudo.missile_temp,200;誘導ミサイルの速度、方向
missile_temp+
if missile_temp>=1400 :missile_temp=0
}
;---------------------誘導ミサイルの動き管理---------------------------------------
enemy=0
repeat
es_find enemy,32,enemy;誘導ミサイル(32)検索
if enemy=-1 : break;なければ出る
es_get ex,enemy,3;x座標取得
es_get ey,enemy,5;y座標取得
es_get en,enemy,12;キャラクタ番号取得

if (missile_count.enemy>0)&(mentime\2=0) {;ミサイルの誘導スクリプト
missile_count.enemy-
missile_kakudo.enemy-=1
es_adir missile_SP.enemy,missile_kakudo.enemy,200
}
enemy+
loop

**869** · 04/05/31 15:29

半円を描いて飛ぶミサイル作っているのですが
上のスクリプトだと最初の3つの弾しか半円で飛んでくれません。
何が悪いのかどなたかご指摘下さい。

**名前は開発中のものです。** · 04/05/31 15:37

>>870
if (missile_count.enemy>0)&(mentime\2=0) {;ミサイルの誘導スクリプト
のmentimeあたりが悪そう。
そこら辺いじくってみて。

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

>>868
標準ではできなかったんじゃないかな

自分でプラグイン組むならHSPDLL.HTMの
＞vram_adr = pBit + ( ( sy - 1 - y ) * sx ) + x;
の値もってくりゃ良いだけだったと思う

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

>>866
dialog "bmp;*.jpg;*.mag", 16
if stat == 0 : end
screen 0,,, 1
picload refstr
mref vram, 66
x=-1 : y=-1
repeat
wait 1
if (x!=mousex)|(y!=mousey) {
x = mousex : y = mousey
if (x<0)|(y<0)|(x>=winx)|(y>=winy) : continue
peek c, vram, winy-1-y*winx+x
getpal c
title "色番号 : "+c+" ("+rval+","+gval+","+bval+") - ["+x+","+y+"]"
}
loop

**866** · 04/05/31 18:05

>>872,873
どうもありがとうございました。

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

mes "テスト"
stop

mesと"テスト"の間には半角スペースがいるって書いて歩けど
スペースいれなくてもエラーにならない・・・あとスペース何個入れてもエラーにry
あとtabは見易さだけのためですか？ほかに意味はないんですか？

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

タブは見やすさのため。実際にはあっても無くても同じ。
2個以上の半角スペースも1個と変わらない。
スペース無しは解釈してくれるから基本的に問題は無いが、
例外も有るし、見やすさにも関わるから勧めない。

mes 変数とかから半角スペース取っちゃ駄目とか。

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

まぁ、プログラムってのは一種の芸術だからね。
見やすくできるところは出来るだけやっといた方がいいと思う。
質問が多くて活気が出てきたな。

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

芸術というか個人的な美学じゃﾈｰﾉ

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

でも、見やすく書くというのは重要。
保守性、拡張性に関係してくるから。
どんなプログラムでも人に見せるつもりで書いた方がいい。

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

一つのサブルーチンに200行の処理があるとかは悪い例だな。

**854** · 04/05/31 21:49

858 名前： 854 [sage] 投稿日： 04/05/31 04:58 ID:/Tohmlfi
うるせー言っとくがお前らのＩＰ丸わかりだぞ。
俺はそういう会社に勤めてるから調べる機械あるし。

ワロタ。まさか人を騙って反撃に来るとは。新しい形だ。しかも言ってる事ビミョーだな。

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

HSPを始めてはや２週間。
シューティングを作成中なのですが、プログラムというのは実質初めてなので楽しくて仕方ありません（笑）。

しかし、いろいろ考えているのですが、うまい解法が見つからずこまっております。
針状の弾を放射状に撃たせたり、ホーミングミサイルを撃たせたり、自機狙いの針弾を打たせたりしたいのですが、
針弾やミサイルのグラフィックを弾の進行方向にあわせて変化させたいと思っています。
なにかよい方法はありますでしょうか？

放射状針弾の場合は、es_adirを使う予定なので、
repeat 16
es_new missile
es_set missile,100,200,miss1
es_adir missile,kakudo
kakudo+=4
loop
といった形で書き、

if (kakudo>=0)&(kakudo<4):es_chr missile,miss1
if (kakudo>=4)&(kakudo<8):es_chr missile,miss2

などの条件式でkakudoを調べ、グラフィックを進行方向（kakudo）に合わせて変化させるつもりなのですが、
これよりも効率のよい方法がある気がしてなりません。
また、ホーミングミサイルの場合、es_aposを使う予定なので、そもそも進行方向を判別させるにはどうやったらよいか…。

**あみじ房** ◆HSP.RPGgiU · 04/05/31 23:15

>>882
>if (kakudo>=0)&(kakudo<4):es_chr missile,miss1
>if (kakudo>=4)&(kakudo<8):es_chr missile,miss2
この部分が、スプライト発生ルーチンか、
発生後の制御ルーチンかによって、話は違ってきますが、

角度は64制度ですよね？？
ぢゃあ、例えば画像を16方向用意してるなら、
es_chr missile,kakudo+2/4
でなんとなく出来そうですが・・。

ところで放射状弾ってなんでしょうか？
発射後、そのまま直進ですか？
それなら、repeatのなかで角度を指定しましょう。

ホーミングは、常に自機との角度を算出して(es_ang ?)みてはどうでしょう？

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

質問です。
ソース中に数値型配列変数を使っているのですが、代入していない数字（１０桁
くらい）が勝手に代入されて困っています。
スクリプト中に巨大な数字を代入する場面も計算式もなく原因がわかりません。
「ＨＳＰ　数値型　配列変数」などで検索してみましたが、それらしきものは見つかり
ませんでした。
何が原因なのでしょうか？

**あみじ房** ◆HSP.RPGgiU · 04/05/31 23:40

>>882
ああ、ちなみにスプライトを扱う場合は、その数の要素を持った
いろいろなパラメータの配列をたくさん用意してたほうがいいですよ。

座標x,yなら dim SpPosX,512: dim SpPosY,512
同じように角度や速度、移動変化量
あと欠かせないのが発生からの時間とか。。。

スプライト発生時に一気にセットして、あとからそれらをいじくるだけで
ほとんど制御できるようになります。。
あ、882はサンプルとして書いてるだけかもしれませんが。
そうだったらすみません。

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

2.61ｷﾀ━━━(ﾟ∀ﾟ≡(ﾟ∀ﾟ≡ﾟ∀ﾟ)≡ﾟ∀ﾟ)━━━━!!!!!!!!!!

**835** · 04/06/01 00:31

836さんのソースを全部理解してから次の段階に行こうと思って、注釈つけてみたのですけど
これで合ってますかねぇ。それに、わからないところも数ヶ所ありまして・・・
/////////////////////////////////////////////////
screen 0,640,480,1+4 ;スクリーン設定

chr="●" ;変数chrにキャラとなる「●」を代入
x=312 :y=232 ;最初のキャラ座標を指定
mx=312 :my=232 ;マウス座標を指定

repeat ;繰り返し始点
redraw 0 ;仮想空間に描写（ちらつき防止）
color 0,0,0
stick m,256,1 :if m&256 :gosub *ms ;左クリックされたか（左クリック=256）
gosub *draw ;*drawに移動
if x!mx|(y!my) :gosub *mov ;今キャラのある座標と違う場所がクリックされたら*movに移動
redraw 1 ;実際の画面に描写
await 0
loop ;繰り返し終点

*draw
color :boxf ;真っ黒に塗りつぶし
color 255,255,255
pos x,y :mes chr ;最初指定した座標に、変数chrに代入した「●」を描写
return

続く

**835** · 04/06/01 00:31

続き

*ms
mx=mousex :my=mousey ;マウス座標を(mx,my)に代入
if mx\2!0 :mx-- ;もしmxを2で割り切れたら･･･？
if my\2!0 :my-- ;？
return
*mov
if x!mx :xx=mx-x :if xx>0 :x+=2 :else :x-=2 ;mxとxの距離を出して･･･xに2を足す引く？
if y!my :yy=my-y :if yy>0 :y+=2 :else :y-=2 ;？
return
/////////////////////////////////////////////////
とくに「*mov」の最後の方、+2、-2ドット動くとしか考えられない････

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

>>884 文字列変数の文字数無指定で６４だったか
それをオーバーしてると数値変数が狂ったような、２．５５の頃ね
今は知らない

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

>889
dimで配列変数宣言してるので、バッファオーバーフローはないと思いますが、
なるほど、オーバーフローしたみたいな変な数字だった。その線で調べてみます。

余談ですが、

dim a,2
dup sun,a.0
dup mon,a.1
sun=2
mon=4
stop

とすると、「sun.1」に「mon」に代入した数値が入っているのですが、既知の問題
ですか？
HSPでは変数宣言しなくても使えるけど、宣言したほうが良いのでしょうか？

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

http://www.onionsoft.net/hsp/file/hsp261inst.exe

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

>>890
ﾌﾟｹﾞﾗ

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

>>887-888

if mx\2!0 :mx--
;もしmxを2で割り切れなかったら1引く = 2で割り切れるようにする

if x!mx :xx=mx-x :if xx>0 :x+=2 :else :x-=2
;mxとxの距離を出して、もしクリック座標が●の座標より右ならX座標を+2
;左ならX座標を-2。右か左かは xx が正か負かで調べる。

>>890
仕様です。
dup は、変数のポインタをコピーするものと考えればよい。
sun は a.0 のポインタを示すので、sun.1 はおのずと a.1 になる。

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

一筆書きでピラミッドをつくってみたんですが
もっと効率のいい組み方は無いでしょうか

screen 0,400,400 : cls 4 :x=200 : y=100 : xx=-1 : yy=1
color 0,255,0
repeat
pset x,y : x+=xx : y+=yy : a+=1
if a=50 : xx=1 : yy=0
if a=150 : xx=-1 : yy=1
if a=200 : yy=-1
if a=250 : yy=1
if a=300 : xx=1 : yy=0
if a=400 : xx=-1 : yy=1
if a=450 : yy=-1
if a=500 : yy=1
if a=550 : xx=1 : yy=0
if a=750 : xx=-1 : yy=-1
if a=800 : xx=1 : yy=0
if a=900 : xx=-1 : yy=1
if a=950 : xx=1 : yy=0
if a=1050 : xx=-1 : yy=-1
if a=1200 : stop
await 1
loop

**890** · 04/06/01 17:48

>893
なるほど、そういうことですか。よくわかりました。
ありがとうございました。

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

>>894
同じような処理はまとめてやった方がいい。

screen 0,400,400 : cls 4 :x=200 : y=100 : xx=-1 : yy=1 : a=0 : aa=0
color 0,255,0
table_a = 50,150,200,250,300,400,450,500,550,750,800,900,950,1050
table_xx = 1,-1,-1,-1,1,-1,-1,-1,1,-1,1,-1,1,-1
table_yy = 0,1,-1,1,0,1,-1,1,0,-1,0,1,0,-1

repeat 1200
await 1
pset x,y : x+=xx : y+=yy : a++

if a = table_a.aa{
xx = table_xx.cnt
yy=table_yy.cnt
aa++
}

loop
loop
stop

**835** · 04/06/02 00:30

やっと836さんのソース、概念まで理解しました(;´Д`)ｾﾞｰﾊｰ

次はこれに画像を載せてみます、>>893さんTHX!!

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

screen 0,400,400:cls 4:color 0,255,0

dim data,32
data=5,2,2,5,7,5,2,2,5,7,5,2,2,2,2,7,2,2,5,2,2,7,7,7
table_xv=0,1,1,1,0,-1,-1,-1
table_yv=-1,-1,0,1,1,1,0,-1
v=data.0:x=200:y=100

repeat 1200
await 1

if a=50 {
a=0
aa++
v=data.aa
}

pset x,y:x+=table_xv.v : y+=table_yv.v:a++

loop
stop

とか、ごめん蛇足のような希ガス。

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

段数と辺の長さを自由にしてみたyo

#define 段数 4
#define 辺 30

; 左から時計周りの進行方向を表現
way8x = -1, -1, 0, 1, 1, 1, 0, -1
way8y = 0, -1, -1, -1, 0, 1, 1, 1

; 辺が何本必要か求める
辺数 = 0 : repeat 段数,1 : 辺数 += cnt*4 : loop

; あらかじめ進行方向をセット
dim ways, 辺数 : ways.0 = 7 : n = 1
repeat 段数
段 = cnt
repeat 段+1*2 : ways.n = 4 : n++ : loop
if 段+1<段数 : repeat 段+1*2+1 : ways.n = cnt\2=0*6+1 : n++ : loop
m = 辺数-段数+段 : ways.m = 1
loop

; 描画
boxf : color 0, 255, 0
x = 300 : y = 100 : c = 0
repeat 辺数 * 辺
if (cnt\辺) == 0 : way = ways.c : c++; 1辺描くごとに進行方向を変える
pset x, y : x += way8x.way : y += way8y.way
wait 1
loop
stop

**名前は開発中のものです。** · 04/06/02 12:14

900get

**名前は開発中のものです。** · 04/06/02 17:56

しつもんです。
HGIMGxとZGPでは、2D描画性能はどちらが速いでしょうか。

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

HGIMGx

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

>>901
その速さを比較するプログラムを組めばどうかな？
聞いて、はいそうですか、でもいいけど、それなら好きな方を選べばいいことになる。

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

HGIMGxのBG描画早く修正されないかなぁヽ( ´ー`)ﾉ

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

BG描画ってあれどういう機能？

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

>>905
見たほうが早いかも。ヽ( ´ー`)ﾉ

こんなの
　　↓
http://gamdev.org/up/img/657.zip

**905** · 04/06/03 05:10

>>906
ありがとう。
理解するのに時間かかったｗ。

要するにBG用画像を一括で読み込んでチップに分解して、それを
メモリ上に並べたものを1枚のスクリーンとして管理できるのね。

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

ところで>>901の実験をしようと思ったのだが、HGIMGとZGPの数の扱いが
あまりにも違うんで投げてしまったよｗ

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

>要するにBG用画像を一括で読み込んでチップに分解して、それを
>メモリ上に並べたものを1枚のスクリーンとして管理できるのね。

その説明が出てこなんだ。orz

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

HGIMG、2Dで使う時って浮動少数点関係が煩わしいだけなんだよなあ…
自動移動とか使わなければ良いのか。

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

directXでの敵の複雑な動きって
時間計ってes_aposとかes_adir、es_aimで変更させるのが一般的なの？
もしかして毎フレームes_pos使って変更してた俺って間違ってた？

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

>>911
別にどっちでも良いんじゃ…。
俺は併用。

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

>>911
漏れもかえって面倒に感じるから
es_posしか使ってませんよ。
フレーム単位で把握しやすいし。

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

弾みたいな直線運動するものはes_apos使うけど
他はes_posかな

**あみじ房** ◆HSP.RPGgiU · 04/06/04 02:30

スプライト勝手に移動機能と
es_draw&sincは別にして欲しかった・・・。

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

naze?

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

HSPDXでのゲーム作りしていて欲しくなった命令。
・画像回転だけでなくスプライトの回転機能（これはHSPDX+α使えば問題無いが）
・回転機能で回転する時に回転する中心を座標で指定できる命令
・.スプライトの画像が反転できる命令
・色違いのスプライトキャラが簡単に表示できる命令
誰か作ってくれないかなあ。

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

>>917
　　　　　　　　　　　　　　　　 ∴
　　　　　　　　　　　　　∴∵∴　　　　∴
　　　　　∴∵∴　　　　　 ∴∵∴　 ∴∴
　　　　　　　∵∴∵　　　　　 ∵∴　 ∴::: i^i_i^i_,‐､
　　　　　　　　　 ∵:: .　　　　　　∵:.　　::/U::∪:｀U ..::∵∴
　　　 ∵∴∵ 　　　　 : .　..　　　　:∵..::(つ/ ⌒ヽ).）　 ∴∵
　　 ∴∵∴∵∴: : . 　　 . :　　　　　 : .　| : | | 　　|　　 ∴∵
. : ∵∴∵　　　....... :　　.::＿＿＿　　　. :　|　:∪ / ﾉ　　 ∴
.. : :∵　　　 ....::　　:: . :::::::∴∵∴＼. :.:　　| ∵| ｜|　　 ∵　 ∵
.∴∵　　　::..::　　 .:::::::∵∴∵∴∵:＼:　　|∵∪∪　 . : 　　 ∴∵
.∵　　　 ∵::　　　:::∵：(･)∴∴.(･)∵. l　 / . ∵ :: . : 　　　 ∵
∵　　 ∴∵::.　　　::∵∴／ ○＼∵∴ | /　　　:: 　　　　.∵
..　　 ∵∴::　　　 .::::∵/三　|　三ヽ∵ |/....:∴::　　　　　.∵　 ∵∴∵
.　　 ∵:..:.:/⌒ヽ::l⌒`i::..|　＿_|＿_　│∵|...:∵::　　　　.. :　　 ∴∵
. 　 :/⌒ヽ|　　|;; ;|　　|､.|　　===　　│／∴::　　　　. :　　 .∵∴　 ∴
.　 :（　ヽ;;ヽ__ﾉ;;; ヽ__ﾉ !＼＿＿＿／∵　::　. ... . :　　　 .∵　　 ∴
..∴　>‐ ／￣.. ＼;;;;ゝ__`ト､.(●)━..:∴::　　　　　　　 . : 　　 . ∴∵∴
∴. （ : :/　　　　,. i〃　　　 l　　. . . . . . . . . . .... .. . :　　　 ..:∵∴:
∴∵￣|　　　 /.| |､l＿＿_ノ　　　　_!＿!　　　　　　　　 .∴:
　 ∵　 |　　　| ：| |.　|　　　　　 ./∵∴ﾞi　　　　　 . :　　　　　.:∴∵∴
　　　 |　|　 |　 | |. /.∴∵;;;;/‐‐| .∵∴ :: .. .... . :　　　　 .∴∵∴∵
　　　 | ｜　|　Ｕ.::､∴∵;;/;）　ﾞi∵∴∵:: ... .. ... .. . : :∵∴∵
　　　 | ｜　|　　 :: .￣￣￣　　ﾞi∵∴∵::.. ...::∴∵∴∵
　　　 / /　/ 　　　: . . .　　　　（￣￣.... ::∵
　　　 / /　/ 　　　　　: :∴∵ : . 　￣.:∴:.　tanasinn
　　　.しし’　　　　　　　　:: :: ∵: : .
(「みんなで作ろうよ」と言っています)

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

>>917
IDがポルノ

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

そういや先日HSPDXとZGPで弾幕作って速度テストしたんだが
全画面もウィンドウも二割程度ZGPのほうが速かったんだよな。
意外だった。
俺のスクリプトが変なだけかもしれんが。

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

>>920
晒すよし