[AutoIT] Autoskill metin2

#include <ButtonConstants.au3>


#include <GUIConstantsEx.au3>


#include <StaticConstants.au3>


#include <WindowsConstants.au3>


#include <SendMessage.au3>


AdlibRegister("napis",100)


HotKeySet("{F7}","wyjdz")


HotKeySet("{F5}","start")


HotKeySet("{F6}","pauza")


AdlibRegister("skil1",250)


AdlibRegister("skil2",250)


AdlibRegister("skil3",250)


AdlibRegister("skil4",250)


 


Global Const $SC_DRAGMOVE = 0xF012


Global $aktywnosc


Global $koord = 180


Global $zmienna = 0


 


 


$GUI = GUICreate("AutoSkill", 205, 220, 192, 124,0)


GUISetBkColor(0xFFFFFF)


$labo_1 = GUICtrlCreateLabel("Numer slotu", 10, 14, 60, 17)


$labo_2 = GUICtrlCreateLabel("Opóźnienie w sek", 100, 14, 124, 17)


$slot1 = GUICtrlCreateCheckbox("Slot 1", 10, 38, 49, 17)


$slot2 = GUICtrlCreateCheckbox("Slot 2", 10, 70, 49, 17)


$slot3 = GUICtrlCreateCheckbox("Slot 3", 10, 102, 49, 17)


$slot4 = GUICtrlCreateCheckbox("Slot 4", 10, 134, 49, 17)


$del_1 = GUICtrlCreateInput("0", 106, 38, 81, 21)


guictrlsetstate($del_1,$GUI_DISABLE)


GUICtrlSetBkColor(-1,0xFFFFFF)


GUICtrlSetLimit(-1, 4)


$del_2 = GUICtrlCreateInput("0", 106, 70, 81, 21)


guictrlsetstate($del_2,$GUI_DISABLE)


GUICtrlSetBkColor(-1,0xFFFFFF)


GUICtrlSetLimit(-1, 4)


$del_3 = GUICtrlCreateInput("0", 106, 102, 81, 21)


guictrlsetstate($del_3,$GUI_DISABLE)


GUICtrlSetBkColor(-1,0xFFFFFF)


GUICtrlSetLimit(-1, 4)


$del_4 = GUICtrlCreateInput("0", 106, 134, 81, 21)


guictrlsetstate($del_4,$GUI_DISABLE)


GUICtrlSetBkColor(-1,0xFFFFFF)


GUICtrlSetLimit(-1, 4)


$end1 = GUICtrlCreateLabel("F5 - Start  |  F7 - Exit  |  F6 - Pauza", 15, 170, 250, 20)


GUISetState(@SW_SHOW)


While 1


$nMsg = GUIGetMsg()


    Switch $nMsg


 Case $slot1


                        If GUICtrlRead($slot1) = $GUI_CHECKED Then


        GUICtrlSetState($del_1,$GUI_ENABLE)


    Else


        GUICtrlSetState($del_1,$GUI_DISABLE)


     EndIf


                          Case $slot2


                        If GUICtrlRead($slot2) = $GUI_CHECKED Then


        GUICtrlSetState($del_2,$GUI_ENABLE)


    Else


        GUICtrlSetState($del_2,$GUI_DISABLE)


     EndIf


                               Case $slot3


                        If GUICtrlRead($slot3) = $GUI_CHECKED Then


        GUICtrlSetState($del_3,$GUI_ENABLE)


    Else


        GUICtrlSetState($del_3,$GUI_DISABLE)


     EndIf


                               Case $slot4


                        If GUICtrlRead($slot4) = $GUI_CHECKED Then


        GUICtrlSetState($del_4,$GUI_ENABLE)


    Else


        GUICtrlSetState($del_4,$GUI_DISABLE)


     EndIf


    EndSwitch


WEnd


 


 


 


Func skil1()


    If $aktywnosc = 1 Then


    If GUICtrlRead($slot1) = $GUI_CHECKED Then


        Sleep(GUICtrlRead($del_1)*1000)


        Send("{1}")


    EndIf


    EndIf


    EndFunc


Func skil2()


    If $aktywnosc = 1 Then


        If GUICtrlRead($slot2) = $GUI_CHECKED Then


            Sleep(GUICtrlRead($del_2)*1000)


            Send("{2}")


        EndIf


        EndIf


    EndFunc


Func skil3()


    If $aktywnosc = 1 Then


        If GUICtrlRead($slot3) = $GUI_CHECKED Then


            Sleep(GUICtrlRead($del_3)*1000)


            Send("{3}")


        EndIf


        EndIf


    EndFunc


Func skil4()


    If $aktywnosc = 1 Then


        If GUICtrlRead($slot4) = $GUI_CHECKED Then


            Sleep(GUICtrlRead($del_4)*1000)


            Send("{4}")


        EndIf


        EndIf


    EndFunc


 


 


 


Func start()


    $aktywnosc = 1


    WinActivate("METIN2")


    EndFunc


 


 Func wyjdz()


Exit


EndFunc


 


Func pauza()


   $aktywnosc = 0


   EndFunc