[SZUKAM] Bot na dragon ball legends

[rolka515]

Witam. sprawdzałem już http://www.mpcforum.pl/topic/1350326-elfbot-pokemon-dragon-ball-naruto-i-inne-razem-ze-zdj%C4%99ciami-co-i-jak/#entry11830661 ale nie działa. Nie wiem co mam dalej zrobić. chodzi mi tylko o trenowanie m lvl, a żaden bot albo nie działa, albo jest na starym rapidzie, albo plik jest usunięty. 

[rafaeru]

dbl jest pod stary protokol: 7.6 albo 7.92 wiec nie ma elfbota pod niego

musisz sobie sam w auto it napisac jakiegos prostego albo taskera uzywac

[rolka515]

Nie znalazłem żadnego działającego taskera. Przy każdym ściągniętym wywala mi bluescreen, albo muszę resetować kompa bo nie otwiera się nawet menager. 

Może ma ktoś jakiś poradnik jak w autoicie mógłbym napisać bota, który trenuje m lvl?

 

 

#include <NomadMemory.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$PID = ProcessExists('Tibia.exe')
$Memory = _MemoryOpen($PID)
$baseAdress = _MemoryGetBaseAddress($MO, 1)
;~ MsgBox(0, '', $BaseAdress);baseadress


$Form = GUICreate("TiBot", 156, 222, 14, 107)
$Heal = GUICtrlCreateCheckbox("Heal", 8, 10, 97, 17)
$Skill = GUICtrlCreateCheckbox("Skill", 8, 30, 97, 17)
$Label1 = GUICtrlCreateLabel("", 8, 56,150, 17)
GUISetState(@SW_SHOW)
WinSetOnTop( $Form, "",1 )
WinSetTrans($Form, '', 100)






$PlayerHealth = 0x7e2cd4 - 0x400000 + $baseAdress;hp
$PlayerHealthMax = 0x81cea0 - 0x400000 + $baseAdress;hpmax
$PlayerMana = 0x81ce5c - 0x400000 + $baseAdress;mp




$glod = 0;wrazie gdybysmy mieli food w bp




$Timer = TimerInit()
$Timer_Heal = TimerInit()
$Timer_skill = TimerInit()
$Timer_Food = TimerInit()


Do
        If TimerDiff($Timer) >= 500 Then
                $Timer = TimerInit()
                $HP = _MemoryRead($PlayerHealth, $Memory);czyta z pamieci gry ilosc hp
                $HPMax = _MemoryRead($PlayerHealthMax, $Memory);hpmsx
                $MP = _MemoryRead($PlayerMana, $Memory);mp
                $hp_gdy_lecz = ($HP * 100) / $HPMax;zamienia hp na %
                GUICtrlSetData($Label1, "HP: " & $HP & "   " & "MP: " & $MP)
        EndIf
        If TimerDiff($Timer_Food) >= 779800 Then
                $Timer_Food = TimerInit()
                $glod = 0
        EndIf
        Switch GUICtrlRead($Heal)
                Case 1
                        Heal()
        EndSwitch
        Switch GUICtrlRead($Skill)
                Case 1
                        Skill()
        EndSwitch


Until GUIGetMsg() = -3


Func Heal()
        If TimerDiff($Timer_Heal) >= 950 Then
                $Timer_Heal = TimerInit()
                If $hp_gdy_lecz < 90 Then
                        If $MP >= 40 Then
                                ControlSend("[CLASS:TibiaClient]", "", "", "{f12}")
                        Else
                                ControlSend("[CLASS:TibiaClient]", "", "", "{f11}")
                        EndIf
                Else
                        If $glod = 0 Then
                                ControlSend("[CLASS:TibiaClient]", "", "", "{f1}")
                        EndIf
                EndIf
        EndIf
EndFunc   ;==>Heal
Func Skill()
        If TimerDiff($Timer_skill) >= 950 Then
                $Timer_skill = TimerInit()
                If $MP >= 40 Then
                        ControlSend("[CLASS:TibiaClient]", "", "", "{f12}")
                ElseIf $glod = 0 Then
                        ControlSend("[CLASS:TibiaClient]", "", "", "{f1}")
                        $glod = 1
                elseif $hp < 1000 then
                        ControlSend("[CLASS:TibiaClient]", "", "", "{f11}")
                        ControlSend("[CLASS:TibiaClient]", "", "", "{f12}")
                EndIf
        EndIf
EndFunc   ;==>Skill

 

 

 

Zrobiłem coś takiego w autoit ale mi coś nie działa. Nie wiem co jest nie tak, bo siedze w tym od 15 minut pomoże ktoś? Wyskakuje mi problem przy baseAdress i nie wiem co dalej ;c

[Grotos]

na dblu dziala blackD proxy