[AutoIT] Source Expbot Metin2 LightFish

Witam!

Oto source do mojego ExpBota w Metin2, który napisałem w 100% samodzielnie.



;####################################

;Author's####Kris006#######
;####################################
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <DateTimeConstants.au3>
#include <ComboConstants.au3>
#include <Date.au3>
#include <ImageSearch.au3>
#NoTrayIcon
HotKeySet("{Home}","start")
HotKeySet("{Pause}","stop")
HotKeySet("{End}","wyjdz")
$szukam = 0
$kolejna_strona = 0
$expbot_number = 0
$autopot_number = 0
$autoskil_number = 0
$autologin_number = 0
$menu_number = 0
$gui_x = 516
$gui_y = 300
$x_up = 0
$y_up = 0
$x = 0
$y = 0
$x_1 = 0
$y_1 = 0
$x_2 = 0
$y_2 = 0
$x_3 = 0
$y_3 = 0
$start = 0
$serwer_num = 1
$kanal = 1
$postac = 0
$jaka_kulkax = 0
$jaka_kulkay = 0
$zbieranie_wpis = "off"
$auto_up_wpis = "off"
$exp_donate_wpis = "off"
$kulka_wpis = 1
$reg_zycie_wpis = "off"
$reg_mana_wpis = "off"
$slot1_wpis = "off"
$slot2_wpis = "off"
$slot3_wpis = "off"
$slot4_wpis = "off"
$slot5_wpis = "off"
$slot6_wpis = "off"
$account = RegRead("HKEY_CURRENT_USERSoftwareLightMetin2","konto")
$bot_login = RegRead("HKEY_CURRENT_USERSoftwareLightMetin2","login")
$bot_haslo = RegRead("HKEY_CURRENT_USERSoftwareLightMetin2","haslo")
AdlibRegister("blokada",250)
AdlibRegister("expbot",250)
AdlibRegister("czas",1000)
AdlibRegister("wstawanie",1000)
AdlibRegister("poter_hp",250)
AdlibRegister("poter_mp",250)
AdlibRegister("zbieranie",100)
AdlibRegister("logowanie",1000)
AdlibRegister("oddawanie_expa",1000)
$GUI = GUICreate("EasyBot 0.1", $gui_x, $gui_y, Default,Default ,0)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 0, 0, 89, 273)
$expbot = GUICtrlCreateButton("ExpBot", 8, 16, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$autopot = GUICtrlCreateButton("AutoPot", 8, 48, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$autoskil = GUICtrlCreateButton("AutoSkil", 8, 80, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$autologin = GUICtrlCreateButton("AutoLogin", 8, 112, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$menu_button = GUICtrlCreateButton("Menu", 8, 144, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$autorzy = GUICtrlCreateButton("Autorzy", 8, 176, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$inne = GUICtrlCreateButton("Inne", 8, 208, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$wyjscie = GUICtrlCreateButton("Wyjście", 8, 240, 75, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
 
$Group1_lou = GUICtrlCreateGroup("", -99, -99, 1, 1)
$zbieranie = GUICtrlCreateCheckbox("Zbieranie przedmiotów", 104, 8, 129, 17)
$szybkosc_zbieranie = GUICtrlCreateInput("1", 104, 32, 40, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
$up_1 = GUICtrlCreateUpdown($szybkosc_zbieranie)
GUICtrlSetLimit(-1, 10, 1)
$lab1 = GUICtrlCreateLabel("razy na sekunde", 150, 35, 80, 17)
$auto_up = GUICtrlCreateCheckbox("Automatyczne wstawanie", 104, 80, 145, 17)
$exp_donate = GUICtrlCreateCheckbox("Oddawanie doświadczenia", 104, 120, 153, 17)
$kulka1 = GUICtrlCreateRadio("1 kulka", 120, 144, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$kulka2 = GUICtrlCreateRadio("2 kulki", 120, 160, 113, 17)
$kulka3 = GUICtrlCreateRadio("3 kulki", 120, 176, 113, 17)
$kulka4 = GUICtrlCreateRadio("4 kulki", 120, 192, 113, 17)
$Label1 = GUICtrlCreateLabel("Regeneracja Życia", 120, 8, 111, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Regeneracja Many", 120, 80, 110, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$slide_hp = GUICtrlCreateSlider(96, 32, 150, 29, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_NOTICKS,$TBS_ENABLESELRANGE))
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetLimit(-1, 10, 1)
GUICtrlSetData(-1, 1)
$slide_mp = GUICtrlCreateSlider(96, 104, 150, 29, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_NOTICKS,$TBS_ENABLESELRANGE))
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetLimit(-1, 10, 1)
GUICtrlSetData(-1, 1)
$Label3 = GUICtrlCreateLabel("100", 256, 40, 33, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("10", 256, 112, 26, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel("%", 288, 40, 13, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("%", 288, 112, 13, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$reg_zycie = GUICtrlCreateCheckbox("Regeneruj życie", 352, 40, 129, 17)
$reg_mana = GUICtrlCreateCheckbox("Regeneruj mane", 352, 112, 129, 17)
$Pic1 = GUICtrlCreatePic("filesmikstury.bmp", 224, 224, 124, 44)
$Label7 = GUICtrlCreateLabel("Ustawienie mikstur", 239, 200, 95, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$slot1 = GUICtrlCreateCheckbox("Slot 1", 104, 56, 49, 17)
$slot2 = GUICtrlCreateCheckbox("Slot 2", 104, 88, 49, 17)
$slot3 = GUICtrlCreateCheckbox("Slot 3", 104, 120, 49, 17)
$slot4 = GUICtrlCreateCheckbox("Slot 4", 104, 152, 49, 17)
$slot5 = GUICtrlCreateCheckbox("Slot F1", 104, 184, 57, 17)
$slot6 = GUICtrlCreateCheckbox("Slot F2", 104, 216, 57, 17)
$del_1 = GUICtrlCreateInput("0", 216, 56, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$del_2 = GUICtrlCreateInput("0", 216, 88, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$del_3 = GUICtrlCreateInput("0", 216, 120, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$del_4 = GUICtrlCreateInput("0", 216, 152, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$del_5 = GUICtrlCreateInput("0", 216, 184, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$del_6 = GUICtrlCreateInput("0", 216, 216, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1, 4)
$labo_1 = GUICtrlCreateLabel("Numer slotu", 104, 24, 60, 17)
$labo_2 = GUICtrlCreateLabel("Opóźnienie w sekundach", 200, 24, 124, 17)
$labele_1 = GUICtrlCreateLabel("Nazwa użytkownika", 104, 18, 99, 17)
$login = GUICtrlCreateInput("", 208, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetBkColor(-1,0xFFFFFF)
$labele_2 = GUICtrlCreateLabel("Hasło", 136, 50, 33, 17)
$haslo = GUICtrlCreateInput("", 208, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetBkColor(-1,0xFFFFFF)
$labele_3 = GUICtrlCreateLabel("Kanał", 136, 116, 33, 17)
$channel = GUICtrlCreateCombo("", 208, 112, 121, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetData(-1, "CH1|CH2|CH3|CH4", "CH1")
$labele_4 = GUICtrlCreateLabel("Serwer", 136, 84, 37, 17)
$serwer = GUICtrlCreateCombo("", 208, 80, 121, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetData(-1, "Monastyr|Feniks|Obsydian|Twierdza|Astral|Grymuar|Almanach|Onyks|Agronas|Gromo|Arkantes|Monolit|Exandros|Kirian|Eteor|Serwandes|Elares|Phobos|Deimos|Endurion|Candia|Orion|Kronos|Phantos|Syriusz|Solar", "Monastyr")
$labele_5 = GUICtrlCreateLabel("Postać", 136, 176, 37, 17)
$postac1 = GUICtrlCreateRadio("Postać 1", 240, 208, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$postac2 = GUICtrlCreateRadio("Postać 2", 304, 176, 113, 17)
$postac3 = GUICtrlCreateRadio("Postać 3", 240, 152, 113, 17)
$postac4 = GUICtrlCreateRadio("Postać 4", 184, 176, 113, 17)
$labele_8 = GUICtrlCreateLabel("Aktualnie", 408, 16, 48, 17)
$logowanie_onoff = GUICtrlCreateLabel("Wyłączone", 400, 48, 68, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$logowanie_on = GUICtrlCreateButton("Włącz logowanie", 392, 88, 99, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$logowanie_off = GUICtrlCreateButton("Wyłącz logowanie", 392, 128, 99, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$koordynuj = GUICtrlCreateButton("Koordynuj", 96, 8, 131, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$labin_2 = GUICtrlCreateLabel("Nie zostały dopasowane współrzędne..", 240, 16, 227, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$hsblok = GUICtrlCreateButton("Zablokuj HackShield", 96, 48, 131, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$labin_3 = GUICtrlCreateLabel("Nie zablokowano hackshield'a..", 240, 56, 184, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$komputer_off = GUICtrlCreateCheckbox("Wyłącz komputer o godzinie", 96, 104, 177, 17)
$labin_4 = GUICtrlCreateLabel("Aktualna", 96, 136, 46, 17)
$labin_5 = GUICtrlCreateLabel("Wskazana", 96, 168, 55, 17)
$aktualna = GUICtrlCreateLabel(@HOUR & ':' & @MIN & ':' & @SEC, 160, 136, 74, 21)
$godzina = GUICtrlCreateInput("0", 168, 168, 40, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xFFFFFF)
$up_godzina = GUICtrlCreateUpdown($godzina)
GUICtrlSetLimit($up_godzina, 23, 0)
$napis = GUICtrlCreateLabel("H",210,172)
 
$autorzy_pic = GUICtrlCreatePic("fileslogo.jpg", 150, 30, 298, 64)
$libon_1 = GUICtrlCreateLabel("LightMetin2 BETA stworzony przez Kris006 oraz MrDeska dla m***.pl", 96, 156, 999, 999)
$libon_2 = GUICtrlCreateLabel("MoberMod.on7.pl", 96, 175, 999, 999)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$got1 = GUICtrlCreateLabel("HotKey'e", 248, 20, 47, 17)
$Edit1 = GUICtrlCreateEdit("", 210, 40, 129, 49, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetData(-1, StringFormat("Home - UruchomrnPause/Break - ZatrzymajrnEnd - Wyjdź"))
$m2bin3 =GUICtrlCreateButton("Ustaw kamere w grze", 210, 110, 131, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$m2bin4 =GUICtrlCreateButton("Strona bota", 210, 145, 131, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
WinMove("EasyBot 0.1","",Default,Default,200, 170)
$lol = GUICtrlCreateLabel("Login", 8, 10, 30, 17)
$lol_1 = GUICtrlCreateLabel("Hasło", 8, 50, 33, 17)
$login_bot = GUICtrlCreateInput("", 56, 8, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1,10,1)
$haslo_bot = GUICtrlCreateInput("", 56, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetLimit(-1,10,1)
$create_bot = GUICtrlCreateButton("Stwórz", 8, 80, 83, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$zaloguj_bot = GUICtrlCreateButton("Zaloguj", 104, 80, 83, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$wyjdz_bot = GUICtrlCreateButton("Wyjdź", 8, 112, 181, 25)
GUICtrlSetBkColor(-1, 0xFFFFFF)
If $account = 1 Then
GUICtrlSetState($create_bot,$GUI_DISABLE)
Else
GUICtrlSetState($zaloguj_bot,$GUI_DISABLE)
EndIf
chowaj_all()
bot_chowaj()
GUICtrlSetState($expbot,$GUI_DISABLE)
GUICtrlSetState($autopot,$GUI_DISABLE)
GUICtrlSetState($autoskil,$GUI_DISABLE)
GUICtrlSetState($autologin,$GUI_DISABLE)
GUICtrlSetState($autorzy,$GUI_DISABLE)
GUICtrlSetState($inne,$GUI_DISABLE)
GUICtrlSetState($menu_button,$GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $wyjscie
Exit
Case $create_bot
If GUICtrlRead($login_bot) = "" Then
MsgBox(0,"Błąd","Nie wpisano loginu")
ElseIf GUICtrlRead($haslo_bot) = "" Then
MsgBox(0,"Błąd","Nie wpisano hasła")
Else
RegWrite("HKEY_CURRENT_USERSoftwareLightMetin2", "login", "REG_SZ", GUICtrlRead($login_bot))
RegWrite("HKEY_CURRENT_USERSoftwareLightMetin2", "haslo", "REG_SZ", GUICtrlRead($haslo_bot))
RegWrite("HKEY_CURRENT_USERSoftwareLightMetin2", "konto", "REG_SZ", "1")
MsgBox(0,"Operacja pomyślna","Stworzono konto, wykonaj ponowny rozruch programu")
EndIf
Case $zaloguj_bot
If GUICtrlRead($login_bot) = $bot_login Then
If GUICtrlRead($haslo_bot) = $bot_haslo Then
partia_logowanie_chowaj()
WinMove("EasyBot 0.1","",Default,Default,516, 300)
bot_pokaz()
Sleep(200)
kolory()
GUICtrlSetBkColor($menu_button, 0xA9A9A9)
numbery()
$menu_number = 1
partia_menu_pokaz()
Else
MsgBox(0,"Błąd","Złe hasło",5)
EndIf
Else
MsgBox(0,"Błąd","Zły login",5)
EndIf
Case $expbot
kolory()
GUICtrlSetBkColor($expbot, 0xA9A9A9)
chowaj_all()
Sleep(1)
numbery()
$expbot_number = 1
partia_expbot_pokaz()
case $m2bin3
WinActivate("METIN2")
Sleep(100)
Send("{g down}")
Sleep(1500)
Send("{g up}")
Sleep(100)
Send("{f down}")
Sleep(1500)
Send("{f up}")
Case $autopot
kolory()
GUICtrlSetBkColor($autopot, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
$autopot_number = 1
partia_autopot_pokaz()
Case $autoskil
kolory()
GUICtrlSetBkColor($autoskil, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
$autoskil_number = 1
partia_autoskil_pokaz()
Case $autologin
kolory()
GUICtrlSetBkColor($autologin, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
$autologin_number = 1
partia_autologin_pokaz()
Case $menu_button
kolory()
GUICtrlSetBkColor($menu_button, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
$menu_number = 1
partia_menu_pokaz()
Case $autorzy
kolory()
GUICtrlSetBkColor($autorzy, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
partia_autorzy_pokaz()
Case $inne
kolory()
GUICtrlSetBkColor($inne, 0xA9A9A9)
chowaj_all()
Sleep(200)
numbery()
partia_inne_pokaz()
Case $koordynuj
koord()
Case $hsblok
If ProcessExists("metin2client.bin") Or ProcessExists("metin2.exe") Then
MsgBox(0,"Błąd","Najpierw wyłącz grę",5)
Else
FileDelete("hackshieldehsvc.dll")
FileCopy("filesehsvc.dll","hshield")
GUICtrlSetData($labin_3,"Zablokowano hackshield..")
EndIf
Case $logowanie_on
serw()
channel()
postac()
plik()
Case $logowanie_off
FileDelete("logininfo.py")
Case $wyjdz_bot
Exit
EndSwitch
WEnd
Func oddawanie_expa()
If $start = 1 Then
If GUICtrlRead($exp_donate) = $GUI_CHECKED Then
If GUICtrlRead($kulka1) = $GUI_CHECKED Then
$jaka_kulkax = $x+115
$jaka_kulkay = $y-3
EndIf
        If GUICtrlRead($kulka2) = $GUI_CHECKED Then
$jaka_kulkax = $x+140
$jaka_kulkay = $y-3
EndIf
If GUICtrlRead($kulka3) = $GUI_CHECKED Then
$jaka_kulkax = $x+165
$jaka_kulkay = $y-3
EndIf
If GUICtrlRead($kulka4) = $GUI_CHECKED Then
$jaka_kulkax = $x+190
$jaka_kulkay = $y-3
EndIf
$experience = PixelGetColor($jaka_kulkax,$jaka_kulkay)
If $experience = 0xCBA332 Then
$start = 0
$inwestuj_1 = _ImageSearch("filesinwestuj_1.bmp",1,$x_1,$y_1,5)
If $inwestuj_1 = 1 Then
MouseClick("",$x_1,$y_1)
Sleep(5000)
$inwestuj_2 = _ImageSearch("filesgildia.bmp",1,$x_2,$y_2,5)
If $inwestuj_2 = 1 Then
MouseClick("",$x_2,$y_2)
Sleep(5000)
$inwestuj_3 = _ImageSearch("filesinwestuj_2.bmp",1,$x_3,$y_3,5)
If $inwestuj_3 = 1 Then
MouseClick("",$x_3,$y_3)
Sleep(2000)
Send("{Del down}")
Sleep(1000)
Send("{Del up}")
Sleep(500)
Send("{Del down}")
Sleep(1000)
Send("{Del up}")
Sleep(500)
Send("9999999999")
Sleep(2000)
Send("{Enter}")
Sleep(2000)
Send("{Esc down}")
Sleep(1000)
Send("{Esc up}")
Sleep(1000)
Send("{Esc down}")
Sleep(1000)
Send("{Esc up}")
Sleep(500)
$start = 1
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
 
Func plik()
FileDelete("logininfo.py")
FileWriteLine("logininfo.py","import serverInfo")
FileWriteLine("logininfo.py","serverNum=" & $serwer_num)
FileWriteLine("logininfo.py","serverChannel=" & $kanal)
FileWriteLine("logininfo.py","addr_new = serverInfo.REGION_DICT[0][serverNum]['channel'][serverChannel]['ip']")
FileWriteLine("logininfo.py","port_new = serverInfo.REGION_DICT[0][serverNum]['channel'][serverChannel]['tcp_port']")
FileWriteLine("logininfo.py","account_addr_new = serverInfo.REGION_AUTH_SERVER_DICT[0][serverNum]['ip']")
FileWriteLine("logininfo.py","account_port_new = serverInfo.REGION_AUTH_SERVER_DICT[0][serverNum]['port']")
FileWriteLine("logininfo.py","addr=addr_new")
FileWriteLine("logininfo.py","port=port_new")
FileWriteLine("logininfo.py","id=' " & GUICtrlRead($login) & "'")
FileWriteLine("logininfo.py","pwd='" & GUICtrlRead($haslo) & "'")
FileWriteLine("logininfo.py","account_addr=account_addr_new")
FileWriteLine("logininfo.py","account_port=account_port_new")
FileWriteLine("logininfo.py","slot=" & $postac)
FileWriteLine("logininfo.py","autoSelect=1")
FileWriteLine("logininfo.py","autoLogin=1")
EndFunc
Func logowanie()
If $autologin_number = 1 Then
If Not FileExists("logininfo.py") Then
GUICtrlSetData($logowanie_onoff,"Wyłączone")
Else
GUICtrlSetData($logowanie_onoff,"Włączone")
EndIf
EndIf
EndFunc
Func postac()
If GUICtrlRead($postac1) = $GUI_CHECKED Then
$postac = 0
EndIf
If GUICtrlRead($postac2) = $GUI_CHECKED Then
$postac = 1
EndIf
If GUICtrlRead($postac3) = $GUI_CHECKED Then
$postac = 2
EndIf
If GUICtrlRead($postac4) = $GUI_CHECKED Then
$postac = 3
EndIf
EndFunc
Func channel()
If GUICtrlRead($channel) = "CH1" Then
$kanal = 1
EndIf
If GUICtrlRead($channel) = "CH2" Then
$kanal = 2
EndIf
If GUICtrlRead($channel) = "CH3" Then
$kanal = 3
EndIf
If GUICtrlRead($channel) = "CH4" Then
$kanal = 4
EndIf
EndFunc
Func serw()
If GUICtrlRead($serwer) = "Monastyr" Then
$serwer_num = 1
EndIf
If GUICtrlRead($serwer) = "Feniks" Then
$serwer_num = 2
EndIf
If GUICtrlRead($serwer) = "Obsydian" Then
$serwer_num = 3
EndIf
If GUICtrlRead($serwer) = "Twierdza" Then
$serwer_num = 4
EndIf
If GUICtrlRead($serwer) = "Astral" Then
$serwer_num = 5
EndIf
If GUICtrlRead($serwer) = "Grymuar" Then
$serwer_num = 6
EndIf
If GUICtrlRead($serwer) = "Almanach" Then
$serwer_num = 7
EndIf
If GUICtrlRead($serwer) = "Onyks" Then
$serwer_num = 8
EndIf
If GUICtrlRead($serwer) = "Agronas" Then
$serwer_num = 9
EndIf
If GUICtrlRead($serwer) = "Gromo" Then
$serwer_num = 10
EndIf
If GUICtrlRead($serwer) = "Arkantes" Then
$serwer_num = 11
EndIf
If GUICtrlRead($serwer) = "Monolit" Then
$serwer_num = 12
EndIf
If GUICtrlRead($serwer) = "Exandros" Then
$serwer_num = 13
EndIf
If GUICtrlRead($serwer) = "Kirian" Then
$serwer_num = 14
EndIf
If GUICtrlRead($serwer) = "Eteor" Then
$serwer_num = 15
EndIf
If GUICtrlRead($serwer) = "Elares" Then
$serwer_num = 16
EndIf
If GUICtrlRead($serwer) = "Serwandes" Then
$serwer_num = 17
EndIf
If GUICtrlRead($serwer) = "Phobos" Then
$serwer_num = 18
EndIf
If GUICtrlRead($serwer) = "Deimos" Then
$serwer_num = 19
EndIf
If GUICtrlRead($serwer) = "Endurion" Then
$serwer_num = 20
EndIf
If GUICtrlRead($serwer) = "Candia" Then
$serwer_num = 21
EndIf
If GUICtrlRead($serwer) = "Orion" Then
$serwer_num = 22
EndIf
If GUICtrlRead($serwer) = "Kronos" Then
$serwer_num = 23
EndIf
If GUICtrlRead($serwer) = "Phantos" Then
$serwer_num = 24
EndIf
If GUICtrlRead($serwer) = "Syriusz" Then
$serwer_num = 25
EndIf
If GUICtrlRead($serwer) = "Solar" Then
$serwer_num = 26
EndIf
EndFunc
Func wstawanie()
If GUICtrlRead($auto_up) = $GUI_CHECKED Then
$image_wstawanie = _ImageSearch("fileswstawanie.bmp",1,$x_up,$y_up,5)
If $image_wstawanie = 1 Then
$start = 0
Sleep(20000)
MouseClick("",$x_up,$y_up,2)
Sleep(10000)
$start = 1
EndIf
EndIf
EndFunc
Func expbot()
If $start = 1 Then
Sleep(1)
If $szukam = 16 Then
$szukam = 0
$kolejna_strona +=1
If $kolejna_strona = 1 Then
MouseClick("",$x+328,$y-550);góra
Sleep(1)
EndIf
If $kolejna_strona = 2 Then
MouseClick("",$x+328,$y-45)ół
Sleep(1)
MouseClick("",$x+328,$y-45)ół
Sleep(1)
EndIf
If $kolejna_strona = 3 Then
MouseClick("",$x+328,$y-550);góra
Sleep(1)
MouseClick("",$x,$y-300);lewo
Sleep(1)
MouseClick("",$x+590,$y-300);prawo
Sleep(1)
EndIf
If $kolejna_strona = 4 Then
MouseClick("",$x+590,$y-300);prawo
Sleep(1)
MouseClick("",$x,$y-300);lewo
Sleep(1)
$kolejna_strona = 0
EndIf
EndIf
Sleep(1)
$area_one = PixelSearch($x,$y-510,$x+305,$y-45,0xEB1609,5)
If Not @error Then
MouseClick("",$area_one[0]+Random(-5,20,1),$area_one[1],1,0)
Sleep(1)
$szukam = 0
Else
$szukam+=1
Sleep(1)
$area_two = PixelSearch($x+390,$y-510,$x+590,$y-45,0xEB1609,5)
If Not @error Then
MouseClick("",$area_two[0]+Random(-5,20,1),$area_two[1],1,0)
Sleep(1)
$szukam = 0
Else
$szukam+=1
Sleep(1)
$area_three = PixelSearch($x,$y-510,$x+590,$y-327,0xEB1609,5)
If Not @error Then
MouseClick("",$area_three[0]+Random(-5,20,1),$area_three[1],1,0)
Sleep(1)
$szukam = 0
Else
$szukam+=1
Sleep(1)
$area_four = PixelSearch($x,$y-240,$x+590,$y-45,0xEB1609,5)
If Not @error Then
MouseClick("",$area_four[0]+Random(-5,20,1),$area_four[1],1,0)
Sleep(1)
$szukam = 0
Else
$szukam+=1
skil1()
skil2()
skil3()
skil4()
skil5()
skil6()
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc
Func skil1()
If $start = 1 Then
If GUICtrlRead($slot1) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_1)*1000)
Send("{1}")
EndIf
EndIf
EndFunc
Func skil2()
If $start = 1 Then
If GUICtrlRead($slot2) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_2)*1000)
Send("{2}")
EndIf
EndIf
EndFunc
Func skil3()
If $start = 1 Then
If GUICtrlRead($slot3) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_3)*1000)
Send("{3}")
EndIf
EndIf
EndFunc
Func skil4()
If $start = 1 Then
If GUICtrlRead($slot4) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_4)*1000)
Send("{4}")
EndIf
EndIf
EndFunc
Func skil5()
If $start = 1 Then
If GUICtrlRead($slot5) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_5)*1000)
Send("{F1}")
EndIf
EndIf
EndFunc
Func skil6()
If $start = 1 Then
If GUICtrlRead($slot6) = $GUI_CHECKED Then
Sleep(GUICtrlRead($del_6))
Send("{F2}")
EndIf
EndIf
EndFunc
Func start()
GUICtrlSetState($expbot,$GUI_DISABLE)
GUICtrlSetState($autopot,$GUI_DISABLE)
GUICtrlSetState($autoskil,$GUI_DISABLE)
GUICtrlSetState($autologin,$GUI_DISABLE)
GUICtrlSetState($autorzy,$GUI_DISABLE)
GUICtrlSetState($inne,$GUI_DISABLE)
GUICtrlSetState($menu_button,$GUI_DISABLE)
kolory()
GUICtrlSetBkColor($inne, 0xffffFF)
chowaj_all()
Sleep(200)
numbery()
partia_inne_pokaz()
$start = 1
EndFunc
Func wyjdz()
Exit
EndFunc
Func stop()
$start = 0
GUICtrlSetState($menu_button,$GUI_ENABLE)
GUICtrlSetState($expbot,$GUI_ENABLE)
GUICtrlSetState($autopot,$GUI_ENABLE)
GUICtrlSetState($autoskil,$GUI_ENABLE)
GUICtrlSetState($autologin,$GUI_ENABLE)
GUICtrlSetState($autorzy,$GUI_ENABLE)
GUICtrlSetState($inne,$GUI_ENABLE)
EndFunc
Func koord()
$szukany = _ImageSearch("filesleft_hpmp.bmp",1,$x,$y,5)
If $szukany = 1 Then
Sleep(500)
GUICtrlSetState($expbot,$GUI_ENABLE)
GUICtrlSetState($autopot,$GUI_ENABLE)
GUICtrlSetState($autoskil,$GUI_ENABLE)
GUICtrlSetState($autologin,$GUI_ENABLE)
GUICtrlSetState($autorzy,$GUI_ENABLE)
GUICtrlSetState($inne,$GUI_ENABLE)
GUICtrlSetState($menu_button,$GUI_ENABLE)
GUICtrlSetData($labin_2,"Współrzędne ustalone..")
EndIf
EndFunc
Func poter_hp()
If $start = 1 Then
If GUICtrlRead($reg_zycie) = $GUI_CHECKED Then
If GUICtrlRead($slide_hp) = 10 Then
$hp_100 = PixelGetColor($x+95,$y-6)
If $hp_100 = 0x2C2C2C Then
For $i = 0 to 20
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 9 Then
$hp_90 = PixelGetColor($x+85,$y-6)
If $hp_90 = 0x2C2C2C Then
For $i = 0 to 20
Send("{F4}")
Next
EndIf
endif
If GUICtrlRead($slide_hp) = 8 Then
$hp_80 = PixelGetColor($x+75,$y-6)
If $hp_80 = 0x2C2C2C Then
For $i = 0 to 20
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 7 Then
$hp_70 = PixelGetColor($x+65,$y-6)
If $hp_70 = 0x2C2C2C Then
For $i = 0 to 20
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 6 Then
$hp_60 = PixelGetColor($x+55,$y-6)
If $hp_60 = 0x2C2C2C Then
For $i = 0 to 20
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 5 Then
$hp_50 = PixelGetColor($x+45,$y-6)
If $hp_50 = 0x2C2C2C Then
For $i = 0 to 30
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 4 Then
$hp_40 = PixelGetColor($x+35,$y-6)
If $hp_40 = 0x2C2C2C Then
For $i = 0 to 30
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 3 Then
$hp_30 = PixelGetColor($x+25,$y-6)
If $hp_30 = 0x2C2C2C Then
For $i = 0 to 30
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 2 Then
$hp_20 = PixelGetColor($x+15,$y-6)
If $hp_20 = 0x2C2C2C Then
For $i = 0 to 30
Send("{F4}")
Next
EndIf
EndIf
If GUICtrlRead($slide_hp) = 1 Then
$hp_10 = PixelGetColor($x+8,$y-6)
If $hp_10 = 0x2C2C2C Then
For $i = 0 to 40
Send("{F4}")
Next
EndIf
EndIf
EndIf
EndIf
EndFunc
Func poter_mp()
If $start = 1 Then
If GUICtrlRead($reg_mana) = $GUI_CHECKED Then
If GUICtrlRead($slide_mp) = 10 Then
$mp_100 = PixelGetColor($x+95,$y+5)
If $mp_100 = 0x222222 Then
For $i = 0 to 20
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 9 Then
$mp_90 = PixelGetColor($x+85,$y+5)
If $mp_90 = 0x222222 Then
For $i = 0 to 20
Send("{F3}")
Next
EndIf
endif
If GUICtrlRead($slide_mp) = 8 Then
$mp_80 = PixelGetColor($x+75,$y+5)
If $mp_80 = 0x222222 Then
For $i = 0 to 20
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 7 Then
$mp_70 = PixelGetColor($x+65,$y+5)
If $mp_70 = 0x222222 Then
For $i = 0 to 20
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 6 Then
$mp_60 = PixelGetColor($x+55,$y+5)
If $mp_60 = 0x222222 Then
For $i = 0 to 20
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 5 Then
$mp_50 = PixelGetColor($x+45,$y+5)
If $mp_50 = 0x222222 Then
For $i = 0 to 30
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 4 Then
$mp_40 = PixelGetColor($x+35,$y+5)
If $mp_40 = 0x222222 Then
For $i = 0 to 30
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 3 Then
$mp_30 = PixelGetColor($x+25,$y+5)
If $mp_30 = 0x222222 Then
For $i = 0 to 30
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 2 Then
$mp_20 = PixelGetColor($x+15,$y+5)
If $mp_20 = 0x222222 Then
For $i = 0 to 30
Send("{F3}")
Next
EndIf
EndIf
If GUICtrlRead($slide_mp) = 1 Then
$mp_10 = PixelGetColor($x+8,$y+5)
If $mp_10 = 0x222222 Then
For $i = 0 to 40
Send("{F3}")
Next
EndIf
EndIf
EndIf
EndIf
EndFunc
Func zbieranie()
If $start = 1 Then
If GUICtrlRead($zbieranie) = $GUI_CHECKED Then
$delay = GUICtrlRead($szybkosc_zbieranie)
If $delay = 1 Then
Sleep(900)
Send("z")
EndIf
If $delay = 2 Then
Sleep(800)
Send("z")
EndIf
If $delay = 3 Then
Sleep(700)
Send("z")
EndIf
If $delay = 4 Then
Sleep(600)
Send("z")
EndIf
If $delay = 5 Then
Sleep(500)
Send("z")
EndIf
If $delay = 6 Then
Sleep(400)
Send("z")
EndIf
If $delay = 7 Then
Sleep(300)
Send("z")
EndIf
If $delay = 8 Then
Sleep(200)
Send("z")
EndIf
If $delay = 9 Then
Sleep(100)
Send("z")
EndIf
If $delay = 10 Then
Sleep(50)
Send("z")
EndIf
EndIf
EndIf
EndFunc
Func kolory()
GUICtrlSetBkColor($expbot, 0xFFFFFF)
GUICtrlSetBkColor($autopot, 0xFFFFFF)
GUICtrlSetBkColor($autoskil, 0xFFFFFF)
GUICtrlSetBkColor($autologin, 0xFFFFFF)
GUICtrlSetBkColor($menu_button, 0xFFFFFF)
GUICtrlSetBkColor($autorzy, 0xFFFFFF)
GUICtrlSetBkColor($inne, 0xFFFFFF)
EndFunc
Func czas()
If $menu_number = 1 Then
GUICtrlSetData($aktualna, @HOUR & ':' & "" & @MIN & ':' & @SEC)
 EndIf
If GUICtrlRead($komputer_off) = $GUI_CHECKED Then
 If @HOUR = GUICtrlRead($godzina) Then
      Exit
  EndIf
  EndIf
EndFunc
Func chowaj_all()
partia_expbot_chowaj()
partia_autopot_chowaj()
partia_autoskil_chowaj()
partia_autologin_chowaj()
    partia_menu_chowaj()
partia_autorzy_chowaj()
partia_inne_chowaj()
EndFunc
Func partia_inne_chowaj()
GUICtrlSetState($got1,$GUI_HIDE)
GUICtrlSetState($Edit1,$GUI_HIDE)
GUICtrlSetState($m2bin3,$GUI_HIDE)
GUICtrlSetState($m2bin4,$GUI_HIDE)
EndFunc
Func partia_inne_pokaz()
GUICtrlSetState($got1,$GUI_SHOW)
GUICtrlSetState($Edit1,$GUI_SHOW)
GUICtrlSetState($m2bin3,$GUI_SHOW)
GUICtrlSetState($m2bin4,$GUI_SHOW)
EndFunc
Func partia_autorzy_pokaz()
GUICtrlSetState($libon_1,$GUI_SHOW)
GUICtrlSetState($libon_2,$GUI_SHOW)
GUICtrlSetState($autorzy_pic,$GUI_SHOW)
EndFunc
Func partia_autorzy_chowaj()
GUICtrlSetState($libon_1,$GUI_HIDE)
GUICtrlSetState($libon_2,$GUI_HIDE)
GUICtrlSetState($autorzy_pic,$GUI_HIDE)
EndFunc
Func partia_logowanie_chowaj()
GUICtrlSetState($lol,$GUI_HIDE)
GUICtrlSetState($lol_1,$GUI_HIDE)
GUICtrlSetState($login_bot,$GUI_HIDE)
GUICtrlSetState($haslo_bot,$GUI_HIDE)
GUICtrlSetState($create_bot,$GUI_HIDE)
GUICtrlSetState($zaloguj_bot,$GUI_HIDE)
GUICtrlSetState($wyjdz_bot,$GUI_HIDE)
EndFunc
Func partia_menu_chowaj()
GUICtrlSetState($labin_2,$GUI_HIDE)
GUICtrlSetState($labin_3,$GUI_HIDE)
GUICtrlSetState($labin_4,$GUI_HIDE)
GUICtrlSetState($labin_5,$GUI_HIDE)
GUICtrlSetState($koordynuj,$GUI_HIDE)
GUICtrlSetState($hsblok,$GUI_HIDE)
GUICtrlSetState($komputer_off,$GUI_HIDE)
GUICtrlSetState($aktualna,$GUI_HIDE)
GUICtrlSetState($godzina,$GUI_HIDE)
GUICtrlSetState($up_godzina,$GUI_HIDE)
GUICtrlSetState($up_godzina,$GUI_DISABLE)
GUICtrlSetState($napis,$GUI_HIDE)
 
EndFunc
Func partia_menu_pokaz()
GUICtrlSetState($up_godzina,$GUI_SHOW)
GUICtrlSetState($labin_2,$GUI_SHOW)
GUICtrlSetState($labin_3,$GUI_SHOW)
GUICtrlSetState($labin_4,$GUI_SHOW)
GUICtrlSetState($labin_5,$GUI_SHOW)
GUICtrlSetState($koordynuj,$GUI_SHOW)
GUICtrlSetState($hsblok,$GUI_SHOW)
GUICtrlSetState($komputer_off,$GUI_SHOW)
GUICtrlSetState($aktualna,$GUI_SHOW)
GUICtrlSetState($godzina,$GUI_SHOW)
GUICtrlSetState($up_godzina,$GUI_ENABLE)
GUICtrlSetState($napis,$GUI_SHOW)
EndFunc
Func partia_autologin_chowaj()
GUICtrlSetState($labele_1,$GUI_HIDE)
GUICtrlSetState($labele_2,$GUI_HIDE)
GUICtrlSetState($labele_3,$GUI_HIDE)
GUICtrlSetState($labele_4,$GUI_HIDE)
GUICtrlSetState($labele_5,$GUI_HIDE)
GUICtrlSetState($labele_8,$GUI_HIDE)
GUICtrlSetState($login,$GUI_HIDE)
GUICtrlSetState($haslo,$GUI_HIDE)
GUICtrlSetState($channel,$GUI_HIDE)
GUICtrlSetState($serwer,$GUI_HIDE)
GUICtrlSetState($postac1,$GUI_HIDE)
GUICtrlSetState($postac2,$GUI_HIDE)
GUICtrlSetState($postac3,$GUI_HIDE)
GUICtrlSetState($postac4,$GUI_HIDE)
GUICtrlSetState($logowanie_off,$GUI_HIDE)
GUICtrlSetState($logowanie_on,$GUI_HIDE)
GUICtrlSetState($logowanie_onoff,$GUI_HIDE)
EndFunc
Func partia_autologin_pokaz()
GUICtrlSetState($labele_1,$GUI_SHOW)
GUICtrlSetState($labele_2,$GUI_SHOW)
GUICtrlSetState($labele_3,$GUI_SHOW)
GUICtrlSetState($labele_4,$GUI_SHOW)
GUICtrlSetState($labele_5,$GUI_SHOW)
GUICtrlSetState($labele_8,$GUI_SHOW)
GUICtrlSetState($login,$GUI_SHOW)
GUICtrlSetState($haslo,$GUI_SHOW)
GUICtrlSetState($channel,$GUI_SHOW)
GUICtrlSetState($serwer,$GUI_SHOW)
GUICtrlSetState($postac1,$GUI_SHOW)
GUICtrlSetState($postac2,$GUI_SHOW)
GUICtrlSetState($postac3,$GUI_SHOW)
GUICtrlSetState($postac4,$GUI_SHOW)
GUICtrlSetState($logowanie_off,$GUI_SHOW)
GUICtrlSetState($logowanie_on,$GUI_SHOW)
GUICtrlSetState($logowanie_onoff,$GUI_SHOW)
EndFunc
Func partia_autoskil_chowaj()
GUICtrlSetState($slot1,$GUI_HIDE)
GUICtrlSetState($slot2,$GUI_HIDE)
GUICtrlSetState($slot3,$GUI_HIDE)
GUICtrlSetState($slot4,$GUI_HIDE)
GUICtrlSetState($slot5,$GUI_HIDE)
GUICtrlSetState($slot6,$GUI_HIDE)
GUICtrlSetState($del_1,$GUI_HIDE)
GUICtrlSetState($del_2,$GUI_HIDE)
GUICtrlSetState($del_3,$GUI_HIDE)
GUICtrlSetState($del_4,$GUI_HIDE)
GUICtrlSetState($del_5,$GUI_HIDE)
GUICtrlSetState($del_6,$GUI_HIDE)
GUICtrlSetState($labo_1,$GUI_HIDE)
GUICtrlSetState($labo_2,$GUI_HIDE)
EndFunc
Func partia_autoskil_pokaz()
GUICtrlSetState($slot1,$GUI_SHOW)
GUICtrlSetState($slot2,$GUI_SHOW)
GUICtrlSetState($slot3,$GUI_SHOW)
GUICtrlSetState($slot4,$GUI_SHOW)
GUICtrlSetState($slot5,$GUI_SHOW)
GUICtrlSetState($slot6,$GUI_SHOW)
GUICtrlSetState($del_1,$GUI_SHOW)
GUICtrlSetState($del_2,$GUI_SHOW)
GUICtrlSetState($del_3,$GUI_SHOW)
GUICtrlSetState($del_4,$GUI_SHOW)
GUICtrlSetState($del_5,$GUI_SHOW)
GUICtrlSetState($del_6,$GUI_SHOW)
GUICtrlSetState($labo_1,$GUI_SHOW)
GUICtrlSetState($labo_2,$GUI_SHOW)
EndFunc
Func partia_autopot_chowaj()
GUICtrlSetState($Label1,$GUI_HIDE)
GUICtrlSetState($Label2,$GUI_HIDE)
GUICtrlSetState($slide_hp,$GUI_HIDE)
GUICtrlSetState($slide_mp,$GUI_HIDE)
GUICtrlSetState($Label3,$GUI_HIDE)
GUICtrlSetState($Label4,$GUI_HIDE)
GUICtrlSetState($Label5,$GUI_HIDE)
GUICtrlSetState($Label6,$GUI_HIDE)
GUICtrlSetState($Label7,$GUI_HIDE)
GUICtrlSetState($reg_mana,$GUI_HIDE)
GUICtrlSetState($reg_zycie,$GUI_HIDE)
GUICtrlSetState($Pic1,$GUI_HIDE)
EndFunc
Func partia_autopot_pokaz()
GUICtrlSetState($Label1,$GUI_SHOW)
GUICtrlSetState($Label2,$GUI_SHOW)
GUICtrlSetState($slide_hp,$GUI_SHOW)
GUICtrlSetState($slide_mp,$GUI_SHOW)
GUICtrlSetState($Label3,$GUI_SHOW)
GUICtrlSetState($Label4,$GUI_SHOW)
GUICtrlSetState($Label5,$GUI_SHOW)
GUICtrlSetState($Label6,$GUI_SHOW)
GUICtrlSetState($Label7,$GUI_SHOW)
GUICtrlSetState($reg_mana,$GUI_SHOW)
GUICtrlSetState($reg_zycie,$GUI_SHOW)
GUICtrlSetState($Pic1,$GUI_SHOW)
EndFunc
Func partia_expbot_chowaj()
GUICtrlSetState($zbieranie,$GUI_HIDE)
GUICtrlSetState($szybkosc_zbieranie,$GUI_HIDE)
              GUICtrlSetState($up_1,$GUI_HIDE)
GUICtrlSetState($lab1,$GUI_HIDE)
GUICtrlSetState($auto_up,$GUI_HIDE)
GUICtrlSetState($exp_donate,$GUI_HIDE)
GUICtrlSetState($kulka1,$GUI_HIDE)
GUICtrlSetState($kulka2,$GUI_HIDE)
GUICtrlSetState($kulka3,$GUI_HIDE)
GUICtrlSetState($kulka4,$GUI_HIDE)
EndFunc
Func partia_expbot_pokaz()
GUICtrlSetState($zbieranie,$GUI_SHOW)
GUICtrlSetState($szybkosc_zbieranie,$GUI_SHOW)
GUICtrlSetState($lab1,$GUI_SHOW)
GUICtrlSetState($auto_up,$GUI_SHOW)
GUICtrlSetState($exp_donate,$GUI_SHOW)
GUICtrlSetState($kulka1,$GUI_SHOW)
GUICtrlSetState($kulka2,$GUI_SHOW)
GUICtrlSetState($kulka3,$GUI_SHOW)
GUICtrlSetState($kulka4,$GUI_SHOW)
GUICtrlSetState($up_1,$GUI_SHOW)
GUICtrlSetState($up_1,$GUI_ENABLE)
EndFunc
Func bot_chowaj()
GUICtrlSetState($Group1,$GUI_HIDE)
GUICtrlSetState($expbot,$GUI_HIDE)
GUICtrlSetState($autopot,$GUI_HIDE)
GUICtrlSetState($autoskil,$GUI_HIDE)
GUICtrlSetState($autologin,$GUI_HIDE)
GUICtrlSetState($menu_button,$GUI_HIDE)
GUICtrlSetState($autorzy,$GUI_HIDE)
GUICtrlSetState($inne,$GUI_HIDE)
GUICtrlSetState($wyjscie,$GUI_HIDE)
GUICtrlSetState($Group1_lou,$GUI_HIDE)
EndFunc
Func bot_pokaz()
GUICtrlSetState($Group1,$GUI_SHOW)
GUICtrlSetState($expbot,$GUI_SHOW)
GUICtrlSetState($autopot,$GUI_SHOW)
GUICtrlSetState($autoskil,$GUI_SHOW)
GUICtrlSetState($autologin,$GUI_SHOW)
GUICtrlSetState($menu_button,$GUI_SHOW)
GUICtrlSetState($autorzy,$GUI_SHOW)
GUICtrlSetState($inne,$GUI_SHOW)
GUICtrlSetState($wyjscie,$GUI_SHOW)
GUICtrlSetState($Group1_lou,$GUI_SHOW)
EndFunc
Func numbery()
$expbot_number = 0
$autopot_number = 0
$autoskil_number = 0
$autologin_number = 0
$menu_number = 0
EndFunc
Func blokada()
 
If $menu_number = 1 Then
If GUICtrlRead($komputer_off) = $GUI_CHECKED Then
GUICtrlSetState($up_godzina,$GUI_ENABLE)
Else
GUICtrlSetState($up_godzina,$GUI_DISABLE)
EndIf
EndIf
 
If $autoskil_number = 1 Then
If GUICtrlRead($slot1) = $GUI_CHECKED Then
GUICtrlSetState($del_1,$GUI_ENABLE)
Else
GUICtrlSetState($del_1,$GUI_DISABLE)
EndIf
If GUICtrlRead($slot2) = $GUI_CHECKED Then
GUICtrlSetState($del_2,$GUI_ENABLE)
Else
GUICtrlSetState($del_2,$GUI_DISABLE)
EndIf
If GUICtrlRead($slot3) = $GUI_CHECKED Then
GUICtrlSetState($del_3,$GUI_ENABLE)
Else
GUICtrlSetState($del_3,$GUI_DISABLE)
EndIf
If GUICtrlRead($slot4) = $GUI_CHECKED Then
GUICtrlSetState($del_4,$GUI_ENABLE)
Else
GUICtrlSetState($del_4,$GUI_DISABLE)
EndIf
If GUICtrlRead($slot5) = $GUI_CHECKED Then
GUICtrlSetState($del_5,$GUI_ENABLE)
Else
GUICtrlSetState($del_5,$GUI_DISABLE)
EndIf
If GUICtrlRead($slot6) = $GUI_CHECKED Then
GUICtrlSetState($del_6,$GUI_ENABLE)
Else
GUICtrlSetState($del_6,$GUI_DISABLE)
EndIf
EndIf
 
 
 
 
If $autopot_number = 1 Then
GUICtrlSetData($Label3,GUICtrlRead($slide_hp)*10)
GUICtrlSetData($Label4,GUICtrlRead($slide_mp)*10)
If GUICtrlRead($reg_zycie) = $GUI_CHECKED Then
GUICtrlSetState($slide_hp,$GUI_ENABLE)
Else
GUICtrlSetState($slide_hp,$GUI_DISABLE)
EndIf
If GUICtrlRead($reg_mana) = $GUI_CHECKED Then
GUICtrlSetState($slide_mp,$GUI_ENABLE)
Else
GUICtrlSetState($slide_mp,$GUI_DISABLE)
EndIf
EndIf
If $expbot_number = 1 Then
If GUICtrlRead($zbieranie) = $GUI_CHECKED Then
GUICtrlSetState($up_1,$GUI_ENABLE)
Else
GUICtrlSetState($up_1,$GUI_DISABLE)
EndIf
If GUICtrlRead($exp_donate) = $GUI_CHECKED Then
GUICtrlSetState($kulka1,$GUI_ENABLE)
GUICtrlSetState($kulka2,$GUI_ENABLE)
GUICtrlSetState($kulka3,$GUI_ENABLE)
GUICtrlSetState($kulka4,$GUI_ENABLE)
Else
GUICtrlSetState($kulka1,$GUI_DISABLE)
GUICtrlSetState($kulka2,$GUI_DISABLE)
GUICtrlSetState($kulka3,$GUI_DISABLE)
GUICtrlSetState($kulka4,$GUI_DISABLE)
EndIf
EndIf
EndFunc



Możliwe, że komuś się przyda.

Pozdrawiam i powodzenia, kris006!