スポンサーサイト
上記の広告は１ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
新しい記事を書く事で広告が消せます。
今日もネタですよっと
ボタン設置してみただけですはい
適当にいじってね
無限ループはawait0にするとフリーズするから注意してな
適当にいじってね
無限ループはawait0にするとフリーズするから注意してな
screen 0,640,480,0
*initialize
clrobj
pos 100,0:mes "げーむかっこかり"
objsize 80,20
x=100:y=100
vy=0.0
g=1.0
pos 300,100:button "end",*owari
pos x,y:button "start",*fall
stop
*owari
end
*fall
redraw 0
clrobj 1,1
vy+=g:y+=vy
pos x,y
button "( ﾟдﾟ )",*initialize
if y>960 :{
y=0.0:vy=0.0
goto *slowfall
}
await 30
redraw 1
goto *fall
*slowfall
redraw 0
clrobj 1,1
y+=2.0
pos x,y
button "( ﾟдﾟ )",*initialize
if y=100:goto *doya
redraw 1
await 30
goto *slowfall
*doya
redraw 0
clrobj 1,1
pos 100,100
button "( ･´ｰ･｀)",*initialize
redraw 1
await 400
goto *initialize
*initialize
clrobj
pos 100,0:mes "げーむかっこかり"
objsize 80,20
x=100:y=100
vy=0.0
g=1.0
pos 300,100:button "end",*owari
pos x,y:button "start",*fall
stop
*owari
end
*fall
redraw 0
clrobj 1,1
vy+=g:y+=vy
pos x,y
button "( ﾟдﾟ )",*initialize
if y>960 :{
y=0.0:vy=0.0
goto *slowfall
}
await 30
redraw 1
goto *fall
*slowfall
redraw 0
clrobj 1,1
y+=2.0
pos x,y
button "( ﾟдﾟ )",*initialize
if y=100:goto *doya
redraw 1
await 30
goto *slowfall
*doya
redraw 0
clrobj 1,1
pos 100,100
button "( ･´ｰ･｀)",*initialize
redraw 1
await 400
goto *initialize
