[key]
Sinister Strike=2
Revealing Strike=1
Slince and Dice=q
Eviscerate=3
Rupture=e
[cc]
ssc=0xd800ff
rec=0x00f0ff
sndc=0xfff600
evc=0xff0000
rupc=0x970000

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=combatCC.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
opt("TrayMenuMode",1)
opt("SendKeyDelay",32)
TraySetState (2)
#Region ### START Koda GUI section ### Form=D:\Downloads\Form1.kxf
$Form1_ = GUICreate("CombatCC 1.3b", 210, 316, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("2", 112, 48, 41, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input2 = GUICtrlCreateInput("1", 160, 48, 41, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input3 = GUICtrlCreateInput("q", 112, 112, 41, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input4 = GUICtrlCreateInput("3", 160, 112, 41, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Pic1 = GUICtrlCreatePic("C:\Users\Desferk\Desktop\spell_shadow_ritualofsacrifice.jpg", 112, 8, 40, 40)
GUICtrlSetTip(-1, "Коварный удар")
$Pic2 = GUICtrlCreatePic("C:\Users\Desferk\Desktop\ability_rogue_slicedice.jpg", 112, 72, 40, 40)
GUICtrlSetTip(-1, "Мясорубка")
$Pic3 = GUICtrlCreatePic("C:\Users\Desferk\Desktop\inv_sword_97.jpg", 160, 8, 40, 40)
GUICtrlSetTip(-1, "Пробивающий удар")
$Pic4 = GUICtrlCreatePic("C:\Users\Desferk\Desktop\ability_rogue_eviscerate.jpg", 160, 72, 40, 40)
GUICtrlSetTip(-1, "Потрошение")
$Button1 = GUICtrlCreateButton("Старт", 8, 96, 91, 105)
$Button2 = GUICtrlCreateButton("Стоп", 8, 8, 91, 81)
$Label1 = GUICtrlCreateLabel("x:", 24, 208, 14, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("y:", 96, 208, 14, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput("", 16, 232, 70, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Input6 = GUICtrlCreateInput("", 96, 232, 70, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Button4 = GUICtrlCreateButton("сохранить", 112, 264, 91, 41)
$Label2 = GUICtrlCreateLabel("", 40, 208, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("", 112, 208, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Настроить", 8, 264, 91, 41)
$Pic5 = GUICtrlCreatePic("D:\Downloads\ability_rogue_rupture.jpg", 112, 136, 40, 40)
$Input7 = GUICtrlCreateInput("e", 112, 176, 41, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
opt("GUIOnEventMode",1)
opt("PixelCoordMode",2)
opt("MouseCoordMode",2)
Global $ss,$re,$ev,$snd, $rupt
Global $ssc ='00d800ff'
Global $rec ='0000f0ff'
Global $sndc = '00fff600'
Global $rupc = '00970000'
Global $evc ='00ff0000'
Global $skx,$sky
Global $coord,$col
Global $1=0
Global $temp, $hwnd
GUICtrlSetOnEvent($Button1,"_on")
GUICtrlSetOnEvent($Button2,"_off")
GUICtrlSetOnEvent($Button3,"_set")
GUICtrlSetOnEvent($Button4,"_write")
GUISetOnEvent($GUI_EVENT_CLOSE,"_close")
_read()

func _on()
$hwnd = WinGetHandle("World of Warcraft","")
AdlibRegister("_cc",64)
endfunc

func _off()
AdlibUnRegister("_cc")
endfunc

func _set()
$1 = $1+1
If $1 = 1 Then
AdlibRegister("_choose",300)
EndIf
if $1 = 2 Then
AdlibUnRegister("_choose")
$1 = 0
endif
endfunc

func _close()
if $1 = 1 Then
AdlibUnRegister("_choose")
$1 = 0
EndIf
AdlibUnRegister("_cc")
exit
endfunc

func _read()

$ss = IniRead(@scriptdir & "\combatcc.ini","key","Sinister Strike","2")
$re = IniRead(@scriptdir & "\combatcc.ini","key","Revealing Strike","1")
$snd = IniRead(@scriptdir & "\combatcc.ini","key","Slince and Dice","q")
$ev = IniRead(@scriptdir & "\combatcc.ini","key","Eviscerate","3")
$rupt = IniRead(@scriptdir & "\combatcc.ini","key","Rupture","e")

$ssc = IniRead(@scriptdir & "\combatcc.ini","cc","ssc","0xd800ff")
$rec = IniRead(@scriptdir & "\combatcc.ini","cc","rec","0x00f0ff")
$evc = IniRead(@scriptdir & "\combatcc.ini","cc","evc","0xff0000")
$sndc = IniRead(@scriptdir & "\combatcc.ini","cc","sndc","0xfff600")
$rupc = IniRead(@scriptdir & "\combatcc.ini","cc","rupc","0x970000")

$skx = IniRead(@scriptdir & "\combatcc.ini","cc","skx","")
$sky = IniRead(@scriptdir & "\combatcc.ini","cc","sky","")

GuiCtrlSetData($Input1,$ss)
GuiCtrlSetData($Input2,$re)
GuiCtrlSetData($Input3,$snd)
GuiCtrlSetData($Input4,$ev)
GuiCtrlSetData($Input7,$rupt)

GuiCtrlSetData($Input5,$skx)
GuiCtrlSetData($Input6,$sky)

endfunc

func _write()

$ss = GuiCtrlRead($Input1)
$re = GuiCtrlRead($Input2)
$snd = GuiCtrlRead($Input3)
$ev = GuiCtrlRead($Input4)
$rupt = GuiCtrlRead($Input7)

$skx = GuiCtrlRead($Input5)
$sky = GuiCtrlRead($Input6)

iniwrite(@scriptdir & "\combatcc.ini","key","Sinister Strike",$ss)
iniwrite(@scriptdir & "\combatcc.ini","key","Revealing Strike",$re)
iniwrite(@scriptdir & "\combatcc.ini","key","Slince and Dice",$snd)
iniwrite(@scriptdir & "\combatcc.ini","key","Eviscerate",$ev)
iniwrite(@scriptdir & "\combatcc.ini","key","Rupture",$rupt)

iniwrite(@scriptdir & "\combatcc.ini","cc","skx",$skx)
iniwrite(@scriptdir & "\combatcc.ini","cc","sky",$sky)

iniwrite(@scriptdir & "\combatcc.ini","cc","ssc",$ssc)
iniwrite(@scriptdir & "\combatcc.ini","cc","rec",$rec)
iniwrite(@scriptdir & "\combatcc.ini","cc","sndc",$sndc)
iniwrite(@scriptdir & "\combatcc.ini","cc","evc",$evc)
iniwrite(@scriptdir & "\combatcc.ini","cc","rupc",$rupc)

endfunc

func _choose()
If WinActive("World of Warcraft","") Then
$coord = MouseGetPos()
GuiCtrlSetData($Label2,$coord[0])
GuiCtrlSetData($Label4,$coord[1])
endif
endfunc

func _cc()
$temp = PixelGetColor($skx,$sky,$hwnd)
if Hex($temp) = Hex($ssc) Then
If WinActive ("World of Warcraft","") Then
Controlsend ("World of Warcraft","","",$ss)
EndIf
endif

$temp = PixelGetColor($skx,$sky,$hwnd)
if Hex($temp) = Hex($rec) Then
If WinActive ("World of Warcraft","") Then
Controlsend ("World of Warcraft","","",$re)
EndIf
endif

$temp = PixelGetColor($skx,$sky,$hwnd)
if Hex($temp) = Hex($sndc) Then
If WinActive ("World of Warcraft","") Then
Controlsend ("World of Warcraft","","",$snd)
EndIf
endif

$temp = PixelGetColor($skx,$sky,$hwnd)
if Hex($temp) = Hex($rupc) Then
If WinActive ("World of Warcraft","") Then
Controlsend ("World of Warcraft","","",$rupt)
EndIf
endif

$temp = PixelGetColor($skx,$sky,$hwnd)
if Hex($temp) = Hex($evc) Then
If WinActive ("World of Warcraft","") Then
Controlsend ("World of Warcraft","","",$ev)
EndIf
endif

endfunc

while 1
sleep(50)
WEnd