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 07:45

  • 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, 127 views)



ddarek is offline  
Old 07/27/2009, 10:58   #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 08/01/2009, 09:53   #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 08/01/2009, 09:56   #4



 
elite*gold: 0
Join Date: Jan 2009
Posts: 18,528
Received Thanks: 3,784
one tip..use adlienable for the sf function


Frutex is offline  
Old 08/01/2009, 10:55   #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 08/01/2009, 11:06   #6



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


Frutex is offline  
Reply



« Rata Sum Beta | Drachenmoos Farm-Bot »

Similar Threads
Brauer Academy - Kurzick Points farm
05/23/2010 - GW Exploits, Hacks, Bots, Tools & Macros - 19 Replies
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 Requirements: Hero skills
Kurzick Farm Bot- 600/smite nerf coming, 2x Faction Weekend
02/24/2010 - Guild Wars Trading - 6 Replies
remove this..........
New Kurzick Farm 4x better then HFFF
11/30/2008 - GW Exploits, Hacks, Bots, Tools & Macros - 42 Replies
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 3 henchies und es ist farm bar per botting) Die Strategie dabei hab ich schon getestet! Es müssen auch nicht unbedingt Assa tanks sein. Hauptsache sie halten die ganze zeit den dmg aus und stehen auf der stelle dumm rum. Ich denke mal wenn henchies ohne waffe und auf beschützen stehen, bleiben sie auf der stelle?! Der ertrag in 10-15 min ist...
Which tree for Full Str Blader? How to farm skill points?
07/28/2008 - SRO Main - Discussions / Questions - 2 Replies
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 this and that gap thx guys ;-)



All times are GMT +1. The time now is 07:45.


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

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