スポンサーサイト
上記の広告は１ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
新しい記事を書く事で広告が消せます。
ちょいと練習用に
何に使えるかは分からないが、プログラムの練習ということで
screen 0,640,480,0
*botan
randomize
clrobj
redraw 0
color 255,255,255:boxf
objsize 100,100
color 0,0,0
bx=rnd(540):by=rnd(380)
mes "bxは"+bx+"です"
mes "byは"+by+"です"
pos bx,by:button "(*´ω｀*)",*owari
cx=bx+100
cy=by+100
redraw 1
repeat
redraw 0
color 255,255,255:boxf 0,30,100,49
color 0,0,0:pos 0,30:mes "X="+x+"/Y="+y
await 20
x=mousex:y=mousey
color 0,255,255:boxf bx-100,by-100,bx+200,by+200
if (x>bx-100):if(xby-100):if(y redraw 1
await 100
loop
goto *botan
*owari
end
押そうとすると逃げるボタンを設置
HSPにてコンパイル可能ですはい
がんばる
screen 0,640,480,0
*botan
randomize
clrobj
redraw 0
color 255,255,255:boxf
objsize 100,100
color 0,0,0
bx=rnd(540):by=rnd(380)
mes "bxは"+bx+"です"
mes "byは"+by+"です"
pos bx,by:button "(*´ω｀*)",*owari
cx=bx+100
cy=by+100
redraw 1
repeat
redraw 0
color 255,255,255:boxf 0,30,100,49
color 0,0,0:pos 0,30:mes "X="+x+"/Y="+y
await 20
x=mousex:y=mousey
color 0,255,255:boxf bx-100,by-100,bx+200,by+200
if (x>bx-100):if(x
await 100
loop
goto *botan
*owari
end
押そうとすると逃げるボタンを設置
HSPにてコンパイル可能ですはい
がんばる
