シューティング３

シューティング２

'レーザー'
if(shoottype==0){
text(weapon.weapon.weapon.weapon.weapon.weapon.weapon,X,Y,RIGHT|BASELINE)
X+=15
if(X-dantyo>120)
{pt-=1;tama=0;flag=0
clearkey()}
}
}
if(tama!=1)
{X=x;Y=y}
if(pt<0){pt=0}

'敵ヒット'
'レーザー'
if(shoottype==0&&tama==1&&
Y>ey+3&&Y<ey+33&&X>ex&&X-dantyo<ex+30){
eHP-=2
setfont("S")
pt+=3
co+=1
}

'単発'
if(shoottype==1&&tama==1&&
Y>ey+3&&Y<ey+33&&X>ex){
eHP-=5
setfont("L")
sleep(10)
setfont("S")
pt+=7
tama=0
flag=0
co+=1
}



unlock()

'game clear'
if(eHP<=0){goto 1}

lock()
cls()
goto 0

'ここまで'

'game clear'
label 1
cls()
pt=setscl(iid/6*pHP/3*FPS/10*100/time*pt,2)
msgdlg("ゲームクリア！","得点は".pt."です")

if(pt>hpt){
sv=yndlg("記録更新！","今回の結果をセーブする？")
if(sv==1){
save(pt,1)
name=inputdlg("名前入力","名無しのよっしん",8,0)
save(name,2)
msgdlg("おめでとう！",
"また遊んでね")
}else{
msgdlg("また挑戦してね",
"")
}
}else{
msgdlg("また挑戦してね",
"")
}
goto 8


label 2
'Game Over'
ouch=rand%2
col(-1)
if(ouch==1){text("ぴちゅーん",x,y,LEFT|BASELINE)}
else{text("イ゛ェアアアアア",x,y,LEFT|BASELINE)}
unlock()
sleep(1000)
cls()
if(pHP<=0){
col(0xFF0000)
setfont("L")
text("GAME OVER",-1,0,HCENTER|BASELINE)
text("GAME OVER",0,0,HCENTER|BASELINE)
text("GAME OVER",1,0,HCENTER|BASELINE)
sleep(2000)
msgdlg("GAME OVER",
"残念だったね")
goto 8
}else{goto 99}

label 3
msgdlg("タイムオーバー",
"


　　　　　時間切れ")

goto 8


'おわり'