ルーレットで - HSPTV!掲示板

本当に度々すみません。
ルーレットを作ったのですが（下記）、
数字と数字の枠線近くで止まると枠線の左側に止まっていても右側で認識されます。
どうすれば直せるでしょうか…？



randomize
#module
#define global ctype round(%1)   double(strf("%%0.0f", %1))
#const global YJL_X 15
#const global YJL_Y 10
#const global scrx 640
#const global scry 480
#const global ROOLET_SIZEX 30
#const global ROOLET_SIZEY 40
//ルーレット
#defcfunc Roolet local masuset,local Enter_mt,local ll_speed,local l_yjl,local mp_index,local axx,local et
	ll_speed=6
	mp_index=0	//どこまで進んだか
	buffer 25,ll_speed,ROOLET_SIZEY
	buffer 19,scrx,scry
	pos 0,0
	gcopy 0,0,0,scrx,scry
	masuset=54
	buffer 18,ROOLET_SIZEX*masuset,ROOLET_SIZEY
	line ROOLET_SIZEX*masuset,0,0,0
	line ROOLET_SIZEX*masuset,ROOLET_SIZEY,0,ROOLET_SIZEY
	font msgothic,30
	repeat masuset*6
		pos cnt*ROOLET_SIZEX+7,5
		mes (cnt\6)+1
		line cnt*ROOLET_SIZEX+ROOLET_SIZEX-1,ROOLET_SIZEY,cnt*ROOLET_SIZEX+ROOLET_SIZEX-1,0
	loop
	gsel 0
	gmode 0
	pos 0,scry-ROOLET_SIZEY
	gcopy 18,0,0,ROOLET_SIZEX*masuset,ROOLET_SIZEY
	Enter_mt=0
	l_yjl = scrx/2-YJL_X/2
	repeat
		gsel 25
		pos 0,0
		gcopy 18,0,0,ll_speed,ROOLET_SIZEY
		gsel 18
		pos 0,0
		gcopy 18,ll_speed,0,ROOLET_SIZEX*masuset-ll_speed,ROOLET_SIZEY
		pos ROOLET_SIZEX*masuset-ll_speed,0
		gcopy 25,0,0,ll_speed,ROOLET_SIZEY
		gsel 0
		redraw 0
		pos 0,0
		gmode 0
		gcopy 19,0,0,scrx,scry
		pos 0,scry-ROOLET_SIZEY
		gcopy 18,0,0,ROOLET_SIZEX*masuset,ROOLET_SIZEY
		pos l_yjl,scry-ROOLET_SIZEY-YJL_Y
		color 255
		line l_yjl+YJL_X,scry-ROOLET_SIZEY-YJL_Y
		line l_yjl+YJL_X/2,scry-ROOLET_SIZEY
		line l_yjl,scry-ROOLET_SIZEY-YJL_Y
		redraw 1
		if cnt\2:await 5
		mp_index = (mp_index+ll_speed)\(ROOLET_SIZEX*masuset)
		if Enter_mt{
			if (cnt\10)=0{
				if rnd(3):ll_speed--
				if ll_speed=0:break
			}
			continue
		}
		if cnt>20:stick et,32
		if et&32{
			Enter_mt=1
		}
	loop
	axx = int(mp_index/ROOLET_SIZEX)\6
	if axx=0:axx=6
	return axx
#global
*re
	dialog "数字："+roolet(),2
	if stat=7:end
	goto *re