//フィリピン産バナナ
#const x0 377
#const y0 45
#const x1 537
#const y1 205
#const mmm $7FFFFFFF
goto *script_start

#deffunc judge int _jx, int _jy
j= ( ((_jx-x0)&(mmm))>(x1-x0) ) | ( ((_jy-y0)&(mmm))>(y1-y0) )
title strf("(%3d",_jx)+strf(",%3d)",_jy)+strf(" %1d",j)
return j

*script_start
color 100,100,100:boxf x0,y0,x1,y1
color 0,0,0:mes {"ところで、377・45　-　537・205
以外に座標があると、判断するにはどうすればいい？"}
repeat
judge mousex,mousey:wait 1
loop