シューティング２

シューティング

'FPS'
if(time>0){
FPS=(FLAME/time)
if(showfps==1){
text("fps:".setscl(FPS,2),0,-174,HCENTER|TOP)
}
}


'残り時間'
lim=180-time
if(lim<=0){goto 3}
text("残り".lim."秒",0,174,HCENTER|BOTTOM)

'タイトルへ'
if(scan==keycall)
{bak=yndlg("タイトルへ戻りますか？",
"この表示をしている間も
残り時間は減っています

")
if(bak==1){goto 8}
}


'自機'
col(0x0000FF)
text("―",x-2,y,LEFT|BASELINE)
text("◆",x,y,HCENTER|BASELINE)

'敵'
if(et==0){ey-=eye}
if(et==1){ey+=eye}
if(ey>140)
{et=0;
eye=max(abs(rand%11)),4)}
if(ey<-160)
{et=1;
eye=max(abs(rand%7),4)}
'frect'drawimg(ene,ex,ey,0)

'敵弾'
gc()
if(time%10==0){goto 98}
col(red)

for(ii=0;ii<=iid;0){
if(at[ii]==1){
text("●≡",ax[ii],ay[ii],LEFT|BASELINE)
'drawimg(bullet,ax[ii],ay[ii],LEFT|VCENTER)'
}
if(at[ii]==0){
if(time%2'(ii+1)'==0){at[ii]=1
}else{ax[ii]=ex;ay[ii]=y+rand%(ii*12+1)}}
ii++
}



'当たり判定'
for(ii=0;ii<=iid;0){
if(ax[ii]<=x-1&&
ax[ii]+12>=x-1&&
ay[ii]+5>=y-4&&
ay[ii]-5<=y+4){
pHP--
goto 2}
ii++
}
ii=0


'弾移動 繰り返さないほうが速い'
if(iid<=6){
ax[0]-=(Bs)
if(ax[0]<-120){at[0]=0}
ax[1]-=(Bs+1)
if(ax[1]<-120){at[1]=0}
ax[2]-=(Bs+2)
if(ax[2]<-120){at[2]=0}
ax[3]-=(Bs+3)
if(ax[3]<-120){at[3]=0}
ax[4]-=(Bs+4)
if(ax[4]<-120){at[4]=0}
ax[5]-=(Bs+5)
if(ax[5]<-120){at[5]=0}
ax[6]-=(Bs+6)
if(ax[6]<-120){at[6]=0}
}else{
bmove()
}
ii=0

label 98

'自機移動'
if(scan==keyup){y-=Pm}
if(scan==keydown){y+=Pm}
if(y<-160){y=-160}
if(y>170){y=170}

'ショット'
if(X<50){
if(input(0)==keyselect){
while(tama==0){tama=1}}}if(tama==1)
{
'color(abs(rand%256),abs(rand%256),abs(rand%256))'
col(fuchsia)
'単発ショット'
if(shoottype==1){text(weapon,X,Y,HCENTER|BASELINE)
X+=15
if(X>120){
pt-=1;tama=0;flag=0
clearkey()}
}

つづき
シューティング３