Hier mein Para Stygier Bot...leider komm ich nicht mehr weiter uswusf...deshalb stell ich den bot -ausserhalb meiner Gewohnheiten- den Bot 2 wochen verfrüht rein ;)
Es geht darum, im Stygischen Schleier die Stygischen Hunger mit P/E im HM mit diesem Build:
zu farmen.
Eigentlich (wie so oft) wollte ich ihn verkaufen, doch ich war krank und konnte mich nicht richtig konzentrieren...Falls wer sich die Mühe macht, ihn zum laufen zu bringen, sollte er so nett sein und den Code hochladen.
Wieso ich Stygier Farmen will:
Hier ist der Code bis jetzt, jedoch ist er noch nicht fertig :( :
Checkliste: (Falls fertig code posten und sagen das punkt ... fertig ist ;) )
Es geht darum, im Stygischen Schleier die Stygischen Hunger mit P/E im HM mit diesem Build:
Code:
OQajowm85Q7Y0bEDGRQlAAAAYcA
Eigentlich (wie so oft) wollte ich ihn verkaufen, doch ich war krank und konnte mich nicht richtig konzentrieren...Falls wer sich die Mühe macht, ihn zum laufen zu bringen, sollte er so nett sein und den Code hochladen.
Wieso ich Stygier Farmen will:
Code:
-Weil es sonst fast keine Farmmöglichkeiten für para gibt (mein para langweilt sich..ausserdem, wie soll man drauf kommen das ein para nen bot ist?!) -Lichtbringer -Stygier Steine (3.5p/stk) -Meine Freunde haben mich gefragt ob ich ihnen einen mache (was für die recht selten ist denn sie hassen bots...aber ein paar p mehr kann ja nicht schaden, oder?)
Code:
#include "tt6.au3"
Func Deathcheck()
$PID = WinGetProcess("Guild Wars")
$hprocess = _MemoryOpen($PID)
$ReadMemDeath = _MemoryRead(0xa056d4, $hprocess)
If $ReadMemDeath = 1 Then
ControlClick("Guild Wars", "", "", "left", 1, 378, 325)
Sleep(6000)
WayOut()
EndIf
EndFunc ;==>Deathcheck
Func WayOut()
If CheckArea(4746, -13929) Then ;Spawenpoint bei Truhe
PrepMoveTo()
MoveTo(1, 5714, -14312)
MoveTo(1, 6579, -14934)
MoveTo(1, 7013, -15459)
MoveTo(1, 6571, -16238)
MoveTo(1, 5574, -16834)
MoveTo(1, 4570, -17677)
MoveTo(1, 3398, -18079)
MoveTo(1, 489, -18505)
MoveTo(1, -584, -18727)
MoveTo(1, -1143, -20013)
KeepMoveTo()
ElseIf CheckArea(5810, -16857) Then ;Spawnpoint bei Kaplan Phyratyss
PrepMoveTo()
MoveTo(1, 4571, -17690)
MoveTo(1, 2917, -18236)
MoveTo(1, -313, -18652)
MoveTo(1, -1087, -19745)
MoveTo(1, -1148, -19995)
KeepMoveTo()
ElseIf CheckArea(7425, -11855) Then ;Spawnpoint irgendwo bei der truhe (weiter weg)
PrepMoveTo()
MoveTo(1, 7117, -12718)
MoveTo(1, 6556, -14636)
MoveTo(1, 6874, -15307)
MoveTo(1, 6035, -16241)
MoveTo(1, 5702, -16150)
MoveTo(1, 3033, -15246)
MoveTo(1, 1782, -15444)
MoveTo(1, 1203, -16251)
MoveTo(1, 284, -17684)
MoveTo(1, -809, -19044)
MoveTo(1, -1116, -19956)
KeepMoveTo()
EndIf
EndFunc ;==>WayOut
Func MoveToAdept()
PrepMoveTo()
MoveTo(1, 651, -10244)
MoveTo(1, 1243, -10066)
MoveTo(1, 1856, -9921)
MoveTo(1, 2562, -9863)
MoveTo(1, 2938, -9852)
StopMoveTo()
Sleep(20000)
PrepMoveTo()
MoveTo(1, 3487, -9838)
MoveTo(1, 3935, -9796)
MoveTo(1, 4402, -9725)
MoveTo(1, 4800, -9664)
MoveTo(1, 5178, -9606)
MoveTo(1, 5566, -9546)
MoveTo(1, 5926, -9477)
MoveTo(1, 6347, -9370)
MoveTo(1, 6675, -9265)
MoveTo(1, 6972, -9157)
MoveTo(1, 7076, -9124)
StopMoveTo()
ControlSend("Guild Wars", "", "", "{v}")
ControlSend("Guild Wars", "", "", "{space}")
Sleep(1000)
ControlClick("Guild Wars", "", "", "left", 1, 472, 488)
EndFunc ;==>MoveToAdept
Func GetFactions()
ControlSend("Guild Wars", "", "", "{w down}")
Sleep(2000)
ControlSend("Guild Wars", "", "", "{w up}")
ControlSend("Guild Wars", "", "", "{v}")
ControlSend("Guild Wars", "", "", "{space}")
Sleep(1000)
ControlClick("Guild Wars", "", "", "left", 1, 472, 488)
PrepMoveTo()
MoveTo(1, 8921, -7614)
StopMoveTo()
Sleep(30000)
EndFunc ;==>GetFactions
;wegstellen
Func MoveHinterAdept()
PrepMoveTo()
MoveTo(1, 8644, -7853)
MoveTo(1, 8486, -7996)
MoveTo(1, 8431, -8045)
ControlSend("Guild Wars", "", "", "{1}")
Sleep(50)
ControlSend("Guild Wars", "", "", "{2}")
MoveTo(1, 7940, -8551)
MoveTo(1, 7617, -8796)
MoveTo(1, 7336, -8963)
MoveTo(1, 7156, -9048)
MoveTo(1, 7113, -9079)
MoveTo(3, 7122, -9081)
; MoveTo(3, 7117, -9081)
StopMoveTo()
Sleep(200)
ControlSend("Guild Wars", "", "", "{w down}")
Sleep(75)
ControlSend("Guild Wars", "", "", "{w up}")
;EndIf
Sleep(200)
EndFunc ;==>MoveHinterAdept
$currentpos = _MemoryRead(0xd28c54, $hprocess)
Func __WadimEnemyCheck()
$currentpos = _MemoryRead(0xd28c54, $hprocess)
ControlSend("Guild Wars", "", "", "c")
ControlSend("Guild Wars", "", "", "{space}")
Sleep(100)
If _MemoryRead(0xd28c54, $hprocess) <> $currentpos Then
;keine gegner mehr in der nähe
Send("w") ; sich kurz bewegen, bricht C, SPACE ab.
EndIf
EndFunc ;==>__WadimEnemyCheck
Func Kampfscript()
ControlSend("Guild Wars", "", "", "{a down}")
Sleep(1000)
ControlSend("Guild Wars", "", "", "{a up}")
Sleep(200)
ControlSend("Guild Wars", "", "", "{3}")
Sleep(2500)
ControlSend("Guild Wars", "", "", "{4}")
Sleep(2500)
ControlSend("Guild Wars", "", "", "{5}")
Sleep(750)
AdlibEnable("__WadimEnemyCheck", 500)
Do
ControlSend("Guild Wars", "", "", "{2}")
Sleep(1000)
Until _MemoryRead(0xd28c54, $hprocess) <> $currentpos
EndFunc ;==>Kampfscript
WayOut()
MoveToAdept()
GetFactions()
MoveHinterAdept()
Kampfscript()
AdlibDisable()
CollectLoot(25)
Resign()
Code:
[X] = In bearbeitung [+] = Fertig -Kampfscript [+] (bei dem weg hintern adepten gabs probs, sowie beim rabensturzflug aber das ist hoffentlich bald behoben :D) -GUI [+] (Ich habe bereits ne .kxf die noch umgebaut werden muss :) ) -Ident ([B][U]>>>!!!MUSS!!!<<<[/U][/B] im BG laufen..) -Sell (Bin noch nicht dazu gekommen) -Deathcheck [+] (thx to enders) -wayout [+](thx to hokler)
