nizika_desktop/main.hsp

#include "user32.as"

#packopt hide 1
#packopt name "nizika-desktop"

#const NIZIKA_WIDTH	300
#const NIZIKA_HEIGHT	300
#const NIZIKA_BASE	240
#const NIZIKA_LEFT	 60
#const NIZIKA_RIGHT	250


	; 半透明スクリーン作成
	SCREEN_MAIN = BgScr2 (gInfo_dispX, gInfo_dispY, SCREEN_HIDE, 0, 0)
	SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong (hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
	SetLayeredWindowAttributes hWnd, RGBCOLOUR_LIME, False, True

	Color COLOUR_LIME
	BoxF

	SCREEN_NIZIKA = Buffer2 ()
	PicLoad "assets/nizika.png"

	GSel SCREEN_MAIN, 2

	frame = 0

	nizikaX = Double (-NIZIKA_LEFT)
	nizikaY = Double (gInfo_dispY - NIZIKA_BASE)

	direction = 1

	Repeat
		Pos nizikaX, nizikaY
		GCopy SCREEN_NIZIKA, 0, NIZIKA_HEIGHT * (frame \ 24), NIZIKA_WIDTH, NIZIKA_HEIGHT

		nizikaX += direction * 4

		If nizikaX >= NIZIKA_WIDTH {
			direction = -direction
		}

		Await 33

		frame++
	Loop