そしてこちらは、現在地点

起動時に一定確率でロゴをミスるようにしました
遊び心大事。うん。
あとはそっけないタイトル画面に移行できるようになりますた
ああああああ早くゲーム内容作っていきたいよおおおおおおおおおお

wid_x=720:hei_y=480
wid_hx=wid_x/2:hei_hy=hei_y/2
screen 0,wid_x,hei_y,0
color 255,255,255:boxf
color 0,0,0
s=90:t=126
vague=100
a=1:v=1
*mainloop
pi=deg2rad(s)
pie=deg2rad(t)
repeat vague+260,-260
circle cos(pi)*vague+cos(pie)*cnt+wid_hx-5,sin(pi)*vague+sin(pie)*cnt+hei_hy-5,cos(pi)*vague+cos(pie)*cnt+wid_hx+5,sin(pi)*vague+sin(pie)*cnt+hei_hy+5,1
await v
loop
a+=1:s+=72.0:t+=72.0
if a<6 :goto *mainloop
a=0:s=0.0:t=180.0:vague=200
pi=deg2rad(s)
pie=deg2rad(t)
repeat vague,0
circle cos(pi)*vague+cos(pie)*cnt+wid_hx-5,sin(pi)*vague+sin(pie)*cnt+hei_hy-5,cos(pi)*vague+cos(pie)*cnt+wid_hx+5,sin(pi)*vague+sin(pie)*cnt+hei_hy+5
await v
loop
a+=1:s+=72.0:t+=72.0
if a<6 :goto *mainloop
stop
説明は追記で

続きを読む

ボタン設置してみただけですはい
適当にいじってね
無限ループはawait0にするとフリーズするから注意してな

続きを読む

何に使えるかは分からないが、プログラムの練習ということで
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にてコンパイル可能ですはい
がんばる