HSPTV!掲示板

ウインドウを徐々に暗くしてフェードアウトみたくしたいのですが、明るさを調整する命令はありますでしょうか？

Win32APIを使って下さい。
http://mo.kerosoft.com/0192を参照して下さい。
なるべく、環境を詳細に書いて下さい。

一応以下のスクリプトでそれっぽいことはできます。

font "", 128
color 255
mes "こんにちわ"

buffer 1
gcopy 0, , , ginfo_winx, ginfo_winy
gsel 0

gmode 6, ginfo_winx, ginfo_winy, 5

repeat 102
	pos 0, 0
	gcopy 1
	await 20
loop

gcopyのブレンド率の計算は今一挙動が掴めません。
（ブレンド率1にすると何もコピーされなかったり、4以下にすると減算されない部分があったり･･･）
恐らくもっと良い方法があると思うので、別の回答を待つのが良いかもしれません。

#uselib "user32.dll"
#func GetWindowLongA "GetWindowLongA" int , int
#func SetWindowLongA "SetWindowLongA" int , int , int
#func SetLayered "SetLayeredWindowAttributes" int , int , int , int
screen 0
title "テスト"
GetWindowLongA hwnd , -20
SetWindowLongA hwnd , -20 , stat | 0x00080000
l=0
repeat 100
SetLayered hwnd , 0 , L*255/100 , 2 //透明度指定
await 5 //ここを変えてフェードのスピードを変える
L++
loop
stop

フェードアウト:


#uselib "user32.dll"
#func GetWindowLongA "GetWindowLongA" int , int
#func SetWindowLongA "SetWindowLongA" int , int , int
#func SetLayered "SetLayeredWindowAttributes" int , int , int , int
screen 0
title "テスト"
GetWindowLongA hwnd , -20
SetWindowLongA hwnd , -20 , stat | 0x00080000
l=100
button "フェードアウト",*FadeOut
stop


*FadeOut
repeat 100
SetLayered hwnd , 0 , L*255/100 , 2 //透明度指定
await 10
L--
loop
end

こういう方法もある。

みなさんありがとうございます。
参考にさせて頂きます。