HSPTV!掲示板

HSP歴１ヶ月の初心者です。

①黒画面上にターゲットが出て、左クリックする。
②ランダムにターゲットが提示される。
③そこにカーソルを合わせて左クリックする。

②と③の繰り返しというゲームを作っていますが、
途中に右クリックすると①に戻るというのが作れません。

何かいいアイデアがあれば、ご教授お願いします。
よろしくお願いします。

ちなみに今のスクリプトは

	screen 1

	picload "○.bmp" 


screen 0
bgscr 2,1024,768,0,0,0;枠なしwindowを作成する
chgdisp 1,1024,768
cls 4;黒で塗りつぶす


onkey goto *key
onclick goto *main
	stop
*key
cls 4	
stop


*main
onclick 0
wx=ginfo_winx
wy=ginfo_winy
x=wx/4
y=wy/4
objsize 37,37
objimage 1,0,0,0,0
pos rnd(ginfo_sizex-37),rnd(ginfo_sizey-37)
clrobj iddestroy,iddestroy ;特定のボタンを消す
button gosub "",*l_destroy
iddestroy=stat ;ボタンのIDを覚えておく
stop

*l_destroy
onclick 0
cls 4
objsize 37,37
objimage 1,0,0,0,0
pos rnd(ginfo_sizex-37),rnd(ginfo_sizey-37)
clrobj iddestroy,iddestroy ;特定のボタンを消す
button gosub "",*l_destroy
iddestroy=stat
stop

です。

ループというものをググったりして覚えよう。
珍しく機嫌がいいので君の説明とソースから最大限想像力を働かせて作ったサンプルを
放り投げておく。

	randomize
	screen 0,640,480
	color 0,0,0:boxf
	objsize 50,50
*putbutton
	//ボタンを消してまた作る
	clrobj
	pos rnd(640-50),rnd(480-50)
	button "押せ",*osareta

*main
	stick key
	//右クリックされてたらメッセージを出さずに
	//*putbuttonへ戻る
	if key=512:{
		dialog "リセット"
		goto *putbutton
	}
	wait 10
	goto *main


*osareta
	//メッセージを出してから*putbuttonへ戻る
	dialog "よくやった"
	goto *putbutton

ORZさん、ありがとうございます。

知識や文章能力が無くてすみません。

①黒画面
②左クリックでターゲットの表示スタート
③ターゲットにカーソル合わせて左クリック
④ターゲットがランダム座標に表示

③と④の繰り返しされる。

途中に右クリックで、黒画面に戻るにはどうしたらいいのでしょうか？という質問です。

大変すみませんでした。

俺が張ったソースを読むことで実現できるはずだ。自分で勉強する気がないならもっと優しい人が
君の代わりに作ってくれるまで待てばいい。

ORZさんのスクリプトを参考に作ってみました。

//初期化
*l_init
	randomize
	screen 0,640,480
	cls 4
	objsize 50,50

//左クリック待ち
*l_title
	title "左クリックでスタート"
	stick key
	if key=256:goto *l_buttonset
	wait 10
	goto *l_title
	stop

//ボタン配置
*l_buttonset
	title "右クリックで初期化"
	clrobj
	pos rnd(640-50),rnd(480-50)
	button "Click!",*l_buttonset

//ループ＆右クリック監視
*l_loop
	stick key
	if key=512:goto *l_init
	wait 10
	goto *l_loop
	stop

あとは仕様にあわせて画面サイズの変更とか、
画像ボタンに変更するとかで対応してください。

ORZさん、たんすさん、本当にありがとうございます。
なんとか思った通りのものが作れました。

お二人のご厚意に甘えるだけではなく、もっと精進いたします。