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


HSPTV!·Ç¼¨ÈÄ


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

2020
1103
¥¢¥¤¥É¥ë¡Úhspdxfix.as¡ÛŨÃƤˤ¯¤Ã¤Ä¤¯ÊªÂÎ(¥°¥ì¥¤¥º)¤Î½èÍý¤ò£±¤Ä¤Ë¤Þ¤È¤á¤¿¤¤12²ò·è


¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/3(Tue) 19:32:26|NO.91731

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


ʪÂΤȰì½ï¤Ë¤Ä¤¤¤Æ¤¤¤¯ÊªÂΡʰʲ¼¥°¥ì¥¤¥º)(ÅìÊýProject¤ÈƱ¤¸¥°¥ì¥¤¥º¡Ë¤Î¼ÁÌä¤Ç¤¹¡£

¥°¥ì¥¤¥º½èÍý¤Ï¤É¤ó¤ÊÃƤÀ¤í¤¦¤ÈƱ¤¸½èÍý¤Î¤¿¤á¤Þ¤È¤á¤è¤¦¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
¤Ã¤Æ¤¤¤¦¤Î¤âÃƤμïÎब¡ÖŨ¡Ê£²¼ïÎà¡Ë¡¢¥Ü¥¹¡Ê10¼ïÎर¤é¤¤¡Ë¡×¤Ã¤ÈÈîÂç²½¤·¤Æ¤­¤Æ¤·¤Þ¤¤¡¢
¥°¥ì¥¤¥º¤òÊÌ¡¹¤Ç½èÍý¤¹¤ë¤Î¤¬¸úΨ°­¤¤¤È»×¤Ã¤¿¤«¤é¤Ç¤¹¡£

¤è¤¯¤ï¤«¤é¤Ê¤¤¤È»×¤¦¤Î¤Ç¡¢¥½¡¼¥¹¼Â¹Ô¤·¤¿¤Û¤¦¤¬Áᤤ¤È»×¤¤¤Þ¤¹¡£
²þÎɰƤϣ²¤Ä°Æ¤¬¤¢¤ê¤Þ¤¹¡£


¡¡¢¥°Æ£±¢¥¡Ê;---¿·¤·¤¤¤Î---¡Ë
ÃƤξðÊó¤ò°Ê²¼¤Î¤è¤¦¤Ë¼è¤Ã¤Æ¤­¤Ægosub¤¹¤ë

es_find SIKAKUI_D, 32, SIKAKUI_no,2020 TAMA_no = SIKAKUI_D ;¥°¥ì¥¤¥ºÂåÆþ gosub *¥°¥ì¥¤¥º½èÍý
*¥°¥ì¥¤¥º½èÍý¤ËÈô¤ó¤ÇÍ褿¤é¡Öes_get¡×¤ÇÃƤκÂɸ¤ò¼è¤Ã¤Æ¤­¤Æ¡Öes_exnew¡×¤¹¤ë¡£
¡¡¢ª¤³¤Î¤ä¤êÊý¤À¤ÈÃƤ¬½Ð¤µ¤ì¤¿ºÂɸ¤ËÃÖ¤«¤ì¤ë¤À¤±¤Ç¡¢ÃƤÈƱ¤¸ºÂɸ¤ò°ÜÆ°¤·¤Ê¤¤

¡¡¢¥°Æ£²¢¥¡Ê;---°ÊÁ°¤Î---¡Ë
SIKAKU_no = 2000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO
¤Î¤È¤³¤í¤Ç±ß·Á¥¹¥×¥é¥¤¥È¡Ö3000¡×¤Ç¤â°ì½ï¤ËÄ´¤Ù¤é¤ì¤ë¤è¤¦¤Ë¤¹¤ë¡£
¡Ö2000¤È3000¡×¤òÄ´¤Ù¤ë¤À¤±¤Ë¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤³¤Ã¤Á¤Î¤Û¤¦¤¬´Êñ¤«¤â¤·¤ì¤Ê¤¤¡£
ÃƤμïÎबÁý¤¨¤Æ¤âÄɲ乤ë¤À¤±¡£
¡¡¢ª¤½¤Î¤ä¤êÊý¤¬¥¤¥Þ¥¤¥Á»×¤¤É⤫¤Ð¤Ê¤¤¡ª¡ª

¡¡¢£»ÅÍÍ¢£
1.¥°¥ì¥¤¥º¤ÏŨÃƤÈƱ¤¸ºÂɸ
2.Ʊ¤¸ºÂɸ¤Ê¤Î¤ÇÃƤÈƱ¤¸Êý¸þ¤Ë°ÜÆ°¤¹¤ë

¡¡¢­¡Öº£²ó¤Ï´Ø·¸¤Ê¤¤¤Î¤Ç½èÍý̵¤·¡×¤Ç¤¹¤¬¡¢¥°¥ì¥¤¥º¤¬¤É¤¦¤¤¤¦Êª¤Ê¤Î¤«µ­ºÜ¢­
3.¥°¥ì¥¤¥º¤Ï¼«µ¡¤ÈÀÜ¿¨¤¹¤ë¤ÈÅÀ¿ô¤¬²Ã»»
4.¥°¥ì¥¤¥º¤ÏŨÃƤ¬²èÌÌÆâ¤Ë¤¢¤ë¸Â¤ê¡¢£±ÃƤˤĤ­£±²ó¤·¤«È¯À¸¤·¤Ê¤¤
5.¥°¥ì¥¤¥º¤ÏŨÃƤ¬²èÌ̳°¤Ë¹Ô¤Ã¤¿¤é¡¢¤½¤Î²èÌ̳°¤Ë¹Ô¤Ã¤¿ÃƤ¬È¯¼Í¤µ¤ì¤ì¤ÐÉü³è¤¹¤ë


¥Ü¥¹¤ÎÃÆ¥¹¥×¥é¥¤¥È¤Ï¡¢¥Ü¥¹¤´¤È¤ËÎ¥¤·¤ÆºîÀ®¤¹¤ë²ÄǽÀ­¤¬¹â¤¤¤Î¤Ç¡¢Ï¢È֤ǴÉÍý¤¹¤ë¤Ã¤Æ¤¤¤¦¤Î¤Ï¤Ê¤·¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡¦¡¦

#include "hspogg.as";²»¤Î¤¿¤á¤ËÆþ¤ì¤ë #include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 9000,9000,360;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,498 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê buffer 2 ; picload "G_sisu-2.bmp" ;¥²¡¼¥àÃæ¤Î¥·¥¹¥Æ¥à²èÁü es_buffer 2,,$00ff00,,1 ;¥°¥ì¥¤¥º es_size 5,30, 50 ;ËÜÍè¤Ï59,59¤Î¥µ¥¤¥º es_pat 5000, 0,632 ;---¥Ü¥¹--- buffer 7 ; picload "yakumo.bmp" es_buffer 7,,$00ff00,,1 ;»Í³Ñ es_size 9,18, 50 es_pat 2000, 0,0 ;±ß·Á es_size 21,21, 50 es_pat 3000, 37,0 gsel 0,1 SIKAKUAI_MAX = 20 ;»Í³Ñ EN_MAX = 10 ;±ß·Á ;************¥á¥¤¥ó¥ë¡¼¥×*************** *¥á¥¤¥ó es_cls es_draw ;*************¥«¥¦¥ó¥¿¡¼**************** pos 500,50 : es_mes " " + SATI ;************************************** gosub *¥Ü¥¹½èÍý es_sync ;²èÌ̹¹¿· await 16 goto *¥á¥¤¥ó ;***************¥Ü¥¹½èÍý*************** *¥Ü¥¹½èÍý repeat SIKAKUAI_MAX ;20 TUGI = cnt ;Á÷¤ë¤¿¤á¤ËÂåÆþ¤¹¤ë es_exnew SIKAKU,2000,2020 if SIKAKU = -1 : break es_set SIKAKU, 200,TUGI*40-400, 2000 es_apos SIKAKU, 0,1, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type SIKAKU, 32 loop ;±ß·Á repeat EN_MAX ;10 es_exnew EN ,3000,3010 if EN = -1 : break es_set EN, 100,100, 3000 es_apos EN, 0,1, 100 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 loop ;---¥°¥ì¥¤¥º½àÈ÷--- ;»Í³Ñ SIKAKUI_no = 2000 repeat SIKAKUAI_MAX ;20 es_find SIKAKUI_D, 32, SIKAKUI_no,2020 TAMA_no = SIKAKUI_D ;¥°¥ì¥¤¥ºÂåÆþ gosub *¥°¥ì¥¤¥º½èÍý SIKAKUI_no++ loop ;±ß·Á /* EN_no = 3000 repeat SIKAKUAI_MAX ;10 es_find EN_D, 32, EN_no,3010 TAMA_no = EN_D ;¥°¥ì¥¤¥ºÂåÆþ gosub *¥°¥ì¥¤¥º½èÍý EN_no++ loop */ return ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý /* ;---¿·¤·¤¤¤Î--- es_get GURE_x,TAMA_no,3 ;ÃƣغÂɸ es_get GURE_y,TAMA_no,5 ;ÃÆ£ÙºÂɸ es_exnew GURE_no, 5000,5500 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò es_set GURE_no, GURE_x-25,GURE_y-21, 5000 } */ ;---°ÊÁ°¤Î--- SIKAKU_no = 2000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat SIKAKUAI_MAX ;30 es_get GURE_x(cnt),SIKAKU_no,3 ;ÃƣغÂɸ es_get GURE_y(cnt),SIKAKU_no,5 ;ÃÆ£ÙºÂɸ es_get GURE_MV_x(cnt),SIKAKU_no,7 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ø es_get GURE_MV_y(cnt),SIKAKU_no,9 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ù if GURE_x(cnt) = 0 AND GURE_y(cnt) = 0 : continue ;ÃƤκÂɸ¤¬¼è¤ì¤Ê¤¤¤È¤­¤Ï¥ë¡¼¥×¤·¤Ê¤ª¤¹ es_set GURE_no, GURE_x(cnt)-25+GURE_MV_x(cnt), GURE_y(cnt)-21+GURE_MV_y(cnt), 5000 SIKAKU_no++ ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO loop return



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


¤¢¤é¤ä

¥ê¥ó¥¯

2020/11/8(Sun) 03:01:16|NO.91766

¿½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢
¥½¡¼¥¹¤ò¼Â¹Ô¤·¤Æ¤â¤ä¤ê¤¿¤¤¤³¤È¤¬¥¤¥Þ¥¤¥Á¤ï¤«¤ê¤Þ¤»¤ó¡£¡£¡£

¤ª¤½¤é¤¯¥½¡¼¥¹¤ò¼Â¹Ô¤·¤¿»þ¤Ëɽ¼¨¤µ¤ì¤ë¥¹¥×¥é¥¤¥È¤Ï
Á´¤ÆŨÃƤʤó¤À¤È»×¤¤¤Þ¤¹¤¬
¼Â¹Ô¤·¤Æ¤âÁ´¤Æ»Í³Ñ·Á¤Ê¤Î¤Ç¡¢±ß·Á¤È¤Ï¤Ê¤ó¤Ê¤Î¤«¡Ä¡Ä

¥¹¥×¥é¥¤¥È¤ò¥»¥Ã¥È¤¹¤ë½èÍý¡Êes_set¡Ë¤ò£±¤Ä¤Ë¤Þ¤È¤á¤¿¤¤¤Î¤«
¤½¤ì¤È¤âÀÜ¿¨È½Äê¤ò¤Þ¤È¤á¤¿¤¤¤Î¤«
¥»¥Ã¥È¤ÈÀÜ¿¨È½Äê¤ÎξÊý¤Ê¤Î¤«

¤â¤¦¾¯¤·¾Ü¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/8(Sun) 11:40:22|NO.91767

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

¤ä¤Ï¤ê¤ï¤«¤ê¤º¤é¤«¤Ã¤¿¤Ç¤¹¤è¤Í¡¦¡¦
¤ï¤«¤ê¤º¤é¤¤¤È»×¤¦¤Î¤Ç²èÁü¤òÍÑ°Õ¤·¤Þ¤·¤¿¡£¡Ê¥Ñ¥¹¤Ï¡Öhsp¡×¤Ç¤¹¡Ë
https://ux.getuploader.com/UGI_55/download/57


AÃÆ¡¢BÃƤäƤ¤¤¦¼ïÎब°ã¤¦ÃƤ¬¤¢¤Ã¤Æ¡¢¤½¤ì¤¾¤ìÊ̽èÍý¤Çºî¤Ã¤Æ¤¤¤Þ¤¹¡£
¤½¤ÎÃƤˤ¯¤Ã¤Ä¤¤¤Æ¤¤¤ë¥°¥ì¥¤¥º¤Î½èÍý¤âÊÌ¡¹¤Çºî¤Ã¤Æ¤Þ¤·¤¿¡£

AÃÆ+¥°¥ì¥¤¥º
BÃÆ+¥°¥ì¥¤¥º
¥½¡¼¥¹¤Ë¤¹¤ë¤È¤³¤ó¤Ê´¶¤¸¤Ç¤¹¡£

;AÃÆ¡Ê»Í³Ñ¡Ë SIKAKU_no = 2000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat SIKAKUAI_MAX ;30 es_get GURE_x(cnt),SIKAKU_no,3 ;ÃƣغÂɸ es_get GURE_y(cnt),SIKAKU_no,5 ;ÃÆ£ÙºÂɸ es_get GURE_MV_x(cnt),SIKAKU_no,7 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ø es_get GURE_MV_y(cnt),SIKAKU_no,9 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ù if GURE_x(cnt) = 0 AND GURE_y(cnt) = 0 : continue ;ÃƤκÂɸ¤¬¼è¤ì¤Ê¤¤¤È¤­¤Ï¥ë¡¼¥×¤·¤Ê¤ª¤¹ es_set GURE_no, GURE_x(cnt)-25+GURE_MV_x(cnt), GURE_y(cnt)-21+GURE_MV_y(cnt), 5000 SIKAKU_no++ ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO loop ;BÃơʱ߷Á¡Ë SIKAKU_no = 3000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no = 5100 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat SIKAKUAI_MAX ;30 es_get GURE_x(cnt),SIKAKU_no,3 ;ÃƣغÂɸ es_get GURE_y(cnt),SIKAKU_no,5 ;ÃÆ£ÙºÂɸ es_get GURE_MV_x(cnt),SIKAKU_no,7 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ø es_get GURE_MV_y(cnt),SIKAKU_no,9 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ù if GURE_x(cnt) = 0 AND GURE_y(cnt) = 0 : continue ;ÃƤκÂɸ¤¬¼è¤ì¤Ê¤¤¤È¤­¤Ï¥ë¡¼¥×¤·¤Ê¤ª¤¹ es_set GURE_no, GURE_x(cnt)-25+GURE_MV_x(cnt), GURE_y(cnt)-21+GURE_MV_y(cnt), 5000 SIKAKU_no++ ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO loop
¤³¤ì¤À¤ÈÃƤμïÎबÁý¤¨¤ë¤¿¤Ó¤Ë½èÍý¤ò½ñ¤¯¤Ï¤á¤Ë¤Ê¤ë¤Î¤Ç¡¢¥°¥ì¥¤¥º¤ò¶¦Ä̽èÍý¤Ë¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£

>>¥¹¥×¥é¥¤¥È¤ò¥»¥Ã¥È¤¹¤ë½èÍý¡Êes_set¡Ë¤ò£±¤Ä¤Ë¤Þ¤È¤á¤¿¤¤¤Î¤«
¤Þ¤µ¤Ë¤³¤ì¤Ç¤¹¡£
¿ʬ¤¹¤´¤¯Ã±½ã¤Ê½èÍý¤Ç¤¤¤±¤½¤¦¤Êµ¤¤¬¤¹¤ë¤ó¤À¤±¤É¡¢¤Ê¤Ë¤â»×¤¤É⤫¤Ð¤Ê¤¤¤Î¤Ç¤¹¡¦¡¦¡¦



¤¢¤é¤ä

¥ê¥ó¥¯

2020/11/8(Sun) 18:02:08|NO.91768

°ÊÁ°¤Î¼ÁÌä¤Ç¤É¤Ê¤¿¤«¤¬¸À¤Ã¤Æ¤¤¤¿¤è¤¦¤Êµ¤¤¬¤·¤Þ¤¹¤¬¡Ä¡Ä
ÃƤϼ«Æ°°ÜÆ°¤Ê¤Î¤ËÂФ·¤Æ¡¢
¥°¥ì¥¤¥º¤ÏËè¥ë¡¼¥×°ÌÃÖ¤òÄ´Àá¤È¤¤¤¦¤Î¤Ï¸úΨ¤¬°­¤¤¤Î¤Ç
¥°¥ì¥¤¥º¤âÃƤò¥»¥Ã¥È¤·¤¿»þ¤ËƱ¤¸Â®ÅÙ¡õ¸þ¤­¤Ç¥»¥Ã¥È¤·¤Æ¤Ï¤¤¤«¤¬¤Ç¤·¤ç¤¦¤«¡£


// Îã // ŨÃƤò¥»¥Ã¥È¤¹¤ë es_set EN, 100,100, 3000 es_apos EN, 0,1, 100 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 // Á´¤¯Æ±¤¸Æ°¤­¤Ç¥°¥ì¥¤¥º¤â¥»¥Ã¥È¡¡¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥ÈÈÖ¹æ¤Ï¾ï¤ËÃÆ+3000¡Ê²¾¡Ë es_set EN+3000, 100,100, 5000; ºÂɸ¤ÏÃƤȥ°¥ì¥¤¥º¤Î¥µ¥¤¥ºº¹¤Ë¹ç¤ï¤»¤ÆÄ´À°¤¬É¬Í× es_apos EN+3000, 0,1, 100 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type EN+3000, 32

¤¢¤¯¤Þ¤Ç¤â°ìÎã¤Ç¤¹¤¬¡¢
¤³¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¥°¥ì¥¤¥º¤ËÀÜ¿¨¤·¤¿¾ì¹ç
¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥ÈÈÖ¹æ-3000¤¬ÃƤΥ¹¥×¥é¥¤¥ÈÈÖ¹æ¤Ë¤Ê¤ë¤Î¤Ç
-3000¤Î¥¹¥×¥é¥¤¥ÈÈֹ椬¼«µ¡¤ÈÀÜ¿¨¤·¤Æ¤¤¤Ê¤¤¤«¤Ê¤É³Îǧ¤¬Íưפˤʤ뤫¤È¡£

¤¢¤È¤ÏÃƤμïÎà¤ËÈÖ¹æ¤òÉÕ¤±¤ÆÇÛÎó¤Ç´ÉÍý¤¹¤ë¤Ê¤É¤Î¼êË¡¤ò»È¤¨¤Ð
¥°¥ì¥¤¥º¤Î´ÉÍý¤â³Ú¤Ë¤Ê¤ë¤«¤È»×¤¤¤Þ¤¹¡£

ÃƤμïÎàÈÖ¹æ1¤Ê¤é¤Ð¡¢¥°¥ì¥¤¥º¤Î¼ïÎà¤Ï±ß·Á
ÃƤμïÎब2¤Ê¤é¤Ð¡¢¥°¥ì¥¤¥º¤Ï»Í³Ñ·Á
¤Ê¤É¤Ê¤É¡Ä¡Ä

ÃƤÎÂ礭¤µ¤È¥°¥ì¥¤¥º¤ÎÂ礭¤µ¤Îº¹¤Ê¤É¤À¤Ã¤¿¤ê
¥­¥ã¥é¥¯¥¿ÈÖ¹æ¤Ê¤É¤âÇÛÎó¤ËÆþ¤ì¤Æ¤·¤Þ¤¨¤Ð
ÃƤμïÎà¤Ë´Ø·¸¤Ê¤¯¤ª¤ª¤è¤½Æ±¤¸½èÍý¤Ë¤Þ¤È¤á¤é¤ì¤ë¤«¤È»×¤¤¤Þ¤¹¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/10(Tue) 23:23:15|NO.91777

¤¢¤é¤ä¤µ¤ó¡¢ºÆÅÙ¤ªÊÖ»ö¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤¢¤ï¤ï¤ï¤ï¡£ºÇ¶á¤ä¤ë²Ë¤¬¤Ê¤¤¤»¤¤¤«¤É¤Ã¤«¤Ç»÷¤¿¤è¤¦¤Ê¤³¤È¤¬¤¢¤Ã¤¿¤é¿½¤·Ìõ¤Ê¤¤¡¦¡¦¡¦
¡ÊºÇ¶áñ½ã¤Ê¥ß¥¹¤â¿¤¤¤·¤ä¤Ð¤¤¡Ë


»²¹Í¤Ë¤·¤Æ¤ä¤Ã¤Æ¤ß¤Æ¤³¤ó¤Ê´¶¤¸¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
Î㤨¤Ð¡¢²¼¤ËÆ°¤¯¤â¤Î¤òA¥¿¥¤¥×¤È¤·¡¢±¦¤ËÆ°¤¯Êª¤ò¥¿¥¤¥×B¤Ë¤·¤Þ¤·¤¿¡Ê¡ÖTYPE¡×ÊÑ¿ô¤òÄɲáË
¤³¤ì¤Ê¤é¤Ð¼«µ¡ÁÀ¤¤¤ÏC¥¿¥¤¥×¡¢Ê̤ÎÃƤÏD¥¿¥¤¥×¡¦¡¦¡¦ect¤Ã¤Æ½ÐÍè¤Þ¤¹¤Í¡£
¤³¤ì¤Ê¤é¥°¥ì¥¤¥º¤ÎÆ°¤­¤Ë¤è¤ë¥Ç¥Ð¥Ã¥¯¤¬¤½¤ó¤ÊȯÀ¸¤·¤Ê¤¤¤«¤Ê¡£

¤Á¤Ê¤ß¤Ë¤¤¤¤Ëº¤ì¤Æ¤Þ¤·¤¿¤¬¥°¥ì¥¤¥º¤Ï¥æ¡¼¥¶¡¼¤Ë¸«¤¨¤Ê¤¤Í×ÁǤǤ¹¡¦¡¦¡¦
¤È¤ê¤Þ¿§¡¹¤ä¤Ã¤Æ¤ß¤Æ²þÎɰƤʤɤ¬É⤫¤Ó¤½¤¦¤Ê¤Î¤Ç¡¢°ìö¤ªÊÖ»ö¤Ë¤Ê¤ê¤Þ¤¹¡£

#include "hspogg.as";²»¤Î¤¿¤á¤ËÆþ¤ì¤ë #include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 9000,9000,360;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,498 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê buffer 2 picload "G_sisu_¼ÁÌäÍÑ.bmp" ;¥²¡¼¥àÃæ¤Î¥·¥¹¥Æ¥à²èÁü es_buffer 2,,$00ff00,,1 ;¥°¥ì¥¤¥º es_size 59,59, 50 es_pat 5000, 0,0 ;---¥Ü¥¹--- buffer 7 picload "yakumo_¼ÁÌäÍÑ.bmp" es_buffer 7,,$00ff00,,1 ;»Í³Ñ es_size 13,15, 50 es_pat 2000, 0,0 ;±ß·Á es_size 21,21, 50 es_pat 3000, 14,0 gsel 0,1 SIKAKUAI_MAX = 5 ;»Í³Ñ EN_MAX = 5 ;±ß·Á ;************¥á¥¤¥ó¥ë¡¼¥×*************** *¥á¥¤¥ó es_cls es_draw ;*************¥«¥¦¥ó¥¿¡¼**************** pos 500,50 : es_mes " " + SATI ;************************************** gosub *¥Ü¥¹½èÍý es_sync ;²èÌ̹¹¿· await 16 goto *¥á¥¤¥ó ;***************¥Ü¥¹½èÍý*************** *¥Ü¥¹½èÍý ;»Í³Ñ(A¥Ñ¥¿¡¼¥ó) repeat SIKAKUAI_MAX ;5 TUGI = cnt ;Á÷¤ë¤¿¤á¤ËÂåÆþ¤¹¤ë es_exnew SIKAKU,2000,2004 if SIKAKU = -1 : break es_set SIKAKU, 100+cnt*60,TUGI*80-100, 2000 es_apos SIKAKU, 0,1, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type SIKAKU, 32 loop ;±ß·Á(B¥Ñ¥¿¡¼¥ó) repeat EN_MAX ;5 es_exnew EN ,3000,3004 if EN = -1 : break es_set EN, 100,100, 3000 es_apos EN, 1,0, 100 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 loop ;---¥°¥ì¥¤¥º½àÈ÷--- ;»Í³Ñ(A¥Ñ¥¿¡¼¥ó) SIKAKUI_no = 2000 repeat SIKAKUAI_MAX ;5 es_find SIKAKUI_D, 32, SIKAKUI_no,2020 TAMA_no = SIKAKUI_D ;¥°¥ì¥¤¥ºÂåÆþ TYPE = 1 ;A¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý SIKAKUI_no++ loop ;±ß·Á(B¥Ñ¥¿¡¼¥ó) EN_no = 3000 repeat SIKAKUAI_MAX ;5 es_find EN_D, 32, EN_no,3010 TAMA_no = EN_D ;¥°¥ì¥¤¥ºÂåÆþ TYPE = 2 ;B¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý EN_no++ loop return ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý ;---½¤Àµ¸å---- es_get GURE_x,TAMA_no,3 ;ÃƣغÂɸ es_get GURE_y,TAMA_no,5 ;ÃÆ£ÙºÂɸ es_exnew GURE_no, 5000,5500 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò ;A¥¿¥¤¥×(ÂåÆþ¤«ÇÛÎó¤Ç¿ôÃͤòÊѤ¨¤Æ¤â¤¤¤¤¤±¤É¡¢¤È¤ê¤¢¤¨¤º²Ä»ë²½Í¥Àè) if TYPE = 1 : es_set GURE_no, GURE_x-25,GURE_y-21, 5000 if TYPE = 1 : es_apos GURE_no, 0,1, 200 ;B¥¿¥¤¥× if TYPE = 2 : es_set GURE_no, GURE_x-18,GURE_y-21, 5000 if TYPE = 2 : es_apos GURE_no, 1,0, 100 } /* ;---¿·¤·¤¤¤Î--- es_get GURE_x,TAMA_no,3 ;ÃƣغÂɸ es_get GURE_y,TAMA_no,5 ;ÃÆ£ÙºÂɸ es_exnew GURE_no, 5000,5500 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò es_set GURE_no, GURE_x-25,GURE_y-21, 5000 } */ ;---°ÊÁ°¤Î--- /* SIKAKU_no = 2000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat SIKAKUAI_MAX ;5 es_get GURE_x(cnt),SIKAKU_no,3 ;ÃƣغÂɸ es_get GURE_y(cnt),SIKAKU_no,5 ;ÃÆ£ÙºÂɸ es_get GURE_MV_x(cnt),SIKAKU_no,7 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ø es_get GURE_MV_y(cnt),SIKAKU_no,9 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ù if GURE_x(cnt) = 0 AND GURE_y(cnt) = 0 : continue ;ÃƤκÂɸ¤¬¼è¤ì¤Ê¤¤¤È¤­¤Ï¥ë¡¼¥×¤·¤Ê¤ª¤¹ es_set GURE_no, GURE_x(cnt)-25+GURE_MV_x(cnt), GURE_y(cnt)-21+GURE_MV_y(cnt), 5000 SIKAKU_no++ ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO loop SIKAKU_no = 3000 ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no = 5100 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO repeat EN_MAX ;5 es_get GURE_x(cnt),SIKAKU_no,3 ;ÃƣغÂɸ es_get GURE_y(cnt),SIKAKU_no,5 ;ÃÆ£ÙºÂɸ es_get GURE_MV_x(cnt),SIKAKU_no,7 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ø es_get GURE_MV_y(cnt),SIKAKU_no,9 ;1¥Õ¥ì¡¼¥à¤Ë°ÜÆ°¤¹¤ëµ÷Î¥£Ù if GURE_x(cnt) = 0 AND GURE_y(cnt) = 0 : continue ;ÃƤκÂɸ¤¬¼è¤ì¤Ê¤¤¤È¤­¤Ï¥ë¡¼¥×¤·¤Ê¤ª¤¹ es_set GURE_no, GURE_x(cnt)-25+GURE_MV_x(cnt), GURE_y(cnt)-21+GURE_MV_y(cnt), 5000 SIKAKU_no++ ;ÃƤΥ¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»ÏNO loop */ return



¤¢¤é¤ä

¥ê¥ó¥¯

2020/11/12(Thu) 07:36:37|NO.91787

¤¿¤Ö¤ó¤ï¤«¤Ã¤Æ¤¤¤ë¤Ç¤¢¤í¤¦»ö¤Ç¤¹¤¬¡¢Ç°¤Î¤¿¤á»ØŦ¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£

¡¦ºÇ½é¤Î¥½¡¼¥¹¤â¤½¤¦¤Ç¤·¤¿¤¬
¡¡±ß·Á(B¥Ñ¥¿¡¼¥ó)¤Î¥Ü¥¹¡ÊÃÆ¡©¡Ë¤¬5¤Ä¤¢¤ë¤Î¤ËºÂɸ¤ò½¤Àµ¤·¤Æ¤¤¤Ê¤¤¤¿¤á
¡¡½Å¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ1¤Ä¤Ë¸«¤¨¤ë¤Î¤Ï»ÅÍͤǤ·¤ç¤¦¤«¡©



¡¦²£¤Ë°ÜÆ°¤·¤Æ¤¤¤ëÃƤϲèÌ̳°¤Î½èÍý¤ò¼«Æ°¤Ë¤·¤Æ¤¤¤ë¤Î¤Ç
¡¡ÃƤȥ°¥ì¥¤¥º¤Î¾ÃÌǤȽи½¤¬¥µ¥¤¥º°ã¤¤¤Î¤»¤¤¤Ç¥º¥ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¤Í¡£



¡¦Æ±¤¸¾ò·ï¤Îifʸ¤òÊ£¿ô½ñ¤¯¤Î¤Ç¤Ï¤Ê¤¯¥«¥Ã¥³¤Ç¤Þ¤È¤á¤¿Êý¤¬¾¯¤·¸úΨ¤¬Îɤ¯¤Ê¤ë¤«¤È¡£
>if TYPE = 1 : es_set GURE_no, GURE_x-25,GURE_y-21, 5000
>if TYPE = 1 : es_apos GURE_no, 0,1, 200

if TYPE = 1 { es_set GURE_no, GURE_x-25,GURE_y-21, 5000 es_apos GURE_no, 0,1, 200 }



¡¦ÃƤΥ롼¥×¤È¥°¥ì¥¤¥º¤Î¥ë¡¼¥×¤òʬ³ä¤·¤Æ¤¤¤Þ¤¹¤¬
¡¡ÃƤΥ롼¥×¤ÎÃæ¤Ë¥°¥ì¥¤¥º¤â´Þ¤á¤ì¤Ðñ½ã¤Ë¥ë¡¼¥×²ó¿ô¤¬È¾Ê¬¤Ë¤Ê¤Ã¤Æ¸úΨŪ¤«¤È»×¤¤¤Þ¤¹¡£


°Ê¾å¤Ç¤¹¡£
¤É¤ì¤â¥Ñ¥Ã¤È¸«¤Æ¾¯¤·µ¿Ìä¤Ë»×¤Ã¤¿¤È¤³¤í¤òÎóµó¤·¤¿¤À¤±¤Ê¤Î¤Ç
½¤Àµ¤¹¤ë¤ÈµÕ¤ËµóÆ°¤¬¤ª¤«¤·¤¯¤Ê¤ë¤È¤«¡¢¤à¤·¤í¸úΨ¤¬°­¤¯¤Ê¤ë¤Ê¤É¤Ç¤·¤¿¤é
̵»ë¤·¤Æ¤¤¤¿¤À¤¤¤Æ¹½¤¤¤Þ¤»¤ó¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/15(Sun) 09:32:19|NO.91800

¤¢¤ä¤é¤µ¤ó¡¢¤ªÊÖ»öÃÙ¤ì¤Á¤ã¤Ã¤Æ¤¹¤¤¤Þ¤»¤ó¡£


>>¡¦ºÇ½é¤Î¥½¡¼¥¹¤â¤½¤¦¤Ç¤·¤¿¤¬
½¤Àµ¤¹¤ë¤Î¤ò˺¤ì¤Æ¤Þ¤·¤¿¡¦¡¦¡¦

>>¡¦²£¤Ë°ÜÆ°¤·¤Æ¤¤¤ëÃƤϲèÌ̳°¤Î½èÍý¤ò¼«Æ°¤Ë¤·¤Æ¤¤¤ë¤Î¤Ç
¥ß¥Ë¥½¡¼¥¹¤Ç;·×¤Ê¤â¤Î¤òÆþ¤ì¤Ê¤¤¤Û¤¦¤¬¤¤¤¤¤È»×¤Ã¤Æ¤¿¤Î¤Ç¡¢¼«Æ°¤Ë¤Ê¤Ã¤Æ¤Þ¤¹

>>¡¦Æ±¤¸¾ò·ï¤Îifʸ¤òÊ£¿ô½ñ¤¯¤Î¤Ç¤Ï¤Ê¤¯¥«¥Ã¥³¤Ç¤Þ¤È¤á¤¿Êý¤¬¾¯¤·¸úΨ¤¬Îɤ¯¤Ê¤ë¤«¤È¡£
ÊÖ¿®¤·¤Æ¿ôÆü¸å¤Ëµ¤¤¬¤Ä¤¤¤Æ¡¦¡¦¡¦¡Ê¡­§¥¡®¡Ë

>>¡¦ÃƤΥ롼¥×¤È¥°¥ì¥¤¥º¤Î¥ë¡¼¥×¤òʬ³ä¤·¤Æ¤¤¤Þ¤¹¤¬
>>¡¡ÃƤΥ롼¥×¤ÎÃæ¤Ë¥°¥ì¥¤¥º¤â´Þ¤á¤ì¤Ðñ½ã¤Ë¥ë¡¼¥×²ó¿ô¤¬È¾Ê¬¤Ë¤Ê¤Ã¤Æ¸úΨŪ¤«¤È»×¤¤¤Þ¤¹¡£
ËÜ¥½¡¼¥¹¤Î»ö¾ð¤Ë¤è¤ê¡¢ÃƤΥ롼¥×Æâ¤ËÆþ¤ì¤é¤ì¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢¥ß¥Ë¥½¡¼¥¹¤Ç¤â¤½¤¦¤·¤Á¤ã¤¤¤Þ¤·¤¿¡ä¡ã
¤è¤¯¤è¤¯¹Í¤¨¤¿¤éËÜ¥½¡¼¥¹¤â¤â¤¦¤Á¤ç¤Ã¤È¤É¤¦¤Ë¤«¤Ê¤ê¤Þ¤¹¤Í¤³¤ì¡¦¡¦¡¦


;»Í³Ñ(A¥Ñ¥¿¡¼¥ó) repeat SIKAKUAI_MAX ;5 TUGI = cnt ;Á÷¤ë¤¿¤á¤ËÂåÆþ¤¹¤ë es_exnew SIKAKU,2000,2004 if SIKAKU = -1 : break es_set SIKAKU, 100+cnt*60,TUGI*80-100, 2000 es_apos SIKAKU, 0,1, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë es_type SIKAKU, 32 TAMA_no = SIKAKU ;¥°¥ì¥¤¥ºÂåÆþ TYPE = 1 ;A¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý SIKAKUI_no++ loop ;±ß·Á(B¥Ñ¥¿¡¼¥ó) repeat EN_MAX ;5 es_exnew EN ,3000,3004 if EN = -1 : break es_set EN, 100,100+cnt*60, 3000 es_apos EN, 1,0, 100 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 TAMA_no = EN ;¥°¥ì¥¤¥ºÂåÆþ TYPE = 2 ;B¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý SIKAKUI_no++ loop


¤Á¤ç¤Ã¤È¥¿¥¤¥×ȽÃǤÇÉÔ¶ñ¹çȯÀ¸¤·¤Á¤ã¤Ã¤¿¤Î¤Ç¡¢¸¶°øÄ´ººÃæ¤Ç¤¹¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/19(Thu) 23:07:53|NO.91823

_Ž¥)ŽÁŽ×

¤¢¤ì¤«¤é»þ´Ö¤¬¤¢¤¤¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
¿§¡¹¤ä¤Ã¤Æ¤Æ£³¤ÄÌäÂ꤬¤Ç¤Á¤ã¤¤¤Þ¤·¤¿¡¦¡¦¡¦
¤Ê¤ó¤«¸«Íî¤È¤·¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡¦¡¦


¡¦±ß·Á¤Î°ìÈÖ²¼¤Î¥°¥ì¥¤¥º¤¬È½Äꤵ¤ì¤Æ¤Ê¤¤
¡¦3wye¤Î¥°¥ì¥¤¥ººÂɸ¤¬ÃƺÂɸ¤Ë¤Ê¤é¤Ê¤¤
¡¦es_exnew GURE_no, 5000,5300¡¡¢ª¡¡5000,5269°Ê²¼¤Ë¤¹¤ë¤È¡¢¥·¥¹¥Æ¥à¥¨¥é¡¼(209¹ÔÌÜ)¤¬È¯À¸¤¹¤ë

ËÜÅö¤ÏÌäÂê¤ò£±¤Ä¤Ë¤·¤¿¤«¤Ã¤¿¤±¤É¡¢¤Ê¤ó¤«¤É¤¦¤ä¤Ã¤Æ¤â¥À¥á¤À¤Ã¤¿¡¦¡¦
²¿¤«¤ä¤é¤«¤·¤Æ¤¤¤ë¡¦¡¦¤Û¤ó¤Î¾¯¤·¤Ç¤â¤¤¤¤¤Î¤Ç¥¢¥É¥Ð¥¤¥¹¡¦¡¦¤¢¤ì¤Ð¡ª

#include "hspogg.as";²»¤Î¤¿¤á¤ËÆþ¤ì¤ë #include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 9000,9000,360;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,530 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;¼«µ¡¤¬Æ°¤±¤ëÈÏ°Ï ;--¾å-- 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 buffer 2 picload "G_sisu_¼ÁÌäÍÑ.bmp" ;¥²¡¼¥àÃæ¤Î¥·¥¹¥Æ¥à²èÁü es_buffer 2,,$00ff00,,1 ;¥°¥ì¥¤¥º es_size 59,59, 50 es_pat 5000, 0,0 ;--------- buffer 4 ; picload "jiki.bmp" ;¼«µ¡ es_buffer 4,,$00ff00,,1 ;---¼«µ¡--- es_size 28,42, 100 es_pat 4000, 0, 0 JIKI_x = 186 : JIKI_y = 300 TE_x = 206+10 : TE_y = 390+16 ;Äã®°ÌÃÖ JIKISpd = 4 ;¼«µ¡¤Î¥¹¥Ô¡¼¥É(4) ;---Äã®(¼«µ¡¤ÎÃæ¿´)--- es_size 9,9, 50 es_pat 70, 46,43 es_type 70,2 ;--------- buffer 6 ; picload "reimu.bmp" es_buffer 6,,$00ff00,,1 ;---Ũ--- es_size 27,59, 100 es_pat 1100, 66,61 ;---ÃÆ--- buffer 7 picload "yakumo_¼ÁÌäÍÑ.bmp" es_buffer 7,,$00ff00,,1 ;3wye es_size 13,15, 50 es_pat 2000, 0,0 ;±ß·Á es_size 21,21, 50 es_pat 1000, 14,0 gsel 0,1 ;ºÇÂç¸Ä¿ô wye_MAX = 3 ;3wye EN_MAX = 5 ;±ß·Á dim GURE_HIT_f,EN_MAX ;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥° ;************¥á¥¤¥ó¥ë¡¼¥×*************** *¥á¥¤¥ó es_cls es_draw ;*************¥«¥¦¥ó¥¿¡¼**************** pos 450,70 : es_mes "REIMU_3wye_f " + REIMU_3wye_f pos 450,90 : es_mes "REIMU_TM_kz " + REIMU_TM_kz pos 450,120 : es_mes "GURE_HIT " + GURE_HIT ;¥°¥ì¥¤¥º¤ÎtypeÃͤòÄ´¤Ù¤ë GURE_mes_x = 400 : GURE_mes_y = 320 ;ºÂɸ GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat 8 ;---ºÂɸ¤ò¤º¤é¤¹--- GURE_mes_x += 40 if cnt = 5 : GURE_mes_x = 440 : GURE_mes_y += 20 es_get GURE_pos,GURE_no,13 ;typeÃÍ pos GURE_mes_x,GURE_mes_y : es_mes "" + GURE_pos GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop ;************************************** ;¼«µ¡ es_set 4000, JIKI_x,JIKI_y, 4000 ;Äã®°ÜÆ° TE_x = JIKI_x+10 : TE_y = JIKI_y+16 es_set 70, TE_x,TE_y, 70 ;************gosub************ gosub *¼«µ¡¤Î°ÜÆ° gosub *¥Ü¥¹½èÍý gosub *¥°¥ì¥¤¥º½èÍý 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 ;***************¥Ü¥¹½èÍý*************** *¥Ü¥¹½èÍý ;¥Ü¥¹°ÌÃÖ es_set 1100, 208,70, 1100 es_type 1100,4096 ;»Í³Ñ(3wye) es_get REIMU_x,1100,3 ;£Ø es_get REIMU_y,1100,5 ;£Ù es_ang REIMU_x,REIMU_y,JIKI_x+8,JIKI_y+8 ;³ÑÅÙ¼èÆÀ REIMU_ang = stat-25 ;¼«µ¡¤ÎÊý¸þ if REIMU_3wye_f = 0 { repeat wye_MAX ;3 es_exnew REIMU_TM,2000,2002 if REIMU_TM = -1 : break es_set REIMU_TM,REIMU_x,REIMU_y,2000 ;¥¹¥×¥é¥¤¥ÈÀßÄê es_adir REIMU_TM,REIMU_ang+cnt*25,300 ;¥¹¥×¥é¥¤¥È°ÜÆ°Êý¸þÀßÄê es_type REIMU_TM,32 ;---¥°¥ì¥¤¥º¾ðÊó--- TAMA_no = REIMU_TM ;¥°¥ì¥¤¥ºÂåÆþ GURE_TYPE = 1 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop REIMU_3wye_f = 1 ;¥Õ¥é¥° } ;---²èÌ̳°È½Äê--- REIMU_no = 2000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,2002, 1 if REIMU_TM = -1 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { REIMU_TM_kz += 1 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¤ò¿ô¤¨¤ë if REIMU_TM_kz = 3 { REIMU_3wye_f = 0 ;Ãƥե饰¡Ú½é´ü²½¡Û REIMU_TM_kz = 0 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¡Ú½é´ü²½¡Û } es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û }REIMU_no++ ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ loop ;±ß·Á repeat EN_MAX ;5 es_exnew EN ,3000,3004 if EN = -1 : break es_set EN, 100,50+cnt*80, 1000 es_apos EN, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 ;---¥°¥ì¥¤¥º¾ðÊó--- TAMA_no = EN ;¥°¥ì¥¤¥ºÂåÆþ GURE_TYPE = 5 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop ;---²èÌ̳°È½Äê--- REIMU_no = 3000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,3004, 1 if REIMU_TM < 0 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û GURE_HIT_f(REIMU_TM-3000) = 0 ;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥°¡Ú¥ê¥»¥Ã¥È¡Û }REIMU_no++ loop ;---Åö¤¿¤êȽÄê--- GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat es_check JK_VS_GURE ,4000,128 if JK_VS_GURE = -1 : break ;ÀÜ¿¨¤·¤Æ¤¤¤ë¥°¥ì¥¤¥º¤¬Ìµ¤±¤ì¤Ð¥ë¡¼¥×½ªÎ» if JK_VS_GURE = GURE_no { es_kill JK_VS_GURE ;¥°¥ì¥¤¥º¡Úºï½ü¡Û GURE_HIT_f(GURE_no-5000) = 1;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥°¡ÚΩ¤Æ¤ë¡Û GURE_HIT++ ;¥°¥ì¥¤¥º¤Ë¤¢¤¿¤Ã¤¿²ó¿ô(¥Ç¥Ð¥Ã¥¯ÍÑ) }GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop return ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý es_get GURE_x,TAMA_no,3 ;ÃÆ£Ø es_get GURE_y,TAMA_no,5 ;ÃÆ£Ù es_exnew GURE_no,5000,5270 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò ;---¥Ü¥¹--- ;»Í³Ñ(3wye) if GURE_TYPE = 1 { es_set GURE_no, GURE_x-23,GURE_y-21, 5000 es_adir GURE_no, REIMU_ang,300 } } ;±ß·Á if GURE_TYPE = 5 { es_set GURE_no, GURE_x-18,GURE_y-18, 5000 es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } es_type GURE_no, 128 return



¤¢¤é¤ä

¥ê¥ó¥¯

2020/11/20(Fri) 04:54:43|NO.91824

¤¤¤¯¤Ä¤«¤ª¤«¤·¤ÊÅÀ¤¬¤¢¤ê¤Þ¤¹¤¬¡¢
¥á¥¤¥ó¥ë¡¼¥×¤ÎºÇ¸å¤ÎÊý¤Ë¤¢¤ë¡Øgosub *¥°¥ì¥¤¥º½èÍý¡Ù
¤³¤ì¤Ï¥Ü¥¹½èÍýÆâ¤Ç¥°¥ì¥¤¥º½èÍý¤â¸Æ¤Ó½Ð¤·¤Æ¤¤¤ë¤Î¤ÇÉÔÍפǤ¹¡£

>¡¦±ß·Á¤Î°ìÈÖ²¼¤Î¥°¥ì¥¤¥º¤¬È½Äꤵ¤ì¤Æ¤Ê¤¤
ȽÄꤵ¤ì¤Æ¤¤¤Ê¤Î¤Ç¤Ï¤Ê¤¯¡¢
¾åµ­¤Î¤è¤¦¤Ë¥á¥¤¥ó¥ë¡¼¥×¤ÎºÇ¸å¤Ë¥°¥ì¥¤¥º½èÍý¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢
¾Ã¤·¤¿Ä¾¸å¤ËºÆÅÙ¥»¥Ã¥È¤µ¤ì¤Æ¤¤¤ë¤À¤±¤Ç¤¹¡£

>¡¦3wye¤Î¥°¥ì¥¤¥ººÂɸ¤¬ÃƺÂɸ¤Ë¤Ê¤é¤Ê¤¤
ÃƤΰÜÆ°Êý¸þ¤ò¥»¥Ã¥È¤¹¤ë¹Ô¤¬¢­
¡Øes_adir REIMU_TM,REIMU_ang+cnt*25,300¡Ù
¥°¥ì¥¤¥º¤Î°ÜÆ°Êý¸þ¤ò¥»¥Ã¥È¤¹¤ë¹Ô¤¬¢­
¡Øes_adir GURE_no, REIMU_ang,300¡Ù
ÀßÄꤷ¤Æ¤¤¤ë³ÑÅÙ¤¬°ã¤¦¤Î¤ÇÊý¸þ¤¬¥º¥ì¤Þ¤¹¡£

>¡¦es_exnew GURE_no, 5000,5300¡¡¢ª¡¡5000,5269°Ê²¼¤Ë¤¹¤ë¤È¡¢¥·¥¹¥Æ¥à¥¨¥é¡¼(209¹ÔÌÜ)¤¬È¯À¸¤¹¤ë
¤³¤ì¤Ï¸¶°ø¤¬2¤Ä¤¢¤ê¤Þ¤¹¤¬¡¢
ºÇ½é¤Ë»ØŦ¤µ¤»¤Æ¤¤¤¿¤À¤¤¤¿¥á¥¤¥ó¥ë¡¼¥×¤Ç¥°¥ì¥¤¥º½èÍý¤ò¸Æ¤ó¤Ç¤¤¤ë·ï¤È
±ß·Á¥°¥ì¥¤¥º¤¬¡Øif GURE_no != -1¡Ù¤³¤Îif¤Î³°¤Ë¤¢¤ë»ö¤¬¸¶°ø¤ÇÉÔÍפʥ°¥ì¥¤¥º¤òÂçÎ̤˥»¥Ã¥È¤·¤Æ¤·¤Þ¤¤¡¢
²èÌ̳°È½Äê¤Î¥¿¥¤¥ß¥ó¥°¤Ê¤É¤ÎÍýͳ¤Ç
¥°¥ì¥¤¥º¤ÎºÇÂç¿ô¤òĶ²á¤¹¤ë¤Î¤¬¤¿¤Þ¤¿¤Þ5269¤Ë¤Ê¤ë¤Î¤«¤È»×¤¤¤Þ¤¹¡£
ºÇÂç¿ô¤òĶ²á¤·¤¿¾ì¹çGURE_no¤¬-1¤Ë¤Ê¤ê
¥¹¥×¥é¥¤¥ÈÈֹ椬-1¤Ç¿·µ¬¤Î¥°¥ì¥¤¥º¤ò¥»¥Ã¥È¤·¤è¤¦¤È¤¹¤ë¤¿¤á¤Ëµ¯¤­¤ë¥¨¥é¡¼¤«¤È¡£


¤³¤ì¤é¤òƧ¤Þ¤¨¤¿¾å¤Ç½¤Àµ¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

#include "hspogg.as";²»¤Î¤¿¤á¤ËÆþ¤ì¤ë #include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 9000,9000,360;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,530 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;¼«µ¡¤¬Æ°¤±¤ëÈÏ°Ï ;--¾å-- 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 buffer 2 picload "G_sisu_¼ÁÌäÍÑ.bmp" ;¥²¡¼¥àÃæ¤Î¥·¥¹¥Æ¥à²èÁü es_buffer 2,,$00ff00,,1 ;¥°¥ì¥¤¥º es_size 59,59, 50 es_pat 5000, 0,0 ;--------- buffer 4 ; picload "jiki.bmp" ;¼«µ¡ es_buffer 4,,$00ff00,,1 ;---¼«µ¡--- es_size 28,42, 100 es_pat 4000, 0, 0 JIKI_x = 186 : JIKI_y = 300 TE_x = 206+10 : TE_y = 390+16 ;Äã®°ÌÃÖ JIKISpd = 4 ;¼«µ¡¤Î¥¹¥Ô¡¼¥É(4) ;---Äã®(¼«µ¡¤ÎÃæ¿´)--- es_size 9,9, 50 es_pat 70, 46,43 es_type 70,2 ;--------- buffer 6 ; picload "reimu.bmp" es_buffer 6,,$00ff00,,1 ;---Ũ--- es_size 27,59, 100 es_pat 1100, 66,61 ;---ÃÆ--- buffer 7 picload "yakumo_¼ÁÌäÍÑ.bmp" es_buffer 7,,$00ff00,,1 ;3wye es_size 13,15, 50 es_pat 2000, 0,0 ;±ß·Á es_size 21,21, 50 es_pat 1000, 14,0 gsel 0,1 ;ºÇÂç¸Ä¿ô wye_MAX = 3 ;3wye EN_MAX = 5 ;±ß·Á dim GURE_HIT_f,EN_MAX ;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥° ;************¥á¥¤¥ó¥ë¡¼¥×*************** *¥á¥¤¥ó es_cls es_draw ;*************¥«¥¦¥ó¥¿¡¼**************** pos 450,70 : es_mes "REIMU_3wye_f " + REIMU_3wye_f pos 450,90 : es_mes "REIMU_TM_kz " + REIMU_TM_kz pos 450,120 : es_mes "GURE_HIT " + GURE_HIT ;¥°¥ì¥¤¥º¤ÎtypeÃͤòÄ´¤Ù¤ë GURE_mes_x = 400 : GURE_mes_y = 320 ;ºÂɸ GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat 8 ;---ºÂɸ¤ò¤º¤é¤¹--- GURE_mes_x += 40 if cnt = 5 : GURE_mes_x = 440 : GURE_mes_y += 20 es_get GURE_pos,GURE_no,13 ;typeÃÍ pos GURE_mes_x,GURE_mes_y : es_mes "" + GURE_pos GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop ;************************************** ;¼«µ¡ es_set 4000, JIKI_x,JIKI_y, 4000 ;Äã®°ÜÆ° TE_x = JIKI_x+10 : TE_y = JIKI_y+16 es_set 70, TE_x,TE_y, 70 ;************gosub************ gosub *¼«µ¡¤Î°ÜÆ° gosub *¥Ü¥¹½èÍý ;gosub *¥°¥ì¥¤¥º½èÍý 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 ;***************¥Ü¥¹½èÍý*************** *¥Ü¥¹½èÍý ;¥Ü¥¹°ÌÃÖ es_set 1100, 208,70, 1100 es_type 1100,4096 ;»Í³Ñ(3wye) es_get REIMU_x,1100,3 ;£Ø es_get REIMU_y,1100,5 ;£Ù es_ang REIMU_x,REIMU_y,JIKI_x+8,JIKI_y+8 ;³ÑÅÙ¼èÆÀ REIMU_ang = stat-25 ;¼«µ¡¤ÎÊý¸þ if REIMU_3wye_f = 0 { repeat wye_MAX ;3 es_exnew REIMU_TM,2000,2002 if REIMU_TM = -1 : break es_set REIMU_TM,REIMU_x,REIMU_y,2000 ;¥¹¥×¥é¥¤¥ÈÀßÄê ;es_adir REIMU_TM,REIMU_ang+cnt*25,300 ;¥¹¥×¥é¥¤¥È°ÜÆ°Êý¸þÀßÄê REIMU_ang2 = REIMU_ang+cnt*25; ³ÑÅÙ¤òµ­Ï¿ Äɲà es_adir REIMU_TM,REIMU_ang2,300 ;¥¹¥×¥é¥¤¥È°ÜÆ°Êý¸þÀßÄê ½¤Àµ es_type REIMU_TM,32 ;---¥°¥ì¥¤¥º¾ðÊó--- TAMA_no = REIMU_TM ;¥°¥ì¥¤¥ºÂåÆþ GURE_TYPE = 1 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop REIMU_3wye_f = 1 ;¥Õ¥é¥° } ;---²èÌ̳°È½Äê--- REIMU_no = 2000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,2002, 1 if REIMU_TM = -1 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { REIMU_TM_kz += 1 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¤ò¿ô¤¨¤ë if REIMU_TM_kz = 3 { REIMU_3wye_f = 0 ;Ãƥե饰¡Ú½é´ü²½¡Û REIMU_TM_kz = 0 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¡Ú½é´ü²½¡Û } es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û }REIMU_no++ ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ loop ;±ß·Á repeat EN_MAX ;5 es_exnew EN ,3000,3004 if EN = -1 : break ;es_set EN, 100,50+cnt*80, 1000 EN_X = 100: EN_Y = 50+cnt*70;ºÂɸ¤òµ­Ï¿ Äɲà es_set EN, EN_X,EN_Y, 1000; ½¤Àµ es_apos EN, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 ;---¥°¥ì¥¤¥º¾ðÊó--- TAMA_no = EN ;¥°¥ì¥¤¥ºÂåÆþ GURE_TYPE = 5 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop ;---²èÌ̳°È½Äê--- REIMU_no = 3000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,3004, 1 if REIMU_TM < 0 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û GURE_HIT_f(REIMU_TM-3000) = 0 ;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥°¡Ú¥ê¥»¥Ã¥È¡Û }REIMU_no++ loop ;---Åö¤¿¤êȽÄê--- GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat es_check JK_VS_GURE ,4000,128 if JK_VS_GURE = -1 : break ;ÀÜ¿¨¤·¤Æ¤¤¤ë¥°¥ì¥¤¥º¤¬Ìµ¤±¤ì¤Ð¥ë¡¼¥×½ªÎ» if JK_VS_GURE = GURE_no { es_kill JK_VS_GURE ;¥°¥ì¥¤¥º¡Úºï½ü¡Û GURE_HIT_f(GURE_no-5000) = 1;¥°¥ì¥¤¥º¥Ò¥Ã¥È¥Õ¥é¥°¡ÚΩ¤Æ¤ë¡Û GURE_HIT++ ;¥°¥ì¥¤¥º¤Ë¤¢¤¿¤Ã¤¿²ó¿ô(¥Ç¥Ð¥Ã¥¯ÍÑ) } GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop return ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý /* es_get GURE_x,TAMA_no,3 ;ÃÆ£Ø es_get GURE_y,TAMA_no,5 ;ÃÆ£Ù es_exnew GURE_no,5000,5269 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò ;---¥Ü¥¹--- ;»Í³Ñ(3wye) if GURE_TYPE = 1 { es_set GURE_no, GURE_x-23,GURE_y-21, 5000 es_adir GURE_no, REIMU_ang,300 } } ;±ß·Á if GURE_TYPE = 5 { es_set GURE_no, GURE_x-18,GURE_y-18, 5000 es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } es_type GURE_no, 128*/ es_exnew GURE_no,5000,5269 if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò ;---¥Ü¥¹--- ;»Í³Ñ(3wye) if GURE_TYPE = 1 { // ºÂɸ¤ÏÃƤΥ»¥Ã¥È¤Ë»È¤Ã¤¿ÊÑ¿ô¤ò¤½¤Î¤Þ¤Þ»ÈÍÑ es_set GURE_no, REIMU_x-23,REIMU_y-21, 5000; ½¤Àµ es_adir GURE_no, REIMU_ang2,300; ½¤Àµ } ;±ß·Á if GURE_TYPE = 5 { // ºÂɸ¤Ë´Ø¤·¤Æ¤ÏƱ¾å es_set GURE_no, EN_X-18,EN_Y-18, 5000; ½¤Àµ es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } es_type GURE_no, 128 } return
½¤Àµ²Õ½ê¤ÏºÇ½é¤Ë»ØŦ¤µ¤»¤Æ¤¤¤¿¤À¤¤¤¿¥á¥¤¥ó¥ë¡¼¥×¤Î¥°¥ì¥¤¥º½èÍý¡¢
»Í³Ñ¤È±ß·Á¤ÎÃƤò¤½¤ì¤¾¤ì¥»¥Ã¥È¤¹¤ë²Õ½ê¡¢
¥°¥ì¥¤¥º½èÍý¤ÎÁ´ÈÌ¡£

Äɲᦽ¤Àµ¤·¤¿²Õ½ê¤Ë¤Ï¤½¤ì¤¾¤ì¥³¥á¥ó¥È¤Ç¡ØÄɲá١ؽ¤Àµ¡Ù¤È½ñ¤­²Ã¤¨¤Æ¤¢¤ê¤Þ¤¹¡£

¢¨¥¶¥Ã¥¯¥ê¤È½¤Àµ¤µ¤»¤Æ¤¤¤¿¤À¤¤¤¿¤Î¤Ç¡¢¤É¤³¤«¤Ç¸«Íî¤È¤·¤¬¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/23(Mon) 22:35:06|NO.91842

¤¢¤ä¤é¤µ¤ó¡¢¤¿¤Ó¤¿¤Ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª


>>¥á¥¤¥ó¥ë¡¼¥×¤ÎºÇ¸å¤ÎÊý¤Ë¤¢¤ë¡Øgosub *¥°¥ì¥¤¥º½èÍý¡Ù
¤ä¤é¤«¤·¤¿¤¡¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢

>¡¦3wye¤Î¥°¥ì¥¤¥ººÂɸ¤¬ÃƺÂɸ¤Ë¤Ê¤é¤Ê¤¤
ÂåÆþ¤·¤Æ´ÉÍý¤¹¤ì¤Ð¤è¤«¤Ã¤¿¤À¤±¤Ê¤ó¤Ç¤¹¤Í¡£

>¡¦es_exnew GURE_no, 5000,5300¡¡¢ª¡¡5000,5269°Ê²¼¤Ë¤¹¤ë¤È¡¢¥·¥¹¥Æ¥à¥¨¥é¡¼(209¹ÔÌÜ)¤¬È¯À¸¤¹¤ë
if¤Î³°¤Ë¤Ê¤Ã¤Æ¤¿¤¡¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢


¤Û¤ó¤ÞºÙ¤«¤¤¥ß¥¹¤¬Â¿¤¤¤Ç¤¹¤Í¡¦¡¦¡¦
¤ª¤«¤²¤µ¤Þ¤Ç¼ÂÁõ¤·¤Æ¤¤¤ëÃƤ¹¤Ù£ô¡¦¡¦¡¦£±¼ïÎà°Ê³°¤¦¤Þ¤¯¤¤¤­¤Þ¤·¤¿¡£
»Ä¤ë£±¼ïÎà¤Ï¡¢Á°¤Ë¤ä¤Ã¤¿¡ÖÊ£¿ôÃƤòÅö¤¿¤êȽÄê¤Ç¡¢ºÆȯ¼Í¤¹¤ë¤ÈºÂɸ¤¬¤º¤ì¤ë¡×¤Î¤ä¤Ä¤Ç¤¹¡£


¤¢¤ÎÃƤϲèÌÌÆâ¤Ç¾Ã¤¹½èÍý¤¬Áö¤ë¤Î¤Ç¡¢¥°¥ì¥¤¥º¤â²èÌÌÆâȽÄê¤Ç¥°¥ì¥¤¥º¤òºï½ü¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢
¤³¤ì¤Þ¤¿²¿¤«¤ä¤é¤«¤·¤Æ¤¤¤ë¤Î¤«¤¦¤Þ¤¯¤¤¤«¤Ê¤¤¤Ç¤¹¡£

¢£¿·¤·¤¤ÌäÂê
Æ°¤«¤Ê¤¤¤ÇÎÐÃƤ¬²èÌ̳°¤Ë¹Ô¤¯¤È¡¢3wye¤Î£±¡¢£²È¯ÌܤΥ°¥ì¥¤¥º¤¬¾Ã¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¡ÊÎÐÃƤ¬²èÌ̳°¤Ë¹Ô¤Ã¤¿¤È¤­¡¢¾å£²¤Ä¤Î¥°¥ì¥¤¥º¤¬¾Ã¤¨¤Æ¤¤¤ë¤Î¤Ç¡¢¤½¤ì¤ËÈ¿±þ¤·¤Æ¤¤¤ë¤Ã¤Ý¤¤¡Ë
£²¼þÌܰʹߤǤϾ䨤ޤ»¤ó¤¬¡¢Ê̤ÇÁȤßΩ¤Æ¤Æ¤¤¤ë¥½¡¼¥¹¤À¤È¤á¤Ã¤Á¤ã¾Ã¤¨¤Þ¤¹¡¦¡¦¡¦

¤³¤Î¥½¡¼¥¹¤Ç¤Ï±ß·Á¤ò»È¤Ã¤Æ¡¢²èÌÌÆâ¤Ë¹Ô¤Ã¤¿¤é¥°¥ì¥¤¥ººï½ü½èÍý¤òÄɲä·¤Þ¤·¤¿¡£

;---²èÌ̳°È½Äê--- REIMU_no = 3000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,3004, 1 if REIMU_TM < 0 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û ;¡û¡û¡ûÄɲáû¡û¡û es_kill DERI_GURE_no(REIMU_no-3000) ;¥°¥ì¥¤¥º¡Úºï½ü¡Û }REIMU_no++ loop
¡Á¡Á¡Á¡Á

;±ß·Á if GURE_TYPE = 5 { es_set GURE_no, EN_x-18,EN_y-18, 5000 es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } ;¡û¡û¡ûÄɲáû¡û¡û DERI_GURE_no(GURE_no-5000) = GURE_no;¥°¥ì¥¤¥º¥¹¥×¥é¥¤¥ÈÃͤòµ­Ï¿ es_type GURE_no, 128 }



¤¢¤é¤ä

¥ê¥ó¥¯

2020/11/26(Thu) 19:49:23|NO.91857

>Æ°¤«¤Ê¤¤¤ÇÎÐÃƤ¬²èÌ̳°¤Ë¹Ô¤¯¤È¡¢3wye¤Î£±¡¢£²È¯ÌܤΥ°¥ì¥¤¥º¤¬¾Ã¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
ÃƤ⥰¥ì¥¤¥º¤âÁ´¤Æ¡Øes_exnew¡Ù¤Ç¥¹¥×¥é¥¤¥È­â¤ò¼èÆÀ¤·¤Æ¤¤¤ë¤¿¤á¤Ë
ÃƤÎÈÖ¹æ¤È¥°¥ì¥¤¥º¤ÎÈֹ椬¥ê¥ó¥¯¤·¤Æ¤¤¤Ê¤¤¤Î¤¬¸¶°ø¤«¤È»×¤¤¤Þ¤¹¡£

¥½¡¼¥¹¤Îή¤ìÄ̤ê¤Ë¤½¤ì¤¾¤ì¤ÎÈÖ¹æ¤ò½ñ¤¯¤È
ÈÑ»¨¤Ë¤Ê¤Ã¤Æ¤â¤¦¤·¤ï¤±¤¢¤ê¤Þ¤»¤ó¤¬

»Í³Ñ(3wye)¤ÎÈֹ棱¡¢2000
¥°¥ì¥¤¥º¤ÎÈֹ棱¡¢¡¡5000¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á0¡Ë
»Í³Ñ(3wye)¤ÎÈֹ棲¡¢2001
¥°¥ì¥¤¥º¤ÎÈֹ棲¡¢¡¡5001¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á1¡Ë
»Í³Ñ(3wye)¤ÎÈֹ棳¡¢2002
¥°¥ì¥¤¥º¤ÎÈֹ棳¡¢¡¡5002¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á2¡Ë

±ß·Á¤ÎÈֹ棱¡¢¡¡¡¡¡¡3000
¥°¥ì¥¤¥º¤ÎÈֹ棴¡¡¡¡5003¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á3¡Ë
±ß·Á¤ÎÈֹ棲¡¢¡¡¡¡¡¡3001
¥°¥ì¥¤¥º¤ÎÈֹ棵¡¡¡¡5004¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á4¡Ë
±ß·Á¤ÎÈֹ棳¡¢¡¡¡¡¡¡3002
¥°¥ì¥¤¥º¤ÎÈֹ棶¡¡¡¡5005¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á5¡Ë
±ß·Á¤ÎÈֹ棴¡¢¡¡¡¡¡¡3003
¥°¥ì¥¤¥º¤ÎÈֹ棷¡¡¡¡5006¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á6¡Ë
±ß·Á¤ÎÈֹ棵¡¢¡¡¡¡¡¡3004
¥°¥ì¥¤¥º¤ÎÈֹ棸¡¡¡¡5007¡ÊÇÛÎó¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¡á7¡Ë

¤³¤ÎÈÖ¹æ¤ò²èÌ̳°È½Äê¤Î½èÍý¤ËÅö¤Æ¤Ï¤á¤ë¤È
¡Øes_kill DERI_GURE_no(REIMU_no-3000)¡Ù
±ß·Á3000¤òºï½ü¤¹¤ë¤È¤­¤Ë¤Ï¡¢ÇÛÎ󥤥ó¥Ç¥Ã¥¯¥¹0¡á5000¤Î¥°¥ì¥¤¥º¡Ê»Í³Ñ3wye¡Ë¤òºï½ü
¡¦
¡¦
¡¦
°Ê²¼Æ±Ê¸

Íý¶þ¤Î¾å¤Ç¤Ï±ß·Á¤¬³°¤Ë½Ð¤¿¤È¤­¤Ë¡¢»Í³Ñ¤Î¥°¥ì¥¤¥º¤âÁ´Éô¾Ã¤¨¤ë¤Ï¤º¤Ê¤ó¤Ç¤¹¤¬
2¤Ä¤À¤±¤È¤¤¤¦¤Î¤Ï²èÌ̳°¤Ë¾Ã¤¨¤ÆºÆÅÙ¥»¥Ã¥È¤µ¤ì¤ë¥¿¥¤¥ß¥ó¥°¤Ê¤É¤¬Íí¤ó¤À·ë²Ì¤«¤È¡£

¥ê¥ó¥¯¤µ¤»¤ë¤Ë¤ÏÁ´¤Æ¤Î¥¹¥×¥é¥¤¥È¤ò¡Øes_exnew¡Ù¤Ç
´ÉÍý¤Ç¤­¤Ê¤¤¾õ¶·¤Ë¤¹¤ë¤Î¤ò¼­¤á¤ë¤Ù¤­¤«¤È»×¤¤¤Þ¤¹¡£
Î㡧
»Í³Ñ¤Î¥¹¥×¥é¥¤¥È¤¬2000¡Á2002¤Ê¤é¤Ð¡¢¥°¥ì¥¤¥º¤Ï5000¡Á5002¤Ë¸Â¤ë
±ß·Á¤Î¥¹¥×¥é¥¤¥È¤Ï3000¡Á30004¤Ê¤é¤Ð¡¢¥°¥ì¥¤¥º¤Ï5010¡Á5014¤Ë¤¹¤ë¤Ê¤É

¿ôÃͺ¹¤ÏŬÅö¤Ç¤¹¤¬¡¢²¼°ì·å¤ò¹ç¤ï¤»¤¿Êý¤¬´ÉÍý¤·¤ä¤¹¤½¤¦¤Ê¤Î¤Ç
ÃæÅÓȾü¤Ç¤¹¤¬¹ç¤ï¤»¤Æ¤ß¤Þ¤·¤¿¡£


;---²èÌ̳°È½Äê--- REIMU_no = 3000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,3004, 1 if REIMU_TM < 0 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û ;¡û¡û¡ûÄɲáû¡û¡û es_kill REIMU_TM+2010 ;¥°¥ì¥¤¥º¡Úºï½ü¡Û }REIMU_no++ loop ;¡Á¡Á¾Êά¡Á¡Á ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý // es_exnew¤Ï¼­¤á¤ë ;es_exnew GURE_no,5000,5269 // es_exnew¤ò¼­¤á¤ë»ö¤Çifʸ¤¬ÉÔÍפˤʤë ;if GURE_no != -1 { ;´û¤Ë¥¹¥×¥é¥ÈNo¤¬¤¢¤ë¤È-1¤¬Æþ¤ê¥¨¥é¡¼¤Ë¤Ê¤ë¤Î¤Ç²óÈò ;---¥Ü¥¹--- ;»Í³Ñ(3wye) if GURE_TYPE = 1 { GURE_no = REIMU_TM + 3000; // ¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥ÈÃͤòÃƤÈ3000º¹¤Ë¤¹¤ë // ºÂɸ¤ÏÃƤΥ»¥Ã¥È¤Ë»È¤Ã¤¿ÊÑ¿ô¤ò¤½¤Î¤Þ¤Þ»ÈÍÑ es_set GURE_no, REIMU_x-23,REIMU_y-21, 5000; ½¤Àµ es_adir GURE_no, REIMU_ang2,300; ½¤Àµ } ;±ß·Á if GURE_TYPE = 5 { GURE_no = EN + 2010; // ¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥ÈÃͤòÃƤÈ2010º¹¤Ë¤¹¤ë // ºÂɸ¤Ë´Ø¤·¤Æ¤ÏƱ¾å es_set GURE_no, EN_X-18,EN_Y-18, 5000; ½¤Àµ es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } es_type GURE_no, 128 ;} return



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/28(Sat) 21:15:41|NO.91865

¤¢¤é¤ä¤µ¤ó¡¢¤¿¤Ó¤¿¤Ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª


>ÃƤ⥰¥ì¥¤¥º¤âÁ´¤Æ¡Øes_exnew¡Ù¤Ç¥¹¥×¥é¥¤¥È­â¤ò¼èÆÀ¤·¤Æ¤¤¤ë¤¿¤á¤Ë
>ÃƤÎÈÖ¹æ¤È¥°¥ì¥¤¥º¤ÎÈֹ椬¥ê¥ó¥¯¤·¤Æ¤¤¤Ê¤¤¤Î¤¬¸¶°ø¤«¤È»×¤¤¤Þ¤¹¡£

>Íý¶þ¤Î¾å¤Ç¤Ï±ß·Á¤¬³°¤Ë½Ð¤¿¤È¤­¤Ë¡¢»Í³Ñ¤Î¥°¥ì¥¤¥º¤âÁ´Éô¾Ã¤¨¤ë¤Ï¤º¤Ê¤ó¤Ç¤¹¤¬
>2¤Ä¤À¤±¤È¤¤¤¦¤Î¤Ï²èÌ̳°¤Ë¾Ã¤¨¤ÆºÆÅÙ¥»¥Ã¥È¤µ¤ì¤ë¥¿¥¤¥ß¥ó¥°¤Ê¤É¤¬Íí¤ó¤À·ë²Ì¤«¤È¡£

>¥ê¥ó¥¯¤µ¤»¤ë¤Ë¤ÏÁ´¤Æ¤Î¥¹¥×¥é¥¤¥È¤ò¡Øes_exnew¡Ù¤Ç
>´ÉÍý¤Ç¤­¤Ê¤¤¾õ¶·¤Ë¤¹¤ë¤Î¤ò¼­¤á¤ë¤Ù¤­¤«¤È»×¤¤¤Þ¤¹¡£

¤Ê¤ë¤Û¤É¡£Á°¤Ë¤â¤³¤ó¤Ê»ö¤¬¤¢¤Ã¤¿¤è¤¦¤Ê¡¦¡¦¡Ê¡­§¥¡®¡Ë
es_exnew¤Ç¤Î´ÉÍý¤ò¤ä¤á¤ÆÂåÆþ¤Ç¤ä¤ë¤³¤È¤Ë¤·¤Þ¤¹¡£
¤·¤«¤·¥¹¥×¥é¥¤¥È¥×¥é¥°¥¤¥ó¤Û¤ó¤ÈÆñ¤·¤¤¤Ç¤¹¤Í¡¦¡¦¡¦¡¦

¿§¡¹²þÎɤ·¤Á¤ã¤Ã¤¿¤Î¤ÇÄɲÃÉôʬ°Ê³°¤â¥½¡¼¥¹¤À¤·¤Þ¤¹¡£Ã¯¤«¤Î»²¹Í¤Ë¤Ê¤ë¤È¤¤¤¤¤Ê¡¼
º£ÅÙ¤³¤½²ò·è¤·¤Þ¤·¤¿¡ª¡Ê¤Ï¤º¡ª¡ª¡Ë

#include "hspdxfix.as" ;DX¥é¥¤¥Ö¥é¥ê»ÈÍÑ width ,,130,200 ;¥¦¥£¥ó¥É¥¦¤Î°ÌÃÖ es_ini 9000,9000,360;¥¹¥×¥é¥¤¥È¤ÎºÇÂç¿ô¡¢¥­¥ã¥é¥¯¥¿ÄêµÁ¤ÎºÇÂç¿ô,¼þ¤ÎÀºÅÙ(180*2) es_screen 640,480 ,0,0,1,1 es_window -13,-43, 640,480 ;¥¹¥×¥é¥¤¥Èɽ¼¨¥¨¥ê¥¢ÀßÄê es_area -36,-430, 600,530 ;¥¹¥×¥é¥¤¥ÈÍ­¸ú¥¨¥ê¥¢ÀßÄê ;¼«µ¡¤¬Æ°¤±¤ëÈÏ°Ï ;--¾å-- 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 ;--------- buffer 2 picload "G_sisu_¼ÁÌäÍÑ.bmp" es_buffer 2,,$00ff00,,1 ;¥°¥ì¥¤¥º es_size 59,59, 50 es_pat 5000, 0,0 ;--------- buffer 4 picload "jiki.bmp" es_buffer 4,,$00ff00,,1 ;---¼«µ¡--- es_size 28,42, 100 es_pat 4000, 0, 0 JIKI_x = 186 : JIKI_y = 300 TE_x = 206+10 : TE_y = 390+16 ;Äã®°ÌÃÖ JIKISpd = 4 ;¼«µ¡¤Î¥¹¥Ô¡¼¥É(4) ;---Äã®(¼«µ¡¤ÎÃæ¿´)--- es_size 9,9, 50 es_pat 70, 46,43 es_type 70,2 ;--------- buffer 6 ; picload "reimu.bmp" es_buffer 6,,$00ff00,,1 ;---Ũ--- es_size 27,59, 100 es_pat 1100, 66,61 ;¢£¢£¢£Åö¤¿¤êȽÄêÍÑ¢£¢£¢£ ;²¼ es_size 112,6, 100 es_pat 1601, 134,598 es_set 1601, 165,300, 1601 ;¾å es_size 112,6, 100 es_pat 1602, 134,598 es_set 1602, 165,166, 1602 ;---ÃÆ--- buffer 7 picload "yakumo_¼ÁÌäÍÑ.bmp" es_buffer 7,,$00ff00,,1 ;3wye es_size 13,15, 50 es_pat 2000, 0,0 ;±ß·Á es_size 21,21, 50 es_pat 1000, 14,0 ;«»¥ es_size 13,15, 50 es_pat 1500, 0,0 gsel 0,1 ;ºÇÂç¸Ä¿ô wye_MAX = 3 ;3wye EN_MAX = 5 ;±ß·Á ;«»¥¤Î¿ô AK_MAX = 4 ;ÀÖÃƤκÇÂç¿ô(4) AK_G_MAX = 2 ;¥°¥ë¡¼¥×¿ô dim REI_AK_f, AK_MAX,AK_G_MAX ;¥Õ¥é¥° dim REI_AK_x, AK_MAX,AK_G_MAX ;£Ø dim REI_AK_y, AK_MAX,AK_G_MAX ;£Ù ;*************«»¥¤Î¿ô*************** ;²¼ REI_AK_x(0,0) = 177,205,230,252 REI_AK_y(0,0) = 227,227,227,227 ;¾å REI_AK_x(0,1) = 177,205,230,252 REI_AK_y(0,1) = 230,230,230,230 ;************¥á¥¤¥ó¥ë¡¼¥×*************** *¥á¥¤¥ó es_cls es_draw ;*************¥«¥¦¥ó¥¿¡¼**************** pos 450,70 : es_mes "REIMU_3wye_f " + REIMU_3wye_f pos 450,90 : es_mes "REIMU_TM_kz " + REIMU_TM_kz pos 450,120 : es_mes "GURE_HIT " + GURE_HIT ;¥°¥ì¥¤¥º¤ÎtypeÃͤòÄ´¤Ù¤ë GURE_mes_x = 400 : GURE_mes_y = 320 ;ºÂɸ GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat 8 ;---ºÂɸ¤ò¤º¤é¤¹--- GURE_mes_x += 40 if cnt = 5 : GURE_mes_x = 440 : GURE_mes_y += 20 es_get GURE_pos,GURE_no,13 ;typeÃÍ pos GURE_mes_x,GURE_mes_y : es_mes "" + GURE_pos GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop pos 450,150 : es_mes "REI_AK_f(0,0) " + REI_AK_f(0,0) pos 450,170 : es_mes "REI_AK_f(0,1) " + REI_AK_f(0,1) ;************************************** ;¼«µ¡ es_set 4000, JIKI_x,JIKI_y, 4000 ;Äã®°ÜÆ° TE_x = JIKI_x+10 : TE_y = JIKI_y+16 es_set 70, TE_x,TE_y, 70 ;************gosub************ gosub *¼«µ¡¤Î°ÜÆ° gosub *¥Ü¥¹½èÍý gosub *«»¥ 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 ;***************¥Ü¥¹½èÍý*************** *¥Ü¥¹½èÍý ;¥Ü¥¹°ÌÃÖ es_set 1100, 208,70, 1100 es_type 1100,4096 ;»Í³Ñ(3wye) es_get REIMU_x,1100,3 ;£Ø es_get REIMU_y,1100,5 ;£Ù es_ang REIMU_x,REIMU_y,JIKI_x+8,JIKI_y+8 ;³ÑÅÙ¼èÆÀ REIMU_ang = stat-25 ;¼«µ¡¤ÎÊý¸þ if REIMU_3wye_f = 0 { repeat wye_MAX ;3 es_exnew REIMU_TM,2000,2002 if REIMU_TM = -1 : break es_set REIMU_TM,REIMU_x,REIMU_y,2000 ;¥¹¥×¥é¥¤¥ÈÀßÄê REIMU_ang2 = REIMU_ang+cnt*25 ;³ÑÅÙ¤òµ­Ï¿ es_adir REIMU_TM,REIMU_ang2,300 ;¥¹¥×¥é¥¤¥È°ÜÆ°Êý¸þÀßÄê es_type REIMU_TM,32 ;---¥°¥ì¥¤¥º¾ðÊó--- GURE_TYPE = 1 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop REIMU_3wye_f = 1 ;¥Õ¥é¥° } ;---²èÌ̳°È½Äê--- REIMU_no = 2000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,2002, 1 if REIMU_TM = -1 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { REIMU_TM_kz += 1 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¤ò¿ô¤¨¤ë if REIMU_TM_kz = 3 { REIMU_3wye_f = 0 ;Ãƥե饰¡Ú½é´ü²½¡Û REIMU_TM_kz = 0 ;²èÌ̳°¤Ë¹Ô¤Ã¤¿¿ô¡Ú½é´ü²½¡Û } es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û es_kill GURE_no+3000 ;¥°¥ì¥¤¥º¡Úºï½ü¡Û }REIMU_no++ ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ loop ;±ß·Á repeat EN_MAX ;5 es_exnew EN ,3000,3004 if EN = -1 : break EN_X = 100 : EN_Y = 50+cnt*80;ºÂɸ¤òµ­Ï¿ es_set EN, EN_x,EN_y, 1000 es_apos EN, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë es_type EN, 32 ;---¥°¥ì¥¤¥º¾ðÊó--- GURE_TYPE = 5 ;¥°¥ì¥¤¥º¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý loop ;---²èÌ̳°È½Äê--- REIMU_no = 3000 ;ÃƸ¡º÷¥Ê¥ó¥Ð¡¼ repeat es_find REIMU_TM, 32, REIMU_no,3004, 1 if REIMU_TM < 0 : break es_get REIMU_TM_x,REIMU_TM,3 ;ÃÆ£Ø es_get REIMU_TM_y,REIMU_TM,5 ;ÃÆ£Ù if (REIMU_TM_x < 30-59) or (REIMU_TM_y < 10-59) or (REIMU_TM_x > 412+59) or (REIMU_TM_y > 460+59) { es_kill REIMU_TM ;ÃÆ¡Úºï½ü¡Û es_kill REIMU_TM+2100 ;¥°¥ì¥¤¥º¡Úºï½ü¡Û }REIMU_no++ loop ;---Åö¤¿¤êȽÄê--- GURE_no = 5000 ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat es_check JK_VS_GURE ,4000,128 if JK_VS_GURE = -1 : break ;ÀÜ¿¨¤·¤Æ¤¤¤ë¥°¥ì¥¤¥º¤¬Ìµ¤±¤ì¤Ð¥ë¡¼¥×½ªÎ» if JK_VS_GURE = GURE_no { es_kill JK_VS_GURE ;¥°¥ì¥¤¥º¡Úºï½ü¡Û GURE_HIT++ ;¥°¥ì¥¤¥º¤Ë¤¢¤¿¤Ã¤¿²ó¿ô(¥Ç¥Ð¥Ã¥¯ÍÑ) }GURE_no++ ;¥°¥ì¥¤¥º¤Î¥¹¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop return ;**********«»¥************* *«»¥ repeat AK_G_MAX ;¥°¥ë¡¼¥×¿ô(2) TEK_G = cnt repeat AK_MAX ;ÃƤκÇÂç¿ô(4) if REI_AK_f(cnt,TEK_G) = 0 { ;«»¥¤Î¥Õ¥é¥° REI_AK_f(cnt,TEK_G) = 1 ;«»¥¤Î¥Õ¥é¥° es_exnew RI_SP_D, 1500,1507 REI_AK_xx = REI_AK_x(cnt,TEK_G) : REI_AK_yy = REI_AK_y(cnt,TEK_G) ;ºÂɸµ­Ï¿ es_set RI_SP_D, REI_AK_xx,REI_AK_yy, 1500 es_type RI_SP_D,64 es_apos RI_SP_D, 0,1 ;¢­¤Ë°ÜÆ° if TEK_G >= 1 : es_apos RI_SP_D, 0,-1 ;¢¬¤Ë°ÜÆ° ;---¥°¥ì¥¤¥º¾ðÊó--- GURE_TYPE = 6 ;¥°¥ì¥¤¥º¢­¥¿¥¤¥× if TEK_G >= 1 : GURE_TYPE = 7 ;¥°¥ì¥¤¥º¢¬¥¿¥¤¥× gosub *¥°¥ì¥¤¥º½èÍý } loop loop ;---ºï½üȽÄê--- RI_SP_no = 1601 ;·ë³¦¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ repeat 12 TEK_G = cnt repeat ;·ë³¦¤ËÀÜ¿¨¤¹¤ë²ÄǽÀ­¤Î¤¢¤ëÀÖ»¥¤òÁ´¤Æ³Îǧ¤¹¤ë es_check RI_SP_VS_KEKKAI ,RI_SP_no,64 if RI_SP_VS_KEKKAI != -1 { es_kill RI_SP_VS_KEKKAI ;«»¥¡Úºï½ü¡Û es_kill RI_SP_VS_KEKKAI + 4000 ;¥°¥ì¥¤¥º¡Úºï½ü¡Û REI_AK_f(cnt,TEK_G) = 0 ;«»¥¤Î¥Õ¥é¥° } else { break ;ÀÜ¿¨¤·¤Æ¤¤¤ë«»¥¤¬Ìµ¤±¤ì¤Ð¥ë¡¼¥×¤òÈ´¤±¤ë } loop RI_SP_no++;·ë³¦¥×¥é¥¤¥È¸¡º÷³«»Ï¥Ê¥ó¥Ð¡¼ loop return ;***********¥°¥ì¥¤¥º½èÍý*********** *¥°¥ì¥¤¥º½èÍý ;»Í³Ñ(3wye) if GURE_TYPE = 1 { GURE_no = REIMU_TM + 3000;2000+3000 = 5000 es_set GURE_no, REIMU_x-23,REIMU_y-21, 5000 es_adir GURE_no, REIMU_ang2,300 } ;±ß·Á if GURE_TYPE = 5 { GURE_no = EN + 2100 ;3000+2100 = 5100 es_set GURE_no, EN_x-18,EN_y-18, 5000 es_apos GURE_no, 1,0, 200 ;200¤Î¥¹¥Ô¡¼¥É¤Ç¢ª¤Ë°ÜÆ°¤¹¤ë } ;«»¥ if GURE_TYPE = 6 { GURE_no = RI_SP_D + 3700;1500+3700 = 5200 es_set GURE_no, REI_AK_xx-18,REI_AK_yy-18, 5000 es_apos GURE_no, 0,1 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë } if GURE_TYPE = 7 { GURE_no = RI_SP_D + 3700;1500+3700 = 5200 es_set GURE_no, REI_AK_xx-18,REI_AK_yy-18, 5000 es_apos GURE_no, 0,-1 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢¬¤Ë°ÜÆ°¤¹¤ë } es_type GURE_no, 128 return



¥¢¥¤¥É¥ë

¥ê¥ó¥¯

2020/11/30(Mon) 19:41:21|NO.91870

²ò·è¤Ë¥Á¥§¥Ã¥¯Æþ¤ì¤ë¤Î˺¤ì¤Æ¤Þ¤·¤¿

¸å¡¢²¼¤Î¥³¥á¥ó¥È¤Ç¤Ï¡Ö= 5200¡×¤È½ñ¤¤¤Æ¤Þ¤¹¤¬¡¢
¡ÖGURE_TYPE = 7¡×¤Ç¤Ï¡¢¡Ö5004¡×¤«¤é¥¹¥¿¡¼¥È¤·¤Æ¤¤¤ë¤³¤È¤Ï¤ï¤«¤Ã¤Æ¤¤¤Þ¤¹¡£

;«»¥ if GURE_TYPE = 6 { GURE_no = RI_SP_D + 3700;1500+3700 = 5200 es_set GURE_no, REI_AK_xx-18,REI_AK_yy-18, 5000 es_apos GURE_no, 0,1 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢­¤Ë°ÜÆ°¤¹¤ë } if GURE_TYPE = 7 { GURE_no = RI_SP_D + 3700;1500+3700 = 5200¢«¸í¤ê ;1504+3700 = 5204¢«Àµ¤·¤¤ es_set GURE_no, REI_AK_xx-18,REI_AK_yy-18, 5000 es_apos GURE_no, 0,-1 ;100¤Î¥¹¥Ô¡¼¥É¤Ç¢¬¤Ë°ÜÆ°¤¹¤ë }



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