|
| ̤²ò·è |
| ²ò·è |
| Ää»ß |
| ºï½üÍ×ÀÁ |
|
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
¤¢¤é¤ä¤µ¤óÊÖÅú¤¢¤¨¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª
¤ä¤Ï¤ê¤½¤ó¤Ê´¶¤¸¤Ç¤·¤¿¤«¡¦¡¦¡¦
¼Â¤Ï¥á¥¤¥ó¥½¡¼¥¹¤Ë¤¤¤ì¤ÆµóÆ°¤¬¾¯¤·¤ª¤«¤·¤¤¤È¤³¤í¤¬¤¢¤ê¤Þ¤·¤¿¡£
¤³¤ì¤ò¥³¥ó¥È¥í¡¼¥ë¤¹¤ë¤Î¤ÏÆñ¤·¤½¤¦¤Ê¤Î¤Ç»ÅÍͤˤ·¤Á¤ã¤¤¤Þ¤·¤¿¤Í¡¦¡¦¡¦
¤Á¤Ê¤ß¤Ë¤ª¤Ã¤·¤ã¤ë¤È¤ª¤ê¤Î¾ìÌ̤ÇȯÀ¸¤·¤Þ¤¹¡£
º¸±¦¤«¤éŨ¤¬Ãæ¿´¤Ë¸þ¤«¤Ã¤Æ°ÜÆ°¤·¤Æ¤¤¤ëºÇÃæ¤Ë¥Û¡¼¥ß¥ó¥°¤ò¤¹¤ë¤È¡¢
¥Û¡¼¥ß¥ó¥°¤¬º¸±¦¤ËÆ°¤¯¤È¤¤¬¤¢¤ê¤Þ¤¹¡£
¤³¤ì¤ÏŨ¤òÅݤ·¤¿¤ê¡¢¼«µ¡¤¬Æ°¤¤¤¿¤ê¡¢¼«µ¡ÃƤÇÅݤ»¤Ð¥Û¡¼¥ß¥ó¥°¤ÎÆ°ºî¤ËÂçÂÎÌá¤ê¤Þ¤¹¡£
¥á¥¤¥ó¥½¡¼¥¹´°À®¤¬¥ê¥×¥ì¥¤¤È¥Þ¡¼¥¸¤Î¤ß¤Ë¤Ê¤Ã¤¿¤Î¤Ç´°À®¤·¤¿¤é¤ß¤ó¤Ê¤Ë¥×¥ì¥¤¤·¤Æ¤Û¤·¤¤¤Ç¤¹¤Í¡ª
¤Þ¤¡¥Ü¥¹°Ê³°¤ò·ÚÎ̲½¤Ç¤¹¤¬¡ª¡ª¡ª
¥á¥¤¥ó¤Ë¤Ê¤Ã¤¿¤éÅÔÅÙ²ò·è¤¹¤ëÊý¿Ë¤Ç²ò·è¤Ë¤·¤Æ¤ª¤¤Þ¤¹¡£
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª
|
|