@cin_soto
tan=1
;場所セレクトー。デフォ選択肢で。
どこに行きますか？
;select "近くの森",@cin_soto_tan1,"平原",@cin_soto_tan2,"海辺",@cin_soto_tan3,"拠点に戻る",@sin_s_001
@cin_asa
９８．ｔｘｔの左に絵、右に選択肢の表示例ですー。
;左にキャラ、右に選択肢（98.txt）
sel_x=1280/2
sel_y=100
;sel_x=50+250
;sel_y=410+40+70+45
cin_sp_syu=0	;１は画像を使う、０は文字列を入れる
for %0=1 to 10
cin_goto_select[%0]=""
cin_goto[%0]=""
next
sin_sel_kazu=3	;使う選択肢の数
cin_goto_select[1]="挨拶する"	;画像と文字列に注意！ 選択肢
cin_goto_select[2]="左に絵"	;画像と文字列に注意！
cin_goto_select[3]="右に文字列だよー"	;画像と文字列に注意！
cin_goto[1]="@cin_ra_asa"	;選択肢後の飛び先ラベル
cin_goto[2]="@cin_ha_asa"	;選択肢後の飛び先ラベル
cin_goto[3]="@cin_di_asa"	;選択肢後の飛び先ラベル
spsetvisible "ste",1	;１でステータス表示
goto @cin_select_r	;選択肢呼び出し（左キャラ、右選択肢）
goto @cin_asa	;ループ


@cin_soto_end
;探索エンド。体力が０以下でこっちに。
;tan=tan+1
１日が終わります。宿に帰還します。
;なんかTIPS入れる。
goto @sin_s_001

@cin_40_main
tan=1	;探索距離初期化

@cin_soto_rand
tan=tan+1
ste[1]=ste[1]-1	;■体力消費する
gosub @sin_ste	;ステータス
体力を１消費して探索します。
if ste[1]<=0 then goto @cin_soto_end	;なくなったらこっち。
RANDOMSEED 0
%r=RANDOM() mod 3	;ランダム
if %r==0 then goto @sin_battle_start	;22.txt戦闘へ
if %r==1 then
	体力が５回復した！
	ste[1]=ste[1]+1
	gosub @sin_ste	;ステータス
	if ste[1]>=ste[2] then ste[1]=ste[2]	;全回復でこぼれないようにしておく
	goto @cin_soto_rand
endif
if %r==2 then
	アイテムを拾った！
	RANDOMSEED 0
	%r=RANDOM() mod 6	;ランダム
	%r=%r+2
	;＃ダメージ＃",text_name[3]
	if %r==2 then %0=2:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
	if %r==3 then %0=3:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
	if %r==4 then %0=4:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
	if %r==5 then %0=5:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
	if %r==6 then %0=6:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
	if %r==7 then %0=7:item[%0]=item[%0]+1:text_name[3]=item[%0][0]
endif
＃ダメージ＃を１つ拾った！
	goto @cin_soto_rand

