画像というソースを作ってください
loadimg(bakuhatu,"6,0,255,255,255,255,0,64,64,64,128,128,128,192,192,192,255,255,255,0,13,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0") loadimg(bakuhatu2,"6,0,255,255,255,255,0,255,125,0,128,128,128,192,192,192,255,255,255,0,13,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,2,2,2,1,1,1,2,2,2,0,0,0,0,2,2,1,1,1,1,1,2,2,0,0,0,0,2,2,1,1,1,1,1,2,2,0,0,0,0,2,2,1,1,1,1,1,2,2,0,0,0,0,2,2,2,1,1,1,2,2,2,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0") loadimg(bakuhatu3,"6,0,255,255,255,255,0,255,125,0,255,0,0,192,192,192,255,255,255,0,13,13,0,0,0,0,3,3,3,3,3,0,0,0,0,0,0,0,3,3,3,3,3,3,3,0,0,0,0,0,3,3,2,2,2,2,2,3,3,0,0,0,3,3,2,2,2,2,2,2,2,3,3,0,3,3,2,2,2,1,1,1,2,2,2,3,3,3,3,2,2,1,1,1,1,1,2,2,3,3,3,3,2,2,1,1,1,1,1,2,2,3,3,3,3,2,2,1,1,1,1,1,2,2,3,3,3,3,2,2,2,1,1,1,2,2,2,3,3,0,3,3,2,2,2,2,2,2,2,3,3,0,0,0,3,3,2,2,2,2,2,3,3,0,0,0,0,0,3,3,3,3,3,3,3,0,0,0,0,0,0,0,3,3,3,3,3,0,0,0,0")
本体
#画像# soft1("0.終了") label title text("シューティングゲーム",60,140,0) text("key5でスタート",80,180,0) if(scan==key5){goto "level"} if(scan==1){end} goto "title" label level lock() cls() text("key4でlevel1",80,140,0) text("key6でlevel2",80,180,0) if(scan==key4){huragu=1 goto 9} if(scan==key6){huragu=2 goto 9} unlock() goto "level" label 9 (HP=30,Bst=30,t3x=99999,t3y=0,BHP=50,s=13,Bs=50,kx=90,ky=130,B=1,zandan=2,t2x=0,t2y=99999999,tx=0,ty=999999999,x=100,y=310,w=width,h=height) makeimg(hk,w,h) trgt(hk) lock() col(black) frect(0,0,500,500) col(white) for(hx=0;hx<100;hx++;){point(abs(rand%240),abs(rand%340))} unlock() trgt(off) func hk(){drawimg(hk,0,0,0)} label 0 if(huragu==1){lx=kx} if(huragu==2){lx=x} lock() cls() setfont("S") hk() col(white) text("A□A",x,y,0) text("連続で撃てる弾の数 ".zandan,0,0,0) text("／□□□＼",kx,ky,0) text("＼□□□／",kx,ky+12,0) text("ボスの体力 ".BHP,0,15,0) text("自機の体力 ".HP,0,30,0) col(blue) text("｜ ｜",tx-3,ty,0) col(red) text("｜ ｜",t2x-3,t2y,0) col(yellow) text("｜｜｜",t3x+5,t3y+30,0) unlock() switch(input(0)){ case 65536 : if(B==1){B=0 if(zandan==2){t2x=x t2y=305 zandan-- col(white)}} if(A==1){if(zandan==1){zandan-- tx=x ty=305 col(white)}} braek;} if(((t3x+Bst)>x)&&((x+s)>t3x)){if(((t3y+Bst)>y)&&((y+s)>t3y)){drawimg(bakuhatu,x+2,y,0) drawimg(bakuhatu2,x+2,y,0) drawimg(bakuhatu3,x+2,y,0) HP=HP-1 if(HP==0){cls() col(black) setfont("L") text("GAMEOVER",80,170,0) sleep(1200) end}}} if(((t2x+s)>kx)&&((kx+Bs)>t2x)){if(((t2y+s)>ky)&&((ky+Bs)>t2y)){drawimg(bakuhatu,kx+8,ky+8,0) drawimg(bakuhatu,kx+35,ky,0) drawimg(bakuhatu2,kx+8,ky+8,0) drawimg(bakuhatu2,kx+35,ky,0) drawimg(bakuhatu3,kx+8,ky+8,0) drawimg(bakuhatu3,kx+35,ky,0) BHP=BHP-1 if(BHP==0){cls() col(black) setfont("L") text("クリア",90,170,0) sleep(1200) end}}} if(((tx+s)>kx)&&((kx+Bs)>tx)){if(((ty+s)>ky)&&((ky+Bs)>ty)){drawimg(bakuhatu,kx+8,ky+8,0) drawimg(bakuhatu,kx+35,ky,0) drawimg(bakuhatu2,kx+8,ky+8,0) drawimg(bakuhatu2,kx+35,ky,0) drawimg(bakuhatu3,kx+8,ky+8,0) drawimg(bakuhatu3,kx+35,ky,0) BHP=BHP-1 if(BHP==0){cls() col(black) setfont("L") text("クリア",90,170,0) sleep(1200) end}}} if(kx==150){t3x=lx t3y=140} if(kx==50){t3x=lx t3y=140} t3y=t3y+8 if(t3y<-10){t3x=999999} if(C==0){if(kx<180){kx=kx+5}} if(kx==180){C=1} if(C==1){if(kx>0){kx=kx-5}} if(kx==0){C=0} if(A==1){if(ty>-20){ty=ty-8 }} if(t2y<0){A=1 t2y=999999999} if(zandan==0){zandan=2} if(ty<0){ty=9999999999 A=0 B=1} if(t2y>-20){t2y=t2y-8} if(scan==keyright){x=x+4 if(x>216){x=x-4}} if(scan==keyleft){x=x-4 if(x<0){x=x+4}} if(scan==1){end} goto 0
