hsptv_test.hsp

sample\misc\hsptv_test.hsp » Plain Format

#include "hsptv.as"

	score=1000
	sdim comm,64
	mes "HSPTVデータの更新登録テスト"
	hsptv_up -1,""				; 最初に情報を更新しておく
	gosub *update				; ランキング情報の表示

	pos 500,32:objsize 120,24
	mes "スコア"
	input score
	mes "コメント"
	input comm
	button "更新",*send
	button "終了",*ok
	stop

*send
	hsptv_up score, comm
	gosub *update
	stop
*ok
	end

*update
	color 255,255,255
	boxf 0,32,500,480			; 背景をクリア
	color 0,0,0
	pos 0,32
	repeat 10				; 上位10位のみ表示
	hsptv_getrank rscore,ruser,rcomm,cnt	; 情報を取得する
	rank=cnt+1
	mes "#"+rank+":"+rscore+"("+ruser+") "
	mes "    コメント:"+rcomm
	loop
	return