Tiny Basic for Windowsで簡単な射的ゲームを作りました！
主人公は左から右へ自動的に動いて、Spaceキーで撃てます！
2周全部的を撃ちぬいたらクリアです。逆に、一つでも残ったらアウト。
弾は8発です。二週目に入ると補充されます。
ビジーウェイトを使ってるからパソコンによって速さが違うかもしれないから、
調整してみてください。
以下が作ったゲームの本体です↓（これでなんか起こっても責任は負いかねます）
Randomize
gm=0
DIM matox(6)
DIM matoy(6)
public bstm
GBackColor=0
GScreen(480,240)
010 GLocate(100,50)
gm=0
GForeColor=15
GFontSize=30
GPrint"全部ぶちぬけ！"
GLocate(170,120)
GFontSize=12
GPrint"Spaceキー押せ"
for i=0 to 2 step 0
if inkey$=" " then
i=3
cls 2
endif
next i
'タイトル終了
020 sc=0
print"GAME START"
x=20
y=190
shot=8
if gm=2 then
GLocate(170,110)
GFontSize=12
GPrint"げーむくりあ！"
gm=0
for i=0 to 2 step 0
if inkey$=" " then
i=3
cls 2
endif
next i
goto 010
endif
cls 2
for i=0 to 6'的を設置
matox(i)=int(rnd(1)*400)+60
matoy(i)=int(rnd(1)*100)
GLocate(matox(i),matoy(i))
GPrint"◎"
next i
for g=0 to 5 step 0
x=x+1
call bswt
GLocate(x,y)
GPrint"凸"
line(x,y)-(x-5,y+16),0,bf
if inkey$=" " then
if shot<>0 then
shot=shot-1
line(x+6,y)-(x+6,0)
for i=0 to 6'衝突判定
if matox(i)<x+6 and matox(i)+14>x+6 then
sc=sc+1
print 7-sc
if sc=7 then
bstm=100000
call bswt
GLocate(180,120)
bstm=10000
gm=gm+1
goto 020
end if
matox(i)=0
endif
next i
bstm=200000
call bswt
cls 2
bstm=10000
for i=0 to 6
if matox(i)<>0 then
GLocate(matox(i),matoy(i))
GPrint"◎"
endif
next i
endif
end if
GLocate(8,3)
GPrint "残り弾数"
GLocate(0,19)
GPrint shot
if sc<>7 and 480<x then
GLocate(170,110)
GFontSize=12
GPrint"げーむおーばー"
for i=0 to 2 step 0
if inkey$=" " then
i=3
cls 2
endif
next i
bstm=10000
goto 010
endif
next g
sub bswt
for bs=0 to bstm
next bs
end sub
]]>
