Nút Di chuyển 2

Global $x = 0, $y = 98; Vị trí xuất phát của cái nút
Global $w = 150, $n = 49;$w là tốc độ giữa hai lần nhấn (mili giây) cũng có thể nói là tốc độ di chuyển, $n là khoảng di chuyển
Global $t, $d = "user32.dll" ;Cái vụ này thì soi cái hàm _IsPressed sẽ rõ
Local $key, $dk
TraySetIcon("big-smile-icon.ico", 1)
$F = GUICreate("", 245, 245, 192, 124)
$B = GUICtrlCreateButton("Mày", $x, $y, 49, 49)
$Cnv = GUICtrlCreateButton("Cửa", 0, 79, 49, 19)
$Tuong = GUICtrlCreateButton("", 48, 0, 20, 98)
$Khoa = GUICtrlCreateButton("Chìa", 196, 196, 49, 49)
$Next = GUICtrlCreateLabel(@CR&"Thắng", 0, 0, 49, 49, 0x50020101, 0x00000200)
Global $Lock = 1
GUISetState(@SW_SHOW)
MsgBox(0, "Nhiệm vụ", "Hãy lấy chìa khóa để mở của và chiến thắng")
Func _IsPressed($sHexKey, $vDLL = 'user32.dll') ;Cái này copy trong thư viện Misc.au3 cho nó nhẹ
    Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_R[0], 0x8000) <> 0
EndFunc   ;==>_IsPressed

Func Gon($key, $dk) ;Cái này tao rút gọn thôi
    $time = @HOUR & ":" & @MIN & ":" & @SEC
    If _IsPressed($key, $d) Then
        GUICtrlDelete($B)
        Switch $dk
            Case 1
                If ($x = 98 And $y = 0) Or ($x = 98 And $y = 49) Then
                Else
                    If $x - $n >= 0 Then $x = $x - $n
                EndIf
            Case 2
                If ($x = 49 And $y = 98) Or ($x = 0 And $y = 98 And $Lock = 1) Then
                Else
                    If $y - $n >= 0 Then $y = $y - $n
                EndIf
            Case 3
                If ($x = 0 And $y = 49) Then
                Else
                    If $x + $n <= 196 Then $x = $x + $n
                EndIf
            Case 4
                If ($x = 49 And $y = 0) Then
                Else
                    If $y + $n <= 196 Then $y = $y + $n
                EndIf
        EndSwitch
        If ($x = 0) And ($y = 0) Then
            MsgBox(0, "", "Công-ga-tu-la-sờn" & @CR & "Chúc mừng, bạn đã thắng")
            DonBaiChienTruong()
        EndIf
        If ($x = 196 And $y = 196) Then
            $Lock = 0
            GUICtrlDelete($Khoa)
            GUICtrlDelete($Cnv)
        EndIf
        $B = GUICtrlCreateButton("You", $x, $y, 49, 49)
        Sleep($w)
        DllClose($d)
    EndIf

EndFunc   ;==>Gon

Func DonBaiChienTruong()
    DllClose($d) ;------------------------------------------------;
    GUIDelete($F) ;4 dòng này để dọn bãi chiến trường rồi quảng cáo;
    ToolTip("", 0, 0);-----------------------------------------------------------------------------------------------------;
    MsgBox(0, "Quảng cáo", "Code bởi Ngọc Thụ Lâm Phong" & @CR & @CR & "Http://facebook.com/AnhVuongCoDon" & @CR & @CR & "Cảm ơn đã sử dụng ^^");
    Exit
EndFunc   ;==>DonBaiChienTruong

Func Move() ;Cho chạy hết 4 nút mũi tên, nếu nhấn nút nào thì chạy hướng nào
    Gon(25, 1)
    Gon(26, 2)
    Gon(27, 3)
    Gon(28, 4)
EndFunc   ;==>Move

While 1
    $GUI = GUIGetMsg()
    Move()
    If "Tọa cmn độ" & @CR & "x = " & $x & @CR & "y = " & $y <> $t Then ToolTip("Tọa cmn độ" & @CR & "x = " & $x & @CR & "y = " & $y, 0, 0)
    $t = "Tọa cmn độ" & @CR & "x = " & $x & @CR & "y = " & $y

    If $GUI = -3 Then DonBaiChienTruong() ; nếu nhấn x thì dọn bãi ct rồi thoát
    If _IsPressed("1B", $d) Then DonBaiChienTruong(); Nếu nhấn Esc thì cũng dọn bãi chiến trường và thoát
WEnd