HSPTV!掲示板

この記事は投稿者により削除されました。
2019/11/29(Fri) 21:09:51

こんな感じですか？

#uselib "user32.dll"
#func SetWindowPos "SetWindowPos" int,int,int,int,int,int,int

#define SWP_NOACTIVATE	$0010
#define SWP_SHOWWINDOW	$0040
#define SWP_NOSIZE		$0001
#define SWP_NOMOVE		$0002
#define SWP_NOZORDER	$0004

#define global winmove(%1,%2) SetWindowPos hwnd,0,%1,%2,0,0,SWP_NOSIZE|SWP_NOZORDER

randomize
*mainloop
winx=ginfo(4)
winy=ginfo(5)
shake=50
repeat shake
;winmove命令（自作）　p1 ウィンドウ座標X,p2 ウィンドウ座標Y
winmove winx,winy+rnd(shake-cnt)-rnd(shake-cnt)
await 16
loop
wait 100
goto *mainloop

#uselib "user32.dll"

は

#uselib "user32.as"

の誤字ですか？

#includeの場合、user32.asですが、#uselibの場合は、"user32.dll"が正しいです。
("C:Windows\System32" に user32.as というファイルが存在しないため。)
#uselib "user32.as" で実行しても、エラーが出ると思いますが。

#HSP script preprocessor ver3.5 / onion software 1997-2017(c)
#Use file [hspdef.as]
#Error:定義済みの識別子は使用できません [setwindowpos] in line 27 [Script.hsp]
#重大なエラーが検出されています
というウインドウが出るんですがC:\hsp351\common\hspdef.asを
C:\Users\ユーザー名\Desktop\SOOP\3Pにコピーすればいいんですか？

つ (誤りがあったので再投稿)

	randomize
	button gosub "揺らす", *m
	stop
*m
	; 連続で揺らすのを防ぐ
	if ( f == 1 ) {
		return
	}
	f = 1
	; ウィンドウを揺らす
	r = GINFO_WX1, GINFO_WY1, 5
	repeat 10
		width , , ( r(0) - ( rnd( r(2) * 2 ) - r(2) )), ( r(1) - ( rnd( r(2) * 2 ) - r(2) ))
		await 16
	loop
	width , , r(0), r(1)
	f = 0
	return

	r = GINFO_WX1, GINFO_WY1, 5

↑の5は揺れ幅を表しています。10とか40とか、いろいろな幅を決めることができます。