HSPTV!掲示板

暇なのでうざいデスクトップを研究しています
動作確認と、うざいかどうか、より良いうざ効果などあればご意見ください
escで終了です

//うざデスtest
#include "gdi32.as"  
#define KAN 4						//画面分割数(1以上)
#define CYCLE 160					//ループ速さ(偶数)
#const KAKU 2.0*M_PI/CYCLE

randomize
bunX=ginfo(20)/KAN:bunY=ginfo(21)/KAN
hanten=-1
tx=0,bunX,bunX,0
ty=0,0,bunY,bunY
xs(0)=0:ys(0)=0:xs(3)=0:ys(3)=bunY
buffer 1,bunX,bunY
bgscr 0,bunX,bunY
gsel 0,-1

repeat
	stick ky:if ky&&128:end			//esc:やめる
	gosub *capture
	gosub *effect4
await 16
loop

*capture
	if cnt\(CYCLE/2)!=0:return
	rX=rnd(KAN)*bunX:rY=rnd(KAN)*bunY
	gsel 1
	hdcScreen = CreateDC("DISPLAY",0,0,0)
	BitBlt hdc,0,0,bunX,bunY,hdcScreen,rX,rY,0x00CC0020
	DeleteDC hdcScreen
	gsel 0,2
	width ,,rX,rY
	return

*effect4
	redraw 0
	color:boxf
	if cnt\(CYCLE/4)==0:hanten*=-1
	rCount+=hanten
	xs(1)=int(1.0*bunX*cos(-KAKU*rCount))
	ys(1)=int(0.2*bunY*sin(KAKU*rCount))
	xs(2)=int(1.0*bunX*cos(KAKU*rCount))
	ys(2)=-int(0.2*bunY*sin(KAKU*rCount))+bunY
	gsquare 1,xs,ys,tx,ty
	redraw 1
	return

うざいというか面白いですね！
まぁ特に意見はないのですが（

うざくないですか、もっと多数表示してマウスクリックできないくらい
じゃないと駄目かもしれませんね。テストありがとうございました。

スレを再利用してしまいますが
gsquareを使っていて気になった点があります。

screen 0
celload dir_tv+"koma.bmp",1
tx=0,ginfo_sizex,ginfo_sizex,0
ty=0,0,ginfo_sizey,ginfo_sizey
a=0
gsel 0
repeat
	redraw 0
	color 0,128,64:boxf
	gosub *draw
	redraw 1
	await 16
loop
*draw
	a++
	a=a\100
	xs=100+a,400,400,100+a
	ys=150,150-a,250+a,250
	color rnd(256),rnd(256),rnd(256)
	gsquare -1,xs,ys		//塗りつぶし
	gsquare 1,xs,ys,tx,ty	//テクスチャあり
	return

読み込む画像によってテクスチャがゆがんで空白（点滅部）が
出たり出なかったりしますがその原因と、出なくする方法は無いでしょうか？