HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0213
うざいデスクトップ2解決


リンク

2019/2/13(Wed) 17:38:09|NO.86569

暇なのでうざいデスクトップを研究しています
動作確認と、うざいかどうか、より良いうざ効果などあればご意見ください
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



この記事に返信する


ham

リンク

2019/2/13(Wed) 23:37:35|NO.86572

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



リンク

2019/2/16(Sat) 12:38:08|NO.86574

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

スレを再利用してしまいますが
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
読み込む画像によってテクスチャがゆがんで空白(点滅部)が
出たり出なかったりしますがその原因と、出なくする方法は無いでしょうか?



ONION software Copyright 1997-2021(c) All rights reserved.