³ÊÆ®¥²¡¼¥à¤òºî¤Ã¤Æ¤¤¤Þ¤¹¡£¤½¤Î¡¢¥¥ã¥é¥¯¥¿¡¼¥»¥ì¥¯¥È²èÌ̤ǡ¢Íýͳ¤¬¤ï¤«¤é¤Ê¤¤¥¨¥é¡¼
(line291(hgimg3.as)ÊÑ¿ô̾¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£¤È½Ð¤Æ¤·¤Þ¤¤¤Þ¤¹¡£line291¤Ë¤Ï²¿¤â
½ñ¤¤¤Æ¤¤¤Ê¤¤¤Î¤Ë¡¢¤³¤¦É½¼¨¤µ¤ì¤Þ¤¹¡£)
½Ð¤Æ¤·¤Þ¤¤¡¢¼«Ê¬¤Ç¤¤¤¯¤é¸¶°ø¤ò¹Í¤¨¤Æ¤â¸¶°ø¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£¤É¤Ê¤¿¤«¸¶°ø¤Î¤ï¤«¤ëÊý
¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£¤ª´ê¤¤¤·¤Þ¤¹¡£
¡ö¡ö¡ö¡ö¤½¤Î¥¹¥¯¥ê¥×¥È¡ö¡ö¡ö¡ö
*SKIP px = 400.0 py = 0.0 #include "hgimg3.as" screen 0,ginfo_dispx,ginfo_dispy,,0,0 hgini ;hgimg½é´ü²½ texload "Cserect.bmp" clstex stat ;¡ selcpos ;¥«¥á¥é°ÌÃÖÀßÄê objset3 0,0,10 ;¢ setsizef 0.1f,0.1f ;¥¹¥×¥é¥¤¥È¤Î¥µ¥¤¥ºÀßÄê texload "serect_g.bmp" addspr AID,1,0,0,1400,509,stat;¥¹¥×¥é¥¤¥ÈºîÀ® regobj AID,AID ;addxfile IDD,"pointer.x" ;X¥â¥Ç¥ë¡Ê¥Ý¥¤¥ó¥¿¡Ë¤òÆÉ¤ß¹þ¤ß ;regobj IDD,IDD ;X¥â¥Ç¥ë¡Ê¥Ý¥¤¥ó¥¿¡Ë¤ò¥ª¥Ö¥¸¥§¥¯¥È¤È¤·¤ÆÅÐÏ¿ ;¥Ý¥¤¥ó¥¿°ÌÃÖ¡¢²óž³ÑÅÙÀßÄê ;selpos AID ;objset3 0,0,0 ;selang IDD ;¥â¥Ç¥ë²óž³ÑÅÙÀßÄê ;objsetf3 0.5f,0.5f,0f *serect ;selang IDD ;¥â¥Ç¥ë¤Î¼«Æ°²óž ;objadd3 0,3,0 getkey ENTa,13 if ENTa = 1:goto *enterA setpos AID,px,py stick k,,1+4 if k&4 { ;¥«¡¼¥½¥ë¥¡¼¤Î¡Ö¢«¡×¤¬²¡¤µ¤ì¤¿¤È¤¤Îưºî gosub *HIDARI } if k&1 { ;¥«¡¼¥½¥ë¥¡¼¤Î¡Ö¢ª¡×¤¬²¡¤µ¤ì¤¿¤È¤¤Îưºî gosub *MIGI } hgdraw ;ÉÁ²è½èÍý hgsync 40 ;½èÍýÍî¤Á¤·¤Æ¤¤¤Ê¤±¤ì¤ÐÉÁ²è goto *serect *HIDARI if (select == 1) { return ;°ìÈÖ¢ª¤Ê¤é¥á¥¤¥ó¥ë¡¼¥×¤ËÌ᤹¡£ } ;¸½ºß¤Î°ÌÃ֤ǽèÍý¤òʬ¤±¤ë¡£ if (select == 2) { gosub *C1 return } if (select == 3) { gosub *C2 return } ;¢«¤Ë²¡¤µ¤ì¤¿¾ì¹ç¤Î½èÍý *MIGI if (select == 1) { gosub *C2 return } if (select == 2) { gosub *C3 return } if (select == 3) { return } *C1 px = 400.0; select = 1 return *C2 px = 0.0; select = 2 return *C3 px = -400.0; select = 3 return *enterA ;ÁªÂò·ë²Ì¤Ë±þ¤¸¤Æ¥¸¥ã¥ó¥× if (select == 1) { goto *CHARA1 } if (select == 2) { goto *CHARA2 } if (select == 3) { goto *CHARA3 } return