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


HSPTV!·Ç¼¨ÈÄ


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

2021
1014
¥¢¥­¥¢¥­¥Î¥Ò¥í¥í¤ª¤Ë¤¿¤Þ¤µ¤ó¤Î[#defcfunc alien]¤ËʪÍýˡ§¤òÍ»¹ç4²ò·è


¥¢¥­¥¢¥­¥Î¥Ò¥í¥í

¥ê¥ó¥¯

2021/10/14(Thu) 12:41:53|NO.94165

¡Ø¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)¡Ù¤Ç¤¹¡£
¥³¥ó¥Æ¥¹¥È±þÊç"ANIMAL_ISLAND"¤Ç¤ÎÉÔÅÔ¹ç¤ò²þÁ±¤·¤è¤¦¤È¡¢¹©Éפ·¤Þ¤·¤¿¡£

¤â¤È¤Ï¡¢¤ª¤Ë¤¿¤Þ¤µ¤ó¤Î[#defcfunc alien]¤Ç¤¹¡£
https://qiita.com/onionsoftware/items/d9c837725251ae89a376

¤³¤ì¤ò¼è¤êÆþ¤ì¤¿»þ¡¢¤¢¤È¤òÄɤ¦¥â¥Ç¥ë¤ËʪÍýÀßÄꤹ¤ë¤Î¤ò½é¤á¤«¤éÄü¤á¤Æ¤¤¤Þ¤·¤¿¡£
¤·¤«¤·¡¢¤ä¤Ï¤êÄÉ¿ï¥â¥Ç¥ë¤¬¤É¤ó¤Ê¤â¤Î¤âÁÇÄ̤êÄ̲ᤷ¤Æ¤·¤Þ¤¦¤Î¤Ï¡¢¥À¥á¤À¡£
¤Ç¡¢¤É¤¦¤Ë¤«¤·¤¿¥¹¥¯¥ê¥×¥È¤Ç¤¹¡£
¤³¤ì¤ò¡Ösample/hgimg4/¡×¤ËÆþ¤ì¤Æ¼Â¹Ô¤·¤Æ¤ß¤Æ²¼¤µ¤¤¡£

¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)

#include "hgimg4.as" title "¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)" gpreset setcls CLSMODE_SOLID, $404040 gpfloor id_floor, 15,15, $00ffff ; ¾²¥Î¡¼¥É¤òÄɲà gppbind id_floor, 0 ; [ÃÏÌÌ]¤ÎʪÍýÀßÄê¤ò¹Ô¤Ê¤¦ setpos GPOBJ_CAMERA, 0,5,15 ; ¥«¥á¥é°ÌÃÖ¤òÀßÄê box_x=0.0 : box_y=0.3 : box_z=0.0 ;¢®¢®[tamane]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox ta_box, 0.6, 0x3333ff ; [tamane]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos ta_box, box_x, box_y, box_z setcoli ta_box, 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind ta_box, 1.0, 1.0 ; ʪÍýÀßÄê setalpha ta_box, 32 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_tamane, "res/tamane" ; [tamane]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_tamane, 0.006,0.006,0.006 setpos id_tamane, box_x, box_y-0.3, box_z ;¢®¢®¥¿¡¼¥²¥Ã¥È¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox target, 0.2, 0xff0000 ; ¥¿¡¼¥²¥Ã¥ÈÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÖ¿§) setpos target, box_x-1, box_y-0.1, box_z-1 ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® ;¢®¢®[tamane2]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox ta2_box, 0.6, 0x3333ff ; [tamane2]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos ta2_box, -6, 0.3, 5 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) setcoli ta2_box, 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind ta2_box, 1.0, 1.0 ; ʪÍýÀßÄê setalpha ta2_box, 32 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_tamane2, "res/tamane2" ; [tamane2]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_tamane2, 0.007,0.007,0.007 setpos id_tamane2, 0, 0.0, 0 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) ; ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¡¢[tamane2]ÍÑÈ¢¤Î°ÌÃÖ¤ò¥³¥Ô¡¼ ;¢®¢®¾ã³²Êª¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox block, 1.2, 0xffff00 ; ¾ã³²ÊªÍÑÈ¢¥Î¡¼¥É¤òÄɲà (²«¿§) setpos block, -2, 0.6, 2 setcoli block, 1, 1 gppbind block, 0 ; ʪÍýÀßÄê = Æ°¤«¤Ê¤¤ setalpha block, 192 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® *MainLoop stick key,15 if key&128 : end ; ¥¿¥Ã¥Á¤Ç¥«¥á¥é°ÌÃÖ¤òÆ°¤«¤¹ if dragmd { ; ¥É¥é¥Ã¥°Ãæ getkey a,1 if a=1 { dx=0.05*(mousex-dragx)+cx dy=0.05*(mousey-dragy)+cy setpos GPOBJ_CAMERA, dx,dy,cz } else { dragmd=0 } } else { ; ¥É¥é¥Ã¥°¤Ê¤· getkey a,1 if a { dragx=mousex:dragy=mousey getpos GPOBJ_CAMERA, cx,cy,cz dragmd=1 } } gplookat GPOBJ_CAMERA, 0,0,0 ; ¥«¥á¥é¤«¤é»ØÄꤷ¤¿ºÂɸ¤ò¸«¤ë ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ ; ¥«¡¼¥½¥ë¥­¡¼¤Ç[ta_box]¤òÆ°¤«¤¹ if key&1 : gppapply ta_box, GPPAPPLY_IMPULSE, -0.1, 0.0, 0.0 if key&4 : gppapply ta_box, GPPAPPLY_IMPULSE, 0.1, 0.0, 0.0 if key&8 : gppapply ta_box, GPPAPPLY_IMPULSE, 0.0, 0.0, 0.1 if key&2 : gppapply ta_box, GPPAPPLY_IMPULSE, 0.0, 0.0, -0.1 getpos ta_box, x, y, z setpos id_tamane, x, y-0.3, z setpos target, x-1, y-0.1, z-1 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ getpos ta2_box, now_x, now_y, now_z ; [ta2_box]¤Î ¸½ºß¤Î°ÌÃÖ etx=alien( now_x, x-1) ; [ta2_box]¤Î ¿Ê¤à¤Ù¤­ XºÂɸ etz=alien( now_z, z-1) ; [ta2_box]¤Î ¿Ê¤à¤Ù¤­ ZºÂɸ ;¢£¢£ ¿·µ¬´Ø¿ô[#defcfunc alien] ¤Ø¹Ô¤¯ ¡á [gosub *#defcfunc alien ¡Á return Ìá¤êÃÍ] ¤Î¤è¤¦¤Ê¤«¤¿¤Á // setpos ta2_box, etx, 0.0, etz ; ¥á¥¤¥ó¥ë¡¼¥×Ëè»þ¤Î [ta2_box]¤Î¿Ê¤à¤Ù¤­[etx, 0.0, etz]¤Î°ÌÃÖ ¤È ¸½ºß¤Î[ta2_box]¤Î°ÌÃÖ ¤È¤Îº¹ impulse_x = etx - now_x ; XÊý¸þ¤Îº¹ impulse_z = etz - now_z ; ZÊý¸þ¤Îº¹ ; ¤³¤Îº¹¤òX,ZÊý¸þ¤Î[impulse]¤È¤·¤Æ¡¢[GPPAPPLY_IMPULSE]¤Ç¡¢[ta2_box]¤òÆ°¤«¤¹ gppapply ta2_box, GPPAPPLY_IMPULSE, impulse_x, 0, impulse_z ; Æ°¤¤¤¿[ta2_box]¤Î°ÌÃÖ¤ò¡¢[id_tamane2]¤Ë¥³¥Ô¡¼ getpos ta2_box, x, y, z setpos id_tamane2, x, y-0.3, z ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ redraw 0 ; ÉÁ²è³«»Ï gpdraw ; ¥·¡¼¥ó¤ÎÉÁ²è redraw 1 ; ÉÁ²è½ªÎ» await 1000/60 ; ÂÔ¤Á»þ´Ö goto *MainLoop ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® #defcfunc alien double value, double value2 ; [double] = ¼Â¿ôÃͤËÊÑ´¹ esp(0)=0.09*1.5 : esp(1)=0.08*1.5 ; [tamane2]ÍÑÈ¢ ¤Î°ÜÆ°¥¹¥Ô¡¼¥É ; res=limitf( value2-value, -esp(0), esp(1) ) ; [limit] ¤Ç¤Ï¤Ê¤¯¡¢[limitf]¼Â¿ôÃÍ ¤È¤¹¤ë ; return value+res ; ¾åµ­¤Î£²¼°¤ò¹ç¤ï¤»¤Æ ¢­¢­ return value+limitf( value2-value, -esp(0), esp(1) ) ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®
Êý¸þ¥­¡¼¤Ç¡¢[tamane]¤òÆ°¤«¤¹¤È¡¢[tamane2]¤âÆ°¤­¤Þ¤¹¡£
ʪÍýÀßÄꤷ¤Æ¤¤¤ë[ta2_box]¤Î°ÌÃÖ¤ò¥³¥Ô¡¼¤·¤Æ¤¤¤ë¤Î¤Ç¡¢¾ã³²Êª¤Ç¤Ä¤Ã¤«¤¨¤Þ¤¹¡£
[tamane]¤Ë²óž¤ÎÆ°¤­¤ò²Ã¤¨¤¿¤ê¡¢[ta2_box]¤ò¤µ¤é¤Ê¤ë¥¿¡¼¥²¥Ã¥È¤È¤·¤Æ¡¢Æó¿ÍÌܤÎÄÉ¿ï¼Ô¤ò²Ã¤¨¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£
¹¹¤Ë¹¹¤Ë¡¢»°¿ÍÌÜ¡¢»Í¿ÍÌܤʤó¤Æ¤³¤È¤â¡¢ÊªÍýÀßÄêÉÕ¤­¤Ç¡£



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


¥¢¥­¥¢¥­¥Î¥Ò¥í¥í

¥ê¥ó¥¯

2021/10/16(Sat) 22:04:07|NO.94175

Ê£¿ô¤ÎÄÉ¿ï¼Ô(¤³¤³¤Ç¤Ï£³¿Í)¤Î¥¹¥¯¥ê¥×¥È¤òºÜ¤»¤Þ¤¹¡£
¤¿¤À¡¢³Æ¥¿¡¼¥²¥Ã¥È¤ò¤½¤ì¤¾¤ì¤Î¥­¥ã¥é¤Î¿¿¸å¤í¤Ë¤¹¤ë¤È¡¢¥ê¡¼¥À¡¼¤Î¤Á¤ç¤Ã¤È¤·¤¿Æ°¤­¤Ç¤â¡¢¿¶¤ìÉý¤¬Â礭¤¯¤Ê¤ê¤¹¤®¤Þ¤¹¡£
Æ°¤­¤ÏÌÌÇò¤¤¤±¤É......¡£¥×¥í¥°¥é¥à¤ËÁȤ߹þ¤à¤È¡¢ÉÔÅÔ¹ç¤Ê¤³¤È¤¬µ¯¤³¤ê¤ä¤¹¤¤¤Ç¤·¤ç¤¦¡£
¥ê¡¼¥À¡¼¿¿¸å¤í¤ËÅù´Ö³Ö¤ÇÃÖ¤¤¤¿Êý¤¬°·¤¤¤ä¤¹¤½¤¦¤Ç¤¹¡£
½ñ¤­´¹¤¨¤Î¥³¥á¥ó¥È¤Î¤¢¤ë¹Ô¤ò¢¡¢¡¡Á¢¡¢¡¤ÇÃÖ¤­´¹¤¨¤ë¤È¡¢³Æ¥¿¡¼¥²¥Ã¥È¤òÅù´Ö³Ö¤Ë¤·¤¿¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹¡£
¡Ösample/hgimg4/¡×¤ËÆþ¤ì¤Æ¼Â¹Ô¤·¤Æ¤ß¤Æ²¼¤µ¤¤¡£

#include "hgimg4.as" title "¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)" gpreset setcls CLSMODE_SOLID, $404040 gptexmat id_tex, "hsp3dish.png" ; ¥Æ¥¯¥¹¥Á¥ã¥Þ¥Æ¥ê¥¢¥ëºîÀ® gpfloor id_floor, 50, 50, , id_tex ; ¾²¥Î¡¼¥É¤òÄɲà gppbind id_floor, 0 setpos GPOBJ_CAMERA, 0,5,15 ; ¥«¥á¥é°ÌÃÖ¤òÀßÄê box_w=0.6 : box_x=0.0 : box_y=box_w/2 : box_z=0.0 ;¢®¢®[id_model(0)]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox mo_box(0), box_w, 0x3333ff ; [id_model(0)]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos mo_box(0), box_x, box_y, box_z setcoli mo_box(0), 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind mo_box(0), 1.0, 1.0 ; ʪÍýÀßÄê setalpha mo_box(0), 64 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_model(0), "res/tamane" ; [tamane]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_model(0), 0.006,0.006,0.006 setpos id_model(0), box_x, box_y-box_y/2, box_z ;¢®¢®[id_model(1)]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox mo_box(1), 0.6, 0x3333ff ; [id_model(1)]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos mo_box(1), -6, 0.3, 5 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) setcoli mo_box(1), 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind mo_box(1), 1.0, 1.0 ; ʪÍýÀßÄê setalpha mo_box(1), 64 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_model(1), "res/tamane2" ; [tamane2]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_model(1), 0.007,0.007,0.007 setpos id_model(1), 0, 0.0, 0 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) ; ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¡¢[id_model(1)]ÍÑÈ¢¤Î°ÌÃÖ¤ò¥³¥Ô¡¼ ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® getpos mo_box(1), x, y, z ;¢®¢®[id_model(2)]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox mo_box(2), 0.6, 0x3333ff ; [id_model(2)]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos mo_box(2), x-1, y, z-1 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) setcoli mo_box(2), 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind mo_box(2), 1.0, 1.0 ; ʪÍýÀßÄê setalpha mo_box(2), 64 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_model(2), "res/tamane2" ; [tamane2]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_model(2), 0.004,0.006,0.004 setpos id_model(2), 2, 0.0, 2 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) ; ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¡¢[id_model(2)]ÍÑÈ¢¤Î°ÌÃÖ¤ò¥³¥Ô¡¼ ;¢®¢®[id_model(3)]¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox mo_box(3), 0.6, 0x3333ff ; [id_model(3)]ÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÄ¿§) setpos mo_box(3), x-3, y, z-3 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) setcoli mo_box(3), 1, 1 ; ¥³¥ê¥¸¥ç¥ó¥°¥ë¡¼¥×ÀßÄê gppbind mo_box(3), 1.0, 1.0 ; ʪÍýÀßÄê setalpha mo_box(3), 64 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpload id_model(3), "res/tamane2" ; [tamane2]¥â¥Ç¥ëÆɤ߹þ¤ß setscale id_model(3), 0.005,0.007,0.005 setpos id_model(3), 2, 0.0, 2 ; ²¾¤Î½é´ü°ÌÃÖ(´ðËÜŪ¤Ë¤É¤³¤Ç¤â¤¤¤¤) ; ¥á¥¤¥ó¥ë¡¼¥×Æâ¤Ç¡¢[id_model(3)]ÍÑÈ¢¤Î°ÌÃÖ¤ò¥³¥Ô¡¼ ;¢®¢®¾ã³²Êª¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox block_A, 1.2, 0xffff00 ; ¾ã³²ÊªÍÑÈ¢¥Î¡¼¥É¤òÄɲà (²«¿§) setpos block_A, -2, 0.6, 2 setcoli block_A, 1, 1 gppbind block_A, 0 ; ʪÍýÀßÄê = Æ°¤«¤Ê¤¤ setalpha block_A, 192 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpbox block_B, 1.2, 0xffff00 ; ¾ã³²ÊªÍÑÈ¢¥Î¡¼¥É¤òÄɲà (²«¿§) setpos block_B, 3, 0.6, -8 setcoli block_B, 1, 1 gppbind block_B, 0 ; ʪÍýÀßÄê = Æ°¤«¤Ê¤¤ setalpha block_B, 192 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ gpbox block_C, 1.2, 0xffff00 ; ¾ã³²ÊªÍÑÈ¢¥Î¡¼¥É¤òÄɲà (²«¿§) setpos block_C, 6, 0.6, 4 setcoli block_C, 1, 1 gppbind block_C, 0 ; ʪÍýÀßÄê = Æ°¤«¤Ê¤¤ setalpha block_C, 192 ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ ;¢®¢®¥¿¡¼¥²¥Ã¥È¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpbox target(0), 0.2, 0xff0000 ; ¥¿¡¼¥²¥Ã¥ÈÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÖ¿§) gpbox target(1), 0.2, 0xff0000 ; ¥¿¡¼¥²¥Ã¥ÈÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÖ¿§) gpbox target(2), 0.2, 0xff0000 ; ¥¿¡¼¥²¥Ã¥ÈÍÑÈ¢¥Î¡¼¥É¤òÄɲà (ÀÖ¿§) ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® gpact id_model(0) gpact id_model(1) gpact id_model(2) gpact id_model(3) number=3 ; ½¾¼Ô¤Î¿Í¿ô ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® *MainLoop stick key,15 if key&128 : end if key&2 { ; ¢£¢£ [¢¬]¥­¡¼¤Ç¡¢Á°¿Ê ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤È°ã¤¦¤Ê¤é¤Ð if model_cnt!=ca_cnt : gosub *model_cnt_set ; [¥â¥Ç¥ë=id_model(0)] ¤Î¸þ¤­¤òÁàºî ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤ËƱ¤¸¤Ê¤é¤Ð if model_cnt=ca_cnt { ; deg2rad(ca_deg) = ¥«¥á¥é³ÑÅÙ(ca_deg)¤ò¥é¥¸¥¢¥ó¤ËÊÑ´¹¤·¤Æ Mx=sin (deg2rad(ca_deg))*(0.1) Mz=cos (deg2rad(ca_deg))*(0.1) gppapply mo_box(0), GPPAPPLY_IMPULSE, Mx, 0.0, Mz ; ¼î²»ÍÑÈ¢¤Ë[GPPAPPLY_IMPULSE](=½Ö´ÖŪ¤Ê¾×·â)¤òÍ¿¤¨¤ë } setangr id_model(0), 0.0, model_cnt, 0.0 } if key&8 { ;¢£¢£ [¢­]¥­¡¼¤Ç¡¢¸åÂà ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤È°ã¤¦¤Ê¤é¤Ð if model_cnt!=ca_cnt : gosub *model_cnt_set ; [¥â¥Ç¥ë=id_model(0)] ¤Î¸þ¤­¤òÁàºî ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤ËƱ¤¸¤Ê¤é¤Ð if model_cnt=ca_cnt { ; deg2rad(ca_deg) = ¥«¥á¥é³ÑÅÙ(ca_deg)¤ò¥é¥¸¥¢¥ó¤ËÊÑ´¹¤·¤Æ Mx=sin (deg2rad(ca_deg))*(-0.03) Mz=cos (deg2rad(ca_deg))*(-0.03) gppapply mo_box(0), GPPAPPLY_IMPULSE, Mx, 0.0, Mz } setangr id_model(0), 0.0, model_cnt, 0.0 } ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ; ¼¡¤Î ­¡¢ª­¢¢ª­£¢ª­¤ ¤ò·«¤êÊÖ¤¹¤³¤È¤Ç¡¢½ç¼¡¡¢¸å¤òÄɤäƤ¤¤¯¥â¥Ç¥ë¤ÎÆ°¤­¤È¤Ê¤ë ; ¤¿¤À¡¢¼ç¿Í¤È¤Ê¤ë[¥â¥Ç¥ë]¤Ï¡¢Áàºî¤Ë¤è¤ë²óž/°ÜÆ°(°ÌÃÖ·è¤á)¤Ê¤Î¤Ç¡¢¼«¤é¤Î[¥¿¡¼¥²¥Ã¥È]¤Ï¤Ê¤¤ ; ÅöÁ³¡¢­¡ ¤Ï¤Ê¤¯¡¢¼¡¤Î ­¢ ¤«¤é»Ï¤Þ¤ê¡¢Áàºî¤·¤Æ¤¤¤ë [¥Ü¥Ã¥¯¥¹] ¤Ë ¼ç¿Í¤Î [¥â¥Ç¥ë] ¤ò¥»¥Ã¥È ; ­£ ¤Î²óž¤ÎÂå¤ï¤ê¤Ë¡¢¤½¤ì¤ÈϢư¤¹¤ë¥«¥á¥é¤ÎÆ°¤­¤òÆþ¤ì¤ë ; ­¤ ¤Î²óžÃͤϡ¢Áàºî¤Ë¤è¤ë²óž¤Ê¤Î¤Ç¡¢¤³¤ì¤Þ¤¿ÅöÁ³¡¢µá¤á¤ëɬÍפϤʤ¯ ; ¼¡¤Î ­¡ ¤Ç¡¢¼«¤é¤Î[¥â¥Ç¥ë] ¤Î²óžÃͤˡ¢Áàºî¤Ë¤è¤ë²óžÃÍ(model_cnt)¤ò»È¤Ã¤Æ¡¢ºÇ½é¤Î½¾¼ÔÍѤÎ[¥¿¡¼¥²¥Ã¥È]¤Î°ÌÃÖ·è¤á¤ò¤¹¤ë ; ¤³¤³¤«¤é¤Ï¡¢­¢¢ª­£¢ª­¤¢ª­¡¢ª­¢¢ª­£ ¤È¥ë¡¼¥×¤·¤Æ¤¤¤¯¤¬¡¢ºÇ¸å¤Î½¾¼Ô¤Ï¡¢­£ ¤Ç¥ë¡¼¥×½ªÎ» ; ¢£¢£ ­¡ ¢£¢£ [¥â¥Ç¥ë] ¤Î²óž¤Ë±þ¤¸¤Æ¡¢¤½¤Î[¥â¥Ç¥ë]¤Î¸å¤í¤Ë ¼¡¤Î [¥¿¡¼¥²¥Ã¥È] ¤Î°ÌÃÖ¤ò·è¤á¤ë ; ¢£¢£ ­¢ ¢£¢£ [¥¿¡¼¥²¥Ã¥È] ¤Ë¶á¤Å¤¤¤Æ¹Ô¤¯ [¥Ü¥Ã¥¯¥¹] ¤Ë [¥â¥Ç¥ë] ¤ò¥»¥Ã¥È ; ¢£¢£ ­£ ¢£¢£ ¤½¤Î [¥â¥Ç¥ë] ¤Î¸þ¤­¤ò Á°¤Î [¥â¥Ç¥ë] ¤ÎÊý¸þ¤Ë¸þ¤­Ä¾¤¹ ; ; ¢£¢£ ­¤ ¢£¢£ Áàºî¤·¤Æ¤¤¤ë [¥â¥Ç¥ë] ¤Î²óžÃͤòµá¤á¤ë ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ;¢£¢£ ­¢ ¢£¢£ Áàºî¤·¤Æ¤¤¤ë [¥Ü¥Ã¥¯¥¹=mo_box(0)] ¤Ë ¼ç¿Í¤Î [¥â¥Ç¥ë=id_model(0)] ¤ò¥»¥Ã¥È ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ getpos mo_box(0), x, y, z setpos id_model(0), x, y-box_w/2, z ;¢£¢£ ­£ ¢£¢£ (¥«¥á¥é¤ò¥»¥Ã¥È)¤½¤Î [¥â¥Ç¥ë=id_model(0)] ¤Î¸þ¤­¤òÁàºî ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ base_x=x : base_y=y : base_z=z gosub *camera_set ; ¥«¥á¥é¤ò¥»¥Ã¥È repeat number + 1 ; number=3 if cnt!=0 { ; ¼ç¿Í ¤Ç¤Ê¤±¤ì¤Ð ;¢£¢£ ­£ ¢£¢£ ¤½¤Î [¥â¥Ç¥ë=id_model(cnt)] ¤Î¸þ¤­¤ò Á°¤Î [¥â¥Ç¥ë=id_model(cnt-1)] ¤ÎÊý¸þ¤Ë¸þ¤­Ä¾¤¹ ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ getpos id_model(cnt-1), mo_x, mo_y, mo_z gplookat id_model(cnt), mo_x, mo_y, mo_z addangr id_model(cnt), 0, 128, 0 ;¢£¢£ ­¤ ¢£¢£ ¤½¤Î [¥â¥Ç¥ë=id_model(cnt)] ¤Î²óžÃͤòµá¤á¤ë ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ;¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡ getangr id_model(cnt), angr_x, angr_y, angr_z ;¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡ if angr_x = 0 { angr255_y = ( angr_y+256) \ 256 } else { angr255_y = (-angr_y+384) \ 256 } ;¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡¡»¡ü¢¢¢£¡þ¢¡ } ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ;¢£¢£ ­¡ ¢£¢£ [¥â¥Ç¥ë] ¤Î²óž¤Ë±þ¤¸¤Æ¡¢¤½¤Î[¥â¥Ç¥ë=id_model(cnt)]¤Î¸å¤í¤Ë ¼¡¤Î [¥¿¡¼¥²¥Ã¥È=target(cnt)] ¤Î°ÌÃÖ¤ò·è¤á¤ë ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ if cnt=0 : angr_cnt=model_cnt ; ¼ç¿Í ¤Ê¤é¤Ð if cnt!=0 : angr_cnt=angr255_y ; ¼ç¿Í ¤Ç¤Ê¤±¤ì¤Ð if cnt!=number { ; ºÇ¸å¤Î½¾¼Ô ¤Ç¤Ê¤±¤ì¤Ð mo_deg=360* angr_cnt /256 ;¤³¤Î¹Ô¤ò ¢¡¢¡[ mo_deg=360* model_cnt /256 ]¢¡¢¡ ¤Ç¡¢¥¿¡¼¥²¥Ã¥ÈÅù´Ö³Ö marker_x=sin (deg2rad(mo_deg))*1.2 ;¤³¤Î¹Ô¤ò ¢¡¢¡[ marker_x=sin (deg2rad(mo_deg))*1.2 *(cnt+1) ]¢¡¢¡ ¤Ç¡¢¥¿¡¼¥²¥Ã¥ÈÅù´Ö³Ö marker_z=cos (deg2rad(mo_deg))*1.2 ;¤³¤Î¹Ô¤ò ¢¡¢¡[ marker_z=cos (deg2rad(mo_deg))*1.2 *(cnt+1) ]¢¡¢¡ ¤Ç¡¢¥¿¡¼¥²¥Ã¥ÈÅù´Ö³Ö getpos mo_box(cnt), x, y, z setpos target(cnt), x-marker_x, 0.1, z-marker_z getpos target(cnt), target_x, target_y, target_z ; ¤½¤Î [¥¿¡¼¥²¥Ã¥È=target(cnt)] ¤Ë¡¢¼¡¤Î [¥Ü¥Ã¥¯¥¹=mo_box(cnt+1)] ¤ò ¶á¤Å¤±¤Æ¤¤¤¯ ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ getpos mo_box(cnt+1), now_x, now_y, now_z ; [mo_box(cnt+1)]¤Î ¸½ºß¤Î°ÌÃÖ etx=alien( now_x, target_x) ; [mo_box(cnt+1)]¤Î ¿Ê¤à¤Ù¤­ XºÂɸ etz=alien( now_z, target_z) ; [mo_box(cnt+1)]¤Î ¿Ê¤à¤Ù¤­ ZºÂɸ ;¢£¢£ ¿·µ¬´Ø¿ô[#defcfunc alien] ¤Ø¹Ô¤¯ ¡á [gosub *#defcfunc alien ¡Á return Ìá¤êÃÍ] ¤Î¤è¤¦¤Ê¤«¤¿¤Á // setpos mo_box(cnt+1), etx, 0.0, etz ; ¥á¥¤¥ó¥ë¡¼¥×Ëè»þ¤Î [mo_box(cnt+1)]¤Î¿Ê¤à¤Ù¤­[etx, 0.0, etz]¤Î°ÌÃÖ ¤È ¸½ºß¤Î[mo_box(cnt+1)]¤Î°ÌÃÖ ¤È¤Îº¹ impulse_x = etx - now_x ; XÊý¸þ¤Îº¹ impulse_z = etz - now_z ; ZÊý¸þ¤Îº¹ ; ¤³¤Îº¹¤òX,ZÊý¸þ¤Î[impulse]¤È¤·¤Æ¡¢[GPPAPPLY_IMPULSE]¤Ç¡¢[¥Ü¥Ã¥¯¥¹=mo_box(cnt+1)]¤òÆ°¤«¤¹ gppapply mo_box(cnt+1), GPPAPPLY_IMPULSE, impulse_x, 0, impulse_z ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ;¢£¢£ ­¢ ¢£¢£ [¥¿¡¼¥²¥Ã¥È] ¤Ë¶á¤Å¤¤¤Æ¹Ô¤¯ [¥Ü¥Ã¥¯¥¹=mo_box(cnt+1)] ¤Ë [¥â¥Ç¥ë=id_model(cnt+1)] ¤ò¥»¥Ã¥È ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ getpos mo_box(cnt+1), x, y, z setpos id_model(cnt+1), x, y-box_w/2, z ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ ;¢£¢£ ­£ ¢£¢£ ¤½¤Î [¥â¥Ç¥ë=id_model(cnt+1)] ¤Î¸þ¤­¤ò Á°¤Î [¥â¥Ç¥ë=id_model(cnt)] ¤ÎÊý¸þ¤Ë¸þ¤­Ä¾¤¹ ;¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ getpos id_model(cnt), mo_x, mo_y, mo_z gplookat id_model(cnt+1), mo_x, mo_y, mo_z addangr id_model(cnt+1), 0, 128, 0 } loop ;¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬¨¬ redraw 0 ; ÉÁ²è³«»Ï gpdraw ; ¥·¡¼¥ó¤ÎÉÁ²è redraw 1 ; ÉÁ²è½ªÎ» await 1000/60 ; ÂÔ¤Á»þ´Ö goto *MainLoop ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® #defcfunc alien double value, double value2 ; [double] = ¼Â¿ôÃͤËÊÑ´¹ esp(0)=0.09*2.0 : esp(1)=0.08*2.0 ; [tamane2]ÍÑÈ¢ ¤Î°ÜÆ°¥¹¥Ô¡¼¥É ; res=limitf( value2-value, -esp(0), esp(1) ) ; [limit] ¤Ç¤Ï¤Ê¤¯¡¢[limitf]¼Â¿ôÃÍ ¤È¤¹¤ë ; return value+res ; ¾åµ­¤Î£²¼°¤ò¹ç¤ï¤»¤Æ ¢­¢­ return value+limitf( value2-value, -esp(0), esp(1) ) ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® *camera_set if key&1 { ; [¢«]¥­¡¼ ca_cnt++ if ca_cnt=256 : ca_cnt=0 } if key&4 { ; [¢ª]¥­¡¼ ca_cnt-- if ca_cnt=-256 : ca_cnt=0 } setangr GPOBJ_CAMERA, 0, ca_cnt, 0 // [¥â¥Ç¥ë¤Î¸þ¤­]¡â[¥«¥á¥é¤Î¸þ¤­]¤Î¾ì¹ç¤âÁȤßÆþ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¤³¤ÎÌ¿Îá¤Ïºï½ü // setangr id_model, 0, ca_cnt, 0 ; ¼î²»¤â¡¢¥«¥á¥é¤ÈƱ¤¸¤À¤±¤Î²óžÎÌ // [ca_cnt](=256¤Ç°ì²óž)¤òÁý¸º¤¹¤ë¤³¤È¤Ç¡¢¥«¥á¥é¤Î°ÜÆ°Êý¸þ¤Î³ÑÅÙ[ca_deg]¤òÊѤ¨¤ë // ñ°Ì·¸¿ô¤ò(-20)¤È¤·¤Æ¡¢¼î²»ÍÑÈ¢¤«¤é¤Î ¥«¥á¥é°ÌÃ֤ΣØ/£ÚÊý¸þ¤Îµ÷Î¥¤òµá¤á¡¢¥«¥á¥é¤ò¥»¥Ã¥È¤¹¤ë ca_deg=360*ca_cnt/256 ; deg2rad( ) = ÅÙ¤ò¥é¥¸¥¢¥ó¤ËÊÑ´¹ Cx=sin (deg2rad(ca_deg))*(-20) Cz=cos (deg2rad(ca_deg))*(-20) setpos GPOBJ_CAMERA, base_x+Cx, base_y+10, base_z+Cz ; ¥«¥á¥é¤ò¥»¥Ã¥È gplookat GPOBJ_CAMERA, base_x, base_y-7, base_z ; ¥«¥á¥é¤«¤é»ØÄꤷ¤¿ºÂɸ(¼î²»ÍÑÈ¢Êý¸þ)¤ò¸«¤ë return ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢® *model_cnt_set ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤è¤êÂ礭¤¤¤Ê¤é¤Ð if model_cnt>ca_cnt { sa=model_cnt-ca_cnt if sa<=128 : model_cnt-- : if model_cnt<ca_cnt : model_cnt=ca_cnt if sa>128 : model_cnt++ : if model_cnt>(ca_cnt+256) : model_cnt=ca_cnt } ; [¥â¥Ç¥ë¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤¬ [¥«¥á¥é¤Î¸þ¤­¤ÎÊѲ½ÎÌ] ¤è¤ê¾®¤µ¤¤¤Ê¤é¤Ð if model_cnt<ca_cnt { sa=model_cnt-ca_cnt if sa>=-128 : model_cnt++ : if model_cnt>=ca_cnt : model_cnt=ca_cnt if sa<-128 : model_cnt-- : if model_cnt<=(ca_cnt-256) : model_cnt=ca_cnt } return ;¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®¢®



¥¢¥­¥¢¥­¥Î¥Ò¥í¥í

¥ê¥ó¥¯

2021/10/17(Sun) 07:07:54|NO.94176

Ê䭤Ǥ¹¡£
¤³¤Î¥¹¥¯¥ê¥×¥È¤Î´Î¤Ï¡¢°Ê²¼¤ÎÅÀ¤Ç¤¹¡£

ÌÜ°õ¤È¤Ê¤ë¥¿¡¼¥²¥Ã¥È¤Ø¸þ¤«¤Ã¤Æ½¾¼Ô¤ò¶á¤Å¤±¤Æ¹Ô¤¯»þ¡¢
[#defcfunc alien]¤Çµá¤á¤é¤ì¤¿¡¢¿Ê¤à¤Ù¤­¤Ï¤º¤Î°ÌÃ֤ȡ¢
¤½¤Î»þ½¾¼Ô¤¬¼ÂºÝ¤Ë¤¤¤ë°ÌÃ֤Ȥκ¹¤ò¡¢
X,ZÊý¸þ¤Î[impulse]¤È¤·¤Æ¡¢[GPPAPPLY_IMPULSE]¤Ç¡¢Æ°¤«¤¹¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¤â¤Á¤í¤ó¡¢ÊªÍýÀßÄꤷ¤Æ¤¢¤ë½¾¼ÔÍѤÎÈ¢¤òÆ°¤«¤¹¤³¤È¤Ç¡¢½¾¼Ô¤òÆ°¤«¤¹¤Î¤Ç¤¹¡£
¤³¤¦¤¹¤ë¤³¤È¤Ç¡¢½¾¼Ô¤ËʪÍýµóÆ°¤òÈ¿±Ç¤µ¤»¤ë¤Î¤Ç¤¹¡£

¤Þ¤¿¡¢¤³¤Î¥¿¡¼¥²¥Ã¥È¤Î°ÌÃ֤ηè¤áÊý¤Ç¡¢Á´ÂΤÎÆ°¤­¤âÊѤï¤Ã¤Æ¤¯¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£



¥¢¥­¥¢¥­¥Î¥Ò¥í¥í

¥ê¥ó¥¯

2021/10/19(Tue) 16:36:32|NO.94204

¥³¥ó¥Æ¥¹¥È±þÊçºî"ANIMAL_ISLAND"¤Ë¡¢¾åµ­¤Î¡Ø¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)¡Ù¤ò²¿¤È¤«ÁȤ߹þ¤à¤³¤È¤¬½ÐÍè¤Þ¤·¤¿¡£
¤³¤ì¤Ç¡¢ÁÇÄ̤êÄ̲á¤ÎÉÔÅÔ¹ç¤Ï¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¤¬¡¢ÍÍ¡¹¤ÊÀßÄê¿ôÃͤòÄ´À°¤·Ä¾¤¹¤Î¤Ë¡¢¤³¤ì¤Þ¤¿»þ´Ö¤¬¤«¤«¤ê¤½¤¦¤Ç¤¹¡£
¤È¤Ë¤«¤¯¡¢¥×¥í¥°¥é¥à¤Ø¤Î¸å¤«¤é¤ÎŬÍѤϤä¤Ã¤«¤¤¤Ê¤â¤Î¤Ç¤¹¤Í¡£
¤È¤ê¤¢¤¨¤º¤Ï¡¢°ìÃÊÍî¤Ä¤¤¤Æ¡¢¥Û¥Ã¤È¤·¤Þ¤·¤¿¡£



¥¢¥­¥¢¥­¥Î¥Ò¥í¥í

¥ê¥ó¥¯

2021/10/29(Fri) 13:49:19|NO.94246

¡Ø¥¾¥í¥¾¥í´Ø¿ô(+ʪÍýˡ§)¡Ù¤òÁȤ߹þ¤ó¤Ç¡¢"ANIMAL_ISLAND_ver1.1"¡¢¥¢¥Ã¥×¤·¤Æ¤­¤Þ¤·¤¿¡£
¥²¡¼¥à(¤Ç¤Ï¤Ê¤¤¤Ç¤¹¤¬)¤ÎÃæ¤Ç¤É¤ó¤Ê´¶¤¸¤ÇÆ°¤¤¤Æ¤¤¤ë¤Î¤«¡¢¸«¤Æ¤¤¤¿¤À¤±¤ë¤È¡¢¤¦¤ì¤·¤¤¤Ç¤¹¡£
¤Þ¤À¡¢¥¢¥Ã¥×¤·¤Æ¤­¤¿¤Ð¤«¤ê¤Ç¤¹¡£¥À¥¦¥ó¥í¡¼¥ÉOK¤Ë¤Ê¤Ã¤¿¤é¡¢ÇÁ¤¤¤Æ¸«¤Æ²¼¤µ¤¤¡£
¤Á¤ç¤Ã¤ÈŤ¯¤Æ¤Þ¤È¤Þ¤ê¤¬°­¤¤¤Ç¤¹¤¬¡¢¥¹¥¯¥ê¥×¥È¤â¸ø³«¤·¤Æ¤¤¤Þ¤¹¡£



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