いろいろ

main.hsp

@@ -3,24 +3,45 @@
 #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_MAIN, 0, 0)
+	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
 
-	Repeat 24
-		SCREEN_NIZIKA.cnt = Buffer2 ()
-		PicLoad StrF ("assets/nizika/%03d.png", cnt + 1)
+	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
 
-	NIZIKA_WIDTH = gInfo_winX
-	NIZIKA_HEIGHT = gInfo_winY
-
-	GSel SCREEN_MAIN
-	Pos 0, 0
-	GCopy SCREEN_NIZIKA, 0, 0, NIZIKA_WIDTH, NIZIKA_HEIGHT
-