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


HSPTV!·Ç¼¨ÈÄ


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

2011
1015
Spider²£¥¹¥¯¥í¡¼¥ë¥¢¥¯¥·¥ç¥ó²þÁ±¤·¤Þ¤·¤¿¡¦¡¦¡¦6²ò·è


Spider

¥ê¥ó¥¯

2011/10/15(Sat) 06:03:47|NO.42390

buffer 2
color : boxf 32 , 0 , 63 , 31 color 200 , 0 , 0 : boxf 64 , 0 , 95 , 31 screen 0 , 640 , 320 sdim map , 5000 sdim mapget , 20 dim ax , 200 dim ay , 200 dim FloorX , 1000 dim FloorY , 1000 notesel map //noteload "maps1.txt" map= " "+"\n" map+=" 000 000 "+"\n" map+=" 00000 "+"\n" map+=" "+"\n" map+=" 00000 00000 "+"\n" map+=" "+"\n" map+=" 00000 00000 "+"\n" map+=" "+"\n" map+=" "+"\n" map+=" M " noteget mapget , 0 /*¥á¥¤¥ó¥ë¡¼¥×*/ *Mainloop gosub *MyPositionSarch repeat redraw 0 if (cnt = 0) : MyX = MyX0 if (cnt = 0) : MyY = MyY0 gosub *MapDraw gosub *MyActivity gosub *HitCeack //²¾ºÂɸ¤òËܺÂɸ¤Ë¤¹¤ë MyX = MyX0 MyY = MyY0 redraw 1 await 16 loop /*¥Þ¥Ã¥×¥Ç¡¼¥¿¤ÎÃ椫¤é¼ç¿Í¸ø¤Î°ÌÃÖ¤ò¥µ¡¼¥Á*/ *MyPositionSarch x = 0 : y = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) if (buf = 'M'){ MyX0 = x * 32 MyY0 = y * 32 break } x++ if (x = 20) : x = 0 : y++ loop return /*¥Þ¥Ã¥×¤ÎÉÁ¼Ì*/ *MapDraw color 255 , 255 , 255 boxf x = 0 : y = 0 number = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) //Á´¤Æ¤Î¥Þ¥Ã¥×¥Á¥Ã¥×¤ÎºÂɸ¤ò¼èÆÀ ax(cnt) = x * 32 ay(cnt) = y * 32 if (buf = ' '){ gx = 0 gy = 0 } if (buf = '0'){ gx = 1 gy = 0 //ÉáÄ̤ξ²¤ÎºÂɸ¤ò¼èÆÀ FloorX(number) = ax(cnt) FloorY(number) = ay(cnt) number++ } pos x * 32 , y * 32 gcopy 2 , gx * 32 , gy * 32 , 32 , 32 x++ if (x = 20) : x = 0 : y++ loop return /*¼ç¿Í¸ø¤Î³èÆ°*/ *MyActivity pos MyX , MyY gcopy 2 , 64 , 0 , 32 , 32 if (land = 1) and (sp < 0) : sp = 0 if (land = 0){ MyY0 = MyY0 - sp sp-- } stick key , 5 if (key & 1) : MyX0 = MyX0 - 7 if (key & 4) : MyX0 = MyX0 + 7 if (MyY0 >= 288) : MyY0 = 288 : land = 1 if (key = 2) or (key = 3) or (key = 6) and (land = 1){ land = 0 sp = 15 } //Åö¤¿¤êȽÄêÍѤκÂɸ¤ÎÊÑ¿ô¤ÎºîÀ® MeTop = MyY0 MeLeft = MyX0 MeRight = MyX0 + 31 MeEnd = MyY0 + 31 return /*Åö¤¿¤êȽÄê*/ *HitCeack repeat number DotA = 0 DotB = 0 DotC = 0 DotD = 0 //»Í¶ù¤ÎÅÀ¤Î¾ðÊó¤ò¼èÆÀ if (MeTop / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotA = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotB = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotC = 1 if (MeTop / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotD = 1 Dot = DotA + DotB + DotC + DotD land = 0 //Íî²¼Ãæ¤Ë¾²¤Ë¾×ÆÍ if (DotB = 1) and (DotC = 1){ MyY0 = FloorY(cnt) - 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotB = 1) or (DotC = 1)){ if (MyY0 - MyY > 0){ if (MeEnd >= FloorY(cnt)){ MyY0 = FloorY(cnt) - 32 sp = 0 } } } } if (DotB = 1) or (DotC = 1) : land = 1 //¥¸¥ã¥ó¥×Ãæ¤ËÅ·°æ¤Ë¾×ÆÍ if (DotA = 1) and (DotD = 1){ MyY0 = FloorY(cnt) + 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotD = 1)){ if (MyY0 - MyY < 0){ MyY0 = FloorY(cnt) + 32 sp = 0 } } } //º¸¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotA = 1) and (DotB = 1){ MyX0 = FloorX(cnt) + 32 } if (MeEnd > FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotB = 1)){ if (key & 1){ MyX0 = FloorX(cnt) + 32 } } } //±¦¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotC = 1) and (DotD = 1){ MyX0 = FloorX(cnt) - 32 } if (MeEnd > FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotC = 1) or (DotD = 1)){ if (key & 4){ MyX0 = FloorX(cnt) - 32 } } } loop return

ORZ¤µ¤ó¤Î»ØŦ¤É¤¦¤ê½ñ¤«¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£
¤Ç¡¢ÌäÂê¤Ï¡¢
Åö¤¿¤êȽÄê¤Î¤È¤³¤í¤Ê¤Î¤Ç¤¹¤¬¡¢

­µ.¹õ¤¤¾²¤Ç¤Ï¥¸¥ã¥ó¥×¤Ç¤­¤Ê¤¤¡£
­¶.Íî²¼»þ¤Ë¹õ¤¤¾²¤Î¦Ì̤˾×Æͤ¹¤ë¤È¡¢¾å¤Ë¾è¤ë¡£
­·.¹õ¤¤¾²¤ËÃåΦ¤¹¤ë¤È¤­¤¹¤ë¤È¤­±¦¤ò²¡¤·¤Æ¤¤¤ì¤Ðº¸¤Ë¡¢
¡¡ º¸¤ò²¡¤·¤Æ¤¤¤ì¤Ð±¦¤Ë¾£Ìܥԥå¿¥ê¤Ë¤Ê¤ë¤è¤¦¤ËÆ°¤¯¡£
¡¡ ¡Ê¤Ä¤Þ¤ê¡¢¾£Ìܥԥå¿¥ê¤Ê¤éÆ°¤«¤Ê¤¤¡Ë

­·¤Ï¡¢¤¿¤Ö¤ó±¦¡õº¸¤ÎÅö¤¿¤ê¤ÏȽÄ꤬´Å¤¤¤ó¤À¤È»×¤¤¤Þ¤¹¤¬¡¢
­µ¡õ­¶¤Ï¡¢¸¶°ø¤¬¤µ¤Ã¤Ñ¤êʬ¤«¤ê¤Þ¤»¤ó¡¦¡¦¡¦

¤É¤¦¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡ª¡ª¡ª



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


Spider

¥ê¥ó¥¯

2011/10/15(Sat) 06:31:44|NO.42391

¤³¤ì¤¸¤ã¤¢­·¤Î»î¤·¤è¤¦¤¬¤¢¤ê¤Þ¤»¤ó¤Í¡£
¤¹¤ß¤Þ¤»¤ó¡¢ÄûÀµ¤Ç¤¹¡£


buffer 2
color : boxf 32 , 0 , 63 , 31 color 200 , 0 , 0 : boxf 64 , 0 , 95 , 31 screen 0 , 640 , 320 sdim map , 5000 sdim mapget , 20 dim ax , 200 dim ay , 200 dim FloorX , 1000 dim FloorY , 1000 notesel map //noteload "maps1.txt" map= " "+"\n" map+=" 000 000 "+"\n" map+=" 00000 "+"\n" map+=" "+"\n" map+=" 00000 00000 "+"\n" map+=" "+"\n" map+=" 00000 "+"\n" map+=" "+"\n" map+=" "+"\n" map+=" 00000 M 00000 " noteget mapget , 0 /*¥á¥¤¥ó¥ë¡¼¥×*/ *Mainloop gosub *MyPositionSarch repeat redraw 0 if (cnt = 0) : MyX = MyX0 if (cnt = 0) : MyY = MyY0 gosub *MapDraw gosub *MyActivity gosub *HitCeack //²¾ºÂɸ¤òËܺÂɸ¤Ë¤¹¤ë MyX = MyX0 MyY = MyY0 redraw 1 await 16 loop /*¥Þ¥Ã¥×¥Ç¡¼¥¿¤ÎÃ椫¤é¼ç¿Í¸ø¤Î°ÌÃÖ¤ò¥µ¡¼¥Á*/ *MyPositionSarch x = 0 : y = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) if (buf = 'M'){ MyX0 = x * 32 MyY0 = y * 32 break } x++ if (x = 20) : x = 0 : y++ loop return /*¥Þ¥Ã¥×¤ÎÉÁ¼Ì*/ *MapDraw color 255 , 255 , 255 boxf x = 0 : y = 0 number = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) //Á´¤Æ¤Î¥Þ¥Ã¥×¥Á¥Ã¥×¤ÎºÂɸ¤ò¼èÆÀ ax(cnt) = x * 32 ay(cnt) = y * 32 if (buf = ' '){ gx = 0 gy = 0 } if (buf = '0'){ gx = 1 gy = 0 //ÉáÄ̤ξ²¤ÎºÂɸ¤ò¼èÆÀ FloorX(number) = ax(cnt) FloorY(number) = ay(cnt) number++ } pos x * 32 , y * 32 gcopy 2 , gx * 32 , gy * 32 , 32 , 32 x++ if (x = 20) : x = 0 : y++ loop return /*¼ç¿Í¸ø¤Î³èÆ°*/ *MyActivity pos MyX , MyY gcopy 2 , 64 , 0 , 32 , 32 if (land = 1) and (sp < 0) : sp = 0 if (land = 0){ MyY0 = MyY0 - sp sp-- } stick key , 5 if (key & 1) : MyX0 = MyX0 - 7 if (key & 4) : MyX0 = MyX0 + 7 if (MyY0 >= 288) : MyY0 = 288 : land = 1 if (key = 2) or (key = 3) or (key = 6) and (land = 1){ land = 0 sp = 15 } //Åö¤¿¤êȽÄêÍѤκÂɸ¤ÎÊÑ¿ô¤ÎºîÀ® MeTop = MyY0 MeLeft = MyX0 MeRight = MyX0 + 31 MeEnd = MyY0 + 31 return /*Åö¤¿¤êȽÄê*/ *HitCeack repeat number DotA = 0 DotB = 0 DotC = 0 DotD = 0 //»Í¶ù¤ÎÅÀ¤Î¾ðÊó¤ò¼èÆÀ if (MeTop / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotA = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotB = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotC = 1 if (MeTop / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotD = 1 Dot = DotA + DotB + DotC + DotD land = 0 //Íî²¼Ãæ¤Ë¾²¤Ë¾×ÆÍ if (DotB = 1) and (DotC = 1){ MyY0 = FloorY(cnt) - 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotB = 1) or (DotC = 1)){ if (MyY0 - MyY > 0){ if (MeEnd >= FloorY(cnt)){ MyY0 = FloorY(cnt) - 32 sp = 0 } } } } if (DotB = 1) or (DotC = 1) : land = 1 //¥¸¥ã¥ó¥×Ãæ¤ËÅ·°æ¤Ë¾×ÆÍ if (DotA = 1) and (DotD = 1){ MyY0 = FloorY(cnt) + 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotD = 1)){ if (MyY0 - MyY < 0){ MyY0 = FloorY(cnt) + 32 sp = 0 } } } //º¸¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotA = 1) and (DotB = 1){ MyX0 = FloorX(cnt) + 32 } if (MeEnd > FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotB = 1)){ if (key & 1){ MyX0 = FloorX(cnt) + 32 } } } //±¦¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotC = 1) and (DotD = 1){ MyX0 = FloorX(cnt) - 32 } if (MeEnd > FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotC = 1) or (DotD = 1)){ if (key & 4){ MyX0 = FloorX(cnt) - 32 } } } loop return



¤¿¤ó¤¹

¥ê¥ó¥¯

2011/10/15(Sat) 09:10:56|NO.42392

¤Þ¤º¡¢ÊÑ¿ô¤ä¾ò·ïȽÃÇÉôʬ¤Ë¥³¥á¥ó¥È¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤¤Î¤ÇÈó¾ï¤ËÆɤ߲ò¤­¤Ë¤¯¤«¤Ã¤¿¤Ç¤¹¡£

>­µ.¹õ¤¤¾²¤Ç¤Ï¥¸¥ã¥ó¥×¤Ç¤­¤Ê¤¤¡£
ÊÑ¿ôland¤¬ÃåÃϤ·¤Æ¤¤¤ë¤«¤Î¥Õ¥é¥°¤À¤È»×¤¤¤Þ¤¹¤¬¡¢
219¹ÔÌܤÎ
if (DotB = 1) or (DotC = 1) : land = 1

¤³¤³¤Ç¤·¤«ÃåÃϽèÍý¤¬¤Ê¤µ¤ì¤Æ¤ª¤é¤º¡¢¼¡¤Î¡ÉÉáÄ̤ξ²¡É¤òÄ´¤Ù¤¿¤È¤­¤Ë194¹ÔÌܤÇ
land = 0
¤Þ¤¿¶õÃæ¤ËÈô¤Ð¤µ¤ì¤Æ¤¤¤Þ¤¹¡£



²Ë¿Í

¥ê¥ó¥¯

2011/10/15(Sat) 22:16:09|NO.42431

¡ä??¹õ¤¤¾²¤Ç¤Ï¥¸¥ã¥ó¥×¤Ç¤­¤Ê¤¤¡£

gosub *MyActivity
¤Î²¼¤Ë¡¡ mes land¡¡¤òÁÞÆþ¤·¤Æ¤ß¤ì¤Ð²¿¸Î¥¸¥ã¥ó¥×¤Ç¤­¤Ê¤¤¤«¤Ïľ¤°¤Ëʬ¤«¤ë
¤Þ¤ºÊÑ¿ô¤ò¾ï¤Ëɽ¼¨¤µ¤»¤Æ»×¤Ã¤¿Ä̤ê¤ÎÃͤʤäƤ뤫³Îǧ¤¬Âç»ö


???­¤ÏƱ¤¸Íýͳ¤Ç¸½¾Ý¤¬½Ð¤Æ¤
¼Ð¤á¤«¤éÅö¤¿¤Ã¤¿»þ¤Ë¤Ï½Ä¤«²£¤É¤Ã¤Á¤«¤òÍ¥À褵¤»¤ëɬÍפ¬¤¢¤ë
Íî²¼Ãæ¤Ë²¼¤Î¥Ö¥í¥Ã¥¯¤ËÅö¤¿¤ê¾å¤ËÌᤵ¤ì
±¦°ÜÆ°Ãæ¤Ë¥Ö¥í¥Ã¥¯¤ËÅö¤¿¤êº¸¤ËÌᤵ¤ì¤ë
¤³¤Î·ë²Ì¥Ö¥í¥Ã¥¯¤Î³Ñ¤Ë°ÜÆ°¤¹¤ë»ö¤Ë¤Ê¤ê¥Ö¥í¥Ã¥¯¤Î¶èÀÚ¤ê¤ËÈô¤Ó
¼¡¤ÎÁàºî¤ÇÆþÎÏÊý¸þ¤Ë°ÜÆ°¤¹¤ë»ö¤Ç¾è¤ê¾å¤²¤¿·Á¤Ë¤Ê¤ë

¤³¤ì¤ò²þÁ±¤µ¤»¤ë¤Î¤Ï¿§¡¹ÊýË¡¤Ï¤¢¤ë¤È»×¤¦¤¬
¤Þ¤º¤¢¤ê¤¨¤Ê¤¤»ö¤òºï¤Ã¤Æ¹Ô¤¯
Íî²¼Ãæ¤ÇÁ°²ó°ÌÃÖ¤¬¾×ÆÍ¥Ö¥í¥Ã¥¯¤è¤êÄ㤤°ÌÃ֤ˤ¤¤¿¤Ê¤é¾å¤ËÌ᤹½èÍý¤Ï¤ä¤é¤Ê¤¤¤Ê¤É

¥¸¥ã¥ó¥×¥¢¥¯¥·¥ç¥ó¤ÇÅö¤¿¤êȽÄê¤ÎÄ´À°¤ÏÌÌÅݤÀ¤«¤é
¼«Ê¬¤òÊý¸þ¥­¡¼¤Ç8Êý¸þ°ÜÆ°¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Æ¥Á¥§¥Ã¥¯¤·¤¿Êý¤¬
ÌäÂ꤬¸«¤Ä¤±¤ä¤¹¤¤

¸å¡¢¾ã³²Êª¤ò¸µ¤Ë¼«Ê¬¤ÎȽÄꤹ¤ë¤Î¤Ï²¿¤«ÌÌÅݤʵ¤¤¬¤¹¤ë¡¦¡¦¡¦



Spider

¥ê¥ó¥¯

2011/10/16(Sun) 08:15:52|NO.42442

¤¿¤ó¤¹¤µ¤ó¡¢²Ë¿Í¤µ¤ó¤Î
°Õ¸«¤Î¤ª¤«¤²¤Ç­µ¤¬²ò·è¤·¤Þ¤·¤¿¡ª¡ª¡ª
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª¡ª¡ª



Spider

¥ê¥ó¥¯

2011/10/16(Sun) 08:55:49|NO.42443

²Ë¿Í¤µ¤ó¤Î¤ª¤«¤²¤Ç¡¢¤Ê¤ó¤È
­¶¤â²ò·è¤·¤Þ¤·¤¿¡£¤¿¤À¤¿¤À´¶¼Õ¤Ç¤¹¡£



Spider

¥ê¥ó¥¯

2011/10/16(Sun) 09:56:03|NO.42445

­·¤â²ò·è¤Ç¤­¤Þ¤·¤¿¡£

²Ë¿Í¤µ¤ó¤Ê¤É¤Î°Õ¸«¤ÇÌܤ¬³Ð¤á¤¿¤«¤Î¤è¤¦¤Ë
¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¡Ê°ì¤«·îǺ¤ó¤À²ÁÃͤϤ¢¤Ã¤¿¤Ê¤¢¡¦¡¦¡¦¡Ë

¶¨ÎϤ·¤Æ¤¯¤À¤µ¤Ã¤¿³§ÍÍ¡¢
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡ª¡ª¡ª¡ª

¤Þ¤À¤Þ¤À¤¤¤í¤¤¤í¤ÊÌ̤Ç̤½Ï¤Ç¤¹¤Î¤Ç
¤«¤Ê¤êÌÂÏǤò¤«¤±¤¿¤È»×¤¤¤Þ¤¹¡£

²¼¤Ïº£¤Î¾õÂ֤Ǥ¹¡£

buffer 2
color : boxf 32 , 0 , 63 , 31 color 200 , 0 , 0 : boxf 64 , 0 , 95 , 31 screen 0 , 640 , 320 sdim map , 5000 sdim mapget , 20 dim ax , 200 dim ay , 200 dim FloorX , 1000 dim FloorY , 1000 notesel map //noteload "maps1.txt" map= " "+"\n" map+=" 000 000 "+"\n" map+=" 00000 "+"\n" map+=" "+"\n" map+=" 00000 00000 "+"\n" map+=" "+"\n" map+=" 00000 "+"\n" map+=" "+"\n" map+=" "+"\n" map+=" 00000 M 00000 " noteget mapget , 0 /*¥á¥¤¥ó¥ë¡¼¥×*/ *Mainloop gosub *MyPositionSarch repeat redraw 0 if (cnt = 0) : MyX = MyX0 if (cnt = 0) : MyY = MyY0 gosub *MapDraw gosub *MyActivity mes land gosub *HitCeack //²¾ºÂɸ¤òËܺÂɸ¤Ë¤¹¤ë MyX = MyX0 MyY = MyY0 redraw 1 await 16 loop /*¥Þ¥Ã¥×¥Ç¡¼¥¿¤ÎÃ椫¤é¼ç¿Í¸ø¤Î°ÌÃÖ¤ò¥µ¡¼¥Á*/ *MyPositionSarch x = 0 : y = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) if (buf = 'M'){ MyX0 = x * 32 MyY0 = y * 32 break } x++ if (x = 20) : x = 0 : y++ loop return /*¥Þ¥Ã¥×¤ÎÉÁ¼Ì*/ *MapDraw color 255 , 255 , 255 boxf x = 0 : y = 0 number = 0 repeat 200 noteget mapget , y buf = peek(mapget , x) //Á´¤Æ¤Î¥Þ¥Ã¥×¥Á¥Ã¥×¤ÎºÂɸ¤ò¼èÆÀ ax(cnt) = x * 32 ay(cnt) = y * 32 if (buf = ' '){ gx = 0 gy = 0 } if (buf = '0'){ gx = 1 gy = 0 //ÉáÄ̤ξ²¤ÎºÂɸ¤ò¼èÆÀ FloorX(number) = ax(cnt) FloorY(number) = ay(cnt) number++ } pos x * 32 , y * 32 gcopy 2 , gx * 32 , gy * 32 , 32 , 32 x++ if (x = 20) : x = 0 : y++ loop return /*¼ç¿Í¸ø¤Î³èÆ°*/ *MyActivity pos MyX , MyY gcopy 2 , 64 , 0 , 32 , 32 if (land = 1) and (sp < 0) : sp = 0 if (land = 0){ MyY0 = MyY0 - sp sp-- } stick key , 5 if (key & 1) : MyX0 = MyX0 - 7 if (key & 4) : MyX0 = MyX0 + 7 if (MyY0 >= 288) : MyY0 = 288 : land = 1 if (key = 2) or (key = 3) or (key = 6) and (land = 1){ land = 0 sp = 15 } //Åö¤¿¤êȽÄêÍѤκÂɸ¤ÎÊÑ¿ô¤ÎºîÀ® MeTop = MyY0 MeLeft = MyX0 MeRight = MyX0 + 31 MeEnd = MyY0 + 31 return /*Åö¤¿¤êȽÄê*/ *HitCeack repeat number DotA = 0 DotB = 0 DotC = 0 DotD = 0 //»Í¶ù¤ÎÅÀ¤Î¾ðÊó¤ò¼èÆÀ if (MeTop / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotA = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeLeft / 32 = FloorX(cnt) / 32) : DotB = 1 if (MeEnd / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotC = 1 if (MeTop / 32 = FloorY(cnt) / 32)and(MeRight / 32 = FloorX(cnt) / 32) : DotD = 1 Dot = DotA + DotB + DotC + DotD //landÊÑ¿ô¥¯¥ê¥¢ if (cnt = 0) : land = 0 //Íî²¼Ãæ¤Ë¾²¤Ë¾×ÆÍ if (DotB = 1) and (DotC = 1){ MyY0 = FloorY(cnt) - 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotB = 1) or (DotC = 1)){ if (MyY0 - MyY > 0){ if (MeEnd >= FloorY(cnt)){ if (MyY + 31 < FloorY(cnt)){ MyY0 = FloorY(cnt) - 32 sp = 0 } } } } } //ÃåÃϤ·¤Æ¤ë¤«¤É¤¦¤«¤ÎȽÄê if ((Dot = 0)or((DotB = 1)or(DotC = 1))){ if (MeTop = FloorY(cnt) - 32){ if (MeRight >= FloorX(cnt)){ if (MeLeft <= FloorX(cnt) + 31){ if (key = 2) or (key = 3) or (key = 6) : else : land = 1 } } } } //¥¸¥ã¥ó¥×Ãæ¤ËÅ·°æ¤Ë¾×ÆÍ if (DotA = 1) and (DotD = 1){ MyY0 = FloorY(cnt) + 32 sp = 0 } if (MeRight > FloorX(cnt)) and (MeLeft < FloorX(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotD = 1)){ if (MyY0 - MyY < 0){ if (MyY > FloorY(cnt) + 31){ MyY0 = FloorY(cnt) + 32 sp = 0 } } } } //º¸¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotA = 1) and (DotB = 1){ MyX0 = FloorX(cnt) + 32 } if (MeEnd >= FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotA = 1) or (DotB = 1)){ if (MyX > FloorX(cnt) + 31){ MyX0 = FloorX(cnt) + 32 } } } //±¦¤Ë°ÜÆ°Ãæ¤ÎÊɾ×ÆÍ if (DotC = 1) and (DotD = 1){ MyX0 = FloorX(cnt) - 32 } if (MeEnd >= FloorY(cnt)) and (MeTop < FloorY(cnt) + 31){ if (Dot = 1) and ((DotC = 1) or (DotD = 1)){ if (MyX + 31 < FloorX(cnt)){ MyX0 = FloorX(cnt) - 32 } } } loop return



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