Close a moving window?

[Vindicator209]

I cant get this gui to close... why?

#include <GuiConstants.au3>
    ;up-down
$y=MouseGetPos(1)
    ;left-right
$x=MouseGetPos(0)+ 150
GuiCreate("zombie", 115, 165,$x, $y , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Pic_1 = GuiCtrlCreatePic("zombie.bmp", 0, 0, 120, 170)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case Else
        ;;;
EndSelect
$XMov=MouseGetPos(0)
    $YMov=$y + 10
    WinMove("zombie","",$Ymov,$XMov)
    Sleep(1000)
    $YMov=$y - 10
    WinMove("zombie","",$Ymov,$XMov)
    Sleep(1000)
    $YMov=$y - 10
    WinMove("zombie","",$Ymov,$XMov)
    Sleep(1000)
    $YMov=$y + 10
    WinMove("zombie","",$Ymov,$XMov)
WEnd
Exit

[GaryFrost]

expandcollapse popup

#include <GuiConstants.au3>
HotKeySet("{Esc}", "_GetBiggerGun") ; it's a timing issue

;up-down
$y = MouseGetPos(1)
;left-right
$x = MouseGetPos(0) + 150
GUICreate("zombie", 115, 165, $x, $y, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Pic_1 = GUICtrlCreatePic("zombie.bmp", 0, 0, 120, 170)

GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case Else
            $XMov = MouseGetPos(0)
            $YMov = $y + 10
            WinMove("zombie", "", $YMov, $XMov)
            Sleep(1000)
            If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
            $YMov = $y - 10
            WinMove("zombie", "", $YMov, $XMov)
            Sleep(1000)
            If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
            $YMov = $y - 10
            WinMove("zombie", "", $YMov, $XMov)
            Sleep(1000)
            If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
            $YMov = $y + 10
            WinMove("zombie", "", $YMov, $XMov)
    EndSelect
WEnd

Func _GetBiggerGun()
    Exit
EndFunc   ;==>_GetBiggerGun

[Paulie]

Func _GetBiggerGun()

Nice...

[Vindicator209]

oooh.... thanks!

have I ever mentioned that you and gafrost practically solve every one of my carelessness scripting problems?

EDIT: oops, you ARE gafrost =P

Edited October 27, 2006 by MethodZero