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


HSPTV!·Ç¼¨ÈÄ


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

2012
0429
ήÀ±·²¡Ú¤³¤ì¤¬´°À®¤·¤Ê¤¤¤È¼¡¤Ë¿Ê¤á¤Ê¤¤!¡Û¥Þ¥ê¥ªÉ÷¥²¡¼¥à¤Î¥¹¥Æ¡¼¥¸°ÜÆ°4²ò·è


ήÀ±·²

¥ê¥ó¥¯

2012/4/29(Sun) 11:15:40|NO.46330

¤Ê¤ó¤«Á°¤Ë¤¤¤Á¤É¤À¤±HSP·Ç¼¨ÈĻȤä¿»þ¤Ë̾Á°¤¢¤Ã¤¿¤±¤É
˺¤ì¤¿¤Î¤ÇήÀ±·²¤Ç¡£

HSP¤Ç¥Þ¥ê¥ªÉ÷¥¸¥ã¥ó¥×¥²¡¼¥à¤ò¤Ä¤¯¤Ã¤Æ¤¤¤Þ¤¹¡£
1F¤Î°ìÈÖ¾å¤Ë¹Ô¤¯¤È2F¤Ë¤¤¤¯¤È¤¤¤¦¤â¤Î¤ò¤Ä¤¯¤Ã¤Æ¡£
¥¹¥Æ¡¼¥¸¤Ïtxt¥Õ¥¡¥¤¥ë¤Ç´ÉÍý¤·¤Æ¤¤¤Þ¤¹¡£
¤Ç¡¢º£ºîÀ®Ãæ¤Ê¤ó¤Ç¤¹¤¬
¥¹¥Æ¡¼¥¸°ÜÆ°¤ò¤·¤¿¤¢¤È
¥Þ¥Ã¥×´ÉÍýÍѤÎ
map(x,y)
¤ò½é´ü²½¤·¤Æ
¤¢¤é¤¿¤Ë2F¤Î¥Þ¥Ã¥×¤òºî¤í¤¦¤È»×¤Ã¤Æ¤¤¤ë¤ó¤Ç¤¹¤¬
dim map,20,15
¤ò¤¹¤ë¤È
­¢¥¹¥Æ¡¼¥¸Ìܤλþ¤Ë¥Ç¥Ð¥Ã¥°¥¦¥£¥ó¥É¥¦¤ò¤ß¤ë¤Èmap,30,35¤È¤«¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹
¤·¤«¤â¾å¼ê¤¯¥¹¥Æ¡¼¥¸°ÜÆ°¤Ç¤­¤Æ¤¤¤Þ¤»¤ó¡£
½õ¤±¤Æ¤¯¤À¤µ¤¤¡ª¡ª
¥½¡¼¥¹

screen 0,640,480,16,320,120 buffer 1 picload "SLIME.bmp" buffer 2 picload "block.bmp" buffer 3 picload "enemy.bmp" gsel 0,1 mmload "JUMPSOUND.wav",10 buf_key=0 myHP=3 movespeed=0 mypicturecnt=0 my_x=32 my_xx=2.0 my_y=384 my=yy=12.0 JUMP=0 JUMPcnt=0 waittime=0 my_dir=1 enemy(0)=1 enemy_x(0)=352 enemy_y(0)=320 enemy_xx(0)=10 enemy_yy(0)=10 mapx=20 mapy=15 dim map,20,15 dim enemy,3 dim enemy_x,3 dim enemy_xx,3 dim enemy_y,3 dim enemy_yy,3 *setting dim map,20,15 my_xx=12 my_yy=13 mapx=20 mapy=15 ;dim map,20,15 MAPCNT++ MAPNAME="MAP_"+MAPCNT+".txt" dialog ""+MAPNAME notesel buf_1 noteload MAPNAME,3000 //map.txt¤ÎÆâÍƤòbuf¤ËÆɤ߹þ¤à dialog ""+buf_1 repeat noteinfo(0) noteget row,i //buf¤Îi¹ÔÌܤΥǡ¼¥¿¤òrow¤ËÂåÆþ¤¹¤ë repeat mapx getstr tip,row,index,',' index += strsize map(cnt,i) = int(tip) loop i++ index = 0 loop gosub *draw_map title ""+MAPCNT *MAIN redraw 0 my_xx=(my_x+16)/32 getkey KEY,37 if KEY=1 :my_xx=(my_x+31)/32 getkey KEY,39 if KEY=1 :my_xx=(my_x+3)/32 my_yy=my_y/32 if JUMPcnt>1 : my_yy=(my_y+25-1)/32 my_xx=int(my_xx) my_yy=int(my_yy) title "ºÂɸ"+my_xx+","+my_yy color 255,255,255 boxf color 0,0,0 mypicturecnt+1 color 0,50,100 gmode 4,,,256 gosub *draw_map pos my_x,my_y color 0,50,100 if my_dir=0{ if mypicturecnt>=1 & mypicturecnt<=8 : gcopy 1,0,32,32,32 if mypicturecnt>=9 & mypicturecnt<=16 : gcopy 1,32,32,32,32 if mypicturecnt>=17 & mypicturecnt<=24 : gcopy 1,0,32,32,32 if mypicturecnt>=25 & mypicturecnt<=32 : gcopy 1,32,32,32,32 if mypicturecnt=32 : mypicturecnt=0 if JUMP=1 : gcopy 1,0,32,32,32 } if my_dir=1{ if mypicturecnt>=1 & mypicturecnt<=8 : gcopy 1,0,0,32,32 if mypicturecnt>=9 & mypicturecnt<=16 : gcopy 1,32,0,32,32 if mypicturecnt>=17 & mypicturecnt<=24 : gcopy 1,0,0,32,32 if mypicturecnt>=25 & mypicturecnt<=32 : gcopy 1,32,0,32,32 if mypicturecnt=32 : mypicturecnt=0 if JUMP=1 : gcopy 1,0,0,32,32 } gosub*MyAction my_xx=(my_x+16)/32 my_yy=(my_y+16)/32 my_xx=int(my_xx) my_yy=int(my_yy) if map(my_xx,my_yy) ! 0 : my_yy-16 if my_x/32<0 : my_x=0 if my_y/32<0 : my_x=0 await 1 redraw 1 my_yy=(my_y+30)/32 if MAPNAME="MAP_1.txt" & my_yy=0 {;dialog"¥¯¥ê¥¢¤ª¤á" : end my_x=384 : my_y=416 : JUMP=1 : JUMPcnt=13 : goto*setting my_xx=12 :my_yy=13 } goto *MAIN *MyAction getkey KEY,37 if KEY=1 { if map(my_xx-1,my_yy)=0 { if movespeed < 6: movespeed++ my_x-movespeed : my_dir=0 if map(my_x/32,my_y/32)!0 : my_x+(movespeed/2) }} if KEY=0 : buf_key++ getkey KEY,39 if KEY=1 { if map(my_xx+1,my_yy)=0 { if movespeed < 6: movespeed++ my_x+movespeed : my_dir=1 if map(my_x/32,my_y/32)!0 : my_x-(movespeed/2) }} if KEY=0 : buf_key++ getkey KEY,88 if JUMP=0 & KEY=1 { if map(my_xx,my_yy+1) ! 0 & map(my_xx,my_yy-1) = 0{ mmplay 10 : JUMP=1 : JUMPcnt=13} } if JUMPcnt>0{ if my_yy>0{ if map(my_xx,my_yy-1)=0 :my_y-8 } JUMPcnt-- if JUMPcnt=0 :waittime=13 } if JUMPcnt<1 & waittime>0 { waittime-- if waittime=0 : waittime=-1 } if JUMP=1 & JUMPcnt<1 & waittime=-1: JUMP=0 ;if my_y<384 & JUMPcnt<1 { if map(my_xx,my_yy+1) = 0 & JUMPcnt<1 : my_y+8 ;} if buf_key=2 & movespeed>0 : movespeed-2 buf_key=0 return *draw_map gmode 4,0,0,256 color 0,50,100 x = 0 : y = 0 repeat mapy j = cnt repeat mapx i = cnt pos x,y gcopy 2,map(i,j)*32,0,32,32 x += 32 loop x = 0 : y += 32 loop return
¤ª¤Í¤¬¤¤¤·¤Þ¤¹¡£



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


²Ë¿Í

¥ê¥ó¥¯

2012/4/29(Sun) 13:00:11|NO.46333

¥³¥Ô¥Ú¤Ç¼Â¹Ô¤Ç¤­¤Ê¤¤¥¹¥¯¥ê¥×¥È¤Ï²ò·è¤ÏÆñ¤·¤¤

Æó²óÌܤDzľФ·¤¯¤Ê¤ë¤Ê¤é»È¤¤¤Þ¤ï¤¹ÊÑ¿ô¤ËÌäÂꤢ¤ë²ÄǽÀ­¤¬¹â¤¤
¤Þ¤º¥ë¡¼¥×Æâ¤Ç»È¤¦ÊÑ¿ô¤ÏÁ´¤Æ¥ë¡¼¥×¤ËÆþ¤ëÁ°¤Ë½é´ü²½¤¹¤ë



²Ë¿Í

¥ê¥ó¥¯

2012/4/29(Sun) 13:34:40|NO.46334

¼Â¹Ô¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Æ»î¤·¤¿¤é
¤ä¤Ã¤Ñ¤êÆó²óÌܤǽé´ü²½¤·¤Æ¤Ê¤¤¤Î¤¬ÌäÂê¤À¤Ã¤¿

i=0
¤ò¥ë¡¼¥×Á°¤ËÄɲ乤ë¤À¤±
index¤Ï¥ë¡¼¥×È´¤±¤ëÁ°¤Ë½é´ü²½¤µ¤ì¤Æ¤ë¤«¤éº£²ó¤ÏÂç¾æÉפÀ¤±¤É
¸å¡¹¥ë¡¼¥×Æâ¤òÊѹ¹¤·¤¿»þ¤Î»ö¤â¹Í¤¨¤¿¤é°ì½ï¤Ë½é´ü²½¤·¤È¤¤¤¿Êý¤¬Îɤ¤



ήÀ±·²

¥ê¥ó¥¯

2012/4/29(Sun) 13:56:33|NO.46336

¤½¤¦¤«¡£¥³¥Ô¥Ú¤Ç¼Â¹Ô¤Ç¤­¤Ê¤¤¤È¤·¤Ë¤¯¤¤¤ó¤À¡Ä
²Ë¿Í¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤Ç¤­¤Þ¤·¤¿¡ª
¼¡½ñ¤¯¤È¤­¤Ï¤Ê¤ë¤Ù¤¯
¥³¥Ô¥Ú¤Ç¼Â¹Ô¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Æ½ñ¤³¤¦¤È»×¤¤¤Þ¤¹¡£



ήÀ±·²

¥ê¥ó¥¯

2012/4/29(Sun) 14:06:51|NO.46337

¤»¤Ã¤«¤¯¤Ê¤Î¤Ç
¥³¥Ô¥Ú¤Ç¤­¤ëÈÖ¤â
½ñ¤­¤Þ¤¹

1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1 1,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,1 1,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
¤³¤ì¤òMAP_1.txt¤È¤¹¤ë


1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1 1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1
¤³¤ì¤òmAP_2.txt¤È¤¹¤ë



screen 0,640,480,16,320,120 buf_key=0 myHP=3 movespeed=0 mypicturecnt=0 my_x=32 my_xx=2.0 my_y=384 my=yy=12.0 JUMP=0 JUMPcnt=0 waittime=0 my_dir=1 enemy(0)=1 enemy_x(0)=352 enemy_y(0)=320 enemy_xx(0)=10 enemy_yy(0)=10 mapx=20 mapy=15 dim map,20,15 dim enemy,3 dim enemy_x,3 dim enemy_xx,3 dim enemy_y,3 dim enemy_yy,3 *setting i=0 dim map,20,15 my_xx=12 my_yy=3 mapx=20 mapy=15 ;dim map,20,15 MAPCNT++ MAPNAME="MAP_"+MAPCNT+".txt" dialog ""+MAPNAME notesel buf_1 noteload MAPNAME,3000 //map.txt¤ÎÆâÍƤòbuf¤ËÆɤ߹þ¤à dialog ""+buf_1 repeat noteinfo(0) noteget row,i //buf¤Îi¹ÔÌܤΥǡ¼¥¿¤òrow¤ËÂåÆþ¤¹¤ë repeat mapx getstr tip,row,index,',' index += strsize map(cnt,i) = int(tip) loop i++ index = 0 loop gosub *draw_map title ""+MAPCNT *MAIN redraw 0 my_xx=(my_x+16)/32 getkey KEY,37 if KEY=1 :my_xx=(my_x+31)/32 getkey KEY,39 if KEY=1 :my_xx=(my_x+3)/32 my_yy=(my_y+4)/32 ;if JUMPcnt>1 : my_yy=(my_y+25-1)/32 my_xx=int(my_xx) my_yy=int(my_yy) title "ºÂɸ"+my_xx+","+my_yy color 255,255,255 boxf color 0,0,0 mypicturecnt+1 color 0,50,100 gmode 4,,,256 gosub *draw_map pos my_x,my_y color 0,50,100 color 255,255,0 circle my_x,my_y,my_x+32,my_y+32 color 0,50,100 gosub*MyAction my_xx=(my_x+16)/32 my_yy=(my_y+16)/32 my_xx=int(my_xx) my_yy=int(my_yy) if map(my_xx,my_yy) ! 0 : my_yy-16 if my_x/32<0 : my_x=0 if my_y/32<0 : my_x=0 await 1 redraw 1 my_yy=(my_y+30)/32 if MAPNAME="MAP_1.txt" & my_yy=0 {;dialog"¥¯¥ê¥¢¤ª¤á" : end my_x=384 : my_y=416 : JUMP=1 : JUMPcnt=13 : goto*setting my_xx=12 :my_yy=13 } goto *MAIN *MyAction getkey KEY,37 if KEY=1 { if map(my_xx-1,my_yy)=0 { if movespeed < 6: movespeed++ my_x-movespeed : my_dir=0 if map(my_x/32,my_y/32)!0 : my_x+(movespeed/2) }} if KEY=0 : buf_key++ getkey KEY,39 if KEY=1 { if map(my_xx+1,my_yy)=0 { if movespeed < 6: movespeed++ my_x+movespeed : my_dir=1 if map(my_x/32,my_y/32)!0 : my_x-(movespeed/2) }} if KEY=0 : buf_key++ getkey KEY,88 if JUMP=0 & KEY=1 { if map(my_xx,my_yy+1) ! 0 & map(my_xx,my_yy-1) = 0{ mmplay 10 : JUMP=1 : JUMPcnt=13} } if JUMPcnt>0{ if my_yy>0{ if map(my_xx,my_yy-1)=0 :my_y-8 } JUMPcnt-- if JUMPcnt=0 :waittime=13 } if JUMPcnt<1 & waittime>0 { waittime-- if waittime=0 : waittime=-1 } if JUMP=1 & JUMPcnt<1 & waittime=-1: JUMP=0 ;if my_y<384 & JUMPcnt<1 { if map(my_xx,my_yy+1) = 0 & JUMPcnt<1 : my_y+8 ;} if buf_key=2 & movespeed>0 : movespeed-2 buf_key=0 return *draw_map gmode 4,0,0,256 color 0,50,100 x = 0 : y = 0 repeat mapy j = cnt repeat mapx i = cnt pos x,y color map(i,j)*255,map(i,j)*255,map(i,j)*255 boxf x,y,x+32,y+32 x += 32 loop x = 0 : y += 32 loop return



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