//	シナリオにＨＳＰプログラムを混ぜる
//	HSP2.61HSP3.0動作確認

//	変数Ｘ
x=0

//	これらの変数の中身をobjprmに代入する
btstr_1=""
btstr_2=""

//	ボタンが押された時にこれらの変数をselected_btnextに代入して
//	メインルーチンにジャンプする
btnext_1=""
btnext_2=""

//	ボタンによって選択される選択肢のID
selected_btnext="a"

//	ここからメインルーチン
*bt_selected_gomain

switch selected_btnext
//	こんなかんじならボタン内の文字の変更と文章の記述
//case "xxxx"
//	btstr_1="NEXT"
//	btnext_1="xxxxx"
//	gosub *one_bt
//	pos 150,0
//	mes {"文章叙述"}
//	swbreak

//	こんなかんじなら変数の操作と強制条件分岐
//	ここではHPの回復を行っていますね
//case "xxx1"
//	player_hp=player_mhp
//	selected_btnext="xxx1x"
//	goto *bt_selected_gomain


case "a"
	btstr_1="Ｘ足す１"
	btnext_1="aa1"
	btstr_2="Ｘ引く１"
	btnext_2="ab1"
	gosub *two_bt
	pos 150,0
	mes "ボタンを押してください"
	swbreak
case "aa1"
	x+=1
	selected_btnext="ax1a"
	goto *bt_selected_gomain
case "ab1"
	x-=1
	selected_btnext="ax1a"
	goto *bt_selected_gomain
case "ax1a"
	btstr_1="NEXT"
	btnext_1="a"
	gosub *one_bt
	pos 150,0
	mes "Ｘの値は"+x+"です"
	swbreak
swend
stop

//	ボタンを一つ表示してbtstrの中身をボタンに代入する
*one_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
return

//	ボタンを二つ表示してbtstrの中身をボタンに代入する
*two_bt
	cls 0
	pos 0,0
	objsize 120,24
	button btstr_1,*selected1
	button btstr_2,*selected2
return

//	ID0のボタンが押された時にselected_btnextにbtnext_1の中身を代入して
//	メインルーチンにジャンプ
*selected1
	selected_btnext=btnext_1
	goto *bt_selected_gomain

//	ID1のボタンが押された時にselected_btnextにbtnext_2の中身を代入して
//	メインルーチンにジャンプ
*selected2
	selected_btnext=btnext_2
	goto *bt_selected_gomain

//	ここまでサンプルプログラム

case "aa1"
	x+=1
	selected_btnext="ax1a"
	goto *bt_selected_gomain

*selected1
        selected_btnext=btnext_1
        goto *bt_selected_gomain