Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Problem] Optymalizacja kodu

Lobod

Rekomendowane odpowiedzi

Lobod Odkrywca

Lobod

Opublikowano
Odkrywca

Lobod

Opublikowano

Jak część osób wie opublikowałem bota do nostale.

Posiadałon kilka fajnych funkcji jak np. Control click w zminimalizowanym oknie
Chciałbym aby ktoś zoptymalizował już istniejący kod. a zoptymalizowany podesłał mi na PW a w temacie napisał ze skończył.

 

 

 

#RequireAdmin
Global $xfF1 = 0, $yfF1 = 0, $xfF2= 0, $yfF2= 0, $xfF3= 0, $yfF3= 0, $xfF4= 0, $yfF4= 0, $xfF5= 0, $yfF5= 0, $xfF6= 0, $yfF6= 0, $xfF7= 0, $yfF7= 0
Global $F1=0 ,$F2=0, $F3=0, $F4=0, $AS = 0
Global $fF1=0 , $fF2=0 , $fF3=0, $fF4=0 , $fF5=0 , $fF6=0, $fF7=0
Global $Checkbox[20]
$lspot = 0
Global $i1=1
Global $i =0
Global $s = 0
Global $a = 0
Global $spotx[3]
Global $spoty[3]
Global $o=False
Global $f = False
Global $w=False
Global $name = "[CLASS:TNosTaleMainF]"
Func _MakeLong($l, $h)
Return BitOR(BitAnd($l, 0xFFFF), BitShift(BitAnd($h, 0xFFFF), -16))
EndFunc ; _MakeLong()

Func _HiWord(ByRef $x)
Return BitShift($x, 16)
EndFunc ; _HiWord()

Func _LoWord(ByRef $x)
Return BitAnd($x, 0xFFFF)
EndFunc ; _LoWord()

Func _MouseClickPlus($Window, $Button = "left", $X = "", $Y = "", $Clicks = 1)
Local $MK_LBUTTON = 0x0001
Local $WM_LBUTTONDOWN = 0x0201
Local $WM_LBUTTONUP = 0x0202

Local $MK_RBUTTON = 0x0002
Local $WM_RBUTTONDOWN = 0x0204
Local $WM_RBUTTONUP = 0x0205

Local $WM_MOUSEMOVE = 0x0200

Local $i = 0

Select
Case $Button = "left"
$Button = $MK_LBUTTON
$ButtonDown = $WM_LBUTTONDOWN
$ButtonUp = $WM_LBUTTONUP
Case $Button = "right"
$Button = $MK_RBUTTON
$ButtonDown = $WM_RBUTTONDOWN
$ButtonUp = $WM_RBUTTONUP
EndSelect

If $X = "" OR $Y = "" Then
$MouseCoord = MouseGetPos()
$X = $MouseCoord[0]
$Y = $MouseCoord[1]
EndIf

For $i = 1 to $Clicks
DllCall("user32.dll", "int", "SendMessage", _
"hwnd", WinGetHandle( $Window ), _
"int", $WM_MOUSEMOVE, _
"int", 0, _
"long", _MakeLong($X, $Y))

DllCall("user32.dll", "int", "SendMessage", _
"hwnd", WinGetHandle( $Window ), _
"int", $ButtonDown, _
"int", $Button, _
"long", _MakeLong($X, $Y))

DllCall("user32.dll", "int", "SendMessage", _
"hwnd", WinGetHandle( $Window ), _
"int", $ButtonUp, _
"int", $Button, _
"long", _MakeLong($X, $Y))
Next
EndFunc

Func Menu()
Global $t=1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu Główne", 225, 210, 192, 124)
$Tab1 = GUICtrlCreateTab(0,0,150,19)
GUICtrlCreateTabItem("Exp Bot")
Global $Button9 =GUICtrlCreateButton("",185,10,40,40,0x40)
GUICtrlSetTip($Button9,"Ustaw Hotkey'e dla Exp Bota")
GUICtrlSetImage(-1, "shell32.dll", 154)
Global $Button1 = GUICtrlCreateButton("Start Bot", 40, 30, 145, 25)
Global $Button5 = GUICtrlCreateButton(">>NosTale Widoczne<<", 45, 60, 135, 25)
Global $Button2 = GUICtrlCreateButton("Opcje", 55, 90, 113, 25)
$Label1 = GUICtrlCreateLabel("Dlaczego bot mi nie chodzi po mapie?", 24, 128, 183, 17)
GUICtrlSetColor ( -1, 0x0000FF )
GUICtrlSetTip ( -1, "Aby bot chodził po mapie należy zrobić mu pointy, tzn. Można maksymalnie ustawić 4 pointy. Jak? " & @LF & "Ustaw kursor na pozycji(na MiniMapie) poczym naciśnij:" & @LF & " F1 dla 1 pozycji, F2 dla 2 pozycji, F3 dla 3 pozycji, F4 dla 4 pozycji.")
Global $PH=GUICtrlCreateLabel("",50, 170, 25, 25)
Global $PM=GUICtrlCreateLabel("",150, 170, 25, 25)
GUICtrlCreateTabItem("Bot na Fasolki")
GUICtrlCreateLabel("Ilość strączków?",70,30,120,20)
Global $input1 = GUICtrlCreateInput(IniRead("Opcje.ini","Fasolki","Ilość","1"),80,50,50,20,0x800)
GUICtrlCreateUpdown(-1, 0x101)
GUICtrlSetLimit(-1,7)
Global $Button6 = GUICtrlCreateButton("Ustawienie strączków",50,120,120,20)
Global $Button7 = GUICtrlCreateButton("Start Bot",50,150,120,30)
Global $Button8 = GUICtrlCreateButton("",185,10,40,40,0x40)
GUICtrlSetImage(-1, "shell32.dll", 154)
GUICtrlSetTip($Button8,"Ustaw Hotkey'e dla Bota do fasolek")
Global $winposp=WinGetPos($name)
#EndRegion ### END Koda GUI section ###
ee()
EndFunc


Func ee()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button8
HotKeySet("{F1}","fF1")
HotKeySet("{F2}","fF2")
HotKeySet("{F3}","fF3")
HotKeySet("{F4}","fF4")
HotKeySet("{F5}","fF5")
HotKeySet("{F6}","fF6")
HotKeySet("{F7}","fF7")
HotKeySet("{Home}","stopf")
Case $Button9
HotKeySet("{F1}","spotF1")
HotKeySet("{F2}","spotF2")
HotKeySet("{F3}","spotF3")
HotKeySet("{F4}","spotF4")
HotKeySet("{Home}","stop")
Case $Button6
Straczki()
Case $Button7
If $f=True Then
GUICtrlSetData($Button7,"Start Bot")
$f=False
WinSetOnTop ( "Menu Główne", "", 0 )
Else
GUICtrlSetData($Button7,"Stop Bot")
$f=True
WinSetOnTop ( "Menu Główne", "", 1 )
EndIf
Case $Button5
HW()
Case $Button1
If $o=true Then
GUICtrlSetData($Button1,"Start Bot")
$o=False
WinSetOnTop ( "Menu Główne", "", 0 )
Else
GUICtrlSetData($Button1,"Stop Bot")
$o=True
WinSetOnTop ( "Menu Główne", "", 1 )
EndIf
Case $Button2
Opcje()
EndSwitch
If WinExists("[CLASS:TNosTaleMainF]","") Then
WinSetTitle("[CLASS:TNosTaleMainF]","","NosTale - Bot by Lobod " & @HOUR & ": " & @MIN & ": " & @SEC)
Global $winpospe=WinGetPos($name)
$winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
GUICtrlSetBkColor ( $PH,$khp )
$kmp= PixelGetColor($winpospe[0] + 120, $winpospe[1] + 79)
GUICtrlSetBkColor ( $PM,$kmp )
If $t = 1 and $khp = 0xDAF125 Then
_MouseClickPlus($name,"left",173, 60)
$t = 0
EndIf
If $o=true Then
If IniRead("Opcje.ini","Atak","Bron","0")= "Pierwsza" Then
ControlSend($name,"","","{space}")
Sleep(10)
EndIf
If IniRead("Opcje.ini","Atak","Bron","0")= "Druga" Then
ControlSend($name,"","","{z}")
Sleep(10)
EndIf
If IniRead("Opcje.ini","Opcje","CB3","0")= 1 Then
ControlSend($name,"","","{x}")
Sleep(10)
EndIf
If IniRead("Opcje.ini","Opcje","CB1","0")= 1 Then
For $i=4 to 18
If IniRead("Opcje.ini","Skille","CB" & $i,"0")= 1 Then
skill($i)
sleep(10)
EndIf
Next
EndIf
Siadanie()
If $i1 = 0 or $i1 = 40 And $F1 = 1 Then spotF1()
If $i1 = 10 or $i1 = 50 And $F2 = 1 Then spotF2()
If $i1 = 20 Or $i1 = 60 And $F3 = 1 Then spotF3()
If $i1 = 30 Or $i1 = 70 And $F4 = 1 Then spotF4()
$i1=$i1 + 1
if $i1 > 70 Then $i1 = 1
EndIf
EndIf
If $f = True Then
$if = GUICtrlRead($Input1)
If $if = 7 Then sleep(570)
If $if = 6 Then sleep(667)
If $if = 5 Then sleep(800)
If $if = 4 Then sleep(1000)
If $if = 3 Then sleep(1500)
If $if = 2 Then sleep(2000)
If $if = 1 Then sleep(2000)
If $i = 1 Then fF1()
If $i = 2 Then fF2()
If $i = 3 Then fF3()
If $i = 4 Then fF4()
If $i = 5 Then fF5()
If $i = 6 Then fF6()
If $i = 7 Then fF7()
$i = $i +1
If $i = 8 Then $i = 0
EndIf
WEnd
EndFunc



Func Opcje()
Global $pj = 0
$pocs = 0
$Form2 = GUICreate("Opcje", 207, 296, 595, 242)
GUICtrlCreateLabel("Broń:",40,9,30,17)
GUICtrlCreateLabel("Siadaj/Poć" & @LF & " gdy:",75, 125,55,30)
If IniRead("Opcje.ini","Opcje","Hp","")= ">50%" Then
$Combohp = GUICtrlCreateCombo(">50%",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">20%|Hp", ">50%")
ElseIf IniRead("Opcje.ini","Opcje","Hp","")= ">20%" Then
$Combohp = GUICtrlCreateCombo(">20%",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|Hp", ">20%")
Else
$Combohp = GUICtrlCreateCombo("Hp",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|>20%", "Hp")
EndIf
If IniRead("Opcje.ini","Opcje","Mp","")= ">50%" Then
$Combomp = GUICtrlCreateCombo(">50%",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">20%|Mp", ">50%")
ElseIf IniRead("Opcje.ini","Opcje","Mp","")= ">20%" Then
$Combomp = GUICtrlCreateCombo(">20%",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|Mp", ">20%")
Else
$Combomp = GUICtrlCreateCombo("Mp",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|>20%", "Mp")
EndIf
$Group1 = GUICtrlCreateGroup("Przyciski skilli", 8, 148, 185, 73)
$Checkbox[13] = GUICtrlCreateCheckbox("6", 24, 196, 25, 17)
$Checkbox[14] = GUICtrlCreateCheckbox("7", 56, 196, 25, 17)
$Checkbox[15] = GUICtrlCreateCheckbox("8", 88, 196, 25, 17)
$Checkbox[17] = GUICtrlCreateCheckbox("0", 152, 196, 32, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox[1] = GUICtrlCreateCheckbox("Auto Skill:", 40, 104, 97, 17)
If IniRead("Opcje.ini","Atak","Bron","")= "Pierwsza" Then
$Combo1 = GUICtrlCreateCombo("Pierwsza",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Druga|Brak", "Pierwsza")
ElseIf IniRead("Opcje.ini","Atak","Bron","")= "Druga" Then
$Combo1 = GUICtrlCreateCombo("Druga",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Pierwsza|Brak", "Druga")
Else
$Combo1 = GUICtrlCreateCombo("Brak",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Pierwsza|Druga", "Brak")
EndIf
$Checkbox[2] = GUICtrlCreateCheckbox("Auto Pot", 40, 80, 153, 17)
$Checkbox[18] = GUICtrlCreateCheckbox("1", 24, 164, 32, 17)
$Checkbox[4] = GUICtrlCreateCheckbox("2", 56, 164, 32, 17)
$Checkbox[5] = GUICtrlCreateCheckbox("3", 88, 164, 32, 17)
$Checkbox[6] = GUICtrlCreateCheckbox("4", 120, 164, 32, 17)
$Checkbox[7] = GUICtrlCreateCheckbox("5", 152, 164, 32, 17)
$Button4 = GUICtrlCreateButton("Zapisz", 32, 228, 145, 33)
$Checkbox[8] = GUICtrlCreateCheckbox("Q", 24, 180, 32, 17)
$Checkbox[9] = GUICtrlCreateCheckbox("W", 56, 180, 32, 17)
$Checkbox[10] = GUICtrlCreateCheckbox("E", 88, 180, 32, 17)
$Checkbox[11] = GUICtrlCreateCheckbox("R", 120, 180, 32, 17)
$Checkbox[12] = GUICtrlCreateCheckbox("T", 152, 180, 32, 17)
$Checkbox[16] = GUICtrlCreateCheckbox("9", 120, 196, 25, 17)
$Checkbox[3] = GUICtrlCreateCheckbox("Auto Podnoszenie", 40, 56, 121, 17)
For $i=4 to 18
If IniRead("Opcje.ini","Skille","CB" & $i, "0") = 1 Then
GUICtrlSetState($Checkbox[$i],$GUI_CHECKED)
EndIf
Next
If IniRead("Opcje.ini","Opcje","CB1","0") = 1 Then
$AS = 0
Else
$AS = 1
EndIf
For $i=1 to 3
If IniRead("Opcje.ini","Opcje","CB" & $i, "0") = 1 Then
GUICtrlSetState($Checkbox[$i],$GUI_CHECKED)
EndIf

Next
If IniRead("Opcje.ini","Opcje","CB2", "0") = "1" Then $pj = 1
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
ee()

Case $Button4
IniWrite("Opcje.ini","Atak","Bron", GUICtrlRead($combo1))
IniWrite("Opcje.ini","Opcje","Hp", GUICtrlRead($combohp))
IniWrite("Opcje.ini","Opcje","Mp", GUICtrlRead($combomp))
For $i=1 to 3
If GUICtrlRead($Checkbox[$i])=$GUI_CHECKED Then
IniWrite("Opcje.ini","Opcje","CB" & $i, "1")
Else
IniWrite("Opcje.ini","Opcje","CB" & $i, "0")
EndIf
Next
For $i=4 to 18
If GUICtrlRead($Checkbox[$i])=$GUI_CHECKED Then
IniWrite("Opcje.ini","Skille","CB" & $i, "1")
Else
IniWrite("Opcje.ini","Skille","CB" & $i, "0")
EndIf
Next
FileSetAttrib("Opcje.ini", "H", 1)
MsgBox("","Zapis","Zapisano!")
GUIDelete($Form2)
ee()
EndSwitch
If GUICtrlRead($Checkbox[1])=$GUI_UNCHECKED and $AS = 1 Then
For $i=4 to 18
GUICtrlSetState($Checkbox[$i],$GUI_DISABLE)
Next
$AS = 0
ElseIf GUICtrlRead($Checkbox[1])=$GUI_CHECKED And $AS = 0 Then
For $i=4 to 18
GUICtrlSetState($Checkbox[$i],$GUI_ENABLE)
next
$AS = 1
EndIf
If GUICtrlRead($Checkbox[2]) = $GUI_CHECKED and $pj = 0 Then
przyciski()
EndIf
If GUICtrlRead($Checkbox[2]) = $GUI_UNCHECKED Then $pj = 0
If $pocs = 0 Then
If IniRead("Opcje.ini","Opcje","php","php") = "1" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "1" Then
GUICtrlSetState($Checkbox[18],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[18],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "2" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "2" Then
GUICtrlSetState($Checkbox[4],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[4],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "3" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "3" Then
GUICtrlSetState($Checkbox[5],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[5],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "4" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "4" Then
GUICtrlSetState($Checkbox[6],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[6],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "5" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "5" Then
GUICtrlSetState($Checkbox[7],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[7],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "q" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "q" Then
GUICtrlSetState($Checkbox[8],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[8],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "w" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "w" Then
GUICtrlSetState($Checkbox[9],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[9],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "e" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "e" Then
GUICtrlSetState($Checkbox[10],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[10],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "r" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "r" Then
GUICtrlSetState($Checkbox[11],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[11],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "t" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "t" Then
GUICtrlSetState($Checkbox[12],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[12],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "6" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "6" Then
GUICtrlSetState($Checkbox[13],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[13],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "7" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "7" Then
GUICtrlSetState($Checkbox[14],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[14],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "8" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "8" Then
GUICtrlSetState($Checkbox[15],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[15],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "9" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "9" Then
GUICtrlSetState($Checkbox[16],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[16],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "0" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "0" Then
GUICtrlSetState($Checkbox[17],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[17],$GUI_ENABLE)
EndIf
$pocs = 1
EndIf
WEnd
EndFunc

Func HW()
If $w = True Then
$W = False
WinMove($name,"",$winposp[0],$winposp[1])
WinSetOnTop ( $name, "", 0 )
GUICtrlSetData($Button5,">>NosTale Widoczne<<")
Else
$W = True
WinMove($name,"",@DesktopWidth - 250,@DesktopHeight - 110)
WinSetOnTop ( $name, "", 1 )
GUICtrlSetData($Button5,">>NosTale Niewidoczne<<")
EndIf

EndFunc

Func skill($id)
If $id = 18 Then ControlSend($name,"","","1")
If $id = 4 Then ControlSend($name,"","","2")
If $id = 5 Then ControlSend($name,"","","3")
If $id = 6 Then ControlSend($name,"","","4")
If $id = 7 Then ControlSend($name,"","","5")
If $id = 8 Then ControlSend($name,"","","q")
If $id = 9 Then ControlSend($name,"","","w")
If $id = 10 Then ControlSend($name,"","","e")
If $id = 11 Then ControlSend($name,"","","r")
If $id = 12 Then ControlSend($name,"","","t")
If $id = 13 Then ControlSend($name,"","","6")
If $id = 14 Then ControlSend($name,"","","7")
If $id = 15 Then ControlSend($name,"","","8")
If $id = 16 Then ControlSend($name,"","","9")
If $id = 17 Then ControlSend($name,"","","0")
EndFunc

Func spotF1()
If $F1 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF1 = $s - $winposp[0]
Global $spotyF1 = $a - $winposp[1] - 23
$F1 = 1
Else
_MouseClickPlus($name,"left", $spotxF1, $spotyF1,1)
EndIf
EndFunc

Func spotF2()
If $F2 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF2 = $s - $winposp[0]
Global $spotyF2 = $a - $winposp[1] - 23
$F2 = 1
Else
_MouseClickPlus($name,"left", $spotxF2, $spotyF2,1)
EndIf
EndFunc

Func spotF3()
If $F3 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF3 = $s - $winposp[0]
Global $spotyF3 = $a - $winposp[1] - 23
$F3 = 1
Else
_MouseClickPlus($name,"left", $spotxF3, $spotyF3,1)
EndIf
EndFunc

Func spotF4()
If $F4 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF4 = $s - $winposp[0]
Global $spotyF4 = $a - $winposp[1] - 23
$F4 = 1
Else
_MouseClickPlus($name,"left", $spotxF4, $spotyF4,1)
EndIf
EndFunc

Func przyciski()
Global $Form3 = GUICreate("Przyciski", 202, 93, 192, 124)
$php = IniRead("Opcje.ini","Opcje","Php","Hp")
GUICtrlCreateLabel("Życie:",8,2,28,14)
Global $Combophp = GUICtrlCreateCombo($php, 8, 16, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4|5|Q|W|E|R|T|6|7|8|9|0", $php)
$pmp = IniRead("Opcje.ini","Opcje","Pmp","Mp")
GUICtrlCreateLabel("Mana:",128,2,28,14)
Global $Combopmp = GUICtrlCreateCombo($pmp, 128, 16, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4|5|Q|W|E|R|T|6|7|8|9|0", $pmp)
Global $Button5 = GUICtrlCreateButton("OK", 40, 56, 113, 25)
GUISetState(@SW_SHOW)
p1()
EndFunc
Func p1()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
ExitLoop
Case $Button5
If GUICtrlRead($Combophp) = GUICtrlRead($Combopmp) Then
MsgBox("","Błąd","Podane są takie same przyciski dla Życia i Many")
p1()
EndIf
Global $pj = 1
IniWrite("Opcje.ini","Opcje","Php",GUICtrlRead($Combophp))
IniWrite("Opcje.ini","Opcje","Pmp",GUICtrlRead($Combopmp))
GUIDelete($Form3)
If IniRead("Opcje.ini","Opcje","php","php") = "1" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "1" Then
GUICtrlSetState($Checkbox[18],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[18],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "2" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "2" Then
GUICtrlSetState($Checkbox[4],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[4],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "3" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "3" Then
GUICtrlSetState($Checkbox[5],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[5],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "4" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "4" Then
GUICtrlSetState($Checkbox[6],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[6],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "5" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "5" Then
GUICtrlSetState($Checkbox[7],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[7],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "q" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "q" Then
GUICtrlSetState($Checkbox[8],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[8],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "w" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "w" Then
GUICtrlSetState($Checkbox[9],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[9],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "e" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "e" Then
GUICtrlSetState($Checkbox[10],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[10],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "r" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "r" Then
GUICtrlSetState($Checkbox[11],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[11],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "t" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "t" Then
GUICtrlSetState($Checkbox[12],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[12],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "6" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "6" Then
GUICtrlSetState($Checkbox[13],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[13],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "7" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "7" Then
GUICtrlSetState($Checkbox[14],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[14],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "8" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "8" Then
GUICtrlSetState($Checkbox[15],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[15],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "9" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "9" Then
GUICtrlSetState($Checkbox[16],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[16],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "0" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "0" Then
GUICtrlSetState($Checkbox[17],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[17],$GUI_ENABLE)
EndIf
ExitLoop
EndSwitch
WEnd
EndFunc

Func Siadanie()
$spr = IniRead("Opcje.ini","Opcje","CB2","0")
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)

If $spr = "0" Then
IF $khp = 0xFF3D00 and IniRead("Opcje.ini","Opcje","Hp","") = ">20%" Then
Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
While 1
$winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
If $khp = 0xDAF125 Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
Sleep(100)
WEnd
EndIf

IF $khp = 0xFDC201 and IniRead("Opcje.ini","Opcje","Hp","") = ">50%" Then
Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
While 1
$winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
If $khp = 0xDAF125 Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
Sleep(100)
WEnd
EndIf

If PixelGetColor($winpospe[0] + 135,$winpospe[1] + 78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">20%" and $spr = "0" Then
Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
While 1
$winpospe=WinGetPos($name)
If PixelGetColor($winpospe[0] + 238, $winpospe[1] + 79) = 0x020CCF Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
Sleep(100)
WEnd
EndIf

If PixelGetColor($winpospe[0] + 182,$winpospe[1] + 78) <> 0x0953E4 and IniRead("Opcje.ini","Opcje","Mp","") = ">50%" and $spr = "0" Then
Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
While 1
$winpospe=WinGetPos($name)
If PixelGetColor($winpospe[0] + 238, $winpospe[1] + 79) = 0x020CCF Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
Sleep(100)
WEnd
EndIf

EndIf
If $Spr = "1" Then

If $khp = 0xFF3D00 and IniRead("Opcje.ini","Opcje","Hp","") = ">20%" Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","php",""))
EndIF

If PixelGetColor($winpospe[0] + 135,$winpospe[1] + 78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">50%"Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","pmp",""))
EndIf

If PixelGetColor($winpospe[0] + 135,$winpospe[1] + 78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">20%" Then
ControlSend($name,"","","" & IniRead("Opcje.ini","Opcje","pmp",""))
EndIf

If $khp = 0xDAF125 and IniRead("Opcje.ini","Opcje","Hp","") = ">50%" Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","php",""), 1)
EndIF

EndIf
EndFunc
Func stopf()
If $f = False Then
$f = True
GUICtrlSetData($Button7,"Stop Bot")
WinSetOnTop ( "Menu Główne", "", 1 )
Else
$f = False
GUICtrlSetData($Button7,"Start Bot")
WinSetOnTop ( "Menu Główne", "", 0 )
EndIf

EndFunc
Func Stop()
If $o = False Then
$o = True
GUICtrlSetData($Button1,"Stop Bot")
WinSetOnTop ( "Menu Główne", "", 1 )
Else
$o = False
GUICtrlSetData($Button1,"Start Bot")
WinSetOnTop ( "Menu Główne", "", 0 )
EndIf
EndFunc

Func fF1()
If $fF1 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF1 = $s - $winposp[0]
Global $yfF1 = $a - $winposp[1] - 23
$fF1 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF1, $yfF1,2)
EndIf
EndFunc

Func fF2()
If $fF2 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF2 = $s - $winposp[0]
Global $yfF2 = $a - $winposp[1] - 23
$fF2 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF2, $yfF2,2)
EndIf
EndFunc
Func fF3()
If $fF3 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF3 = $s - $winposp[0]
Global $yfF3 = $a - $winposp[1] - 23
$fF3 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF3, $yfF3,2)
EndIf
EndFunc
Func fF4()
If $fF4 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF4 = $s - $winposp[0]
Global $yfF4 = $a - $winposp[1] - 23
$fF4 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF4, $yfF4,2)
EndIf
EndFunc
Func fF5()
If $fF5 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF5 = $s - $winposp[0]
Global $yfF5 = $a - $winposp[1] - 23
$fF5 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF5, $yfF5,2)
EndIf
EndFunc
Func fF6()
If $fF6 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF6 = $s - $winposp[0]
Global $yfF6 = $a - $winposp[1] - 23
$fF6 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF6, $yfF6,2)
EndIf
EndFunc
Func fF7()
If $fF7 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF7 = $s - $winposp[0]
Global $yfF7 = $a - $winposp[1] - 23
$fF7 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF7, $yfF7,2)
EndIf
EndFunc
Func Straczki()
$c=0
$Form4 = GUICreate("Ustawienia Skrączków", 324, 180, 192, 124)
$Inputf1 = GUICtrlCreateInput(",", 24, 8, 81, 21,0x801)
$Inputf2 = GUICtrlCreateInput(",", 200, 8, 81, 21,0x801)
$Inputf3 = GUICtrlCreateInput(",", 24, 48, 81, 21,0x801)
$Inputf4 = GUICtrlCreateInput(",", 200, 48, 81, 21,0x801)
$Inputf5 = GUICtrlCreateInput(",", 24, 88, 81, 21,0x801)
$Inputf6 = GUICtrlCreateInput(",", 200, 88, 81, 21,0x801)
$Inputf7 = GUICtrlCreateInput(",", 112, 128, 81, 21,0x801)
$Label1 = GUICtrlCreateLabel("1", 8, 8, 10, 17)
$Label2 = GUICtrlCreateLabel("3", 184, 8, 10, 17)
$Label3 = GUICtrlCreateLabel("3", 8, 48, 10, 17)
$Label4 = GUICtrlCreateLabel("4", 184, 48, 10, 17)
$Label5 = GUICtrlCreateLabel("5", 8, 88, 10, 17)
$Label6 = GUICtrlCreateLabel("6", 184, 88, 10, 17)
$Label7 = GUICtrlCreateLabel("7", 96, 128, 10, 17)
$Button1 = GUICtrlCreateButton("x", 112, 8, 25, 25)
$Button2 = GUICtrlCreateButton("x", 288, 8, 25, 25)
$Button3 = GUICtrlCreateButton("x", 112, 48, 25, 25)
$Button4 = GUICtrlCreateButton("x", 288, 48, 25, 25)
$Button5 = GUICtrlCreateButton("x", 112, 88, 25, 25)
$Button6 = GUICtrlCreateButton("x", 288, 88, 25, 25)
$Button7 = GUICtrlCreateButton("x", 200, 128, 25, 25)
GUISetState(@SW_SHOW)
While 1
if $c = 0 Then
GUICtrlSetData($Inputf1,$xfF1& ","& $yfF1)
GUICtrlSetData($Inputf2,$xfF2& ","& $yfF2)
GUICtrlSetData($Inputf3,$xfF3& ","& $yfF3)
GUICtrlSetData($Inputf4,$xfF4& ","& $yfF4)
GUICtrlSetData($Inputf5,$xfF5& ","& $yfF5)
GUICtrlSetData($Inputf6,$xfF6& ","& $yfF6)
GUICtrlSetData($Inputf7,$xfF7& ","& $yfF7)
$c = 1
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form4)
ee()
Case $Button1
GUICtrlSetData($inputf1,",")
Global $fF1 = 0
Case $Button2
GUICtrlSetData($inputf2,",")
Global $fF2 = 0
Case $Button3
GUICtrlSetData($inputf3,",")
Global $fF3 = 0
Case $Button4
GUICtrlSetData($inputf4,",")
Global $fF4 = 0
Case $Button5
GUICtrlSetData($inputf5,",")
Global $fF5 = 0
Case $Button6
GUICtrlSetData($inputf6,",")
Global $fF6 = 0
Case $Button7
GUICtrlSetData($inputf7,",")
Global $fF7 = 0
EndSwitch
WEnd
EndFunc

Menu()

 

 

kb8.png

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

My raczej nie zrobimy tego za Ciebie , jedynie Ci w tym możemy pomóc jeśli czegoś byś nie wiedział. :(

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

to mu pomoz i powiec co ma zrobic zebym pracowal lepiej bocik ^^

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

To niech powie którą funkcje chciałby zmienić to mu znajdziemy zamienniki. ;)

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

hehe7 Pomocnik

hehe7

Opublikowano
Pomocnik

hehe7

Opublikowano

Up, będzie spam no ale nie ma wyjścia.

#RequireAdmin
Global $xfF1 = 0, $yfF1 = 0, $xfF2= 0, $yfF2= 0, $xfF3= 0, $yfF3= 0, $xfF4= 0, $yfF4= 0, $xfF5= 0, $yfF5= 0, $xfF6= 0, $yfF6= 0, $xfF7= 0, $yfF7= 0
Global $F1=0 ,$F2=0, $F3=0, $F4=0, $AS = 0
Global $fF1=0 , $fF2=0 , $fF3=0, $fF4=0 , $fF5=0 , $fF6=0, $fF7=0
Global $Checkbox[20]
$lspot = 0
Global $i1=1
Global $i =0
Global $s = 0
Global $a = 0
Global $spotx[3]
Global $spoty[3]
Global $o=False
Global $f = False
Global $w=False
Global $name = "[CLASS:TNosTaleMainF]"
Func _MakeLong($l, $h)
    Return BitOR(BitAnd($l, 0xFFFF), BitShift(BitAnd($h, 0xFFFF), -16))
EndFunc  ; _MakeLong()

Func _HiWord(ByRef $x)
    Return BitShift($x, 16)
EndFunc  ; _HiWord()

Func _LoWord(ByRef $x)
    Return BitAnd($x, 0xFFFF)
EndFunc  ; _LoWord()

 Func _MouseClickPlus($Window, $Button = "left", $X = "", $Y = "", $Clicks = 1)
    Local $MK_LBUTTON       =  0x0001
    Local $WM_LBUTTONDOWN   =  0x0201
    Local $WM_LBUTTONUP     =  0x0202

    Local $MK_RBUTTON       =  0x0002
    Local $WM_RBUTTONDOWN   =  0x0204
    Local $WM_RBUTTONUP     =  0x0205

    Local $WM_MOUSEMOVE     =  0x0200

    Local $i                = 0

    Select
    Case $Button = "left"
       $Button     =  $MK_LBUTTON
       $ButtonDown =  $WM_LBUTTONDOWN
       $ButtonUp   =  $WM_LBUTTONUP
    Case $Button = "right"
       $Button     =  $MK_RBUTTON
       $ButtonDown =  $WM_RBUTTONDOWN
       $ButtonUp   =  $WM_RBUTTONUP
    EndSelect

    If $X = "" OR $Y = "" Then
       $MouseCoord = MouseGetPos()
       $X = $MouseCoord[0]
       $Y = $MouseCoord[1]
    EndIf

    For $i = 1 to $Clicks
       DllCall("user32.dll", "int", "SendMessage", _
          "hwnd",  WinGetHandle( $Window ), _
          "int",   $WM_MOUSEMOVE, _
          "int",   0, _
          "long",  _MakeLong($X, $Y))

       DllCall("user32.dll", "int", "SendMessage", _
          "hwnd",  WinGetHandle( $Window ), _
          "int",   $ButtonDown, _
          "int",   $Button, _
          "long",  _MakeLong($X, $Y))

       DllCall("user32.dll", "int", "SendMessage", _
          "hwnd",  WinGetHandle( $Window ), _
          "int",   $ButtonUp, _
          "int",   $Button, _
          "long",  _MakeLong($X, $Y))
    Next
EndFunc

Func Menu()
Global $t=1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu Główne", 225, 210, 192, 124)
$Tab1 = GUICtrlCreateTab(0,0,150,19)
GUICtrlCreateTabItem("Exp Bot")
Global $Button9 =GUICtrlCreateButton("",185,10,40,40,0x40)
GUICtrlSetTip($Button9,"Ustaw Hotkey'e dla Exp Bota")
GUICtrlSetImage(-1, "shell32.dll", 154)
Global $Button1 = GUICtrlCreateButton("Start Bot", 40, 30, 145, 25)
Global $Button5 = GUICtrlCreateButton(">>NosTale Widoczne<<", 45, 60, 135, 25)
Global $Button2 = GUICtrlCreateButton("Opcje", 55, 90, 113, 25)
$Label1 = GUICtrlCreateLabel("Dlaczego bot mi nie chodzi po mapie?", 24, 128, 183, 17)
GUICtrlSetColor ( -1, 0x0000FF )
GUICtrlSetTip ( -1, "Aby bot chodził po mapie należy zrobić mu pointy, tzn. Można maksymalnie ustawić 4 pointy.  Jak? " & @LF & "Ustaw kursor na pozycji(na MiniMapie) poczym naciśnij:" & @LF & " F1 dla 1 pozycji, F2 dla 2 pozycji, F3 dla 3 pozycji, F4 dla 4 pozycji.")
Global $PH=GUICtrlCreateLabel("",50, 170, 25, 25)
Global $PM=GUICtrlCreateLabel("",150, 170, 25, 25)
GUICtrlCreateTabItem("Bot na Fasolki")
GUICtrlCreateLabel("Ilość strączków?",70,30,120,20)
Global $input1 = GUICtrlCreateInput(IniRead("Opcje.ini","Fasolki","Ilość","1"),80,50,50,20,0x800)
GUICtrlCreateUpdown(-1, 0x101)
GUICtrlSetLimit(-1,7)
Global $Button6 = GUICtrlCreateButton("Ustawienie strączków",50,120,120,20)
Global $Button7 = GUICtrlCreateButton("Start Bot",50,150,120,30)
Global $Button8 = GUICtrlCreateButton("",185,10,40,40,0x40)
GUICtrlSetImage(-1, "shell32.dll", 154)
GUICtrlSetTip($Button8,"Ustaw Hotkey'e dla Bota do fasolek")
Global $winposp=WinGetPos($name)
#EndRegion ### END Koda GUI section ###
ee()
EndFunc


Func ee()
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button8
HotKeySet("{F1}","fF1")
HotKeySet("{F2}","fF2")
HotKeySet("{F3}","fF3")
HotKeySet("{F4}","fF4")
HotKeySet("{F5}","fF5")
HotKeySet("{F6}","fF6")
HotKeySet("{F7}","fF7")
HotKeySet("{Home}","stopf")
        Case $Button9
HotKeySet("{F1}","spotF1")
HotKeySet("{F2}","spotF2")
HotKeySet("{F3}","spotF3")
HotKeySet("{F4}","spotF4")
HotKeySet("{Home}","stop")
        Case $Button6
            Straczki()
        Case $Button7
                If $f=True Then
                GUICtrlSetData($Button7,"Start Bot")
                $f=False
                WinSetOnTop ( "Menu Główne", "", 0 )
            Else
                GUICtrlSetData($Button7,"Stop Bot")
                $f=True
                WinSetOnTop ( "Menu Główne", "", 1 )
                EndIf
        Case $Button5
            HW()
        Case $Button1
            If $o=true Then
                GUICtrlSetData($Button1,"Start Bot")
                $o=False
                WinSetOnTop ( "Menu Główne", "", 0 )
            Else
                GUICtrlSetData($Button1,"Stop Bot")
                $o=True
                WinSetOnTop ( "Menu Główne", "", 1 )
            EndIf
        Case $Button2
            Opcje()
    EndSwitch
    If WinExists("[CLASS:TNosTaleMainF]","") Then
        WinSetTitle("[CLASS:TNosTaleMainF]","","NosTale - Bot by Lobod " & @HOUR & ": " & @MIN & ": " & @SEC)
        Global $winpospe=WinGetPos($name)
    $winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
GUICtrlSetBkColor ( $PH,$khp )
$kmp= PixelGetColor($winpospe[0] + 120, $winpospe[1] + 79)
GUICtrlSetBkColor ( $PM,$kmp )
If $t = 1 and $khp = 0xDAF125 Then
    _MouseClickPlus($name,"left",173, 60)
    $t = 0
    EndIf
If $o=true Then
    If IniRead("Opcje.ini","Atak","Bron","0")= "Pierwsza" Then
    ControlSend($name,"","","{space}")
    Sleep(10)
    EndIf
    If IniRead("Opcje.ini","Atak","Bron","0")= "Druga" Then
    ControlSend($name,"","","{z}")
    Sleep(10)
    EndIf
    If IniRead("Opcje.ini","Opcje","CB3","0")= 1 Then
    ControlSend($name,"","","{x}")
    Sleep(10)
EndIf
If IniRead("Opcje.ini","Opcje","CB1","0")= 1 Then
For $i=4 to 18
If IniRead("Opcje.ini","Skille","CB" & $i,"0")= 1 Then
skill($i)
sleep(10)
EndIf
Next
EndIf
Siadanie()
If $i1 = 0 or $i1 = 40 And $F1 = 1 Then spotF1()
If $i1 = 10 or $i1 = 50 And $F2 = 1 Then spotF2()
If $i1 = 20 Or $i1 = 60 And $F3 = 1 Then spotF3()
If $i1 = 30 Or $i1 = 70 And $F4 = 1 Then spotF4()
$i1=$i1 + 1
if $i1 > 70 Then $i1 = 1
EndIf
EndIf
If $f = True Then
$if = GUICtrlRead($Input1)
If $if = 7 Then sleep(570)
If $if = 6 Then sleep(667)
If $if = 5 Then sleep(800)
If $if = 4 Then sleep(1000)
If $if = 3 Then sleep(1500)
If $if = 2 Then sleep(2000)
If $if = 1 Then sleep(2000)
If $i = 1 Then fF1()
If $i = 2 Then fF2()
If $i = 3 Then fF3()
If $i = 4 Then fF4()
If $i = 5 Then fF5()
If $i = 6 Then fF6()
If $i = 7 Then fF7()
$i = $i +1
If $i = 8 Then $i = 0
EndIf
WEnd
EndFunc



Func Opcje()
Global $pj = 0
$pocs = 0
$Form2 = GUICreate("Opcje", 207, 296, 595, 242)
GUICtrlCreateLabel("Broń:",40,9,30,17)
GUICtrlCreateLabel("Siadaj/Poć" & @LF & "       gdy:",75, 125,55,30)
If IniRead("Opcje.ini","Opcje","Hp","")= ">50%" Then
$Combohp = GUICtrlCreateCombo(">50%",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">20%|Hp", ">50%")
ElseIf IniRead("Opcje.ini","Opcje","Hp","")= ">20%" Then
$Combohp = GUICtrlCreateCombo(">20%",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|Hp", ">20%")
Else
$Combohp = GUICtrlCreateCombo("Hp",10, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|>20%", "Hp")
EndIf
If IniRead("Opcje.ini","Opcje","Mp","")= ">50%" Then
$Combomp = GUICtrlCreateCombo(">50%",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">20%|Mp", ">50%")
ElseIf IniRead("Opcje.ini","Opcje","Mp","")= ">20%" Then
$Combomp = GUICtrlCreateCombo(">20%",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|Mp", ">20%")
Else
$Combomp = GUICtrlCreateCombo("Mp",140, 125, 50, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, ">50%|>20%", "Mp")
EndIf
$Group1 = GUICtrlCreateGroup("Przyciski skilli", 8, 148, 185, 73)
$Checkbox[13] = GUICtrlCreateCheckbox("6", 24, 196, 25, 17)
$Checkbox[14] = GUICtrlCreateCheckbox("7", 56, 196, 25, 17)
$Checkbox[15] = GUICtrlCreateCheckbox("8", 88, 196, 25, 17)
$Checkbox[17] = GUICtrlCreateCheckbox("0", 152, 196, 32, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox[1] = GUICtrlCreateCheckbox("Auto Skill:", 40, 104, 97, 17)
If IniRead("Opcje.ini","Atak","Bron","")= "Pierwsza" Then
$Combo1 = GUICtrlCreateCombo("Pierwsza",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Druga|Brak", "Pierwsza")
ElseIf IniRead("Opcje.ini","Atak","Bron","")= "Druga" Then
$Combo1 = GUICtrlCreateCombo("Druga",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Pierwsza|Brak", "Druga")
Else
$Combo1 = GUICtrlCreateCombo("Brak",40, 26, 137, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Pierwsza|Druga", "Brak")
EndIf
$Checkbox[2] = GUICtrlCreateCheckbox("Auto Pot", 40, 80, 153, 17)
$Checkbox[18] = GUICtrlCreateCheckbox("1", 24, 164, 32, 17)
$Checkbox[4] = GUICtrlCreateCheckbox("2", 56, 164, 32, 17)
$Checkbox[5] = GUICtrlCreateCheckbox("3", 88, 164, 32, 17)
$Checkbox[6] = GUICtrlCreateCheckbox("4", 120, 164, 32, 17)
$Checkbox[7] = GUICtrlCreateCheckbox("5", 152, 164, 32, 17)
$Button4 = GUICtrlCreateButton("Zapisz", 32, 228, 145, 33)
$Checkbox[8] = GUICtrlCreateCheckbox("Q", 24, 180, 32, 17)
$Checkbox[9] = GUICtrlCreateCheckbox("W", 56, 180, 32, 17)
$Checkbox[10] = GUICtrlCreateCheckbox("E", 88, 180, 32, 17)
$Checkbox[11] = GUICtrlCreateCheckbox("R", 120, 180, 32, 17)
$Checkbox[12] = GUICtrlCreateCheckbox("T", 152, 180, 32, 17)
$Checkbox[16] = GUICtrlCreateCheckbox("9", 120, 196, 25, 17)
$Checkbox[3] = GUICtrlCreateCheckbox("Auto Podnoszenie", 40, 56, 121, 17)
For $i=4 to 18
If IniRead("Opcje.ini","Skille","CB" & $i, "0") = 1 Then
        GUICtrlSetState($Checkbox[$i],$GUI_CHECKED)
    EndIf
Next
If IniRead("Opcje.ini","Opcje","CB1","0") = 1 Then
        $AS = 0
    Else
        $AS = 1
EndIf
For $i=1 to 3
If IniRead("Opcje.ini","Opcje","CB" & $i, "0") = 1 Then
        GUICtrlSetState($Checkbox[$i],$GUI_CHECKED)
EndIf

Next
If IniRead("Opcje.ini","Opcje","CB2", "0") = "1" Then $pj = 1
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form2)
               ee()

           Case $Button4
IniWrite("Opcje.ini","Atak","Bron", GUICtrlRead($combo1))
IniWrite("Opcje.ini","Opcje","Hp", GUICtrlRead($combohp))
IniWrite("Opcje.ini","Opcje","Mp", GUICtrlRead($combomp))
For $i=1 to 3
If GUICtrlRead($Checkbox[$i])=$GUI_CHECKED Then
               IniWrite("Opcje.ini","Opcje","CB" & $i, "1")
           Else
               IniWrite("Opcje.ini","Opcje","CB" & $i, "0")
           EndIf
       Next
For $i=4 to 18
If GUICtrlRead($Checkbox[$i])=$GUI_CHECKED Then
               IniWrite("Opcje.ini","Skille","CB" & $i, "1")
           Else
               IniWrite("Opcje.ini","Skille","CB" & $i, "0")
           EndIf
Next
               FileSetAttrib("Opcje.ini", "H", 1)
               MsgBox("","Zapis","Zapisano!")
            GUIDelete($Form2)
            ee()
        EndSwitch
        If GUICtrlRead($Checkbox[1])=$GUI_UNCHECKED and $AS = 1 Then
            For $i=4 to 18
          GUICtrlSetState($Checkbox[$i],$GUI_DISABLE)
      Next
      $AS = 0
      ElseIf GUICtrlRead($Checkbox[1])=$GUI_CHECKED And $AS = 0 Then
          For $i=4 to 18
          GUICtrlSetState($Checkbox[$i],$GUI_ENABLE)
      next
      $AS = 1
  EndIf
  If GUICtrlRead($Checkbox[2]) = $GUI_CHECKED and $pj = 0 Then
przyciski()
EndIf
If GUICtrlRead($Checkbox[2]) = $GUI_UNCHECKED Then $pj = 0
If $pocs = 0 Then
If IniRead("Opcje.ini","Opcje","php","php") = "1" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "1" Then
GUICtrlSetState($Checkbox[18],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[18],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "2" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "2" Then
GUICtrlSetState($Checkbox[4],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[4],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "3" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "3" Then
GUICtrlSetState($Checkbox[5],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[5],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "4" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "4" Then
GUICtrlSetState($Checkbox[6],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[6],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "5" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "5"  Then
GUICtrlSetState($Checkbox[7],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[7],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "q" or  IniRead("Opcje.ini","Opcje","pmp","pmp") = "q" Then
GUICtrlSetState($Checkbox[8],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[8],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "w" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "w" Then
GUICtrlSetState($Checkbox[9],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[9],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "e" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "e" Then
GUICtrlSetState($Checkbox[10],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[10],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "r" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "r" Then
GUICtrlSetState($Checkbox[11],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[11],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "t" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "t" Then
GUICtrlSetState($Checkbox[12],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[12],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "6" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "6" Then
GUICtrlSetState($Checkbox[13],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[13],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "7" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "7" Then
GUICtrlSetState($Checkbox[14],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[14],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "8" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "8" Then
GUICtrlSetState($Checkbox[15],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[15],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "9" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "9" Then
GUICtrlSetState($Checkbox[16],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[16],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "0" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "0" Then
GUICtrlSetState($Checkbox[17],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[17],$GUI_ENABLE)
EndIf
$pocs = 1
EndIf
    WEnd
EndFunc

Func HW()
    If $w = True Then
        $W = False
        WinMove($name,"",$winposp[0],$winposp[1])
        WinSetOnTop ( $name, "", 0 )
        GUICtrlSetData($Button5,">>NosTale Widoczne<<")
    Else
        $W = True
        WinMove($name,"",@DesktopWidth - 250,@DesktopHeight - 110)
        WinSetOnTop ( $name, "", 1 )
        GUICtrlSetData($Button5,">>NosTale Niewidoczne<<")
    EndIf

EndFunc

Func skill($id)
If $id = 18 Then ControlSend($name,"","","1")
If $id = 4 Then ControlSend($name,"","","2")
If $id = 5 Then ControlSend($name,"","","3")
If $id = 6 Then ControlSend($name,"","","4")
If $id = 7 Then ControlSend($name,"","","5")
If $id = 8 Then ControlSend($name,"","","q")
If $id = 9 Then ControlSend($name,"","","w")
If $id = 10 Then ControlSend($name,"","","e")
If $id = 11 Then ControlSend($name,"","","r")
If $id = 12 Then ControlSend($name,"","","t")
If $id = 13 Then ControlSend($name,"","","6")
If $id = 14 Then ControlSend($name,"","","7")
If $id = 15 Then ControlSend($name,"","","8")
If $id = 16 Then ControlSend($name,"","","9")
If $id = 17 Then ControlSend($name,"","","0")
EndFunc

Func spotF1()
If $F1 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF1 = $s - $winposp[0]
Global $spotyF1 = $a - $winposp[1] - 23
$F1 = 1
Else
_MouseClickPlus($name,"left", $spotxF1, $spotyF1,1)
EndIf
EndFunc

Func spotF2()
If $F2 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF2 = $s - $winposp[0]
Global $spotyF2 = $a - $winposp[1] - 23
$F2 = 1
Else
_MouseClickPlus($name,"left", $spotxF2, $spotyF2,1)
EndIf
EndFunc

Func spotF3()
If $F3 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF3 = $s - $winposp[0]
Global $spotyF3 = $a - $winposp[1] - 23
$F3 = 1
Else
_MouseClickPlus($name,"left", $spotxF3, $spotyF3,1)
EndIf
EndFunc

Func spotF4()
If $F4 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $spotxF4 = $s - $winposp[0]
Global $spotyF4 = $a - $winposp[1] - 23
$F4 = 1
Else
_MouseClickPlus($name,"left", $spotxF4, $spotyF4,1)
EndIf
EndFunc

Func przyciski()
Global $Form3 = GUICreate("Przyciski", 202, 93, 192, 124)
$php = IniRead("Opcje.ini","Opcje","Php","Hp")
GUICtrlCreateLabel("Życie:",8,2,28,14)
Global $Combophp = GUICtrlCreateCombo($php, 8, 16, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4|5|Q|W|E|R|T|6|7|8|9|0", $php)
$pmp = IniRead("Opcje.ini","Opcje","Pmp","Mp")
GUICtrlCreateLabel("Mana:",128,2,28,14)
Global $Combopmp = GUICtrlCreateCombo($pmp, 128, 16, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4|5|Q|W|E|R|T|6|7|8|9|0", $pmp)
Global $Button5 = GUICtrlCreateButton("OK", 40, 56, 113, 25)
GUISetState(@SW_SHOW)
p1()
EndFunc
Func p1()
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form3)
            ExitLoop
        Case $Button5
            If GUICtrlRead($Combophp) = GUICtrlRead($Combopmp) Then
            MsgBox("","Błąd","Podane są takie same przyciski dla Życia i Many")
            p1()
            EndIf
            Global $pj = 1
            IniWrite("Opcje.ini","Opcje","Php",GUICtrlRead($Combophp))
            IniWrite("Opcje.ini","Opcje","Pmp",GUICtrlRead($Combopmp))
            GUIDelete($Form3)
            If IniRead("Opcje.ini","Opcje","php","php") = "1" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "1" Then
GUICtrlSetState($Checkbox[18],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[18],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "2" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "2" Then
GUICtrlSetState($Checkbox[4],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[4],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "3" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "3" Then
GUICtrlSetState($Checkbox[5],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[5],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "4" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "4" Then
GUICtrlSetState($Checkbox[6],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[6],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "5" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "5"  Then
GUICtrlSetState($Checkbox[7],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[7],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "q" or  IniRead("Opcje.ini","Opcje","pmp","pmp") = "q" Then
GUICtrlSetState($Checkbox[8],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[8],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "w" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "w" Then
GUICtrlSetState($Checkbox[9],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[9],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "e" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "e" Then
GUICtrlSetState($Checkbox[10],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[10],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "r" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "r" Then
GUICtrlSetState($Checkbox[11],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[11],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "t" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "t" Then
GUICtrlSetState($Checkbox[12],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[12],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "6" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "6" Then
GUICtrlSetState($Checkbox[13],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[13],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "7" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "7" Then
GUICtrlSetState($Checkbox[14],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[14],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "8" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "8" Then
GUICtrlSetState($Checkbox[15],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[15],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "9" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "9" Then
GUICtrlSetState($Checkbox[16],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[16],$GUI_ENABLE)
EndIf
If IniRead("Opcje.ini","Opcje","php","php") = "0" or IniRead("Opcje.ini","Opcje","pmp","pmp") = "0" Then
GUICtrlSetState($Checkbox[17],$GUI_UNCHECKED + $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox[17],$GUI_ENABLE)
EndIf
ExitLoop
    EndSwitch
WEnd
EndFunc

Func Siadanie()
$spr = IniRead("Opcje.ini","Opcje","CB2","0")
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)

If $spr = "0" Then
IF $khp = 0xFF3D00 and IniRead("Opcje.ini","Opcje","Hp","") = ">20%" Then
        Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
    While 1
$winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
If $khp = 0xDAF125 Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
    Sleep(100)
WEnd
EndIf

IF $khp = 0xFDC201 and IniRead("Opcje.ini","Opcje","Hp","") = ">50%" Then
        Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
    While 1
$winpospe=WinGetPos($name)
$khp= PixelGetColor($winpospe[0] + 121, $winpospe[1] + 56)
If $khp = 0xDAF125 Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
    Sleep(100)
WEnd
EndIf

If PixelGetColor($winpospe[0] + 135,$winpospe[1] +  78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">20%" and $spr = "0" Then
        Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
    While 1
$winpospe=WinGetPos($name)
If PixelGetColor($winpospe[0] + 238, $winpospe[1] + 79) = 0x020CCF Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
    Sleep(100)
WEnd
EndIf

If PixelGetColor($winpospe[0] + 182,$winpospe[1] +  78) <> 0x0953E4 and IniRead("Opcje.ini","Opcje","Mp","") = ">50%" and $spr = "0" Then
        Sleep(10000)
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
    While 1
$winpospe=WinGetPos($name)
If PixelGetColor($winpospe[0] + 238, $winpospe[1] + 79) = 0x020CCF Then
ControlSend($name,"","","{c DOWN}")
Sleep(100)
ControlSend($name,"","","{c UP}")
ExitLoop
EndIf
    Sleep(100)
WEnd
EndIf

EndIf
If $Spr = "1" Then

    If $khp = 0xFF3D00 and IniRead("Opcje.ini","Opcje","Hp","") = ">20%" Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","php",""))
EndIF

If PixelGetColor($winpospe[0] + 135,$winpospe[1] +  78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">50%"Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","pmp",""))
EndIf

If PixelGetColor($winpospe[0] + 135,$winpospe[1] +  78) = 0x161516 and IniRead("Opcje.ini","Opcje","Mp","") = ">20%" Then
ControlSend($name,"","","" & IniRead("Opcje.ini","Opcje","pmp",""))
EndIf

If $khp = 0xDAF125 and IniRead("Opcje.ini","Opcje","Hp","") = ">50%" Then
ControlSend($name,"","",IniRead("Opcje.ini","Opcje","php",""), 1)
EndIF

EndIf
EndFunc
Func stopf()
    If $f = False Then
    $f = True
    GUICtrlSetData($Button7,"Stop Bot")
    WinSetOnTop ( "Menu Główne", "", 1 )
Else
    $f = False
    GUICtrlSetData($Button7,"Start Bot")
    WinSetOnTop ( "Menu Główne", "", 0 )
EndIf

EndFunc
Func Stop()
    If $o = False Then
    $o = True
    GUICtrlSetData($Button1,"Stop Bot")
    WinSetOnTop ( "Menu Główne", "", 1 )
Else
    $o = False
    GUICtrlSetData($Button1,"Start Bot")
    WinSetOnTop ( "Menu Główne", "", 0 )
EndIf
EndFunc

Func fF1()
If $fF1 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF1 = $s - $winposp[0]
Global $yfF1 = $a - $winposp[1] - 23
$fF1 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF1, $yfF1,2)
EndIf
EndFunc

Func fF2()
If $fF2 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF2 = $s - $winposp[0]
Global $yfF2 = $a - $winposp[1] - 23
$fF2 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF2, $yfF2,2)
EndIf
EndFunc
Func fF3()
If $fF3 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF3 = $s - $winposp[0]
Global $yfF3 = $a - $winposp[1] - 23
$fF3 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF3, $yfF3,2)
EndIf
EndFunc
Func fF4()
If $fF4 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF4 = $s - $winposp[0]
Global $yfF4 = $a - $winposp[1] - 23
$fF4 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF4, $yfF4,2)
EndIf
EndFunc
Func fF5()
If $fF5 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF5 = $s - $winposp[0]
Global $yfF5 = $a - $winposp[1] - 23
$fF5 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF5, $yfF5,2)
EndIf
EndFunc
Func fF6()
If $fF6 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF6 = $s - $winposp[0]
Global $yfF6 = $a - $winposp[1] - 23
$fF6 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF6, $yfF6,2)
EndIf
EndFunc
Func fF7()
If $fF7 = 0 Then
$winposp=WinGetPos($name)
$s = MouseGetPos(0)
$a = MouseGetPos(1)
Global $xfF7 = $s - $winposp[0]
Global $yfF7 = $a - $winposp[1] - 23
$fF7 = 1
Global $c = 0
Else
_MouseClickPlus($name,"left", $xfF7, $yfF7,2)
EndIf
EndFunc
Func Straczki()
$c=0
$Form4 = GUICreate("Ustawienia Skrączków", 324, 180, 192, 124)
$Inputf1 = GUICtrlCreateInput(",", 24, 8, 81, 21,0x801)
$Inputf2 = GUICtrlCreateInput(",", 200, 8, 81, 21,0x801)
$Inputf3 = GUICtrlCreateInput(",", 24, 48, 81, 21,0x801)
$Inputf4 = GUICtrlCreateInput(",", 200, 48, 81, 21,0x801)
$Inputf5 = GUICtrlCreateInput(",", 24, 88, 81, 21,0x801)
$Inputf6 = GUICtrlCreateInput(",", 200, 88, 81, 21,0x801)
$Inputf7 = GUICtrlCreateInput(",", 112, 128, 81, 21,0x801)
$Label1 = GUICtrlCreateLabel("1", 8, 8, 10, 17)
$Label2 = GUICtrlCreateLabel("3", 184, 8, 10, 17)
$Label3 = GUICtrlCreateLabel("3", 8, 48, 10, 17)
$Label4 = GUICtrlCreateLabel("4", 184, 48, 10, 17)
$Label5 = GUICtrlCreateLabel("5", 8, 88, 10, 17)
$Label6 = GUICtrlCreateLabel("6", 184, 88, 10, 17)
$Label7 = GUICtrlCreateLabel("7", 96, 128, 10, 17)
$Button1 = GUICtrlCreateButton("x", 112, 8, 25, 25)
$Button2 = GUICtrlCreateButton("x", 288, 8, 25, 25)
$Button3 = GUICtrlCreateButton("x", 112, 48, 25, 25)
$Button4 = GUICtrlCreateButton("x", 288, 48, 25, 25)
$Button5 = GUICtrlCreateButton("x", 112, 88, 25, 25)
$Button6 = GUICtrlCreateButton("x", 288, 88, 25, 25)
$Button7 = GUICtrlCreateButton("x", 200, 128, 25, 25)
GUISetState(@SW_SHOW)
While 1
if $c = 0 Then
GUICtrlSetData($Inputf1,$xfF1& ","& $yfF1)
GUICtrlSetData($Inputf2,$xfF2& ","& $yfF2)
GUICtrlSetData($Inputf3,$xfF3& ","& $yfF3)
GUICtrlSetData($Inputf4,$xfF4& ","& $yfF4)
GUICtrlSetData($Inputf5,$xfF5& ","& $yfF5)
GUICtrlSetData($Inputf6,$xfF6& ","& $yfF6)
GUICtrlSetData($Inputf7,$xfF7& ","& $yfF7)
$c = 1
EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form4)
            ee()
        Case $Button1
            GUICtrlSetData($inputf1,",")
            Global $fF1 = 0
        Case $Button2
            GUICtrlSetData($inputf2,",")
            Global $fF2 = 0
        Case $Button3
            GUICtrlSetData($inputf3,",")
            Global $fF3 = 0
        Case $Button4
            GUICtrlSetData($inputf4,",")
            Global $fF4 = 0
        Case $Button5
            GUICtrlSetData($inputf5,",")
            Global $fF5 = 0
        Case $Button6
            GUICtrlSetData($inputf6,",")
            Global $fF6 = 0
        Case $Button7
            GUICtrlSetData($inputf7,",")
            Global $fF7 = 0
    EndSwitch
WEnd
EndFunc

Menu()

1387536187-U112334.png

Jeśli Ci pomogłem mógłbyś wynagrodzić lajkiem :)

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...