ゲーミング呼び込み君

yobikomikun.hsp

font msgothic, 40

repeat
	redraw 2
	color 40, 40, 40
	circle 110, 180, 530, 300
	//color 40, 80, 40
	hsvcolor cnt \ 192, 255, 60
	circle 130, 200, 510, 280
	pos 160, 220
	// color 240, 20, 0
	hsvcolor (cnt / 4) \ 192, 255 - (cnt * 8 \ 255), 255
	mes "いらっしゃいませ"
	
	if (cnt / 15) & 1 {
		rr = 5
		yr = 3
	} else {
		rr = 3
		yr = 5
	}
	tc = cnt
	// color 255, 0, 0
	repeat 16
		hsvcolor (tc + cnt * 12) \ 192, 255, 255
		x = 200.0 * cos(2.0 * M_PI / 16.0 * cnt)
		y = 50.0 * sin(2.0 * M_PI / 16.0 * cnt)
		bx = 320 + x
		by = 240 + y
		circle bx - rr, by - rr, bx + rr, by + rr
	loop
	
	// color 255, 255, 0
	repeat 16
		hsvcolor (tc + cnt * 12 + 6) \ 192, 255, 255
		x = 200.0 * cos(2.0 * M_PI / 16.0 * (0.5 + cnt))
		y = 50.0 * sin(2.0 * M_PI / 16.0 * (0.5 + cnt))
		bx = 320 + x
		by = 240 + y
		
		circle bx - yr, by - yr, bx + yr, by + yr
	loop
	redraw 1
	await 16
loop