Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Guild Wars > GW Exploits, Hacks, Bots, Tools & Macros
You last visited: Today at 03:21

  • Please register to post and access all features, it's quick, easy and FREE!

 

Dragon Moss farm with SF + Kurzick points farm

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jun 2008
Posts: 510
Received Thanks: 89
Dragon Moss farm with SF + Kurzick points farm

Hi

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.051)
    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, -22124Then
    PrepMoveTo
()
        
MoveTo(1, -11221, -22954)
    
KeepMoveTo()
        
    ;
middle
    
ElseIf CheckArea(-11443, -21351Then 
    PrepMoveTo
()
        
Moveto(1, -11338, -21781)
        
Moveto(1, -11318, -22421)
        
Moveto(1, -11206, -22796)
        
MoveTo(1, -11221, -22954)
    
KeepMoveTo()
    ;
south
    
ElseIf CheckArea(-11523, -21276Then
    PrepMoveTo
()
        
Moveto(1, -11498, -21518)
        
Moveto(1, -11243, -22412)
        
MoveTo(1, -11221, -22954)
    
KeepMoveTo()
        
    ;
west
    
ElseIf CheckArea(-10724, -20969Then
    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, -785218543)
MoveTo(1, -739118005)
MoveTo(1, -698617485,false,true)
MoveTo(1, -650216808,false,true)
StopMoveTo()
SF();cast SF
sleep
(1500)
EndFunc

Func spot2
()
PrepMoveTo()
MoveTo(2, -617116420,false,true)
MoveTo(2, -593216065,false,true)
MoveTo(2, -565515698)
MoveTo(2, -548315432)
StopMoveTo()
Keysend($RDmovkey)
Sleep(4000);wait for away Dragons
PrepMoveTo
()
MoveTo(2, -569115852)
MoveTo(2, -586716585)
MoveTo(2, -645717644)
StopMoveTo()
Keysend($RDmovkey)
Sleep(1000)


EndFunc

Func Fight
()
    
AdlibEnable("SF"24000)
    
SF()
    
slp(2000)
    
prepmoveto()
    
MoveTo(1, -627017218,false,true)
    
MoveTo(2, -611416808,false,true)
    
MoveTo(2, -583616405,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
() 
VirusChief Report
Attached Files
File Type: rar DragonMoss 1.4.rar (11.3 KB, 110 views)



ddarek is offline  
Old   #2
 
elite*gold: 0
Join Date: Jan 2008
Posts: 293
Received Thanks: 40
PHP Code:
if CheckArea(-11972, -22124Then
PrepMoveTo
()
        
MoveTo(1, -11221, -22954)
KeepMoveTo()
        
    ;
middle
    
ElseIf CheckArea(-11443, -21351Then 
PrepMoveTo
()
        
Moveto(1, -11338, -21781)
        
Moveto(1, -11318, -22421)
        
Moveto(1, -11206, -22796)
        
MoveTo(1, -11221, -22954)
KeepMoveTo()
    ;
south
    
ElseIf CheckArea(-11543, -21280Then
PrepMoveTo
()
        
Moveto(1, -11498, -21518)
        
Moveto(1, -11243, -22412)
        
MoveTo(1, -11221, -22954)
KeepMoveTo()
        
    ;
west
    
ElseIf CheckArea(-10724, -20969Then
PrepMoveTo
()
        
Moveto(1, -10992, -21685)
        
Moveto(1, -11149, -22297)
        
Moveto(1, -11137, -22804)
        
MoveTo(1, -11221, -22954)
KeepMoveTo()
    Endif 
The PrepMoveTo() and KeepMoveTo() or StopMoveTo()..


NANAAA is offline  
Old   #3
 
elite*gold: 0
Join Date: Jun 2008
Posts: 510
Received Thanks: 89
**** and it happend
Perm ban for using this bot grrr
Anjeka is so small outpost so ezly cought me

Any1 got a free access key for GW by acident ?
Please pm if u have
ddarek is offline  
Old   #4


 
elite*gold: 9160
Join Date: Jan 2009
Posts: 18,290
Received Thanks: 3,629
one tip..use adlienable for the sf function


Frutex is offline  
Old   #5
 
elite*gold: 0
Join Date: Jun 2008
Posts: 510
Received Thanks: 89
like this
func fight ()
.....
nice code with 1 loop of AdLibEnable (...)
...
AdLibDisable()

endfunc

p.s. thnx
ddarek is offline  
Old   #6


 
elite*gold: 9160
Join Date: Jan 2009
Posts: 18,290
Received Thanks: 3,629
Look at the norn bot..its working with adlienable


Frutex is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Brauer Academy - Kurzick Points farm
Hi Small bot I hope u like it Bot speed up collections of Kurzick points (if u need it) taking a quest Duel Of The Houses and make it quite fast ...
19 Replies - GW Exploits, Hacks, Bots, Tools & Macros
Kurzick Farm Bot- 600/smite nerf coming, 2x Faction Weekend
remove this..........
6 Replies - Guild Wars Trading
New Kurzick Farm 4x better then HFFF
Amatzbecken Ich verlink weiter unten nen Guide von Wartower. Die Supporter sind nicht wirklich von nöten, man brauch nur 4 permas (man selbst und...
42 Replies - GW Exploits, Hacks, Bots, Tools & Macros
Which tree for Full Str Blader? How to farm skill points?
I just want to know which is the best tree for a full str blader. And i want to know, how i can farm skill points. i dont know what people mean with...
2 Replies - SRO Main - Discussions / Questions



All times are GMT +2. The time now is 03:21.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.