*define
;vOC
nsa

;^Cg
caption "VXeJX^}CY̊{"

;o[W
versionstr "VXeJX^}CY̊{","Ver1.00"

;r@\ON
rubyon 10,10

;}EXzC[̒l擾
usewheel
;Esc̒l擾
useescspc

;\x̐ݒ
defaultspeed 100,50,10

;EBhEXvCg10ȍ~̏ʂ
humanz 10
windowback

;ϐ-----------------------------------------------------

;ϐ---------------------------------
;{^p
numalias btn,0
;eLXgW
numalias text_x,1
numalias text_y,2
;֐p
numalias x,3
numalias y,4
numalias z,5
;forp
numalias i,6
numalias j,7
numalias n,8

;֐`---------------------------------------------------
defsub csps
defsub vsps

;VXeJX^}CY`-----------------------------------
textgosub *system

;Q[N-------------------------------------------------
game
*start
gosub *setting
goto *test

;Q[Jnݒ---------------------------------------------
*setting
	;eLXgEBhE`
	setwindow 15,365,22,3,26,26,0,10,30,1,1,":a;window\window.bmp",0,360
	;EBhEʂ
	erasetextwindow 0

	;eLXgXs[hftHg
	textspeed 50

	;J[\̓ǂݍ
	lsph 0,":l/3,150,2;icon\cursor0.bmp",0,0
	lsph 1,":l/3,150,2;icon\cursor1.bmp",0,0
return

;VXe---------------------------------------------------
*system
	;J[\J[\ޔf
	ispage %btn
	;J[\ʒu擾
	getcursorpos %text_x,%text_y

	;J[\YrC
	add %text_y,10

	if %btn = 1 amsp 1,%text_x,%text_y:vsp 1,1:vsp 0,0
	if %btn = 0 amsp 0,%text_x,%text_y:vsp 0,1:vsp 1,0
	print 1

;NbN-----------------------------
*btn_loop
	;NbN҂
	textbtnwait %btn

	;NbN̓
	if %btn = 0 goto *btn_end
	;ENbN̓
	if %btn=-1 gosub *clear:systemcall windowerase:goto *system
	;zC[㎞̑
	if %btn=-2 gosub *clear:systemcall lookback:goto *system
	;zC[̑
	if %btn=-3 goto *btn_end
	;EscL[̓
	if %btn = -10 end
goto *btn_loop

;NbNI-----------------------------
*btn_end
	vsps 0,1,0
	print 1
	texec
	saveon
return

;J[\ꎞ\-----------------------
*clear
	;J[\̔\
	vsps 0,1,0
	;{^`̉
	btndef clear
return

;֐-------------------------------------
*vsps
	getparam %x,%y,%z
	for %x=0 to %y
		vsp %x,%z
	next
	print 1
return

*csps
	getparam %x,%y
	for %x=0 to %y
		csp %x
	next
return
