#author("2018-07-11T02:14:04+09:00","","")
 //	#runtime "hsplet3"
#author("2018-07-11T02:20:27+09:00","","")
 #include "hsptv.as"
 title "Level Point D"
 #define global tack_is_debugging 1
 ;#cmpopt optprm 0
 
 ;	gmode 2,1,480
 	buffer 1,640,480
 	picload dir_exe+"\\hsptv\\jp6girl.bmp"
 	gsel 0
 
 登録回数=3
 ;#include "hspda.as"
 title "HitPoint"
 //////////////////////////////////////////////////////////////////////////////////////////
 //	変数
 //////////////////////////////////////////////////////////////////////////////////////////
 #define button_block(%1="") %tbtn1 %i0 button %1,*%p:%tbtn2 goto *%i %i0:%tbtn1 *%o
 #define b_break             %tbtn2 goto *%p
 #define b_end               %tbtn2 *%o:stop:*%o
 //	button_block "１〜１０カウント"
 //		mes "" + a
 //		if a = 10	:b_break
 //		a ++
 //	b_end
 	randomize
 	pic_flag=0
 	logmes "1OK"
 gosub *def_selected_PC_status
 goto *@f
 *back_pic_draw
 	return
 *wnd_reset
 	objsize 180,20
 	color 0,128,0
 	color 200,0,25
 	boxf 0,0,1000,700
 	color 255,255,255
 	return
 *@
 //stop
 goto *HOME
 *pre_HOME
 ;	clrobj 1
 *HOME	
 	;MB_clear
 	pos 0,0
 ;	objsize 290,25
 	gosub *wnd_reset
 	gosub *chara_draw
 	button "Training",*l_training
 	button "ranking",*ranking_room
 	pos 200,20
 	mes "ＨＯＭＥ：何をしますか？\n"
 	gosub *show_player_status
 ;	MB_draw
 	stop
 *l_training
 	gosub *exp_up1
 	turn++
 	goto *pre_HOME
 *def_selected_PC_status
 	
 	turn=1
 //	PLAYする人の名前
 	player_name="PC"
 	player_LV=1
 	player_exp=0
 	player_next_exp=0
 	dim player_some_next_exp
 	gosub *calc_sub
 	return	
 #define sta_ar_var_MAX 1050
 #define ar_first_index 8
 *get_p_next_exp
 	repeat sta_ar_var_MAX
 		if player_exp>=player_some_next_exp.cnt:player_LV=cnt+1
 	loop
 	player_next_exp=player_some_next_exp(player_LV)
 	if player_LV==1:player_next_exp=1
 	return	
 *show_player_status
 	tmp_player_LV=player_LV
 	gosub *get_p_next_exp
 	mes ""+turn+" turn ";+player_name
 	mes "LV "+player_LV+" exp "+player_exp
 	mes "next exp "+player_next_exp
 	if tmp_player_LV!=player_LV:mes "LVUP!"
 	return
 *calc_sub; array p_ar
 	dim player_some_next_exp,sta_ar_var_MAX
 	i=1
 	player_some_next_exp.0=i
 	repeat sta_ar_var_MAX
 		i+=cnt
 		player_some_next_exp(cnt+1)=i
 	loop
 	return
 *exp_up1
 	player_exp++
 	return
 *chara_draw
 	gsel 0
 	gmode 2,320,480
 	redraw 0
 	pos 370,0
 	gcopy 1,0,0,320,480
 ;	repeat 279
 ;	pos cnt,0
 ;	gcopy 1,(279-cnt),0,1,480
 ;	loop
 	redraw 1
 	pos 0,0
 	return
 //////////////////////////////////////////////////////////////////
 *ranking_room
 	hsptv_up -1,""
 	clrobj
 	gosub *wnd_reset
 	pos 0,0
 	button "登録",*send
 	button "1〜15",*one2fifth
 	button "16〜30",*fifth2tihr
 	button "back",*_4back
 	stop
 *_4back
 	clrobj
 	goto *home
 *one2fifth
 	cc=0
 	goto *show_rank
 *fifth2tihr
 	cc=15
 	goto *show_rank
 *show_rank
 	clrobj
 	gosub *wnd_reset
 	pos 0,0
 	button "back",*ranking_room
 	mes ""
 	repeat 15,cc
 		hsptv_getrank rscore,ruser,rcomm,cnt	; 情報を取得する
 		rank=cnt+1
 		mes "NO."+rank+":"+rscore+" HN："+ruser+" "+rcomm
 	loop
 	stop
 	
 *send
 	clrobj
 	gosub *wnd_reset
 	pos 0,0
 	button "はい",*rgst
 	button "いいえ",*ranking_room
 	pos 200,0
 	mes "\nlevel:"+player_LV+"\n登録回数：残り"+登録回数+"回\nlevelを登録しますか？"
 	stop
 *rgst
 	clrobj
 	gosub *wnd_reset
 	pos 0,0
 	button "back",*ranking_room
 	pos 200,0
 	if 登録回数>0{
 		u=""+turn+"ターン exp "+player_exp
 		hsptv_up player_LV,""+u
 		await 30
 		登録回数--
 		mes "  登録しました"
 	}else{
 		mes "  ３回登録したので、登録できません"
 	}
 	stop