HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2020
0912
¥¢¥¤¥É¥ë¡Úhspdxfix.as¡Û¥Û¡¼¥ß¥ó¥°¡ÊÄÉÈøÃơˤκî¤êÊý8²ò·è


¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/9/12(Sat) 15:49:58|NO.91344

hspdxfix.as¥×¥é¥°¥¤¥ó¤Çºî¤Ã¤¿STG¥²¡¼¥à¤Ë¤Ê¤ê¤Þ¤¹¡£


¼«µ¡¤Î¥Û¡¼¥ß¥ó¥°ÃƤòºî¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢£²È¯ÌܤÎȯ¼ÍÀ褬£±È¯ÌܤÈƱ¤¸ºÂɸ¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¸¶°ø¤Ï¤µ¤Ã¤Ñ¤ê¤ï¤«¤ê¤Þ¤»¤ó¡¦¡¦¡¦¡¦

£±È¯Ìܤϥ¹¥×¥é¥¤¥È80¡Á84¤ÎÃ椫¤é¼«µ¡¤È¶á¤¤¤ä¤Ä¤Ëȯ¼Í¤·¤Þ¤¹¡£
£²È¯ÌܤâƱ¤¸¥µ¥¤¥¯¥ë¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤È»×¤¦¤ó¤Ç¤¹¤¬¡¢²¿¸Î¤«¤¦¤Þ¤¯¤¤¤«¤º¡¦¡¦¡¦
¥¢¥É¥Ð¥¤¥¹Åù¤¢¤ì¤Ð¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹¡ª


¡¡¢£»ÅÍÍ¢£
1.¥Û¡¼¥ß¥ó¥°¤Ï1ȯ¤·¤«ÂǤƤʤ¤
2.Ũ or ²èÌ̳°¤Ë¹Ô¤Ã¤¿¤é¡¢¥Û¡¼¥ß¥ó¥°ÃƤò¾Ã¤·¤ÆºÆȯ¼Í
3.¥Û¡¼¥ß¥ó¥°¤Ï¼«µ¡¤«¤é¶á¤¤Å¨¤Ë°ÜÆ°¤¹¤ë


#include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 640,5000,360 ;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 ;¥¹¥¯¥ê¡¼¥ó es_window 30,10, 412,460 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area 10,-10, 432,480 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;---¼«µ¡--- es_size 28,42, 100 es_pat 350, 0,0 JIKI_x = 256 : JIKI_y = 390 JIKISpd = 4 ;°ÜÆ°¥¹¥Ô¡¼¥É ;---¥Û¡¼¥ß¥ó¥°--- es_size 17,19, 100 es_pat 55, 56,62 ;---Ũ--- es_size 18,19, 50 es_pat 60, 0,0 ;ŨÇÛÃÖ TEKI_MAX = 5 ;Ũ¤ÎºÇÂç¿ô dim TEKI_f,TEKI_MAX dim TEKI_x,TEKI_MAX dim TEKI_y,TEKI_MAX ;¢§¢§¢§¢§¢§¢§¢§Å¨ÇÛÎ󢧢§¢§¢§¢§¢§¢§ TEKI_x = 50,100,150,200,250 TEKI_y = 190,150,110,70,30 ;¢£¢£¢£Å¨ÇÛÃÖ¢£¢£¢£ repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_exnew TEKI ,80,84 ;¿·µ¬¥¹¥×¥é¥¤¥ÈNo es_set TEKI, TEKI_x(cnt),TEKI_y(cnt), 60 ;¥¹¥×¥é¥¤¥ÈNo, X,YºÂɸ ,¥­¥ã¥éNo es_type TEKI,4096 loop ;*********¥á¥¤¥ó¥ë¡¼¥×********* *¥á¥¤¥ó es_cls ;²èÌÌ¥¯¥ê¥¢ es_draw ;¥¹¥×¥é¥¤¥ÈÉÁ²è ;***********¥«¥¦¥ó¥¿¡¼*************** pos 400,280 : es_mes "¥Ò¥Ã¥È¤·¤¿²ó¿ô " + HMIN_HIT pos 400,300 : es_mes "¥Û¡¼¥ß¥ó¥°F " + JK_HMIN_f ;*************¥á¥¤¥ó¥ë¡¼¥×**************** gosub *¼«µ¡¤Î°ÜÆ° gosub *¼«µ¡¥Û¡¼¥ß¥ó¥° gosub *Ũ°ÜÆ° es_set 350, JIKI_x,JIKI_y, 350 ;¼«µ¡ es_sync ;²èÌ̹¹¿· await 16 goto *¥á¥¤¥ó ;**************¼«µ¡¤Î°ÜÆ°************* *¼«µ¡¤Î°ÜÆ° stick key,15 ;¥­¡¼¼èÆÀ if key & 1 : JIKI_x = JIKI_x - JIKISpd ;¢«¤Î°ÜÆ° if key & 2 : JIKI_y = JIKI_y - JIKISpd ;¢¬¤Î°ÜÆ° if key & 4 : JIKI_x = JIKI_x + JIKISpd ;¢ª¤Î°ÜÆ° if key & 8 : JIKI_y = JIKI_y + JIKISpd ;¢­¤Î°ÜÆ° return ;*************¼«µ¡¥Û¡¼¥ß¥ó¥°**************** *¼«µ¡¥Û¡¼¥ß¥ó¥° getkey keyZ,90 ;Z¥­¡¼ ;ÃƤ¬½Ð¤ë¾ì½ê if keyZ AND JK_HMIN_f = 0 { JK_HMIN_f = 1 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚΩ¤Æ¤ë¡Û JK_HMIN_x = double(JIKI_x) : JK_HMIN_y = double(JIKI_y) ;¼Â¿ôÃͤËÊÑ´¹ } TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_get JK_HMIN_TEKI_x,TEKI_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_no,5 ;Ũ£Ù if JK_HMIN_f = 1 { ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°Î©¤Ã¤Æ¤¿¤é¼Â¹Ô es_set 55, JK_HMIN_x,JK_HMIN_y , 55 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_type 55,2 angle = 0.0 ;³ÑÅÙ¤òÆþ¤ì¤ëÊÑ¿ô angle = atan(JK_HMIN_TEKI_x - JK_HMIN_x-10, JK_HMIN_TEKI_y - JK_HMIN_y) ;Ũ¤È¥Û¡¼¥ß¥ó¥°¤È¤Î³ÑÅÙ¤òµá¤á¤ë JK_HMIN_x += 1.0 * sin(angle) : JK_HMIN_y += 1.0 * cos(angle) ;ÃÆ®¤µ TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý } loop ;²èÌ̳° es_get JK_HMIN_TEKI_x,55,3 ;¥Û¡¼¥ß¥ó¥°£Ø es_get JK_HMIN_TEKI_y,55,5 ;¥Û¡¼¥ß¥ó¥°£Ù if (JK_HMIN_TEKI_x < -33) or (JK_HMIN_TEKI_y < -58) or (JK_HMIN_TEKI_x > 435) or (JK_HMIN_TEKI_y > 488) { JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚÌ᤹¡Û } ;Åö¤¿¤êȽÄê TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_find TEKI_D, 4096, TEKI_no,84;Ũ¤òõ¤¹ es_check HMIN_VS_TEKI ,TEKI_D,2 if HMIN_VS_TEKI != -1 & TEKI_f(cnt) = 0 { TEKI_f(cnt) = 1 ;Ũ¥Õ¥é¥°¡ÚΩ¤Æ¤ë¡Û JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¡Úºï½ü¡Û es_kill TEKI_D ;Ũ¡Úºï½ü¡Û es_kill HMIN_VS_TEKI;¥Û¡¼¥ß¥ó¥°¡Úºï½ü¡Û HMIN_HIT++ ;¥Ç¥Ð¥Ã¥°ÍÑ }TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop /* ;¡¦Å¨¤¬Æ°¤¯¤È¥À¥á ;¡¦ºÇ¸åÈø¤ÎÈֹ椬ͥÀ褵¤ì¤ë¤Î¤Ç¡¢¼«µ¡¤Ë¶á¤¤Å¨¤ËÃƤ¬¹Ô¤¯¤è¤¦¤Ë¤·¤¿¤¤ TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_get JK_HMIN_JIKI_x,350,3 ;¼«µ¡£Ø es_get JK_HMIN_JIKI_y,350,5 ;¼«µ¡£Ù es_get JK_HMIN_TEKI_x,TEKI_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_no,5 ;Ũ£Ù es_ang JK_HMIN_JIKI_x,JK_HMIN_JIKI_y,JK_HMIN_TEKI_x-7,JK_HMIN_TEKI_y;´ð½àÅÀx,´ð½àÅÀy,ÌÜŪÅÀx,ÌÜŪÅÀy JK_HMIN_ang(cnt) = stat ;Ũ¤ÎÊý¸þ ;*******ÃÆȯ¼Í******* es_exnew JK_HMIN_hs, 55,55 ;¿·µ¬¥¹¥×¥é¥¤¥È¼èÆÀ es_set JK_HMIN_hs, JK_HMIN_JIKI_x+6,JK_HMIN_JIKI_y+5, 55 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_adir JK_HMIN_hs, JK_HMIN_ang(cnt),500 ;¥¹¥×¥é¥¤¥È°ÜÆ°Êý¸þÀßÄê es_type JK_HMIN,2 TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop */ return ;*************Ũ°ÜÆ°**************** *Ũ°ÜÆ° TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) ; es_apos TEKI_no, 0,1, 100 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop return



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


¤¢¤é¤ä

¥ê¥ó¥¯

2020/9/21(Mon) 01:24:01|NO.91412

»ÅÍͤ¬ÉÔÌÀ¤Ê½ê¤Ïºî¤Ã¤Æ¤¤¤Þ¤»¤ó¤¬
¤³¤ó¤Ê´¶¤¸¤Ç¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡©


;*************¼«µ¡¥Û¡¼¥ß¥ó¥°**************** *¼«µ¡¥Û¡¼¥ß¥ó¥° getkey keyZ,90 ;Z¥­¡¼ ;ÃƤ¬½Ð¤ë¾ì½ê if keyZ AND JK_HMIN_f = 0 { JK_HMIN_f = 1 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚΩ¤Æ¤ë¡Û JK_HMIN_x = double(JIKI_x) : JK_HMIN_y = double(JIKI_y) ;¼Â¿ôÃͤËÊÑ´¹ } if JK_HMIN_f = 1 { ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°Î©¤Ã¤Æ¤¿¤é¼Â¹Ô TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý kyori = 10000.0; // ¼«µ¡¤ÈŨ¤Îµ÷Î¥¤òÂåÆþ¤¹¤ëÊÑ¿ô¡ÊºÇ¤â¶á¤¤Å¨¤òõ¤¹¤¿¤á¤Ë½ÐÍè¤ë¤À¤±Â礭¤Ê¿ôÃͤòÆþ¤ì¤Æ¤ª¤¯¡Ë chikaiteki = -1; // ºÇ¤â¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤òÂåÆþ¤¹¤ëÊÑ¿ô repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_find TEKI_D, 4096, TEKI_no,84;Ũ¤òõ¤¹ if( TEKI_D == -1 ) : break; es_get JK_HMIN_TEKI_x,TEKI_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_no,5 ;Ũ£Ù // ¼«µ¡¤ÈŨ¤Îµ÷Î¥ kyori_2 = sqrt((JIKI_x-JK_HMIN_TEKI_x)*(JIKI_x-JK_HMIN_TEKI_x) + (JIKI_y-JK_HMIN_TEKI_y)*(JIKI_y-JK_HMIN_TEKI_y)); if( kyori_2 < kyori ) { kyori = kyori_2; // ¶á¤¤Å¨¤Þ¤Ç¤Îµ÷Î¥¤ò¹¹¿· chikaiteki = TEKI_D // ¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤ò¹¹¿· } TEKI_no++; loop // ¾å¤Î¥ë¡¼¥×¤ÇºÇ¤â¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤¬¤ï¤«¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢ // ¤½¤ì¤ò¸µ¤ËÃƤòºîÀ®¤¹¤ë¤Î¤Ç¥ë¡¼¥×¤ÏÉÔÍ× ;repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_get JK_HMIN_TEKI_x,chikaiteki,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,chikaiteki,5 ;Ũ£Ù es_set 55, JK_HMIN_x,JK_HMIN_y , 55 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_type 55,2 angle = 0.0 ;³ÑÅÙ¤òÆþ¤ì¤ëÊÑ¿ô if( chikaiteki != -1 ) { // Ũ¤¬¤¤¤ë¾ì¹ç angle = atan(JK_HMIN_TEKI_x - JK_HMIN_x-10, JK_HMIN_TEKI_y - JK_HMIN_y) ;Ũ¤È¥Û¡¼¥ß¥ó¥°¤È¤Î³ÑÅÙ¤òµá¤á¤ë JK_HMIN_x += 5.0 * sin(angle) : JK_HMIN_y += 5.0 * cos(angle) ;ÃÆ®¤µ } else { // Ũ¤¬¤¤¤Ê¤¤¾ì¹ç JK_HMIN_x += 1.0 * sin(deg2rad(180)): JK_HMIN_y += 1.0 * cos(deg2rad(180)); // ÀµÌ̤˿¿¤Ãľ¤°¿Ê¤à¡Ê²¾¡Ë } ;TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý } ;loop

Ũ¤¬Æ°¤¤¤Æ¤¤¤ë¾ì¹ç¤ä
¥Û¡¼¥ß¥ó¥°°Ê³°¤ÎÍ×°ø¤ÇŨ¤¬¾Ã¤¨¤¿¾ì¹ç¡Ê²èÌ̳°¤Ë½Ð¤ë¤È¤«Â¾¤Î¹¶·â¤Ç¾ÃÌǤ¹¤ë¤Ê¤É¡Ë
¤½¤ì¤é¤Î¾õ¶·¤Ï¹Íθ¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢
¤½¤Î¤è¤¦¤Ê¾õ¶·¤Ë¤Ê¤Ã¤¿¾ì¹ç¤Ï²¿¤é¤«¤ÎÉÔ¶ñ¹ç¤¬µ¯¤­¤ë²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£

Ũ¤¬Æ°¤¤¤Æ¤¤¤ë¾ì¹ç¤Ïñ½ã¤Ë¥Û¡¼¥ß¥ó¥°ÃƤò¥í¥Ã¥¯Ãæ¤Î¥Õ¥é¥°ÊÑ¿ô¤Ç¤âÍÑ°Õ¤·¤Æ
Ê̤ÎŨ¤ËÈô¤ó¤Ç¤¤¤«¤Ê¤¤¤è¤¦¤Ëifʸ¤ÇÂнè½ÐÍè¤ë¤È»×¤¤¤Þ¤¹¡£

ƱÍͤˡ¢Å¨¤¬²¿¤é¤«¤ÎÍýͳ¤Ç¾ÃÌǤ·¤¿¾ì¹ç¤Ï
²èÌ̳°¤Ë½Ð¤ë¤Þ¤Ç¤½¤ì¤Þ¤Ç¤Î°ÜÆ°¤ò³¤±¤ë¤Ê¤É¤ÎÂн褬ɬÍפˤʤ뤫¤È»×¤¤¤Þ¤¹¡£



¤¢¤é¤ä

¥ê¥ó¥¯

2020/9/21(Mon) 16:44:16|NO.91414

¤¹¤ß¤Þ¤»¤ó¡£ÃÆ®¤ò¾¡¼ê¤ËÄ´À°¤·¤¿¤Î¤ò˺¤ì¤Æ¤¤¤Þ¤·¤¿¡£


JK_HMIN_x += 5.0 * sin(angle) : JK_HMIN_y += 5.0 * cos(angle) ;ÃÆ®¤µ

¤³¤Î¹Ô¤Ï5.0¤ò1.0¤Ë½¤Àµ¤·¤Æ²¼¤µ¤¤¡£¡£¡£

¤½¤ì¤È¡¢Æ±¤¸¹Ô¤Çº£µ¤¤¬¤Ä¤¤¤¿¤Î¤Ç¤¹¤¬
sin¤Ècos¤¬µÕ¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©



¤¢¤é¤ä

¥ê¥ó¥¯

2020/9/21(Mon) 16:47:47|NO.91415

ºÆÄɵ­

atan¤âX¤ÈY¤¬µÕ¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/9/21(Mon) 19:27:24|NO.91416

¤¢¤é¤ä¤µ¤ó¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª¡ª
¡Ö¥ë¡¼¥ÈÃÍ¡¢¥é¥¸¥¢¥ó¡×¤Î¤³¤È¤ò¤Þ¤Ã¤¿¤¯ÃΤé¤Ê¤«¤Ã¤¿¤Î¤ÇÊÖÅúÃÙ¤ì¤Þ¤·¤¿¡¦¡¦¡¦


¤Ê¤ë¤Û¤Éµ÷Î¥¤ò¡Ö¥ë¡¼¥ÈÃͤÇÊÖ¤¹¡×¤³¤È¤Ë¤è¤Ã¤Æ¶á¤¤Å¨¤ËÃƤ¬¹Ô¤¯¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤ó¤Ç¤¹¤Í¡£
Ũ¤¬Á´ÌǤ·¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢¤Þ¤Ã¤¹¤°¹Ô¤¯¤è¤¦¤Ë¤Ê¤Ã¤Æ¤Æ½õ¤«¤ê¤Þ¤·¤¿¡£

>>// ¾å¤Î¥ë¡¼¥×¤ÇºÇ¤â¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤¬¤ï¤«¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢
ÂåÆþ¤ò¤¦¤Þ¤¯»È¤¨¤Ð¤³¤ó¤Ê¤Ë¾Êά¤Ç¤­¤ë¤È¤Ï¡¦¡¦¡¦

>>Ũ¤¬Æ°¤¤¤Æ¤¤¤ë¾ì¹ç¤ä
Æ°¤«¤¹¤è¤¦¤ËÊѹ¹¤·¤Æ¥á¥¤¥ó¤ËÆþ¤ì¤Æ¤âÆäËÌäÂê¤Ê¤µ¤½¤¦¤Ç¤·¤¿¡ª

>>¥Û¡¼¥ß¥ó¥°°Ê³°¤ÎÍ×°ø¤ÇŨ¤¬¾Ã¤¨¤¿¾ì¹ç¡Ê²èÌ̳°¤Ë½Ð¤ë¤È¤«Â¾¤Î¹¶·â¤Ç¾ÃÌǤ¹¤ë¤Ê¤É¡Ë
>>¤½¤ì¤é¤Î¾õ¶·¤Ï¹Íθ¤·¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢
>>¤½¤Î¤è¤¦¤Ê¾õ¶·¤Ë¤Ê¤Ã¤¿¾ì¹ç¤Ï²¿¤é¤«¤ÎÉÔ¶ñ¹ç¤¬µ¯¤­¤ë²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£
¼«µ¡ÃƤòÅö¤Æ¤¿¾ì¹ç¤Ï¶á¤¯¤ÎŨ¤òÄÉÈø¤·¤Æ¤ì¤ë¤Î¤ÇÂç¾æÉפǤ·¤¿¡ª


¡¡¡ÖÅö¤¿¤êȽÄêÌäÂê¡×
¥á¥¤¥ó¥½¡¼¥¹¤Ç¤ÏŨÇÛÃÖ¤ò²èÌ̳°¡Ê¥×¥ì¥¤¥ä¡¼°ÜÆ°¤Ç¤­¤Ê¤¤¡Ë¤Ë¤ª¤¤¤Æ¤¤¤ë¤»¤¤¤Ç¡¢
²èÌÌÆâ¤ËŨ¤¬Â¸ºß¤·¤Ê¤¤¤È¤­¡¢²èÌ̳°¤ÎŨ¤Ë¤¢¤¿¤Ã¤Æ¤·¤Þ¤¦ÌäÂ꤬¡£

¡¦¡Ö¼«µ¡¤ÈŨ¤Îµ÷Î¥¡×¤ò¿Þ¤ëÁ°¤Ë¡¢Å¨¤¬²èÌÌÆâ¤Ë¤¤¤ë¤«¸«¤ë¤è¤¦¤Ë¤·¤Þ¤·¤¿¡£
¡¦Åö¤¿¤êȽÄê¤â²èÌÌÆâ¤Ë¤¤¤ëŨ¤Î¤ß¤Ë¤·¤Þ¤·¤¿¡£

¡¡¡ÖÄÉÈøÌäÂê¡×
¾åµ­¤ò¤ä¤Ã¤Æ¤â²èÌ̳°¤Ë¤¤¤ëŨ¤ËÄÉÈø¤·¤Á¤ã¤Ã¤Æ¤¤¤ë¤Î¤Ç¼ê¤ò²Ã¤¨¤Þ¤¹¡£
¿ʬ¤³¤ì¤¬¸¶°ø¤ÇŨ¤¬¤¤¤Ê¤¤¤È¤­¤Ë¡¢¥Û¡¼¥ß¥ó¥°ÃƤòÂǤäƤ«¤é¤¤¤¤´¶¤¸¤Ë¼«µ¡¤ò¾å²¼¤Ë°ÜÆ°¤¹¤ë¤È¡¢
¥Û¡¼¥ß¥ó¥°¤â¾å²¼¤Ë°ÜÆ°¤·¤Á¤ã¤¤¤Þ¤¹¤Í¡¦¡¦¡¦¤Þ¤¡¡¢¤Á¤ã¤ó¤ÈŨ¤ò¤¤¤Ê¤¤¤Ã¤Æ¤¹¤ì¤Ð²ò·è¤Ç¤­¤ë¤È»×¤¤¤Þ¤¹
--------
>>¤¹¤ß¤Þ¤»¤ó¡£ÃÆ®¤ò¾¡¼ê¤ËÄ´À°¤·¤¿¤Î¤ò˺¤ì¤Æ¤¤¤Þ¤·¤¿¡£
ÌäÂê¤Ê¤¤¤Ç¤¹¡ªÅ¨¤ËÄɤ¤¤Ä¤±¤Ê¤¤²ÄǽÀ­¤¬¤¢¤ë¤Î¤Ç¾¯¤·Á᤯¤¹¤ë¤«¤â¤Ç¤¹¡£

>>sin¡¢cos¡¢atan¤ÎX¤ÈY¤¬µÕ
¤®¤ã¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¡ª
²áµî¤Î¥½¡¼¥¹¤ò¤½¤Î¤Þ¤ÞήÍѤ·¤¿·ë²Ì¤Ç¤¹¡¦¡¦¡¦¤è¤¯Æ°¤¤¤Æ¤¿¡¦¡¦¡¦orz

µÕ¤Ê¤Î¤ò½¤Àµ¤·¤¿¤Î¤Ç¡Ö(deg2rad(180)¡×¤Î180¤ò¡Ö270¡×¤Ë½¤Àµ¤·¤Þ¤·¤¿¡£
--------
Äɲá¢Êѹ¹¤·¤¿¤È¤³¤í¤¬ÃÏÌ£¤Ë¤¢¤ê¤Þ¤¹¤¬¡¢ÂçÂΤÏƱ¤¸¤Ç¤¹¡£

#include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 640,5000,360 ;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 ;¥¹¥¯¥ê¡¼¥ó es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,498 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;---¼«µ¡--- es_size 28,42, 100 es_pat 350, 0,0 JIKI_x = 256 : JIKI_y = 390 JIKISpd = 4 ;°ÜÆ°¥¹¥Ô¡¼¥É ;---¼«µ¡ÃÆ--- es_size 11,11, 150 es_pat 51, 1,43 ;---¥Û¡¼¥ß¥ó¥°--- es_size 17,19, 100 es_pat 55, 56,62 ;---Ũ--- es_size 18,19, 50 es_pat 60, 0,0 ;¼«µ¡¤¬Æ°¤±¤ëÈÏ°Ï ;--¾å-- es_size 383,3 es_pat 10, 0,0 es_set 10, 30,11, 10 ;--º¸-- es_size 3,450 es_pat 11, 0,0 es_set 11, 30,11, 11 ;--²¼-- es_size 383,3, 100 es_pat 12, 0,0 es_set 12, 30,460, 12 ;--±¦-- es_size 3,450 es_pat 13, 0,0 es_set 13, 411,11, 13 ;ŨÇÛÃÖ TEKI_MAX = 6 ;Ũ¤ÎºÇÂç¿ô dim TEKI_f,TEKI_MAX dim TEKI_x,TEKI_MAX dim TEKI_y,TEKI_MAX ;¢§¢§¢§¢§¢§¢§¢§Å¨ÇÛÎ󢧢§¢§¢§¢§¢§¢§ TEKI_x = 50,100,150,200,250 ,115 TEKI_y = 190,150,110,70,30 ,465 ;¢£¢£¢£Å¨ÇÛÃÖ¢£¢£¢£ repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(6) es_exnew TEKI ,80,85 ;¿·µ¬¥¹¥×¥é¥¤¥ÈNo es_set TEKI, TEKI_x(cnt),TEKI_y(cnt), 60 ;¥¹¥×¥é¥¤¥ÈNo, X,YºÂɸ ,¥­¥ã¥éNo es_flag TEKI,$1100 ;¼«Æ°ºï½üOFF (¥¹¥×¥é¥¤¥Èɽ¼¨ON+¥Ü¡¼¥À¡¼¾Ãµî̵¸úON) es_type TEKI,4096 loop ;*********¥á¥¤¥ó¥ë¡¼¥×********* *¥á¥¤¥ó es_cls ;²èÌÌ¥¯¥ê¥¢ es_draw ;¥¹¥×¥é¥¤¥ÈÉÁ²è ;***********¥«¥¦¥ó¥¿¡¼*************** pos 420,200 : es_mes "¥Û¡¼¥ß¥ó¥°¥Ò¥Ã¥È " + HMIN_HIT pos 420,220 : es_mes "¥Û¡¼¥ß¥ó¥°F " + JK_HMIN_f pos 420,240 : es_mes "kyori_2 " + kyori_2 pos 420,260 : es_mes "kyori " + kyori pos 420,290 : es_mes "JIKI_x " + JIKI_x pos 420,310 : es_mes "JIKI_y " + JIKI_y pos 420,330 : es_mes "TEKI_HOMIN_no " + TEKI_HOMIN_no pos 420,350 : es_mes "HMIN_HIT " + HMIN_HIT ;*************¥á¥¤¥ó¥ë¡¼¥×**************** gosub *¼«µ¡¤Î°ÜÆ° gosub *¼«µ¡ÃÆ°ÜÆ° gosub *¼«µ¡¥Û¡¼¥ß¥ó¥° gosub *Ũ°ÜÆ° es_set 350, JIKI_x,JIKI_y, 350 ;¼«µ¡ es_sync ;²èÌ̹¹¿· await 16 goto *¥á¥¤¥ó ;**************¼«µ¡¤Î°ÜÆ°************* *¼«µ¡¤Î°ÜÆ° stick key,15 ;¥­¡¼¼èÆÀ if key & 1 : JIKI_x = JIKI_x - JIKISpd ;¢«¤Î°ÜÆ° if key & 2 : JIKI_y = JIKI_y - JIKISpd ;¢¬¤Î°ÜÆ° if key & 4 : JIKI_x = JIKI_x + JIKISpd ;¢ª¤Î°ÜÆ° if key & 8 : JIKI_y = JIKI_y + JIKISpd ;¢­¤Î°ÜÆ° return ;*************¼«µ¡ÃÆ°ÜÆ°**************** *¼«µ¡ÃÆ°ÜÆ° getkey keyZ,90 ;Z¥­¡¼ JK_TAMA_G_kazu = 0 if keyZ AND JKSO_f = 0 AND RENSA = 0 { es_exnew JK_TAMA ,10,30 ;¿·µ¬¥¹¥×¥é¥¤¥È¼èÆÀ ;---ÃƤÎȽÃÇ--- if JK_TAMA_c >= 1 { JK_TAMA_dai_Kz = JK_TAMA_c \ 2 if JK_TAMA_dai_Kz = 0 : JK_TAMA_G_kazu += 1 } JK_TAMA_c++ ;¥ë¡¼¥×Æ⥫¥¦¥ó¥¿¡¼ if JK_TAMA_G_kazu = 0 : JKSO_x = JIKI_x-6 ;º¸Â¦ if JK_TAMA_G_kazu = 1 : JKSO_x = JIKI_x+18 ;±¦Â¦ JKSO_y = JIKI_y es_set JK_TAMA, JKSO_x,JKSO_y, 51 ;¥¹¥×¥é¥¤¥ÈNo, X,YºÂɸ ,¥­¥ã¥éNo es_apos JK_TAMA, 0,-15 ,100 ;¢¬¤Ë°ÜÆ° RENSA = 2 ;ÃÆ¤Î´Ö³Ö es_type JK_TAMA,2 ;¼«µ¡ÃÆtypeÃÍ(2) } if RENSA > 0 : RENSA -= 1 ;ÃÆ¤Î´Ö³Ö ;---²èÌ̳°È½Äê--- JK_TAMA_no = 10 ;¼«µ¡ÃƤθ¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat es_find JK_TAM_D, 2, JK_TAMA_no,30, 1 if JK_TAM_D < 0 : break es_get JK_TAM_D_y,JK_TAM_D,5 ;¼«µ¡ÃÆ£Ù if JK_TAM_D_y < 0 : es_kill JK_TAM_D ;¼«µ¡ÃÆ¡Úºï½ü¡Û JK_TAMA_no++ ;¼«µ¡ÃƤθ¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop ;Åö¤¿¤êȽÄê TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(5) es_find TEKI_D, 4096, TEKI_no,85;Ũ¤òõ¤¹ es_check JKTM_VS_TEKI ,TEKI_D,2 if JKTM_VS_TEKI != -1 & TEKI_f(cnt) = 0 { TEKI_f(cnt) = 1 ;Ũ¥Õ¥é¥°¡ÚΩ¤Æ¤ë¡Û es_kill TEKI_D ;Ũ¡Úºï½ü¡Û es_kill JKTM_VS_TEKI;¼«µ¡ÃÆ¡Úºï½ü¡Û JK_HIT++ ;¥Ç¥Ð¥Ã¥°ÍÑ }TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop return ;*************¼«µ¡¥Û¡¼¥ß¥ó¥°**************** *¼«µ¡¥Û¡¼¥ß¥ó¥° ;ÃƤ¬½Ð¤ë¾ì½ê if keyZ AND JK_HMIN_f = 0 { JK_HMIN_f = 1 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚΩ¤Æ¤ë¡Û JK_HMIN_x = double(JIKI_x) : JK_HMIN_y = double(JIKI_y) ;¼Â¿ôÃͤËÊÑ´¹ } if JK_HMIN_f = 1 { ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°Î©¤Ã¤Æ¤¿¤é¼Â¹Ô TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý kyori = 10000.0 ;¼«µ¡¤ÈŨ¤Îµ÷Î¥¤òÂåÆþ¤¹¤ëÊÑ¿ô¡ÊºÇ¤â¶á¤¤Å¨¤òõ¤¹¤¿¤á¤Ë½ÐÍè¤ë¤À¤±Â礭¤Ê¿ôÃͤòÆþ¤ì¤Æ¤ª¤¯¡Ë TEKI_HOMIN_no = -1 ;Ũ¤¬Á´°÷¤¤¤Ê¤«¤Ã¤¿»þ¤Ë¥Þ¥¤¥Ê¥¹ÃͤòÆþ¤ì¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥Û¡¼¥ß¥ó¥°¤¬ºÇ¸å¤ÎŨ¤Ë¹Ô¤«¤Ê¤¤¤è¤¦¤Ë¤¹¤ë repeat es_find TEKI_D, 4096, TEKI_no,85;Ũ¤òõ¤¹ if TEKI_D = -1 : break es_get JK_HMIN_TEKI_x,TEKI_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_no,5 ;Ũ£Ù ;---Ũ¤¬²èÌÌÆâ¤Ë¤¤¤ë¤«¸«¤ë--- if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { ;¼«µ¡¤ÈŨ¤Îµ÷Î¥ kyori_2 = sqrt((JIKI_x-JK_HMIN_TEKI_x)*(JIKI_x-JK_HMIN_TEKI_x) + (JIKI_y-JK_HMIN_TEKI_y)*(JIKI_y-JK_HMIN_TEKI_y));¥ë¡¼¥ÈÃͤòÊÖ¤¹ ;256-50 = 42436, 390-190 = 40000 ¢ª 82436¢ª287.116 ;256-100 = 24336, 390-150 = 57600 ¢ª 81936¢ª286.244 ;256-150 = 11236, 390-110 = 78400 ¢ª 89636¢ª299.392 ;256-200 = 3136, 390-70 = 102400 ¢ª 105536¢ª324.863 ;256-250 = 16, 390-30 = 129600 ¢ª 129616¢ª360.022 ;286.244 < 10000.0 if kyori_2 < kyori { kyori = kyori_2 ;¶á¤¤Å¨¤Þ¤Ç¤Îµ÷Î¥¤ò¹¹¿· TEKI_HOMIN_no = TEKI_D ;¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤ò¹¹¿· } } TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop es_get JK_HMIN_TEKI_x,TEKI_HOMIN_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_HOMIN_no,5 ;Ũ£Ù es_set 55, JK_HMIN_x,JK_HMIN_y , 55 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_type 55,256 angle = 0.0 ;³ÑÅÙ¤òÆþ¤ì¤ëÊÑ¿ô if TEKI_HOMIN_no != -1 { ;Ũ¤¬¤¤¤ë¾ì¹ç angle = atan(JK_HMIN_TEKI_y - JK_HMIN_y, JK_HMIN_TEKI_x - JK_HMIN_x-10) ;Ũ¤È¥Û¡¼¥ß¥ó¥°¤È¤Î³ÑÅÙ¤òµá¤á¤ë JK_HMIN_x += 5.0 * cos(angle) : JK_HMIN_y += 5.0 * sin(angle) ;ÃÆ®¤µ } else { ;Ũ¤¬¤¤¤Ê¤¤¾ì¹ç JK_HMIN_x += 5.0 * cos(deg2rad(270)) : JK_HMIN_y += 5.0 * sin(deg2rad(270));ÀµÌ̤˿¿¤Ãľ¤°¿Ê¤à } ;Åö¤¿¤êȽÄê if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { es_check HMIN_VS_TEKI ,TEKI_HOMIN_no,256 if HMIN_VS_TEKI != -1 { JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¡Úºï½ü¡Û es_kill TEKI_HOMIN_no ;Ũ¡Úºï½ü¡Û es_kill HMIN_VS_TEKI;¥Û¡¼¥ß¥ó¥°¡Úºï½ü¡Û HMIN_HIT++ ;¥Ç¥Ð¥Ã¥°ÍÑ } } } ;²èÌ̳° es_get JK_HMIN_TEKI_x,55,3 ;¥Û¡¼¥ß¥ó¥°£Ø es_get JK_HMIN_TEKI_y,55,5 ;¥Û¡¼¥ß¥ó¥°£Ù if (JK_HMIN_TEKI_x < 30) or (JK_HMIN_TEKI_y < 10) or (JK_HMIN_TEKI_x > 412) or (JK_HMIN_TEKI_y > 460) { JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚÌ᤹¡Û } return ;*************Ũ°ÜÆ°**************** *Ũ°ÜÆ° TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat es_find TEKI_D, 4096, TEKI_no,85 if TEKI_D < 0 : break ; es_apos TEKI_D, 0,1, 100 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop return



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/9/21(Mon) 22:47:29|NO.91418

¡Ö¢£¢£¢£Å¨ÇÛÃÖ¢£¢£¢£¡×»þ¤Ë²èÌ̳°ÀìÍѤΡÖes_type¡×¤òÀë¸À¤¹¤ë¡ÊTEKI,8192¡Ë
¡Ö*Ũ°ÜÆ°¡×¤Î¤È¤­¡¢²èÌÌÆâ¤Ë¤¤¤ëŨ¤Î¤ß¼Â¹Ô¤¹¤ë¤·¤Æ¡Öes_type¡×¤òÊѹ¹¤¹¤ë¡ÊTEKI_D,4096¡Ë
¡Ö*¼«µ¡¥Û¡¼¥ß¥ó¥°¡×¤Î¤È¤­¡¢¡Öes_find¡×¤Ç¡Ö4096¡×¤òõ¤¹

¤³¤¦¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢²èÌÌÆâ¤Ë¤¤¤ëŨ¤Ë¤·¤«¹Ô¤«¤Ê¤¤¤è¤¦¤Ë¤Ê¤Ã¤¿¤Ï¤º
²áµî¤Ë¼ÁÌ䤷¤¿ÆâÍƤ¬¤³¤³¤Ë¤­¤ÆÌó¤Ë¤¿¤Ã¤¿¡£
¤¢¤Î¤È¤­¤Ï²¿¤È¤Ê¤¯À®Ê¬¤¬Â¿¤«¤Ã¤¿¤±¤É¡¢º£¤Ë¤Ê¤Ã¤Æ¤è¤êÍý²ò¤Ç¤­¤¿¡£

¥á¥¤¥ó¥½¡¼¥¹¤ËÆͤùþ¤ó¤ÇÌäÂê¤Ê¤¤¤«¸«¤Æ¤ß¤Þ¤¹¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/9/23(Wed) 13:26:43|NO.91438

¤è¤¦¤ä¤¯¥á¥¤¥ó¥½¡¼¥¹¤ËÆþ¤ì¤Æ¤âÌäÂê¤Ê¤¤¤³¤È¤ò³Îǧ¤Ç¤­¤Þ¤·¤¿¡£


¡ÖtypeÃ͡פòÅÓÃæ¤ÇÊѤ¨¤ë¤¿¤á¡¢»ÅÍÍÊѹ¹¤·¤Ê¤­¤ã¤¤¤±¤Ê¤¤²Õ½ê¤¬£³²Õ½ê¤°¤é¤¤È¯À¸¤·¤Þ¤·¤¿¡£
¤½¤·¤ÆÊѹ¹²Õ½ê¤ò´Þ¤á¤¿Æ°ºî¤Ç¤è¤¦¤ä¤¯¡ÖÉÔ¶ñ¹ç¤¬½Ð¤Ê¤¤¡¢»ÅÍÍÄ̤ê¡×¤Ê¤â¤Î¤òºî¤ì¤Þ¤·¤¿¡£

¡¦typeÃÍ8192¤ò½àÈ÷ÃͤȤ·¡¢Ïȳ°¤Ç¤ÎÆ°¤­¤ò·è¤á¤ë
¡¦Æ°¤­¤ò·è¤á¤¿¤é¡ÖtypeÃ͡פò²èÌÌÆâ¤Î4096¤ËÊѹ¹
¡¦typeÃÍ4096¤ò¸¡º÷¤·¤Æ¡¢ÏÈÆâ¤Ç¤ÎÆ°¤­¤ò·è¤á¤Æ¡¢¡ÖÅö¤¿¤êȽÄê¡¢²èÌ̳°¤Çºï½ü¡×¤Î½èÍý¤ò¤¹¤ë

¤³¤¦¤¤¤¦¤Õ¤¦¤Ë½àÈ÷¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢
Ũ¤¬²èÌÌÆâ¤ÇÆ°¤¤¤Æ²èÌ̳°¤Ë°ÜÆ°¤·¤Æ¤â¡¢¥Û¡¼¥ß¥ó¥°¤¬²èÌ̳°¤Ë¹Ô¤«¤Ê¤¤¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¿ʬ¤³¤ì¤ÇÌäÂê¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢¡Ö¤³¤¦¤·¤¿¤Û¤¦¤¬Îɤ¤¤è¡×¡Ö¤³¤¦¤¤¤¦¾ì¹ç¤³¤¦¤¤¤¦¤³¤Èµ¯¤­¤½¤¦¡×¤Ê¤É¤¢¤ê¤Þ¤·¤¿¤é¡¢
¥¢¥É¥Ð¥¤¥¹¤Ê¤É¤ª´ê¤¤¤·¤Þ¤¹¡£

¤Ã¤Æ¤¤¤¦¤Î¤â¥Û¡¼¥ß¥ó¥°£±¤Ä¤Ç¤«¤Ê¤ê»ÅÍͤ¬É¬ÍפʤΤ¬È½ÌÀ¤·¤¿¤Î¤Ç¡¢
¤Ê¤Ë¤«·üÇ°ÅÀ¤¬Ï³¤ì¤Æ¤Ê¤¤¤Î¤«¿´ÇۤʤΤǤ¹¡£
¤Þ¤¡Æäˤʤˤâ¤Ê¤±¤ì¤Ð²ò·è¤Ë¤·¤Þ¤¹¡£

#include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 640,5000,360 ;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 ;¥¹¥¯¥ê¡¼¥ó es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,498 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;---¼«µ¡--- es_size 28,42, 100 es_pat 350, 0,0 JIKI_x = 256 : JIKI_y = 390 JIKISpd = 4 ;°ÜÆ°¥¹¥Ô¡¼¥É ;---¼«µ¡ÃÆ--- es_size 11,11, 150 es_pat 51, 1,43 ;---¥Û¡¼¥ß¥ó¥°--- es_size 17,19, 100 es_pat 55, 56,62 ;---Ũ--- es_size 18,19, 50 es_pat 60, 0,0 ;¼«µ¡¤¬Æ°¤±¤ëÈÏ°Ï ;--¾å-- es_size 383,3 es_pat 10, 0,0 es_set 10, 30,11, 10 ;--º¸-- es_size 3,450 es_pat 11, 0,0 es_set 11, 30,11, 11 ;--²¼-- es_size 383,3, 100 es_pat 12, 0,0 es_set 12, 30,460, 12 ;--±¦-- es_size 3,450 es_pat 13, 0,0 es_set 13, 411,11, 13 ;ŨÇÛÃÖ TEKI_MAX = 6 ;Ũ¤ÎºÇÂç¿ô dim TEKI_f,TEKI_MAX ;¥Õ¥é¥° dim TEKI_x,TEKI_MAX ;ÇÛÃÖ£Ø dim TEKI_y,TEKI_MAX ;ÇÛÃÖ£Ù ;¢§¢§¢§¢§¢§Å¨ÇÛÎ󢧢§¢§¢§¢§ TEKI_x = 50,100,150,200,250 ,115 TEKI_y = 190,150,110,70,30 ,465 ;¢£¢£¢£¢£¢£Å¨ÇÛÃÖ¢£¢£¢£¢£¢£ repeat TEKI_MAX ;Ũ¤ÎºÇÂç¿ô(6) es_exnew TEKI ,80,85 ;¿·µ¬¥¹¥×¥é¥¤¥ÈNo es_set TEKI, TEKI_x(cnt),TEKI_y(cnt), 60 ;¥¹¥×¥é¥¤¥ÈNo, X,YºÂɸ ,¥­¥ã¥éNo es_flag TEKI,$1100 ;¼«Æ°ºï½üOFF (¥¹¥×¥é¥¤¥Èɽ¼¨ON+¥Ü¡¼¥À¡¼¾Ãµî̵¸úON) es_type TEKI,8192 loop ;*********¥á¥¤¥ó¥ë¡¼¥×********* *¥á¥¤¥ó es_cls ;²èÌÌ¥¯¥ê¥¢ es_draw ;¥¹¥×¥é¥¤¥ÈÉÁ²è ;***********¥«¥¦¥ó¥¿¡¼*************** pos 420,180 : es_mes "¼«µ¡ÃÆ_¥Ò¥Ã¥È " + JK_HIT pos 420,200 : es_mes "¥Û¡¼¥ß¥ó¥°_¥Ò¥Ã¥È " + HMIN_HIT pos 420,220 : es_mes "¥Û¡¼¥ß¥ó¥°_¥Õ¥é¥° " + JK_HMIN_f pos 420,250 : es_mes "kyori_2 " + kyori_2 pos 420,270 : es_mes "kyori " + kyori pos 420,290 : es_mes "TEKI_HOMIN_no " + TEKI_HOMIN_no pos 420,320 : es_mes "JIKI_x " + JIKI_x pos 420,340 : es_mes "JIKI_y " + JIKI_y ;*************¥á¥¤¥ó¥ë¡¼¥×**************** gosub *¼«µ¡¤Î°ÜÆ° gosub *¼«µ¡ÃÆ°ÜÆ° gosub *Ũ°ÜÆ° gosub *¼«µ¡¥Û¡¼¥ß¥ó¥° es_set 350, JIKI_x,JIKI_y, 350 ;¼«µ¡ es_sync ;²èÌ̹¹¿· await 16 goto *¥á¥¤¥ó ;**************¼«µ¡¤Î°ÜÆ°************* *¼«µ¡¤Î°ÜÆ° stick key,15 ;¥­¡¼¼èÆÀ if key & 1 : JIKI_x = JIKI_x - JIKISpd ;¢«¤Î°ÜÆ° if key & 2 : JIKI_y = JIKI_y - JIKISpd ;¢¬¤Î°ÜÆ° if key & 4 : JIKI_x = JIKI_x + JIKISpd ;¢ª¤Î°ÜÆ° if key & 8 : JIKI_y = JIKI_y + JIKISpd ;¢­¤Î°ÜÆ° return ;*************¼«µ¡ÃÆ°ÜÆ°**************** *¼«µ¡ÃÆ°ÜÆ° getkey keyZ,90 ;Z¥­¡¼ JK_TAMA_G_kazu = 0 if keyZ AND JKSO_f = 0 AND RENSA = 0 { es_exnew JK_TAMA ,10,30 ;¿·µ¬¥¹¥×¥é¥¤¥È¼èÆÀ ;---ÃƤÎȽÃÇ--- if JK_TAMA_c >= 1 { JK_TAMA_dai_Kz = JK_TAMA_c \ 2 if JK_TAMA_dai_Kz = 0 : JK_TAMA_G_kazu += 1 } JK_TAMA_c++ ;¥ë¡¼¥×Æ⥫¥¦¥ó¥¿¡¼ if JK_TAMA_G_kazu = 0 : JKSO_x = JIKI_x-6 ;º¸Â¦ if JK_TAMA_G_kazu = 1 : JKSO_x = JIKI_x+18 ;±¦Â¦ JKSO_y = JIKI_y es_set JK_TAMA, JKSO_x,JKSO_y, 51 ;¥¹¥×¥é¥¤¥ÈNo, X,YºÂɸ ,¥­¥ã¥éNo es_apos JK_TAMA, 0,-15 ,100 ;¢¬¤Ë°ÜÆ° RENSA = 2 ;ÃÆ¤Î´Ö³Ö es_type JK_TAMA,2 ;¼«µ¡ÃÆtypeÃÍ(2) } if RENSA > 0 : RENSA -= 1 ;ÃÆ¤Î´Ö³Ö ;---²èÌ̳°È½Äê--- JK_TAMA_no = 10 ;¼«µ¡ÃƤθ¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat es_find JK_TAM_D, 2, JK_TAMA_no,30, 1 if JK_TAM_D < 0 : break es_get JK_TAM_D_y,JK_TAM_D,5 ;¼«µ¡ÃÆ£Ù if JK_TAM_D_y < 0 : es_kill JK_TAM_D ;¼«µ¡ÃÆ¡Úºï½ü¡Û JK_TAMA_no++ ;¼«µ¡ÃƤθ¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop return ;*************Ũ°ÜÆ°**************** *Ũ°ÜÆ° ;Ïȳ° (¢­¤Ë°ÜÆ°¤¹¤ë) TEKI_no = 80 ;Ũ¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat es_find TEKI_D, 8192, TEKI_no,190, 1 if TEKI_D < 0 : break es_get TEKI_pos_x,TEKI_D,3 ;ŨX es_get TEKI_pos_y,TEKI_D,5 ;ŨY es_apos TEKI_D, 0,1, 100 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë ;---ÏÈÆâ (type½ñ¤­´¹¤¨)--- if (TEKI_pos_x > 30) AND (TEKI_pos_y > 10) AND (TEKI_pos_x < 412) AND (TEKI_pos_y < 460) { es_get TEKI_flag,TEKI_D,0 ;Ũ¤ÎflagÃͤò¡Ö¼èÆÀ¡× es_type TEKI_D,4096 ;²èÌÌÆâ¤ÎtypeÃÍÀßÄê }TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop ;ÏÈÆâ (ÅÓÃæ°ÜÆ°) TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý repeat es_find TEKI_D, 4096, TEKI_no,190, 1 if TEKI_D < 0 : break es_get TEKI_pos_x,TEKI_D,3 ;ŨX es_get TEKI_pos_y,TEKI_D,5 ;ŨY if TEKI_pos_y >= 300 { es_apos TEKI_D, -1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢«¤Ë°ÜÆ°¤¹¤ë } ;---Åö¤¿¤êȽÄê--- es_check JKTM_VS_TEKI ,TEKI_D,2 if JKTM_VS_TEKI != -1 & TEKI_f(cnt) = 0 { TEKI_f(cnt) = 1 ;Ũ¥Õ¥é¥°¡ÚΩ¤Æ¤ë¡Û es_kill TEKI_D ;Ũ¡Úºï½ü¡Û es_kill JKTM_VS_TEKI;¼«µ¡ÃÆ¡Úºï½ü¡Û JK_HIT++ ;¥Ç¥Ð¥Ã¥°ÍÑ } ;---²èÌ̳°--- if (TEKI_pos_x < 30-18) or (TEKI_pos_y < 10-19) or (TEKI_pos_x > 412+18) or (TEKI_pos_y > 460+19) { es_kill TEKI_D ;Ũ¡Úºï½ü¡Û }TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop return ;*************¼«µ¡¥Û¡¼¥ß¥ó¥°**************** *¼«µ¡¥Û¡¼¥ß¥ó¥° if keyZ AND JK_HMIN_f = 0 { JK_HMIN_f = 1 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚΩ¤Æ¤ë¡Û JK_HMIN_x = double(JIKI_x) : JK_HMIN_y = double(JIKI_y) ;¼Â¿ôÃͤËÊÑ´¹ } if JK_HMIN_f = 1 { ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°Î©¤Ã¤Æ¤¿¤é¼Â¹Ô TEKI_no = 80 ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý kyori = 10000.0 ;¼«µ¡¤ÈŨ¤Îµ÷Î¥¤òÂåÆþ¤¹¤ëÊÑ¿ô¡ÊºÇ¤â¶á¤¤Å¨¤òõ¤¹¤¿¤á¤Ë½ÐÍè¤ë¤À¤±Â礭¤Ê¿ôÃͤòÆþ¤ì¤Æ¤ª¤¯¡Ë TEKI_HOMIN_no = -1 ;Ũ¤¬Á´°÷¤¤¤Ê¤«¤Ã¤¿»þ¤Ë¥Þ¥¤¥Ê¥¹ÃͤòÆþ¤ì¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥Û¡¼¥ß¥ó¥°¤¬ºÇ¸å¤ÎŨ¤Ë¹Ô¤«¤Ê¤¤¤è¤¦¤Ë¤¹¤ë repeat es_find TEKI_D, 4096, TEKI_no,190;²èÌÌÆâ¤ÎŨ¤òõ¤¹ if TEKI_D = -1 : break es_get JK_HMIN_TEKI_x,TEKI_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_no,5 ;Ũ£Ù if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { ;¼«µ¡¤ÈŨ¤Îµ÷Î¥ kyori_2 = sqrt((JIKI_x-JK_HMIN_TEKI_x)*(JIKI_x-JK_HMIN_TEKI_x) + (JIKI_y-JK_HMIN_TEKI_y)*(JIKI_y-JK_HMIN_TEKI_y));¥ë¡¼¥ÈÃͤòÊÖ¤¹ if kyori_2 < kyori { kyori = kyori_2 ;¶á¤¤Å¨¤Þ¤Ç¤Îµ÷Î¥¤ò¹¹¿· TEKI_HOMIN_no = TEKI_D ;¶á¤¤Å¨¤Î¥¹¥×¥é¥¤¥È­â¤ò¹¹¿· } }TEKI_no++ ;Ũ¤Î¸¡º÷³«»Ï¥Ê¥ó¥Ð¡Ý loop es_get JK_HMIN_TEKI_x,TEKI_HOMIN_no,3 ;Ũ£Ø es_get JK_HMIN_TEKI_y,TEKI_HOMIN_no,5 ;Ũ£Ù es_set 55, JK_HMIN_x+5,JK_HMIN_y , 55 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_type 55,256 angle = 0.0 ;³ÑÅÙ¤òÆþ¤ì¤ëÊÑ¿ô if TEKI_HOMIN_no != -1 { ;Ũ¤¬¤¤¤ë¾ì¹ç angle = atan(JK_HMIN_TEKI_y - JK_HMIN_y, JK_HMIN_TEKI_x - JK_HMIN_x-10) ;Ũ¤È¥Û¡¼¥ß¥ó¥°¤È¤Î³ÑÅÙ¤òµá¤á¤ë JK_HMIN_x += 8.0 * cos(angle) : JK_HMIN_y += 8.0 * sin(angle) ;ÃÆ®¤µ } else { ;Ũ¤¬¤¤¤Ê¤¤¾ì¹ç JK_HMIN_x += 8.0 * cos(deg2rad(270)) : JK_HMIN_y += 8.0 * sin(deg2rad(270));ÀµÌ̤˿¿¤Ãľ¤°¿Ê¤à } ;Åö¤¿¤êȽÄê if (JK_HMIN_TEKI_x > 30) AND (JK_HMIN_TEKI_y > 10) AND (JK_HMIN_TEKI_x < 412) AND (JK_HMIN_TEKI_y < 460) { es_check HMIN_VS_TEKI ,TEKI_HOMIN_no,256 if HMIN_VS_TEKI != -1 { JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¡Úºï½ü¡Û es_kill TEKI_HOMIN_no ;Ũ¡Úºï½ü¡Û es_kill HMIN_VS_TEKI;¥Û¡¼¥ß¥ó¥°¡Úºï½ü¡Û HMIN_HIT++ ;¥Ç¥Ð¥Ã¥°ÍÑ } } } ;²èÌ̳° es_get JK_HMIN_TEKI_x,55,3 ;¥Û¡¼¥ß¥ó¥°£Ø es_get JK_HMIN_TEKI_y,55,5 ;¥Û¡¼¥ß¥ó¥°£Ù if (JK_HMIN_TEKI_x < 30-17) or (JK_HMIN_TEKI_y < 10-19) or (JK_HMIN_TEKI_x > 412+17) or (JK_HMIN_TEKI_y > 460+19) { JK_HMIN_f = 0 ;¥Û¡¼¥ß¥ó¥°¥Õ¥é¥°¤ò¡ÚÌ᤹¡Û } return



¤¢¤é¤ä

¥ê¥ó¥¯

2020/9/25(Fri) 17:17:46|NO.91443

°ìöÁ´¤Æ´°À®¤µ¤»¤Æ¤«¤é¼Â¹Ô¤·¤Æ¤ß¤Æ½é¤á¤Æ¥Ð¥°¤¬¸«¤Ä¤«¤Ã¤¿¤ê¤¹¤ë¤Î¤Ç
²¿¤È¤â¸À¤¨¤Þ¤»¤ó¤¬¡£

¥Û¡¼¥ß¥ó¥°¤Ë´Ø¤·¤Æ
Ëè¥ë¡¼¥×°ìÈÖ¼«µ¡¤Ë¶á¤¤Å¨¤ò¥¿¡¼¥²¥Ã¥È¤Ë¤·¤Æ¤¤¤ë¤Î¤Ç
¼«µ¡¤âŨ¤âÆ°¤¤¤Æ¤¤¤ë¾ì¹ç¤Ë¤Ï
Ũ¤¬Â¿¤¤¤ÈÉÔ¼«Á³¤ÊÆ°¤­¤Ë¤Ê¤ë²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£

Â礲¤µ¤ÊÎ㡧
º¸Ã¼¤È±¦Ã¼¤ËŨ¤¬¤¤¤Æ¼«µ¡¤òº¸±¦¤ËÆ°¤«¤·¤¿»þ
ºÇ½é¤Ï²¾¤Ëº¸¤ÎŨ¤Ë¥Û¡¼¥ß¥ó¥°¤¬Èô¤ó¤Ç¹Ô¤¯¤È¤·¤Æ¡¢
¼«µ¡¤ò±¦¤ËÆ°¤«¤·¤¿¤éº¸¤Ë¿Ê¤ó¤Ç¤¤¤¿¥Û¡¼¥ß¥ó¥°¤¬ÆÍÁ³±¦¤ËÆ°¤­½Ð¤¹
¡Ê180ÅٿʤàÊý¸þ¤¬ÊѤï¤ë¡Ë¤Ê¤É¡£

¤³¤¦¤¤¤¦Æ°¤­¤ÏÉÔ¶ñ¹ç¤Ê¤Î¤«»ÅÍͤʤΤ«È½ÃǤ·¤Ë¤¯¤¤¤Î¤Ç¤¹¤¬¡¢
¾ì¹ç¤Ë¤è¤Ã¤Æ¤Ï¥Û¡¼¥ß¥ó¥°¤ÎÆ°¤­¤¬¤ª¤«¤·¤¯¸«¤¨¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/9/25(Fri) 19:02:25|NO.91444

¤¢¤é¤ä¤µ¤óÊÖÅú¤¢¤¨¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª


¤ä¤Ï¤ê¤½¤ó¤Ê´¶¤¸¤Ç¤·¤¿¤«¡¦¡¦¡¦
¼Â¤Ï¥á¥¤¥ó¥½¡¼¥¹¤Ë¤¤¤ì¤ÆµóÆ°¤¬¾¯¤·¤ª¤«¤·¤¤¤È¤³¤í¤¬¤¢¤ê¤Þ¤·¤¿¡£
¤³¤ì¤ò¥³¥ó¥È¥í¡¼¥ë¤¹¤ë¤Î¤ÏÆñ¤·¤½¤¦¤Ê¤Î¤Ç»ÅÍͤˤ·¤Á¤ã¤¤¤Þ¤·¤¿¤Í¡¦¡¦¡¦

¤Á¤Ê¤ß¤Ë¤ª¤Ã¤·¤ã¤ë¤È¤ª¤ê¤Î¾ìÌ̤ÇȯÀ¸¤·¤Þ¤¹¡£
º¸±¦¤«¤éŨ¤¬Ãæ¿´¤Ë¸þ¤«¤Ã¤Æ°ÜÆ°¤·¤Æ¤¤¤ëºÇÃæ¤Ë¥Û¡¼¥ß¥ó¥°¤ò¤¹¤ë¤È¡¢
¥Û¡¼¥ß¥ó¥°¤¬º¸±¦¤ËÆ°¤¯¤È¤­¤¬¤¢¤ê¤Þ¤¹¡£

¤³¤ì¤ÏŨ¤òÅݤ·¤¿¤ê¡¢¼«µ¡¤¬Æ°¤¤¤¿¤ê¡¢¼«µ¡ÃƤÇÅݤ»¤Ð¥Û¡¼¥ß¥ó¥°¤ÎÆ°ºî¤ËÂçÂÎÌá¤ê¤Þ¤¹¡£


¥á¥¤¥ó¥½¡¼¥¹´°À®¤¬¥ê¥×¥ì¥¤¤È¥Þ¡¼¥¸¤Î¤ß¤Ë¤Ê¤Ã¤¿¤Î¤Ç´°À®¤·¤¿¤é¤ß¤ó¤Ê¤Ë¥×¥ì¥¤¤·¤Æ¤Û¤·¤¤¤Ç¤¹¤Í¡ª
¤Þ¤¡¥Ü¥¹°Ê³°¤ò·ÚÎ̲½¤Ç¤¹¤¬¡ª¡ª¡ª
¥á¥¤¥ó¤Ë¤Ê¤Ã¤¿¤éÅÔÅÙ²ò·è¤¹¤ëÊý¿Ë¤Ç²ò·è¤Ë¤·¤Æ¤ª¤­¤Þ¤¹¡£
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª



ONION software Copyright 1997-2023(c) All rights reserved.