Pferde-Buff Autoit

[RettAss]

Um es einzubinden ganz einfach oben in deinem script " #include <NomadMemory.au3>" hinschreiben und schon is es eingebunden^^

EDIT: Mist zu langsam -.- ^^

[Mogile]

Originally Posted by KillerDeluxe

#include <Memory.au3> → #include <NomadMemory.au3>

achso , dachte immer ich hätte <NomadMemory.au3> da stehen. danke

kann mir jemand sagen warum die fehlermeldung kommt beim Starten des Bots ?

$ReadPointer = _MemoryPointerRead($Base, $Handle, $Pointer, $Type)
$ReadPointer = ^ ERROR

[KDeluxe]

Du hast die falsche.

[Mogile]

kann es sein das ich die falsche Base eingegeben habe ? Hab die Base 1 eingegeben. Aber während ich kämpfe versucht er trotzdem sich aufs Pferd zu setzen und zu buffen.Hier nochmal der Code:

#Include <Timers.au3>
#include <NomadMemory.au3>

Global $TitleID
$LCTitleID = "LastChaos - Mail.ru"

;Base & Offset
Global Const $Base = 0x10659AE8;Pointer(Base)


Global $AFight[5] ;dword
$AFight[0] = 0
$AFight[1] = 0X1C
$AFight[2] = 0X10
$AFight[3] = 0X04
$AFight[4] = 0XE18


Func ReadValue($Pointer,$Type)
Local $ProcessID
Local $Handle
Local $ReadPointer
Local $Value

$ProcessID = WinGetProcess($LCTitleID)
$Handle = _MemoryOpen($ProcessID)

$ReadPointer = _MemoryPointerRead($Base, $Handle, $Pointer, $Type)
$Value = $ReadPointer

_MemoryClose($Handle)
Return $Value
EndFunc

Dim $ImKampf
Dim $BuffTimer

$BuffTimer=_Timer_Init()

While 1

$ImKampf=ReadValue($AFight,'dword')

If $ImKampf=0 and _Timer_Diff($BuffTimer)>8000 Then
MouseClick ( "left" , 1111, 888 , 2, 0 )
Sleep (1000)
MouseClick ( "left" , 578 , 180 , 2 , 0 )
Sleep (1000)
MouseClick ( "left" , 565 , 409 ,2 ,0 )
sleep (1000)
MouseClick ( "left" , 566 , 444 , 2 ,0 )
Sleep (2000)
MouseClick ( "left" , 1111, 888 , 2 , 0 )
Sleep ( 1000 )
MouseClick ( "left" , 938 , 890 , 2 , 0 )
EndIf

Sleep (500)

WEnd

[Mogile]

ich hab mal versucht eine Start/Stop funktion einzubauen. Aber wenn ich den bot starte , passiert nicht. Kann mir einer sagen warum ?

Script:

HotKeySet ( "{F5}","start")
HotKeySet ( "{ESC}","stop")



#Include <Timers.au3>
#include <NomadMemory.au3>

Global $TitleID
$LCTitleID = "LastChaos - Mail.ru"

;Base & Offset
Global Const $Base = 0x10659AE8;Pointer(Base)


Global $AFight[5] ;dword
$AFight[0] = 0
$AFight[1] = 0X1C
$AFight[2] = 0X10
$AFight[3] = 0X04
$AFight[4] = 0XE18


Func ReadValue($Pointer,$Type)
Local $ProcessID
Local $Handle
Local $ReadPointer
Local $Value

$ProcessID = WinGetProcess($LCTitleID)
$Handle = _MemoryOpen($ProcessID)

$ReadPointer = _MemoryPointerRead($Base, $Handle, $Pointer, $Type)
$Value = $ReadPointer

_MemoryClose($Handle)
Return $Value
EndFunc

func start ()
Dim $ImKampf
Dim $BuffTimer

$BuffTimer=_Timer_Init()

While 1

$ImKampf=ReadValue($AFight,'dword')

If $ImKampf=0 and _Timer_Diff($BuffTimer)>8000 Then
MouseClick ( "left" , 1111, 888 , 2, 0 )
Sleep (1000)
MouseClick ( "left" , 578 , 180 , 2 , 0 )
Sleep (1000)
MouseClick ( "left" , 565 , 409 ,2 ,0 )
sleep (1000)
MouseClick ( "left" , 566 , 444 , 2 ,0 )
Sleep (2000)
MouseClick ( "left" , 1111, 888 , 2 , 0 )
Sleep ( 1000 )
MouseClick ( "left" , 938 , 890 , 2 , 0 )
EndIf

Sleep (500)

WEnd

EndFunc

func stop ()
Exit
EndFunc

[RettAss]

Originally Posted by Mogile

ich hab mal versucht eine Start/Stop funktion einzubauen. Aber wenn ich den bot starte , passiert nicht. Kann mir einer sagen warum ?

Script:

HotKeySet ( "{F5}","start")
HotKeySet ( "{ESC}","stop")



#Include <Timers.au3>
#include <NomadMemory.au3>

Global $TitleID
$LCTitleID = "LastChaos - Mail.ru"

;Base & Offset
Global Const $Base = 0x10659AE8;Pointer(Base)


Global $AFight[5] ;dword
$AFight[0] = 0
$AFight[1] = 0X1C
$AFight[2] = 0X10
$AFight[3] = 0X04
$AFight[4] = 0XE18


Func ReadValue($Pointer,$Type)
Local $ProcessID
Local $Handle
Local $ReadPointer
Local $Value

$ProcessID = WinGetProcess($LCTitleID)
$Handle = _MemoryOpen($ProcessID)

$ReadPointer = _MemoryPointerRead($Base, $Handle, $Pointer, $Type)
$Value = $ReadPointer

_MemoryClose($Handle)
Return $Value
EndFunc

func start ()
Dim $ImKampf
Dim $BuffTimer

$BuffTimer=_Timer_Init()

While 1

$ImKampf=ReadValue($AFight,'dword')

If $ImKampf=0 and _Timer_Diff($BuffTimer)>8000 Then
MouseClick ( "left" , 1111, 888 , 2, 0 )
Sleep (1000)
MouseClick ( "left" , 578 , 180 , 2 , 0 )
Sleep (1000)
MouseClick ( "left" , 565 , 409 ,2 ,0 )
sleep (1000)
MouseClick ( "left" , 566 , 444 , 2 ,0 )
Sleep (2000)
MouseClick ( "left" , 1111, 888 , 2 , 0 )
Sleep ( 1000 )
MouseClick ( "left" , 938 , 890 , 2 , 0 )
EndIf

Sleep (500)

WEnd

EndFunc

func stop ()
Exit
EndFunc

Könnte sein, weil F5 und ESC von lc schon in benutzung sind, "nur eine vermutung"