こころぴょんぴょんゲームを作った

あぁ^～心がぴょんぴょんするんじゃぁ^～とは (アァーココロガピョンピョンスルンジャァーとは) [単語記事] - ニコニコ大百科

始まりはこのニコニコ大百科ページである。この記事の中には、いろんな言語で書かれた「あ＾～こころがぴょんぴょんするんじゃぁ＾～」が集められている。中でも、HSPを用いた物はその完成度の高さが際立っており、私はこのソースを使てゲームの一つでも作れないかと思案した。

その結果が以下のコードである。

簡単に操作方法を書いておこう。スペースキーがブーストで、後は左右の方向キーで操作する。以上だ。20ステージある。難易度は敵が出てくる以外、そう変わらない。

 ```
randomize
buffer 1 　
screen 0,500,200
y=-9
x=0
hole = rnd(400)
enem = rnd(400)
bst=0
stg=1
bstnw = 0 

enapp = 0

*main

title "stage:"+str(stg)+" "+"boost:" + str(5-bst)

gosub *A

gosub *B

gosub *C

gosub *E

bstnw = 0

stick K ,21

if (K = 1) :x=x-5

if (K = 4) :x=x+5

if (K = 16)&&(bst<5) :x=x+50 :bst++ :bstnw++

await 30

goto *main

*A
cls
line 0,100,500,100
boxf hole,100,hole+100,120
y++
pos x,y*y
mes "心"
gosub *D
if y=9{y=-y}:wait 5
return

*B
if (x > hole)&&(x < hole+100)&&(y=8){
cls
pos 220,100
mes "ouch!!!"
stop
}
return

*C
if x>500{
y=-9
x=0
hole = rnd(400)
enem = rnd(400)
enapp = 0
bst=bst-5
stg++
}
return

*D
if (stg>4)&&(enapp=0){
pos enem,y*y
mes "敵"
if (x>enem-20)&&(x<enem)&&(bstnw=0):gosub *B
if (x>enem-20)&&(x<enem)&&(bstnw!=0):enapp++ :bst = bst - 10
}
return

*E
if (stg=21){
cls
pos 200,100
mes "GAME CLEAR!!!"
if (bst > 40) : pos 200,120 : mes "goodjob!"
if (bst < 40)&&(bst > 30) : pos 200,120 : mes "soso"
if (bst < 30)&&(bst > 0) : pos 200,120 : mes "try again"
stop
}
return

 ```