¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤ÎÅö¤¿¤êȽÄê¤Ë¤Ä¤¤¤Æ¡¢º£À½ºîÃæ¤Ç¤¹¡£
¤½¤³¤Ç¡¢¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤Ï½Ð¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢
¤Ê¤¼¤«¼«µ¡¤ÈÃƤ¬ÀÜ¿¨¤·¤¿¤È¤¤ÎÅö¤¿¤êȽÄ꤬»Å»ö¤ò¤·¤Ê¤¤¤È¤¤¤¦¾É¾õ¤òȯ¾É¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
£±¤Ä¤á¤ÎÃƤÎÅö¤¿¤êȽÄê¤Ï¤¦¤Þ¤¯¤¤¤¤Þ¤·¤¿¡£
¤½¤ì¤ò¿¿»÷¤·¤Æ¡¢£²¤Ä¤á¤ÎÃƤÎÅö¤¿¤êȽÄê¤â³Î¤«¤á¤Þ¤·¤¿¤¬¡¢¤½¤ì¤â¤¦¤Þ¤¯¤¤¤¤Þ¤·¤¿¡£
¤Ç¤¹¤¬¡¢£³¤Ä¤á¤ÎÃƤÎÅö¤¿¤êȽÄê¤ò³Î¤«¤á¤¿¤È¤¡¢£³¤Ä¤á¤ÎÃƤÎÅö¤¿¤êȽÄ꤬¤Ê¤¤¤³¤È¤Ëµ¤¤¬¤Ä¤¤Þ¤·¤¿¡£
£³¤Ä¤á¤ÎÅö¤¿¤êȽÄê½èÍý¤ò¸«Ä¾¤·¤Þ¤·¤¿¤¬¡¢Ëͤ¬¸«¤ë¸Â¤ê¤Ç¤ÏÈ´¤±¤¿¤È¤³¤í¤Ï¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£
£³¤Ä¤á¤ÎÅö¤¿¤êȽÄê¤â¡¢£±¤Ä¤á¤ÎÅö¤¿¤êȽÄê¤ò¿¿»÷¤·¤Æºî¤ê¤Þ¤·¤¿¡£
¤³¤ì¤¬¤½¤Î¥¹¥¯¥ê¥×¥È¤Ç¤¹¡£
¤´²óÅú¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹¡£
*set
screen 0,800,800,0,500,100
title "¿À¡¹¤¬°¦¤·¤¿¥É¥ÊÁÛ¶¿ Level¡ú Stage£± ¡¡¡ÁȬÀ鲯¤Î¥É¥Ê¤Î¿À¡Á"
//¥í¡¼¥ÉÇØ·Ê
color 0,0,255 : boxf
pos 10,10 : font "£Í£Ó ÌÀÄ«",30,0 : color 255,0,0 : mes "NOW LOADING..."
//²èÁü¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à
buffer 2
picload "images/systemimage1.jpg" : gsel 0,1
buffer 3
picload "images/background1.bmp" : gsel 0,1
buffer 4
picload "images/jiki.bmp" : gsel 0,1
buffer 5
picload "images/moji1.bmp" : gsel 0,1
buffer 6
picload "images/tama1.bmp" : gsel 0,1
//²»À¼¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à
mmload "sounds/dv1.wav",1
mmload "sounds/bgm1.mp3",2
//ÊÑ¿ô¤òºîÀ®
dim v,100
dim sys,100
dim tekix,100
dim tekiy,100
dim flag,100
dim i,100
dim tamax,100
dim tamay,100
dim n,1000
xx=390 : yy=650
speed = 2
hp = 10
score = 0
muteki = 0
;n
//bgmºÆÀ¸
mmplay 2
wait 100
//goto main
goto *main
*main
repeat
//*²¼¥ì¥¤¥ä¡¼¤«¤éÉÁ²è¤·¤Æ¤¤¤¤Þ¤¹
//¥¹¥³¥¢¤òÁý¤ä¤¹
score+=1
//ÇØ·Ê
color 255,255,255 : gmode 4,0,0,256
pos 0,0 : gcopy 3,0,0,500,804
//¼«µ¡¤ÎÀßÄê//
//¼«µ¡Áàºî
getkey left,37
getkey up,38
getkey right,39
getkey down,40
if(left=1) : xx-=speed
if(up=1) : yy-=speed
if(right=1) : xx+=speed
if(down=1) : yy+=speed
//¼«µ¡É½¼¨
color 255,255,255 : gmode 4,0,0,256
pos xx,yy : gcopy 4,0,0,16,25
//¼«µ¡°ÜÆ°À©¸Â
if(xx>480) : xx-=speed
if(xx<10) : xx+=speed
if(yy>760) : yy-=speed
if(yy<30) : yy+=speed
//¼«µ¡¤ÎÀßÄꤳ¤³¤Þ¤Ç//
//ʸ»ú±é½ÐÀßÄê
if(sys(0)=0){
color 255,255,255 : gmode 4,0,0,256
pos 230,100 : gcopy 5,0,0,59,417
}
;¥ë¡¼¥×²ó¿ô¤¬°ìÄêÃͰʾå¤Ê¤é¡¢Ê¸»ú¤ò¾Ã¤¹
if(cnt>200) : sys(0)=1
//ÃÆɽ¼¨½èÍý//
//ÃÆɽ¼¨
if(flag(0)=0){;¥Õ¥é¥°£°
color 255,255,255 : gmode 4,0,0,256
pos 30+tamax(0),60+tamay(0) : gcopy 6,0,0,20,20
tamax(0)+=1 : tamay(0)+=3
pos 30+tamax(1),60+tamay(1) : gcopy 6,0,0,20,20
tamax(1)+=2 : tamay(1)+=3
pos 30+tamax(2),60+tamay(2) : gcopy 6,0,0,20,20
tamax(2)+=1 : tamay(2)+=1
;¾ò·ï¤Ç»ØÄꤷ¤¿Á´¤Æ¤ÎÃƤ¬²èÌ̾夫¤é¾Ã¤¨¤ì¤ÐÃƤò¾Ãµî
if(tamay(0)>800)&(tamay(1)>800)&(tamay(2)>800){
flag(0)=1
}
}
//Åö¤¿¤êȽÄê
if(flag(0)=0){
//tama1
if(tamax(0)+20>=xx)&(tamax(0)-5<=xx){
if(tamay(0)+20>=yy)&(tamay(0)-5<=yy){
hp-=1 : xx=390 : yy=650 : mmplay 1
}
}
if(tamax(1)+20>=xx)&(tamax(1)-5<=xx){
if(tamay(1)+20>=yy)&(tamay(1)-5<=yy){
hp-=1 : xx=390 : yy=650 : mmplay 1
}
}
if(tamax(2)+20>=xx)&(tamax(2)-5<=xx){
if(tamay(2)+20>=yy)&(tamay(2)-5<=yy){
hp-=1 : xx=390 : yy=650 : mmplay 1
}
}
}
//¥µ¥¤¥É¥Ð¡¼É½¼¨
//*¤³¤ì¤ÏÃÆËëɽ¼¨½èÍý¤è¤ê¸å¤Ë½ñ¤¯
color 255,255,255 : gmode 4,0,0,256
pos 500,-30 : gcopy 2,0,0,1024,1280
;¥×¥ì¥¤¥ä¡¼£È£Ð
color 0,0,255 : font "£Í£Ó¡¡¥´¥·¥Ã¥¯",35 : pos 650,30 : mes ""+hp+""
;¥¹¥³¥¢
color 0,100,255 : font "£Í£Ó¡¡¥´¥·¥Ã¥¯",35 : pos 530,160 : mes ""+score+""
//¥ë¡¼¥×½ªÎ»
redraw 1
await 15
redraw 0
loop