一時間でワンキーアクション作ったやつ

ツイッターでなんか言ってたやつです

けーさんだって一時間もあればワンキーアクションゲームぐらい作れるんだぜって言おうと思ってから50分で出来上がったものがこちらです(出来上がってない) pic.twitter.com/NAgr8DDXhW

— K_K@またゲームつくりたい (@Ksan_1204) August 28, 2018

↑このツイートでやってたやつのとりあえずの完成形(一時間ちょいかかった)のコードをオープンソースで公開します

といっても各言語の十分な知識があれば一時間ぐらいで作るのは割と誰でもできそうな…

ちなみに私がやったのはHSPです
ゆにてぃとかべんきょうしたほうがいいかなぁ…

以下ソースコード*/

screen 0,800,400

*start
pos 0,0
color
font "",25
mes "press space key to start"

*swait

getkey jp,32
if jp=1:goto *sstart
await 20
goto *swait

*sstart
jx=50:jy=200
js=20
jay=2
jvy=0
now=12
fland=400
jpf=0

score=0

dim land,200
foreach land
land.cnt=400
loop

randomize


*main
if jy+js>land.now:goto *gameover
score++
redraw 0
color 255,255,255
boxf

if keep=0{
fland+=(rnd(301)-150)
if fland>400:fland=400
if fland<100:fland=100
keep=rnd(30)+20
}else:keep--
foreach land
if cnt=199:break
land(cnt)=land(cnt+1)
loop
land(199)=fland

if jy+js>land.now:goto *gameover

if jy+js<=land.now{
jvy+=jay
jy+=jvy
if jy+js>=land.now{
jy=land.now-js
jvy=0
}
}
if jy+js=land.now{
getkey jp,32
if jp=0{
if jpf=0:else :if jpf<4:jvy-=20:else:jvy-=35
jpf=0
}else:jpf++
}
color 255,0,0
circle jx-js,jy-js,jx+js,jy+js

color 0,0,0
foreach land
boxf cnt*4,land.cnt,cnt*4+3
loop
pos 0,0
color 0,0,0
font "",25
mes "score:"+score
redraw
await 20
goto *main
*gameover
pos 0,0
color
font "",25
mes "gameover"
mes "score:"+score
mes "press space key to restart"
redraw

*owait

getkey jp,32
if jp=1:goto *start
await 20
goto *owait

/*以上

なんかエディタで見ててびっくりしたんですけどこれ冗長なコードもあるのに１００行ないぐらいなんすよ

ワンキーアクションなんてのはそのぐらいでもできるんやでってことで

これをベースにいろいろいじってくれてもええんやで