サンプル集-長文-サンプル1

超簡易シューティングです。
シューティングの基本形です。

自機の処理、敵の処理、自機の弾の処理、敵の弾の処理という基本的なプログラムが入っています。

mx=300
my=300
 
dim mtx,5
dim mty,5
repeat 5
mty(cnt)=-100
loop
mtw=0
 
dim tx,100
dim ty,100
repeat 100
ty(cnt)=480
loop
tw=0
 
dim ttx,100
dim tty,100
dim ttw,100
repeat 100
tty(cnt)=480
loop
 
HP=10
 
*main
redraw 1:redraw 0:await 30
 
stick ky,31
 
color 255,255,255
boxf
 
if ky&1{mx-=5}
if ky&2{my-=5}
if ky&4{mx+=5}
if ky&8{my+=5}
 
if mx<0:mx=0
if my<0:my=0
if 600<mx:mx=600
if 440<my:my=440
 
if (ky&16)=16 {
	repeat 5
	if mty(cnt)<-40 & mtw<0{
		mty(cnt)=my-20
		mtx(cnt)=mx+10
		mtw=10
	}
	loop
}
mtw--
 
repeat 5:mt=cnt
mty(mt)-=7
repeat 100:t=cnt
if mtx(mt)<tx(t)+40 & tx(t)<mtx(mt)+20 & mty(mt)<ty(t)+40 & ty(t)<mty(mt)+20{
	mty(mt)=-100
	ty(t)=480
	SCORE+=5
}
if mtx(mt)<ttx(t)+20 & ttx(t)<mtx(mt)+40 & mty(mt)<tty(t)+20 & tty(t)<mty(mt)+40{
	mty(mt)=-100
	ttx(t)=640
}
loop
loop
 
repeat 100
if ty(cnt)>480 & tw<0{
	tx(cnt)=rnd(600)
	ty(cnt)=-40
	tw=20
}
ty(cnt)+=2
if tx(cnt)<mx+40 & mx<tx(cnt)+40 & ty(cnt)<my+40 & my<ty(cnt)+40 & GAMEOVER=0{
	HP--
	tx(cnt)=640
}
if ttx(cnt)<mx+40 & mx<ttx(cnt)+20 & tty(cnt)<my+40 & my<tty(cnt)+20 & GAMEOVER=0{
	HP--
	ttx(cnt)=640
}
 
loop
tw--
 
repeat 100
if ttw(cnt)<0 & tty(cnt)>480 {
	ttx(cnt)=tx(cnt)+10
	tty(cnt)=ty(cnt)+40
	ttw(cnt)=100+rnd(100)
}
ttw(cnt)--
tty(cnt)+=3
loop
 
 
font msgothic,40
color 0,0,0
pos mx,my
mes "自"
font msgothic,20
repeat 5
pos mtx(cnt),mty(cnt)
mes "△"
loop
pos 100,0
repeat 100
font msgothic,40
pos tx(cnt),ty(cnt)
mes "敵"
loop
font msgothic,20
repeat 100
pos ttx(cnt),tty(cnt)
mes "▼"
loop
 
if HP>0 { font msgothic,40 : pos 0,0 : mes "HP:" + HP}
if HP<=0 { font msgothic,40 : pos 0,0 : mes"GAMEOVER" : pos mx,my : mes "■" }
font msgothic,40
pos 340,0
mes "SCORE:"+SCORE
 
goto*main