HSPTV!掲示板

もうすぐ12さいの誕生日なんで、いいもん考えてください

はい。

#define rgbpal(%1,%2,%3=0) palette %1,((%2)>>16)&0xFF,((%2)>>8)&0xFF,(%2)&0xFF,%3
#define boxf2(%1,%2,%3,%4) boxf %1,%2,(%1)+(%3)-1,(%2)+(%4)-1

screen 0,800,100,1
dim colors,6
colors=0xFF0000,0x00FF00,0xFFFF00,0x0000FF,0xFF00FF,0x00FFFF

repeat 6
	rgbpal 2+cnt,colors(cnt)
loop
rgbpal 1,0xFFFFFF,1

font msgothic,86,1
repeat 5
	palcolor 2+cnt
	boxf2 0,20*cnt,800,20
loop

s="12歳おめでとう!!!!"
palcolor 7 : pos 0,0 : mes s
palcolor 1 : pos 10,10 : mes s

count=1
repeat
	await 500
	redraw 0
	repeat 6
		rgbpal cnt+2,colors((count+cnt)\6)
	loop
	rgbpal 1,count\2*0xFFFFFF,1
	count++
	if count>=6 : count-=6
	redraw 1
loop

font "",72: color 255
pos 240,180: mes "おめ"

>沢渡さん＆窓月ららさん

ナイスです！👍