@ganziliang/desktop-pet 0.1.0

package/scripts/drop-probe.ps1

@@ -0,0 +1,120 @@
+# drop-probe.ps1 -- does the pet stay where you drop it, or fall to the bottom?
+#
+# Presses on the character, drags it UP, releases, then waits and re-reads the
+# window rect. With gravity off it must stay where it was released; with gravity
+# on it must end up on the bottom edge of the work area.
+#
+# NOTE: keep this file pure ASCII (PowerShell 5.1 reads .ps1 as ANSI).
+
+param(
+  [string]$Hwnd,
+  [int]$RisePx = 260,
+  [int]$SettleMs = 1500,
+  [ValidateSet('stay','fall')][string]$Expect = 'stay'
+)
+$ErrorActionPreference = 'Stop'
+$root = Split-Path -Parent $PSScriptRoot
+$report = Join-Path $root 'drop-probe-report.txt'
+$out = New-Object System.Collections.Generic.List[string]
+function Say($t) { $out.Add($t) | Out-Null; Write-Host $t }
+
+Add-Type @"
+using System;
+using System.Runtime.InteropServices;
+public class PetDrop {
+  [DllImport("user32.dll")] public static extern bool SetProcessDPIAware();
+  [DllImport("user32.dll")] public static extern bool GetWindowRect(IntPtr hWnd, out RECT r);
+  [DllImport("user32.dll")] public static extern bool SetCursorPos(int X, int Y);
+  [DllImport("user32.dll")] public static extern void mouse_event(uint dwFlags, int dx, int dy, uint dwData, IntPtr dwExtraInfo);
+  [StructLayout(LayoutKind.Sequential)] public struct RECT { public int Left; public int Top; public int Right; public int Bottom; }
+}
+"@
+[void][PetDrop]::SetProcessDPIAware()
+
+$MOVE = 0x0001; $LDOWN = 0x0002; $LUP = 0x0004
+
+$health = Invoke-RestMethod -Uri 'http://127.0.0.1:8520/health' -TimeoutSec 3
+if (-not $Hwnd -and $health.hwnd) { $Hwnd = [string]$health.hwnd }
+if (-not $Hwnd) { Say 'FAIL: no hwnd'; $out | Set-Content -Encoding ASCII $report; exit 1 }
+
+# take manual control so autonomous roaming does not fight the measurement, but remember
+# the previous value: the setting is persisted, so leaving it off would silently turn the
+# pet's autonomous behaviour off for good.
+$autoWas = $health.autoRoam
+if ($null -eq $autoWas) { $autoWas = $true }
+Invoke-RestMethod -Uri 'http://127.0.0.1:8520/auto' -Method Post -ContentType 'application/json' -Body '{"enabled":false}' | Out-Null
+Start-Sleep -Milliseconds 400
+
+$h = [IntPtr][long]$Hwnd
+$r1 = New-Object PetDrop+RECT
+[void][PetDrop]::GetWindowRect($h, [ref]$r1)
+$w = $r1.Right - $r1.Left
+$hgt = $r1.Bottom - $r1.Top
+Say ("before : ({0},{1}) size {2}x{3}" -f $r1.Left, $r1.Top, $w, $hgt)
+
+$px = [int]($r1.Left + $w * 0.5)
+$py = [int]($r1.Top + $hgt * 0.62)
+[void][PetDrop]::SetCursorPos($px, $py)
+Start-Sleep -Milliseconds 250
+[void][PetDrop]::mouse_event($LDOWN, 0, 0, 0, [IntPtr]::Zero)
+Start-Sleep -Milliseconds 180
+
+$steps = 10
+for ($i = 1; $i -le $steps; $i++) {
+  [void][PetDrop]::SetCursorPos($px, $py - [int]($RisePx * $i / $steps))
+  Start-Sleep -Milliseconds 35
+}
+[void][PetDrop]::mouse_event($LUP, 0, 0, 0, [IntPtr]::Zero)
+Say ("dropped {0}px above the start position" -f $RisePx)
+
+Start-Sleep -Milliseconds $SettleMs
+$r2 = New-Object PetDrop+RECT
+[void][PetDrop]::GetWindowRect($h, [ref]$r2)
+$rise = $r1.Top - $r2.Top   # positive = ended up above the start position
+Say ("after  : ({0},{1})  rise={2}px above start" -f $r2.Left, $r2.Top, $rise)
+
+# The drag is a burst of synthetic mouse events and may drop a frame or two, so do not
+# require an exact landing point. Two things are worth asserting:
+#   stay -> it ended up well above where it started (never got pulled down)
+#   fall -> its bottom edge is sitting on the bottom of the work area
+# Work area comes from /health in DIP; the window rect is physical, hence scaleFactor.
+$cx = ($r2.Left + $r2.Right) / 2.0
+$cy = ($r2.Top + $r2.Bottom) / 2.0
+$disp = $null
+foreach ($d in $health.displays) {
+  $sf = $d.scaleFactor
+  $dx = $cx / $sf; $dy = $cy / $sf
+  if ($dx -ge $d.bounds.x -and $dx -le ($d.bounds.x + $d.bounds.width) -and
+      $dy -ge $d.bounds.y -and $dy -le ($d.bounds.y + $d.bounds.height)) { $disp = $d; break }
+}
+$floorBottom = $null
+if ($disp) {
+  $floorBottom = ($disp.workArea.y + $disp.workArea.height) * $disp.scaleFactor
+  Say ("work area bottom (physical) = {0}, window bottom = {1}" -f $floorBottom, $r2.Bottom)
+}
+
+$ok = $true
+if ($Expect -eq 'stay') {
+  if ($rise -gt [int]($RisePx * 0.6)) {
+    Say 'RESULT: PASS - pet stayed where it was dropped'
+  } else {
+    Say ("RESULT: FAIL - pet did not stay up (rise={0}, expected about {1})" -f $rise, $RisePx)
+    $ok = $false
+  }
+} else {
+  if ($null -ne $floorBottom -and [Math]::Abs($r2.Bottom - $floorBottom) -le 20) {
+    Say 'RESULT: PASS - pet fell back to the ground line'
+  } else {
+    Say 'RESULT: FAIL - pet is not sitting on the bottom of the work area'
+    $ok = $false
+  }
+}
+
+# always put the autonomous setting back, even when the check failed
+if ($autoWas) {
+  Invoke-RestMethod -Uri 'http://127.0.0.1:8520/auto' -Method Post -ContentType 'application/json' -Body '{"enabled":true}' | Out-Null
+  Say 'restored autoRoam=true'
+}
+
+$out | Set-Content -Encoding ASCII $report
+if (-not $ok) { exit 1 }

package/scripts/hold-probe.ps1

@@ -0,0 +1,86 @@
+# Hold-probe: press and HOLD the left button on the pet without moving the cursor,
+# sampling the window rect every 200ms. Tells us whether the WINDOW grows or the
+# rendered content is being zoomed. ASCII only (PS 5.1 reads .ps1 as ANSI).
+param(
+  [string]$Hwnd,
+  [int]$HoldMs = 4000,
+  [int]$StepMs = 200,
+  [int]$JitterPx = 0,
+  [switch]$NoPress
+)
+
+$ErrorActionPreference = 'Stop'
+$root = Split-Path -Parent $PSScriptRoot
+$report = Join-Path $root 'hold-probe-report.txt'
+$out = New-Object System.Collections.Generic.List[string]
+function Say($t) { $out.Add($t) | Out-Null; Write-Host $t }
+
+Add-Type @"
+using System;
+using System.Runtime.InteropServices;
+public class HoldWin {
+  [DllImport("user32.dll")] public static extern bool SetProcessDPIAware();
+  [DllImport("user32.dll")] public static extern bool GetWindowRect(IntPtr hWnd, out RECT r);
+  [DllImport("user32.dll")] public static extern bool SetCursorPos(int X, int Y);
+  [DllImport("user32.dll")] public static extern bool GetCursorPos(out RECTpt p);
+  [DllImport("user32.dll")] public static extern void mouse_event(uint dwFlags, int dx, int dy, uint dwData, IntPtr dwExtraInfo);
+  [StructLayout(LayoutKind.Sequential)] public struct RECT { public int Left; public int Top; public int Right; public int Bottom; }
+  [StructLayout(LayoutKind.Sequential)] public struct RECTpt { public int X; public int Y; }
+}
+"@
+
+[void][HoldWin]::SetProcessDPIAware()
+
+$LDOWN = 0x0002
+$LUP = 0x0004
+
+if (-not $Hwnd) {
+  try {
+    $health = Invoke-RestMethod -Uri 'http://127.0.0.1:8520/health' -TimeoutSec 3
+    if ($health.hwnd) { $Hwnd = [string]$health.hwnd }
+  } catch { }
+}
+if (-not $Hwnd) { Say 'FAIL: no hwnd (is the app running?)'; $out | Set-Content -Encoding ASCII $report; exit 1 }
+
+$h = [IntPtr][long]$Hwnd
+$r = New-Object HoldWin+RECT
+[void][HoldWin]::GetWindowRect($h, [ref]$r)
+Say ("HWND={0}" -f $Hwnd)
+Say ("initial: ({0},{1})-({2},{3}) size {4}x{5}" -f $r.Left, $r.Top, $r.Right, $r.Bottom, ($r.Right - $r.Left), ($r.Bottom - $r.Top))
+
+$px = [int]($r.Left + ($r.Right - $r.Left) * 0.50)
+$py = [int]($r.Top + ($r.Bottom - $r.Top) * 0.58)
+Say ("press point: ({0},{1})" -f $px, $py)
+
+[void][HoldWin]::SetCursorPos($px, $py)
+Start-Sleep -Milliseconds 400
+$c = New-Object HoldWin+RECTpt
+[void][HoldWin]::GetCursorPos([ref]$c)
+Say ("cursor: {0},{1}" -f $c.X, $c.Y)
+
+if (-not $NoPress) { [HoldWin]::mouse_event($LDOWN, 0, 0, 0, [IntPtr]::Zero) }
+
+$n = [int]($HoldMs / $StepMs)
+for ($i = 1; $i -le $n; $i++) {
+  if ($JitterPx -gt 0) {
+    $d = if ($i % 2 -eq 0) { $JitterPx } else { -$JitterPx }
+    [HoldWin]::mouse_event(0x0001, $d, 0, 0, [IntPtr]::Zero)
+  }
+  Start-Sleep -Milliseconds $StepMs
+  $s = New-Object HoldWin+RECT
+  [void][HoldWin]::GetWindowRect($h, [ref]$s)
+  [void][HoldWin]::GetCursorPos([ref]$c)
+  Say ("t={0,5}ms rect=({1},{2})-({3},{4}) size {5}x{6} cursor=({7},{8})" -f `
+    ($i * $StepMs), $s.Left, $s.Top, $s.Right, $s.Bottom, ($s.Right - $s.Left), ($s.Bottom - $s.Top), $c.X, $c.Y)
+}
+
+if (-not $NoPress) {
+  [HoldWin]::mouse_event($LUP, 0, 0, 0, [IntPtr]::Zero)
+  Start-Sleep -Milliseconds 600
+  $e = New-Object HoldWin+RECT
+  [void][HoldWin]::GetWindowRect($h, [ref]$e)
+  Say ("after release: size {0}x{1}" -f ($e.Right - $e.Left), ($e.Bottom - $e.Top))
+}
+
+$out | Set-Content -Encoding ASCII $report
+Write-Host ("report: {0}" -f $report)

package/scripts/knockout.py

@@ -0,0 +1,98 @@
+#!/usr/bin/env python
+"""绿幕抠图：把纯绿背景的动漫立绘变成带 alpha 的通明 PNG。
+
+用法:
+    python scripts/knockout.py assets/character_green.png assets/character.png --height 640
+"""
+
+from __future__ import annotations
+
+import argparse
+from pathlib import Path
+
+from PIL import Image
+
+try:  # numpy 有就快很多
+    import numpy as np
+except ImportError:  # pragma: no cover
+    np = None
+
+
+def key_out(img: Image.Image, lo: int, hi: int) -> Image.Image:
+    """greenness = G - max(R, B)，越大越绿。lo 以下保留，hi 以上全透明，中间做软过渡。"""
+    img = img.convert("RGBA")
+
+    if np is not None:
+        arr = np.asarray(img).astype(np.int16)
+        r, g, b, a = arr[..., 0], arr[..., 1], arr[..., 2], arr[..., 3]
+        greenness = g - np.maximum(r, b)
+        ramp = np.clip((hi - greenness) / float(hi - lo), 0.0, 1.0)
+        alpha = (a * ramp).astype(np.uint8)
+        # 边缘去绿溢色：半透明像素里把 G 压到不超过 max(R, B)
+        spill = (alpha < 250) & (g > np.maximum(r, b))
+        g = np.where(spill, np.maximum(r, b), g)
+        out = np.stack([r, g, b, alpha.astype(np.int16)], axis=-1).astype(np.uint8)
+        return Image.fromarray(out, "RGBA")
+
+    px = img.load()
+    out = Image.new("RGBA", img.size)
+    op = out.load()
+    for y in range(img.height):
+        for x in range(img.width):
+            r, g, b, a = px[x, y]
+            greenness = g - max(r, b)
+            if greenness <= lo:
+                alpha = a
+            elif greenness >= hi:
+                alpha = 0
+            else:
+                alpha = int(a * (hi - greenness) / float(hi - lo))
+            if 0 < alpha < 250 and g > max(r, b):
+                g = max(r, b)
+            op[x, y] = (r, g, b, alpha)
+    return out
+
+
+def trim(img: Image.Image, pad: int = 6) -> Image.Image:
+    bbox = img.getchannel("A").point(lambda v: 255 if v > 8 else 0).getbbox()
+    if not bbox:
+        return img
+    left, top, right, bottom = bbox
+    return img.crop(
+        (
+            max(0, left - pad),
+            max(0, top - pad),
+            min(img.width, right + pad),
+            min(img.height, bottom + pad),
+        )
+    )
+
+
+def main() -> None:
+    ap = argparse.ArgumentParser()
+    ap.add_argument("src")
+    ap.add_argument("dst")
+    ap.add_argument("--height", type=int, default=640, help="输出高度（等比缩放）")
+    ap.add_argument("--lo", type=int, default=30, help="绿度低于此值完全保留")
+    ap.add_argument("--hi", type=int, default=72, help="绿度高于此值完全透明")
+    args = ap.parse_args()
+
+    img = Image.open(args.src)
+    cut = key_out(img, args.lo, args.hi)
+    cut = trim(cut)
+
+    if args.height and cut.height > args.height:
+        w = round(cut.width * args.height / cut.height)
+        cut = cut.resize((w, args.height), Image.LANCZOS)
+
+    dst = Path(args.dst)
+    dst.parent.mkdir(parents=True, exist_ok=True)
+    cut.save(dst, "PNG", optimize=True)
+
+    opaque = cut.getchannel("A").point(lambda v: 255 if v > 200 else 0)
+    coverage = sum(opaque.histogram()[255:]) / float(cut.width * cut.height)
+    print(f"[knockout] {dst}  {cut.width}x{cut.height}  角色像素占比 {coverage:.1%}")
+
+
+if __name__ == "__main__":
+    main()

package/scripts/roam-probe.ps1

@@ -0,0 +1,95 @@
+# roam-probe.ps1 -- end-to-end check for the autonomous locomotion feature.
+#
+# It triggers a roam over the local HTTP interface and samples the real window
+# rectangle from /health while the pet is moving, so we can prove:
+#   1) the window actually travels a meaningful distance
+#   2) the window size never drifts (the mixed-DPI ratchet regression)
+#   3) the pet ends up back on the "ground line" (bottom of the work area)
+#
+# NOTE: keep this file pure ASCII. PowerShell 5.1 reads .ps1 as ANSI, so any
+# non-ASCII comment breaks the parser (see README "known pitfalls").
+
+param(
+  [string]$Mode = 'run',
+  [int]$Samples = 14,
+  [int]$IntervalMs = 200,
+  [int]$MinTravel = 90,
+  [int]$SizeSlack = 4
+)
+
+$ErrorActionPreference = 'Stop'
+$base = 'http://127.0.0.1:8520'
+
+function Get-Health {
+  $r = Invoke-RestMethod -Uri "$base/health" -TimeoutSec 5
+  return $r
+}
+
+function Post-Json([string]$path, [string]$body) {
+  return Invoke-RestMethod -Uri "$base$path" -Method Post -ContentType 'application/json' -Body $body -TimeoutSec 5
+}
+
+Write-Host "== desktop-pet roam probe =="
+
+try {
+  $h = Get-Health
+} catch {
+  Write-Host "RESULT: FAIL - HTTP interface not reachable at $base (is the pet running?)"
+  exit 1
+}
+
+Write-Host ("hwnd={0} scale={1}" -f $h.hwnd, $h.scale)
+
+# Take manual control: the autonomous scheduler would fight us otherwise.
+Post-Json '/auto' '{"enabled":false}' | Out-Null
+Post-Json '/halt' '{}' | Out-Null
+Start-Sleep -Milliseconds 600
+
+$start = Get-Health
+$sw = $start.bounds.width
+$sh = $start.bounds.height
+$sx = $start.bounds.x
+$sy = $start.bounds.y
+Write-Host ("start : x={0} y={1} size={2}x{3}" -f $sx, $sy, $sw, $sh)
+
+Post-Json '/roam' ("{""mode"":""$Mode""}") | Out-Null
+
+$xs = @()
+$sizes = @()
+for ($i = 0; $i -lt $Samples; $i++) {
+  Start-Sleep -Milliseconds $IntervalMs
+  try {
+    $b = (Get-Health).bounds
+  } catch {
+    continue
+  }
+  $xs += $b.x
+  $sizes += ("{0}x{1}" -f $b.width, $b.height)
+}
+
+$end = (Get-Health).bounds
+$minX = ($xs | Measure-Object -Minimum).Minimum
+$maxX = ($xs | Measure-Object -Maximum).Maximum
+$travel = [Math]::Abs($end.x - $sx)
+$span = $maxX - $minX
+$badSize = @($sizes | Where-Object { $_ -ne "$sw`x$sh" })
+$maxW = ($sizes | ForEach-Object { [int]($_ -split 'x')[0] } | Measure-Object -Maximum).Maximum
+$minW = ($sizes | ForEach-Object { [int]($_ -split 'x')[0] } | Measure-Object -Minimum).Minimum
+$maxH = ($sizes | ForEach-Object { [int]($_ -split 'x')[1] } | Measure-Object -Maximum).Maximum
+$minH = ($sizes | ForEach-Object { [int]($_ -split 'x')[1] } | Measure-Object -Minimum).Minimum
+$drift = [Math]::Max($maxW - $sw, [Math]::Max($sw - $minW, [Math]::Max($maxH - $sh, $sh - $minH)))
+
+Write-Host ("end   : x={0} y={1} size={2}x{3}" -f $end.x, $end.y, $end.width, $end.height)
+Write-Host ("travel: {0} px (samples moved across {1} px, min={2} max={3})" -f $travel, $span, $minX, $maxX)
+Write-Host ("size  : drift={0} px (slack {1}), distinct={2}" -f $drift, $SizeSlack, (($sizes | Select-Object -Unique) -join ','))
+
+if ($drift -gt $SizeSlack) {
+  Write-Host "RESULT: FAIL - window size drifted while roaming"
+  exit 1
+}
+if ($travel -lt $MinTravel) {
+  Write-Host "RESULT: FAIL - window did not move (travel=$travel, expected >= $MinTravel)"
+  exit 1
+}
+
+Write-Host "RESULT: PASS - roaming works"

package/scripts/sim-drag.ps1

@@ -0,0 +1,107 @@
+# End-to-end drag test: locate the pet window by the HWND the app itself reports,
+# press on the character body, drag, and compare window rect before/after.
+# NOTE: ASCII only - Windows PowerShell 5.1 reads .ps1 as ANSI, CJK literals break parsing.
+param([string]$Hwnd)
+
+$ErrorActionPreference = 'Stop'
+$root = Split-Path -Parent $PSScriptRoot
+$report = Join-Path $root 'sim-drag-report.txt'
+$out = New-Object System.Collections.Generic.List[string]
+function Say($t) { $out.Add($t) | Out-Null; Write-Host $t }
+function Cursor() { $p = New-Object PetWin+RECTpt; [void][PetWin]::GetCursorPos([ref]$p); return "$($p.X),$($p.Y)" }
+
+Add-Type @"
+using System;
+using System.Runtime.InteropServices;
+public class PetWin {
+  [DllImport("user32.dll")] public static extern bool SetProcessDPIAware();
+  [DllImport("user32.dll")] public static extern bool GetWindowRect(IntPtr hWnd, out RECT r);
+  [DllImport("user32.dll")] public static extern bool SetCursorPos(int X, int Y);
+  [DllImport("user32.dll")] public static extern bool GetCursorPos(out RECTpt p);
+  [DllImport("user32.dll")] public static extern void mouse_event(uint dwFlags, int dx, int dy, uint dwData, IntPtr dwExtraInfo);
+  [DllImport("user32.dll")] public static extern bool IsWindowVisible(IntPtr hWnd);
+  [StructLayout(LayoutKind.Sequential)] public struct RECT { public int Left; public int Top; public int Right; public int Bottom; }
+  [StructLayout(LayoutKind.Sequential)] public struct RECTpt { public int X; public int Y; }
+}
+"@
+
+# PowerShell 默认 DPI-unaware，坐标会和 Chromium 错位，必须先声明 DPI 感知
+[void][PetWin]::SetProcessDPIAware()
+
+$MOVE = 0x0001
+$LDOWN = 0x0002
+$LUP = 0x0004
+
+if (-not $Hwnd) {
+  # Live source of truth first: the running app reports its own handle. The debug
+  # log can be stale (it survives restarts), so it is only a fallback.
+  try {
+    $health = Invoke-RestMethod -Uri 'http://127.0.0.1:8520/health' -TimeoutSec 3
+    if ($health.hwnd) { $Hwnd = [string]$health.hwnd }
+  } catch { }
+}
+
+if (-not $Hwnd) {
+  $log = Join-Path $root 'pet-debug.log'
+  if (Test-Path $log) {
+    $m = Select-String -Path $log -Pattern 'hwnd=(\d+)' | Select-Object -Last 1
+    if ($m) { $Hwnd = $m.Matches[0].Groups[1].Value }
+  }
+}
+
+if (-not $Hwnd) { Say 'FAIL: no hwnd (start the app, or pass -Hwnd)'; $out | Set-Content -Encoding ASCII $report; exit 1 }
+
+$h = [IntPtr][long]$Hwnd
+Say ("HWND={0} visible={1}" -f $Hwnd, [PetWin]::IsWindowVisible($h))
+
+$r1 = New-Object PetWin+RECT
+[bool]$okRect = [PetWin]::GetWindowRect($h, [ref]$r1)
+Say ("GetWindowRect ok={0}" -f $okRect)
+Say ("before: ({0},{1})-({2},{3}) size {4}x{5}" -f $r1.Left, $r1.Top, $r1.Right, $r1.Bottom, ($r1.Right - $r1.Left), ($r1.Bottom - $r1.Top))
+
+# target = character body (hoodie), 50% / 58% inside the window
+$startX = [int]($r1.Left + ($r1.Right - $r1.Left) * 0.50)
+$startY = [int]($r1.Top + ($r1.Bottom - $r1.Top) * 0.58)
+Say ("press point: ({0},{1})" -f $startX, $startY)
+
+[void][PetWin]::SetCursorPos(30, 600)
+Start-Sleep -Milliseconds 250
+[void][PetWin]::SetCursorPos($startX, $startY)
+Start-Sleep -Milliseconds 300
+Say ("cursor after positioning: {0}" -f (Cursor))
+[PetWin]::mouse_event($LDOWN, 0, 0, 0, [IntPtr]::Zero)
+Start-Sleep -Milliseconds 150
+for ($i = 1; $i -le 12; $i++) {
+  [PetWin]::mouse_event($MOVE, -12, 7, 0, [IntPtr]::Zero)
+  Start-Sleep -Milliseconds 30
+}
+Say ("cursor after drag moves: {0}  (dragged left/down on purpose)" -f (Cursor))
+Start-Sleep -Milliseconds 200
+[PetWin]::mouse_event($LUP, 0, 0, 0, [IntPtr]::Zero)
+Start-Sleep -Milliseconds 500
+
+$r2 = New-Object PetWin+RECT
+[void][PetWin]::GetWindowRect($h, [ref]$r2)
+$dx = $r2.Left - $r1.Left
+$dy = $r2.Top - $r1.Top
+Say ("after : ({0},{1})  delta=({2},{3})" -f $r2.Left, $r2.Top, $dx, $dy)
+
+# extra: single click, to check whether pointer events reach the renderer at all
+# recompute from the CURRENT rect - the drag moved the window
+$r3 = New-Object PetWin+RECT
+[void][PetWin]::GetWindowRect($h, [ref]$r3)
+$clickX = [int]($r3.Left + ($r3.Right - $r3.Left) * 0.50)
+$clickY = [int]($r3.Top + ($r3.Bottom - $r3.Top) * 0.58)
+[void][PetWin]::SetCursorPos(30, 600)
+Start-Sleep -Milliseconds 250
+[void][PetWin]::SetCursorPos($clickX, $clickY)
+Start-Sleep -Milliseconds 250
+[PetWin]::mouse_event($LDOWN, 0, 0, 0, [IntPtr]::Zero)
+Start-Sleep -Milliseconds 60
+[PetWin]::mouse_event($LUP, 0, 0, 0, [IntPtr]::Zero)
+Start-Sleep -Milliseconds 400
+Say 'click test done'
+
+if ([Math]::Abs($dx) + [Math]::Abs($dy) -lt 20) { Say 'RESULT: FAIL - window did not move' } else { Say 'RESULT: PASS - drag works' }
+
+$out | Set-Content -Encoding ASCII $report