ニコニコのように文字を画面上に流す

こんな感じです。
まだ未完成ですが...



#include "user32.as"
#define LWA_COLORKEY	0x00000001
#define LWA_ALPHA	0x00000002
//--------------------------------------------------------------------------------------------------
//= COLORREF Module type1 (RGB)
// http://hijkprogram.seesaa.net/article/419754511.html
//--------------------------------------------------------------------------------------------------
#define ctype RgbToRef(%1,%2,%3)	(%1<<16)|(%2<<8)|%3
#define ColorRef(%1)				color 0xff&(%1>>16), 0xff&(%1>>8), 0xff&%1
#define ctype RefToR(%1)			(0xff&(%1>>16))
#define ctype RefToG(%1)			(0xff&(%1>>8))
#define ctype RefToB(%1)			(0xff&%1)
fontsize=50
saidaimoji=100
hyouji="すごい!!"
screen 0,fontsize*saidaimoji,fontsize
color
boxf
color 255,255,255
font msgothic,fontsize
mes hyouji
mesx0=ginfo_mesx
mesy0=ginfo_mesy
win0x=ginfo_dispx
randomize
win0y=rnd(ginfo_dispy-20)
gsel 0,-1
bgscr ginfo_newid,fontsize*saidaimoji,fontsize,0,win0x,win0y
hwnd0 = hwnd
color
boxf
color 255,255,255
font msgothic,fontsize
mes hyouji
	GetWindowLong hwnd0,-20
	SetWindowLong hwnd0,-20,stat|$80000
	SetLayeredWindowAttributes hwnd0,RgbToRef(0,0,0),255,LWA_ALPHA|LWA_COLORKEY
repeat
await 4
win0x=win0x-1
gsel 1,2
MoveWindow hwnd ,win0x,win0y,mesx0,mesy0, 1
if (win0x+mesx0)<=0:end
loop

#include "user32.as" #define LWA_COLORKEY 0x00000001 #define LWA_ALPHA 0x00000002 //-------------------------------------------------------------------------------------------------- //= COLORREF Module type1 (RGB) // http://hijkprogram.seesaa.net/article/419754511.html //-------------------------------------------------------------------------------------------------- #define ctype RgbToRef(%1,%2,%3) (%1<<16)|(%2<<8)|%3 #define ColorRef(%1) color 0xff&(%1>>16), 0xff&(%1>>8), 0xff&%1 #define ctype RefToR(%1) (0xff&(%1>>16)) #define ctype RefToG(%1) (0xff&(%1>>8)) #define ctype RefToB(%1) (0xff&%1) fontsize=50 saidaimoji=100 hyouji="すごい!!" screen 0,fontsize*saidaimoji,fontsize color boxf color 255,255,255 font msgothic,fontsize mes hyouji mesx0=ginfo_mesx mesy0=ginfo_mesy win0x=ginfo_dispx randomize win0y=rnd(ginfo_dispy-fontsize) gsel 0,-1 bgscr ginfo_newid,fontsize*saidaimoji,fontsize,0,win0x,win0y hwnd0 = hwnd color boxf color 255,255,255 font msgothic,fontsize mes hyouji GetWindowLong hwnd0,-20 SetWindowLong hwnd0,-20,stat|$80000 SetLayeredWindowAttributes hwnd0,RgbToRef(0,0,0),255,LWA_ALPHA|LWA_COLORKEY repeat await 4 win0x=win0x-1 gsel 1,2 MoveWindow hwnd ,win0x,win0y,mesx0,mesy0, 1 if (win0x+mesx0)<=0:end loop

HSPTV!掲示板