¶²¤é¤¯¤ªµá¤á¤Î¥×¥í¥°¥é¥à¤Ï
Àµ¹¶Ë¡¤Ç¹Ô¤¯¤È²¼µ¤ÎÍͤʴ¶¤¸¤Ç¤¹¡£
;¼«µ¡¤ÈŨ¤Î¥µ¥¤¥º¡¢Å¨¤Î½é´ü°ÌÃÖ¤òÀë¸À
jibunXsize=50
jibunYsize=50
tekiXsize=50
tekiYsize=50
tekiX=320
tekiY=240
*main ;¥á¥¤¥ó¥ë¡¼¥×
jibunX=mousex
jibunY=mousey
redraw 0 ;ÉÁ²è³«»Ï
color 255,255,255:boxf
color 0,0,255:boxf jibunX,jibunY,jibunX+jibunXsize,jibunY+jibunYsize ;¼«µ¡¤ÎÉÁ²è
color 0,0,0:boxf tekiX,tekiY,tekiX+tekiXsize,tekiY+tekiYsize ;Ũ¡©¤ÎÉÁ²è
redraw 1 ;ÉÁ²è½ª¤ï¤ê
;°Ê²¼¤Ç ¼«µ¡¤Î½ÄÊý¸þ¤ÎÂ礤µ x ²£Êý¸þ¤ÎÂ礤µ ¤Î¥É¥Ã¥È¿ôʬpget¤Ç¼èÆÀ
;(50x50¤À¤È250²Õ½ê¤òpget¤Ç¼èÆÀ)
repeat jibunYsize
cnt2=cnt
repeat jibunXsize
pget jibunX+cnt,jibunY+cnt2 ;¿§¼èÆÀ
if ginfo_r=0 & ginfo_g=0 & ginfo_b=0{ ;ȽÄê
tekiX=rnd(640):tekiY=rnd(480)
break
}
loop
loop
await 16
goto *main
°ì¤ÄȽÄꤹ¤ë¤Î¤Ëpget¤ò250²ó¤È¤«¹Ô¤¦»ö¤Ë¤Ê¤ë¤Î¤Ç
¥²¡¼¥àÅù¤Ë»ÈÍѤ¹¤ë¤È½Å¤¤¤«¤â¤·¤ì¤Ê¤¤¤Ç¤¹¡£
²¼µ¤Î¥½¡¼¥¹¤Ï°ìÈÌŪ¤ÊÈ¢·¿¤ÎÅö¤¿¤êȽÄê¤Î¼°¤À¤È»×¤¤¤Þ¤¹¤¬
·Ú¤¤½èÍý¤ÇƱ¤¸»ö¤¬¤Ç¤¤Þ¤¹¡£
;¼«µ¡¤ÈŨ¤Î¥µ¥¤¥º¡¢Å¨¤Î½é´ü°ÌÃÖ¤òÀë¸À
jibunXsize=50
jibunYsize=50
tekiXsize=50
tekiYsize=50
tekiX=320
tekiY=240
*main ;¥á¥¤¥ó¥ë¡¼¥×
jibunX=mousex
jibunY=mousey
;°Ê²¼¤Ç »Í¤Ä¤Î¾ò·ï¼°¤Ë¤ÆÅö¤¿¤êȽÄê
if jibunX+jibunXsize >= tekiX & jibunX <= tekiX+tekiXsize & jibunY+jibunYsize >= tekiY & jibunY <= tekiY+tekiYsize{ ;Åö¤¿¤êȽÄê
tekiX=rnd(640):tekiY=rnd(480)
}
redraw 0 ;ÉÁ²è³«»Ï
color 255,255,255:boxf
color 0,0,255:boxf jibunX,jibunY,jibunX+jibunXsize,jibunY+jibunYsize ;¼«µ¡¤ÎÉÁ²è
color 0,0,0:boxf tekiX,tekiY,tekiX+tekiXsize,tekiY+tekiYsize ;Ũ¤ÎÉÁ²è
redraw 1
await 16
goto *main