This Bot farms at Saint Anjeka's Shrine Dragon Moss from the Quest A_New_Escort"
Requirements
- Perma Silver Assassin with equipment - OwZTkY/8ZS6jHRnBZwtkHCAAAAA -52 ene
- Hard Mode unlocked in Cantha (Factions)
- Outposts:Saint Anjeka's Shrine, Brauer Academy (to get Quest)
- Quest: A New Escort - NOT completed
- files tt6.au3 (v1.7); tt6.ini; <- see sticky post, update.ini(updated!)
My settings :all bags window (F9) top left, trader window top left(full height), guild window top left
Additionally there are 12-16 ez to kill mobs - which guarantee with 240-320 of Kurzick/Luxon faction points - with blessing from shrine
Due to lack of Kurzick/Luxon points bots it could be a temporary solution - but I think it is worth of it
enjoy
New v1.4 - rewrite code with AdLibEnable(), time improvement, ident func; collectloot, sell at gh
PHP Code:
Opt("WinTitleMatchMode", 3)
#include "tt6.au3"
#include <NomadMemory.au3>
; globals
Global $Runs = 0, $Items = 0
Func _Controlmove();set window resolution
Controlmove("Guild Wars","","",0,0,800,600)
sleep(1500)
EndFunc
Func RndSlp($val)
$wert = Random($val * 0.95, $val * 1.05, 1)
If $wert > 45000 Then
For $i = 0 to 6
Sleep($wert / 6)
death()
Next
ElseIf $wert > 36000 Then
For $i = 0 to 5
Sleep($wert / 5)
death()
Next
ElseIf $wert > 27000 Then
For $i = 0 to 4
Sleep($wert / 4)
death()
Next
ElseIf $wert > 18000 Then
For $i = 0 to 3
Sleep($wert / 3)
death()
Next
ElseIf $wert >= 9000 Then
For $i = 0 to 2
Sleep($wert / 2)
death()
Next
Else
Sleep($wert)
death()
EndIf
EndFunc ;==>RndSlp
Func Slp($val)
If $val > 54000 Then
For $i = 0 to 7
Sleep($val / 7)
death()
Next
ElseIf $val > 45000 Then
For $i = 0 to 6
Sleep($val / 6)
death()
Next
ElseIf $val > 36000 Then
For $i = 0 to 5
Sleep($val / 5)
death()
Next
ElseIf $val > 27000 Then
For $i = 0 to 4
Sleep($val / 4)
death()
Next
ElseIf $val > 18000 Then
For $i = 0 to 3
Sleep($val / 3)
death()
Next
ElseIf $val >= 9000 Then
For $i = 0 to 2
Sleep($val / 2)
death()
Next
Else
Sleep($val)
death()
EndIf
EndFunc ;==>Slp
Func death()
If _MemoryRead($memdeath, $hprocess) = 1 Then
Resign()
loadin()
bot()
EndIf
EndFunc
Func SF() ; ShadowForm
keySend("1")
Slp(800)
keySend("2")
Slp(1200)
keySend("3")
Slp(1500)
Endfunc
Func Wayout() ; Spawnpoints
RndSleep(2000)
_Controlmove()
EnableHM()
if CheckArea(-11972, -22124) Then
PrepMoveTo()
MoveTo(1, -11221, -22954)
KeepMoveTo()
;middle
ElseIf CheckArea(-11443, -21351) Then
PrepMoveTo()
Moveto(1, -11338, -21781)
Moveto(1, -11318, -22421)
Moveto(1, -11206, -22796)
MoveTo(1, -11221, -22954)
KeepMoveTo()
;south
ElseIf CheckArea(-11523, -21276) Then
PrepMoveTo()
Moveto(1, -11498, -21518)
Moveto(1, -11243, -22412)
MoveTo(1, -11221, -22954)
KeepMoveTo()
;west
ElseIf CheckArea(-10724, -20969) Then
PrepMoveTo()
Moveto(1, -10992, -21685)
Moveto(1, -11149, -22297)
Moveto(1, -11137, -22804)
MoveTo(1, -11221, -22954)
KeepMoveTo()
Else
Transfergh()
Transfergh()
Wayout()
Endif
loadout()
EndFunc
Func bless();whenever u need Lux or Kurzick points - set off now
RndSleep(2000)
KeySend("r")
KeySend("p")
RndSleep(500)
KeySend("v")
RndSleep(500)
KeySend("SPACE")
RndSleep(7000)
MouseSend("left", "click",380,310);agree
RndSleep(500)
MouseSend("left", "click",380,330);pay (310 for Luxon priest)
RndSleep(500)
keysend("q","pressed",400);step aside
EndFunc
Func spot();run to area when Dragonmossess spawn
PrepMoveTo()
MoveTo(1, -7852, 18543)
MoveTo(1, -7391, 18005)
MoveTo(1, -6986, 17485,false,true)
MoveTo(1, -6502, 16808,false,true)
StopMoveTo()
SF();cast SF
sleep(1500)
EndFunc
Func spot2()
PrepMoveTo()
MoveTo(2, -6171, 16420,false,true)
MoveTo(2, -5932, 16065,false,true)
MoveTo(2, -5655, 15698)
MoveTo(2, -5483, 15432)
StopMoveTo()
Keysend($RDmovkey)
Sleep(4000);wait for away Dragons
PrepMoveTo()
MoveTo(2, -5691, 15852)
MoveTo(2, -5867, 16585)
MoveTo(2, -6457, 17644)
StopMoveTo()
Keysend($RDmovkey)
Sleep(1000)
EndFunc
Func Fight()
AdlibEnable("SF", 24000)
SF()
slp(2000)
prepmoveto()
MoveTo(1, -6270, 17218,false,true)
MoveTo(2, -6114, 16808,false,true)
MoveTo(2, -5836, 16405,false,true)
StopMoveTo()
slp(1500)
KeySend($FNtgtkey)
slp(150)
KeySend($FLactkey)
slp(2000)
KeySend("4")
slp(1500)
KeySend("5")
slp(2000)
KeySend("6")
slp(27000)
KeySend($FNtgtkey)
slp(150)
KeySend($FLactkey)
slp(4000)
KeySend("4")
slp(1500)
KeySend("5")
slp(2000)
KeySend("6")
slp(30000)
KeySend($FNtgtkey)
slp(150)
KeySend($FLactkey)
slp(4000)
KeySend("4")
slp(1500)
KeySend("5")
slp(2000)
KeySend("6")
slp(28000)
KeySend($FNtgtkey)
slp(150)
KeySend($FLactkey)
slp(4000)
KeySend("4")
slp(1500)
KeySend("5")
slp(2000)
KeySend("6")
slp(28000)
KeySend($FNtgtkey)
slp(150)
KeySend($FLactkey)
slp(4000)
KeySend("4")
slp(1500)
KeySend("5")
slp(2000)
KeySend("6")
slp(12000)
BuildCLBlackList()
CollectLoot(5)
CollectLoot(5)
CollectLoot(5)
CollectLoot(10)
RndSleep(5000)
AdlibDisable()
resign()
EndFunc
func farm()
bless()
spot()
spot2()
fight()
endfunc
Func gosell() ; sell in my GH - sry - Traders in outpost are so unpredictible
TransferGH()
Prepmoveto()
MoveTo(1, -3816, -2015)
MoveTo(1, -3942, -1563)
MoveTo(1, -4049, -1137)
Stopmoveto()
SellatTrader(25)
TransferGH()
Endfunc
Func bot()
While 1
While $Runs <> 4
$Runs = $Runs + 1
$Items = $Items + 5
Wayout()
Farm()
WEnd
If $Runs = 4 Then
RndSleep(3000)
If $Items <=100 Then identitems(0,4,0,8)
If $Items > 200 Then identitems(0,4,1,8)
If $Items > 300 Then identitems(0,4,2,8)
RndSleep(500)
gosell()
$Runs = 0
Wayout()
Farm()
EndIf
WEnd
EndFunc
bot()
thnx
