|
|
2020/11/19(Thu) 21:37:42|NO.91822
スレッドなどを参考に作りました。
教えていただきたいのは、
�．薀ぅ佞良充�
��敵に衝突した際、自機を一瞬赤くして再び初期位置からやり直してスタートさせるやり方
��アイテムを20秒経過ごとに出し、取得するまでバリアかライフの全回復かわからないアイテム
です。
�，離薀ぅ佞魯廛蹈哀薀爐鮑遒辰燭呂困覆里任垢�、なぜか表示されず、何が足りないか知りたいです。
��はバリアのみ作りました。
どれか１つでもわかるものがあればご教授いただきたいです。
よろしくお願いいたします。
wx=400:wy=600 ; 画面サイズ
screen 0,wx,wy
color 0,150,150:boxf 0,0,400,600
dim fight ;自機の残機数
dim blast ;自機の爆発カウンタ
;自機の初期化
x=(400-30)/2
y=(600-30)-16
fight=3
blast=0
mx=200:my=300 ; プレイヤーの座標
msp=4 ; プレイヤーの移動スピード
ms=20 ; 衝突判定のしきい値である半径
mfs=30 ; 自機のフォントサイズ
mf=1 ;自機の生存フラグ
itm=0 ;1以上でバリア
;アイテム
itx=-fs/2 ;アイテムの初期x
ity=wy/2 ;アイテムの初期y
itf=0 ;アイテムが存在するか
itsp=2;アイテムのスピード
;120秒間
countermax=120*60
counter=1
cf=1:ct=-1
frame=0
fs=30 ;フォントサイズ
*start
redraw 0 ; 画面更新開始
color 0,200,200:boxf 0,0,400,600
;自機
if blast==0{
stick key,%11111 ; キー入力
;limit p1,p2,p3(一定範囲内の整数を返す) 対象となる値,最小値，最大値
if key&1 : mx=limit( mx-msp, 0, wx ) ; 左移動
if key&4 : mx=limit( mx+msp, 0, wx ) ; 右移動
if key&2 : my=limit( my-msp, 0, wy ) ; 上移動
if key&8 : my=limit( my+msp, 0, wy ) ; 下移動
if itm > 0 : itm--
pos mx-mfs/2,my-mfs/2
if itm : color 0,0,255 : else color
font"ＭＳ ゴシック",mfs:mes "●"
}else:if (blast>1){
blast--
}else:if (fight>0){ ;残機数
fight-- ;残機数--
blast=0 ;自機の爆発カウンタ
mx=(200-30)/2 ;自機の復活
my=(300-30)-16
}else{
mf=0 ;残機0なら自機の生存フラグなし
}
;▲
if cf {
dist=abs(cx-mx)+abs(cy-my)
if dist<(ms*2) {
if itm == 0 { goto *gameover }; バリアではない場合*gameover
else { cf=0 : ct=3*60 };3秒経過後再び出てくる
}
;新しい座標=aline(現在の座標,追いかける座標)
cx=alien(cx,mx)
cy=alien(cy,my)
gsel 0
pos cx-fs/2,cy-fs/2
color 255,255,255:gmode 4,0,0,256 ;画像背景の透明化
color
mes "▲"
}
;アイテムの出現
if frame=60*5 : itf=1
if itf { ;アイテムが存在
itx+=itsp
if itx>wx : itf=0 ;画面外に出たら消える
dist=abs(itx-mx)+abs(ity-my) ; 敵との距離
if dist<(ms*2) : itm=10*60 : itf=0 ;10秒間バリアできる
pos itx-fs/2,ity-fs/2
mes "？"
}
if ct==0 {
cf=1
}else{
if ct>0 {
ct--
}
}
;タイマー
color 0,0,0
pos 0,580:font"MS ゴシック",20:mes "TIME:"+(counter/60)
redraw 1
await 1000/60
if countermax<=counter{
gosub *gameover
}
counter++
frame++
goto *start
*life
msg=""
repeat fight
msg+="●"
loop
font MSGOTHIC,30,1
color 255,0,0:pos 330,30-30:mes msg
font MSGOTHIC,50
return
*gameover
color 0,150,150:boxf 0,0,400,600
font msgothic,50
color 0,0,0:pos 100,300
mes "GAME OVER"
redraw 1
stop
;▲
#defcfunc alien int value1, int value2
csp=2 ; 敵の移動スピード
res=limit( value2-value1, -csp, csp )
return value1+res
| |
ライフとランダムアイテム
