#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>

$SpamBot = GUICreate("SpamBot", 318, 249, 192, 124)
$text = GUICtrlCreateEdit("", 16, 8, 289, 89)
$ok = GUICtrlCreateButton("ok", 232, 208, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("12", 28, 120, 49, 21)
$Input2 = GUICtrlCreateInput("49", 28, 160, 49, 21)
$Input3 = GUICtrlCreateInput("50", 108, 120, 49, 21)
$Input4 = GUICtrlCreateInput("58", 108, 160, 49, 21)
$Input5 = GUICtrlCreateInput("59", 188, 120, 49, 21)
$Input6 = GUICtrlCreateInput("60", 188, 160, 49, 21)
$Slider = GUICtrlCreateSlider(16, 192, 214, 45)
GUICtrlSetLimit(-1, 20, 0)
GUICtrlSetData(-1, 5)

GUISetState(@SW_SHOW)


Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Global $class[8]=[276,287,308,319,341,352,374,386]
Global $mane[13]=[275,289,303,318,332,345,359,374,387,402,417,431,444]
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ok
            MsgBox(4096,"Начало скрипта","Старт спам, не забудь подвинуть мышку когда откроется окно AION")
            $Speed = GUICtrlRead($Slider)
            $textspama = GUICtrlRead($text);возвращает тест из элемента $text

            WinActivate("AION Client")
            Sleep(2000)
            if WinActive("AION Client") Then; если активно окно айона, проверяет раскладку компьютера и в зависимости от этого посылает нажатие клавиши в активное окно.
                If @KBLayout=409 Then
                        Send("v")
                ElseIf @KBLayout=419 Then
                        Send("м")
                EndIf
            EndIf
            $p=WinGetPos("AION Client")
            Sleep(500)
            $x = $p[0] + $p[2] - 227  ;координата x верхний "поиск"
            $y = $p[1] + 154        ;координата y верхний "поиск"
            MouseClick("",$x,$y,2,$Speed)   ;координата верхний "поиск"
            MsgBox(1,"",$Speed)

            Dim $Ot[3] =[GUICtrlRead($Input1), GUICtrlRead($Input3), GUICtrlRead($Input5)]
            Dim $Do[3] =[GUICtrlRead($Input2), GUICtrlRead($Input4), GUICtrlRead($Input6)]

             For $d=0 To 2
                 $x = $p[0] + $p[2]-245
                 $y = $p[1] + 217
                 MouseClick("",$x,$y,2,$Speed)  ;координата "от"

                 Send($Ot[$d]); от какого лвла

                 $x = $p[0] + $p[2]-221;координата x "до"
                 $y = $p[1] + 217       ;координата y "до"
                 MouseClick("",$x,$y,2,$Speed)  ;координата "до"

                 Send($Do[$d]); до какого лвла
                 Sleep(2000)

                for $i=0 to 7
                    $x = $p[0] + $p[2]-180
                    $y = $p[1] + 234
                    MouseClick("",$x,$y,1,$Speed)   ; координата выбора профы
                    Sleep(500)
                    $x = $p[0] + $p[2]-238
                    $y = $p[1] + $class[$i]
                    MouseClick("",$x,$y,1,$Speed);  координата выбора класcа
                    $x = $p[0] + $p[2] - 40
                    $y = $p[1] + 460
                    MouseClick("",$x,$y,1,$Speed); координата нижний "поиск"
                    Sleep(2000)

                     For $t=0 to 12
                         ;тут отправка
                         $x = $p[0] + $p[2] - 220
                         $y = $p[1] + $mane[$t]
                         MouseClick("",$x,$y,2,$Speed);координата имён
                         $x = $p[0] + $p[2] - 160
                         $y = $p[1] + 460
                         MouseClick("",950,464,1,$Speed); координата кнопки приват
                         Sleep(500)

                         Send($textspama); что отправлять игроку
                         Send("{ENTER}")
                         Sleep(500)
                     Next

                    While   PixelGetColor($x,$y)<>0x33404E
                        $x = $p[0] + $p[2] - 34
                        $y = $p[1] + 440
                        MouseClick("",$x,$y,1,$Speed);тыкнуть на скрол (1 позиция вниз)
                        $x = $p[0] + $p[2] - 220
                        $y = $p[1] + 440
                        MouseClick("",870,444,1,$Speed);последняя координата массива.
                        $x = $p[0] + $p[2] - 160
                        $y = $p[1] + 460
                        MouseClick("",$x,$y,1,$Speed); координата кнопки приват

                        Send($textspama); что отправлять игроку
                        Send("{ENTER}")
                        Sleep(500)
                        $x = $p[0] + $p[2] - 34
                        $y = $p[1] + 431
                    WEnd
                Next
            Next
    EndSwitch
WEnd


Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Скрипт приостановлен')
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0

EndFunc