HSPTV!掲示板

*start
	buffer 1,25,25 :color 128,128,128 : boxf 0,0,50,50
	buffer 2,25,25 : color 255,255,255 : boxf 0,0,50,50
	buffer 3,25,25 : color 255,255,255 : boxf 0,0,50,50
	buffer 4,100,50: color 255,0,255 : boxf 0,0,50,50
		buffer 5,25,25 : color 255,0,0 : boxf 0,0,50,50
	gmode 2
	screen 0,200,800,,,,200,300 : gmode 2,25,25
	randomize
	dim map,4,16	//マップ作成
	map(0,1)=0,rnd(2),rnd(2),rnd(2):map(0,3)=0,1,0,1:map(0,5)=rnd(2),0,rnd(2),0:map(0,7)=0,1,0,0:map(0,9)=rnd(2),0,1,0
	map(0,5)=1,1,0,0:map(0,1)=rnd(2),0,rnd(2),1:map(0,2)=1,1,0,1:map(0,4)=1,0,rnd(2),1:map(0,15)=1,1,1,1
	dim teki,4,16
	teki(0,4)=rnd(2),0,1,0
	teki(0,8)=rnd(2),0,1,0
	teki(0,12)=rnd(2),0,1,0
	cx=0 : cy=0 : x=50.0 : y=710.0 : s=3.0 : j=0.0 : gs=0.0 : cy=y+150 :
pos x,y : gcopy 4,0,0
*main
	redraw 0 : color 0,0,0 : boxf
	cy=y-150 : cy=limit(cy,0,500)	//カメラ調整
	groll cx,cy		//スクロール
	color 128,128,128	
repeat 4 : c=cnt : repeat 16	//マップ描画
	if map(c,cnt)=1 : pos c*50,cnt*50 : gcopy 1,0,0,50,50

	loop:loop
	l=l+1
	if l=175:l=0
	repeat 4 : c=cnt : repeat 16	//マップ描画
	if teki(c,cnt)=1 : pos l*1,cnt*50 : gcopy 5,0,0,50,50

	loop:loop  
	color 255,255,255	//情報を表示　gs:落下速度　j:ジャンプ
	pos 5+cx,5+cy:mes ""+strf("%.1f",x)+","+strf("%.1f",y)+" GS:"+strf("%.1f",gs)+" J:"+strf("%.1f",j)
	gs+=0.2 : gs=limitf(gs,0.0,8.0)	//落下速度を加算
	pget x,y+12		//左のブロックに当たっているか
	if ginfo(16)=128 && ginfo(17)=128 && ginfo(18)=128 : x+=s
	pget x+25,y+12	//右のブロックに当たっているか
	if ginfo(16)=128 && ginfo(17)=128 && ginfo(18)=128 : x-=s
	pget x+12,y+20	//下のブロックに当たっているか
	if ginfo(16)=128 && ginfo(17)=128 && ginfo(18)=128 : gs=0.0
	y+=gs	//落下
	if j>0.1{//ジャンプ
		j-=0.5 : y-=j-8
		pget x+12,y+20	//下のブロックに当たっているか
		if ginfo(16)=128 && ginfo(17)=128 && ginfo(18)=128 : y-=15.0:j=0.0
		pget x+12,y		//上のブロックに当たっているか
		if ginfo(16)=128 && ginfo(17)=128 && ginfo(18)=128 : y+=13.0:j=0.0
	}
	if kyara=1:pos x,y : gcopy 4,0,0
	if kyara=0:pos x,y : gcopy 4,25,0//自機表示
	redraw 1 : stick key,15
	if key&1 : x-=s:kyara=0
	if key&4 : x+=s:kyara=1
	if key&16 : if j<=0 && gs<=0 : j=30.0	//スペースキーが押されていて、落下速度が0ならジャンプする
	x=limitf(x,0.0,175.0) : y=limitf(y,0.0,775.0)	//自機が画面外に出ないようにする
if y=775:goto *geov
if y=0:goto *kuri
	await 15 : goto *main
*geov
dialog "you a lose",0,""
goto *start
*kuri
dialog "you a win",0,""
goto *start

で動いている赤い物体に触れると*geovに移動するにはどうすればいいんですか？

自機と物体で矩形の当たり判定をすれば良いと思います。

http://hspwiki.tm.land.to/?%BE%D7%C6%CD%C8%BD%C4%EA

意味不明です
ｽｸﾘﾌﾟﾄ書いてください

それが人にものを頼む時の態度ですか？

すいません
ｽｸﾘﾌﾟﾄを教えてください

> 意味不明です
> ｽｸﾘﾌﾟﾄ書いてください

それはどこのテンプレートから持ってきた返答ですか。ｗ
絵にかいたようなクレクレ君回答ですね。


さて、真面目にいきます。
.さんが提示したアドレスには、スクリプトはHSP2用がほとんどですが解説も掲載されています。
ウーパールーパーさんはこの解説ページのどこまでが理解できてどの辺が理解できないんでしょうか？そこが分からないと追加解説の仕様がありません。

また、HSP開発Wikiでは昔マリオ系シューティングの開発企画が行なわれていたのでそちらも参考にされてみてはどうでしょうか？
今やHSP開発Wikiはサンプルと解説の宝庫ですよ。ぜひ活用してください。
[HSP開発Wiki]
http://hspwiki.tm.land.to/

さてさて、スクリプト見たんですが…。
ブロックと自機との衝突判定はできています。.さんのリンク先とはアルゴリズムが違いますが、ちゃんと機能してます。
…これで質問すると言うことはどこかからのコピペかな？
まずは自分が書いたスクリプトの構造を理解されてはどうでしょうか？
分からないときは、「ここまでは理解できたと思うんだけど、ここの意味がよく分からない。○○という意味なのかなと予想したのだけれど違ってるようです。」
とこんな感じで、自分の理解したことを説明しつつ、どこが分からないのか（自分の予想を踏まえて）教えてくれるといい回答が得やすいですよ。

管理人から注意されたことも聞けないような子がただの利用者(管理者と区別した表現として)一人の注意を聞くとは思えません。
ここはシカトするべきだと思っている利用者から見れば、シカトできない注意もわずらわしく感じると思います。

> 意味不明です
> ｽｸﾘﾌﾟﾄ書いてください

> すいません
> ｽｸﾘﾌﾟﾄを教えてください

態度は良くなりましたが、やってることはほとんど同じです。
まずは自分がなにをやっているのか理解したほうがいいかもしれません。
参考になりそうなサイトのリンクをはっておきます。

脱！教えて君同盟：　http://myu.daa.jp/osiete/index.html

musicです。
分かっていらっしゃるならいいのですが...
↑のスクリプトで、ちょうど赤ブロックとブロックが重なったとき、
自機が通過するとすり抜けてしまいます＾＾
まぁ、頑張ってください...

やり方がわかりません。
何でどうすればいいんですか？

limit使えばいいんですよね…

*geovに飛ばすだけならifとgoto（gosub）だけで出来る。

どうやってやるんですか？
おしえてください

自己解決しました
ご協力ありがとうございました