Pferde-Buff Autoit

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

EDIT: Mist zu langsam -.- ^^

Quote:

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

Du hast die falsche.

[Only registered and activated users can see links. Click Here To Register...]

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

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

Quote:

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"