#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("USKOBOT V1", 412, 310, 319, 230)
GUISetIcon("D:\005.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("ATTACK")
$Group1 = GUICtrlCreateGroup("OTO ATTACK for USKOBOT ", 24, 40, 313, 209)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("z1", 48, 56, 129, 17)
GUICtrlSetOnEvent(-1, "Checkbox1Click")
$Checkbox2 = GUICtrlCreateCheckbox("z2", 200, 56, 129, 17)
GUICtrlSetOnEvent(-1, "Checkbox2Click")
$Checkbox3 = GUICtrlCreateCheckbox("z3", 48, 104, 121, 17)
GUICtrlSetOnEvent(-1, "Checkbox3Click")
$Checkbox4 = GUICtrlCreateCheckbox("z4", 200, 104, 113, 17)
GUICtrlSetOnEvent(-1, "Checkbox4Click")
$Checkbox5 = GUICtrlCreateCheckbox("z5", 48, 152, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox5Click")
$Checkbox6 = GUICtrlCreateCheckbox("z6", 200, 152, 81, 17)
GUICtrlSetOnEvent(-1, "Checkbox6Click")
$Checkbox7 = GUICtrlCreateCheckbox("z7", 48, 200, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox7Click")
$Checkbox8 = GUICtrlCreateCheckbox("z8", 200, 200, 89, 17)
GUICtrlSetOnEvent(-1, "Checkbox8Click")
$TabSheet2 = GUICtrlCreateTabItem("OTO POT")
$Combo1 = GUICtrlCreateCombo("Combo1", 88, 88, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Combo1Change")
GUICtrlSetData(-1,"1|2|3|4|5|6|7|8","7")
$Combo2 = GUICtrlCreateCombo("Combo2", 88, 120, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Combo2Change")
GUICtrlSetData(-1,"1|2|3|4|5|6|7|8","8")
$Combo3 = GUICtrlCreateCombo("Combo3", 120, 208, 89, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Combo3Change")
GUICtrlSetData(-1,"1|2|3|4|5|6|7|8","6")
$Label1 = GUICtrlCreateLabel("HP:", 56, 88, 26, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Label1Click")
$Label2 = GUICtrlCreateLabel("MP:", 56, 120, 28, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label2Click")
$Group3 = GUICtrlCreateGroup("Oto potions", 40, 56, 209, 113)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel("%60", 184, 88, 25, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetOnEvent(-1, "Label4Click")
$Label5 = GUICtrlCreateLabel("%25", 184, 120, 25, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetOnEvent(-1, "Label5Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Minnor Combo", 96, 192, 193, 49)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
$Label3 = GUICtrlCreateLabel("%95", 240, 208, 25, 18)
GUICtrlSetOnEvent(-1, "Label3Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("DIGER AYARLAR")
$Label6 = GUICtrlCreateLabel("USKOBOT", 64, 192, 278, 59)
GUICtrlSetFont(-1, 36, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetOnEvent(-1, "Label6Click")
$Checkbox9 = GUICtrlCreateCheckbox("Oto Light Feet (slot 5)", 24, 40, 129, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Checkbox9Click")
$Checkbox10 = GUICtrlCreateCheckbox("Oto Karate", 24, 72, 113, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Checkbox10Click")
$Group5 = GUICtrlCreateGroup("AUTO HEAL", 184, 56, 185, 121)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio1 = GUICtrlCreateRadio("360", 200, 80, 73, 17)
GUICtrlSetOnEvent(-1, "Radio1Click")
$Radio2 = GUICtrlCreateRadio("720", 200, 96, 65, 17)
GUICtrlSetOnEvent(-1, "Radio2Click")
$Radio3 = GUICtrlCreateRadio("960", 200, 112, 57, 17)
GUICtrlSetOnEvent(-1, "Radio3Click")
$Radio4 = GUICtrlCreateRadio("1920", 200, 128, 49, 17)
GUICtrlSetOnEvent(-1, "Radio4Click")
$Button4 = GUICtrlCreateButton("AUTOHEAL", 288, 88, 65, 65, 0)
GUICtrlSetOnEvent(-1, "Button4Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUICtrlSetOnEvent(-1, "PageControl1Change")
$Button1 = GUICtrlCreateButton("BASLAT", 16, 272, 137, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("DURDUR", 168, 272, 137, 33, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("HAKKINDA", 320, 272, 81, 33, 0)
GUICtrlSetOnEvent(-1, "Button3Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $basla = 0

While 1
    Sleep(100)
 
    If $basla = 1 Then ; eger baslat tusuna basilirsa...
 
    if GuiCtrlread($checkbox1) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z1") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox2) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z2") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox3) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z3") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox4) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z4") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox5) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z5") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox6) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z6") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox7) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z7") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox8) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("z8") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox9) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("5") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    if GuiCtrlread($checkbox10) = $GUI_CHECKED then ;burada eger checkbox1 seçiliyse dedik.
    send("{SPACE}") ; seçiliyse space tusuna bas kutuyu topla.
    endif

    $PotKey = Guictrlread($combo1) ; potion tusunu comboda yazan deger oldugunu belirttik.
    $pixelrengi = PixelGetColor(145,37) ; x300 y400 un rengini oku dedik (buraya kendi degerlerinizi yazmayi unutmayin.)
    if $pixelrengi = "11337728" Then ; eger renk 12345678 ise bekle degilse hp tusuna bas dedik. (buradada kendi degerleriniz olucak.)
    sleep(10)
    else
    Send($PotKey)
    Endif
 
    $PotKey = Guictrlread($combo2) ; potion tusunu comboda yazan deger oldugunu belirttik.
    $pixelrengi = PixelGetColor(61,53) ; x300 y400 un rengini oku dedik (buraya kendi degerlerinizi yazmayi unutmayin.)
    if $pixelrengi = "2184637" Then ; eger renk 12345678 ise bekle degilse hp tusuna bas dedik. (buradada kendi degerleriniz olucak.)
    sleep(10)
    else
    Send($PotKey)
    Endif
 
    $PotKey = Guictrlread($combo3) ; potion tusunu comboda yazan deger oldugunu belirttik.
    $pixelrengi = PixelGetColor(221,38) ; x300 y400 un rengini oku dedik (buraya kendi degerlerinizi yazmayi unutmayin.)
    if $pixelrengi = "12399665" Then ; eger renk 12345678 ise bekle degilse hp tusuna bas dedik. (buradada kendi degerleriniz olucak.)
    sleep(10)
    else
    Send($PotKey)
    Endif
 
    EndIf
 
WEnd

Func Button1Click()
    $basla = 1

EndFunc
Func Button2Click()
    $basla = 0

EndFunc
Func Button3Click()
    MsgBox(0,"USKOBOT V1 HAKKINDA","Bu program KnightOnline için yapilmistir...")

EndFunc
Func Button4Click()
    MsgBox(0,"AUTOHEAL","Bu bölüm en kisa sürede tamamlanacaktir suan çalismamaktadir...")

EndFunc
Func Checkbox10Click()

EndFunc
Func Checkbox1Click()

EndFunc
Func Checkbox2Click()

EndFunc
Func Checkbox3Click()

EndFunc
Func Checkbox4Click()

EndFunc
Func Checkbox5Click()

EndFunc
Func Checkbox6Click()

EndFunc
Func Checkbox7Click()

EndFunc
Func Checkbox8Click()

EndFunc
Func Checkbox9Click()

EndFunc
Func Combo1Change()

EndFunc
Func Combo2Change()

EndFunc
Func Combo3Change()

EndFunc
Func Form1Close()
    Exit

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc
Func Label1Click()

EndFunc
Func Label2Click()

EndFunc
Func Label3Click()

EndFunc
Func Label4Click()

EndFunc
Func Label5Click()

EndFunc
Func Label6Click()

EndFunc
Func PageControl1Change()

EndFunc
Func Radio1Click()

EndFunc
Func Radio2Click()

EndFunc
Func Radio3Click()

EndFunc
Func Radio4Click()

EndFunc