input_test.hsp

sample\hsp3dish\input_test.hsp » Plain Format

;#include "hgimg4.as"
#include "hsp3dish.as"
#packopt xsize 480
#packopt ysize 640

	;
	; input命令サンプル
	;
	randomize
	;screen 0,640,480

*go_main1
	cls
	objsize 160,40

	objsize 128,32

	var="TEST"

	button goto "TEST END",*owari
	button goto "DIALOG",*go_dialog
	chkbox "check box",sw
	input var


	frame=0
	gmode 0
*main1
	stick key,15+0xff000

	if key&128 : goto *owari

	frame++

	redraw 0
	color 0,0,64:boxf

	rgbcolor -1
	pos 0,160
	font msgothic, 20
	mes "SW:"+sw
	mes "VAR:"+var

	; 文字を表示
	rgbcolor $e0e0e0
	gmode 3,,,64
	font msgothic, 30, 1
	pos 200,0
	mes "HSP3Dish Test"

	redraw 1
	await 1000/60

	goto *main1

*go_dialog
	dialog "Message...",1,"Title"
	goto *main1

*owari
	end