#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"
//////////////////////////////////////////////////////////////////////////////////////////
// 変数
//////////////////////////////////////////////////////////////////////////////////////////
#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
Skin "GS2" is designed by yiza.
Powered by PHP 7.1.33. HTML convert time: 0.005 sec.