その他

シューティング

ソース名：その他

'敵'
makeimg(ene,30,30)
trgt(ene)
setfont("S")
col(green)
frect(0,0,30,30)
trgt(off)

@(難,"Easy","Normal","Hard","Lunatic")
Bs=8
Pm=4
label 8
gc()
clearkey()
cix=-120
cixx=93
tn=0
hpt=load(1)
hna=load(2)
if(hna=="0"){hna="登録無し"}
@(ttl,"GAME START","HOW TO PLAY","SETTINGS","EXIT")

label 4
col(aqua)
frect(-120,-174,width,height)
col(-1)
if(cix>120){cix=-147}
farc(cix,-100,27)
cix+=2
if(cixx<-147){cixx=120}
farc(cixx,-100,27)
cixx-=2
setfont("L")
col(red)
text("シューティング？",-1,-80,HCENTER|BASELINE)
text("シューティング？",0,-80,HCENTER|BASELINE)
text("シューティング？",1,-80,HCENTER|BASELINE)
col(blue)
text("☆★☆★☆★★☆★☆★☆",TX,-100,HCENTER|BASELINE)
text("★☆★☆★☆☆★☆★☆★",TX,-60,HCENTER|BASELINE)

setfont("S")
col(0)
text(showfps?"フレームレートっぽいの:表示":"フレームレートっぽいの:非表示";,0,-161,HCENTER|BASELINE)
text("難易度:".難[dif],0,-148,HCENTER|BASELINE)
text(shoottype?"ショット:単発":"ショット:レーザー";,0,-135,HCENTER|BASELINE)
text("1 Player only",0,-40,HCENTER|BOTTOM)

setfont("M")
col(0xD05290)
text("△",0,10,HCENTER|BASELINE)

text(ttl[tn],0,30,HCENTER|BASELINE)

text("▽",0,50,HCENTER|BASELINE)

setfont("M")
col(0)
text("ハイスコア",0,80,HCENTER|BASELINE)
text("".hna."(".hpt."pt)",0,100,HCENTER|BASELINE)

setfont("M")
col(0)
text("Ver 6.4A",-115,164,LEFT|BASELINE)

setfont("S")
'選択肢'
switch(input(0)){
case keyup:
tn-=1
break;

case keydown:
tn+=1
break;

case keyselect:
goto 5
break;
}

if(tn<0){tn=3}
if(tn>3){tn=0}
unlock()
lock()
cls()
goto 4

label 5
switch(tn/1){
case 0:
'スタート'
goto 6
break;

case 1:
'操作'
msgdlg("操作",
"
通話キー:タイトルへ戻る
上下キー:自機上下
決定キー:ショット
８キー:弾の絵変更")
goto 8
break;

case 2:
'設定'
#設定#
goto 9
break;

case 3:
end
}