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


HSPTV!掲示板


未解決 解決 停止 削除要請

2022
0123
ねんねこ5787ニコニコのように文字を画面上に流す1解決


ねんねこ5787

リンク

2022/1/23(Sun) 17:08:04|NO.95165

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

#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



この記事に返信する


ねんねこ5787

リンク

2022/1/23(Sun) 17:10:27|NO.95166

修正です。

#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



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.95165への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

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