Nestlinge Bot A/E - By Syc0n

[Syc0n]

edit->erweitert->anhänge verwalten

[ddarek]

Here is my version of this farm
Coz I am bad programmer I wonder if it works
All credits goes to Syc0n
Different route
Slightly different build OwZTkY/8ZS6jHRnBZIXkHCBqBCA
(skill 8=Dark Escape)
Fast Asura Points Farm - almost each time kills Boss

p.s. There might be small bug coz bot stops working in Rata Sum after being blocked by nestlings. (just run outside and wait till bot finish its loops)

PHP Code:

#include "tt6.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{F1}","hide")
Hotkeyset("{F2}","End")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("A/E Nestlinge Bot", 506, 376, 193, 126)
$Button1 = GUICtrlCreateButton("Start", 64, 136, 145, 81, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$SkillCode = GUICtrlCreateInput("OwZTkY/8ZS6jHRnBZIXkHCBqBCA", 8, 320, 225, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("Background.jpg", 0, 0, 505, 353, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$MenuItem3 = GUICtrlCreateMenu("Hilfe")
$MenuItem4 = GUICtrlCreateMenuItem("Checkliste", $MenuItem3)
$MenuItem9 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("About")
$MenuItem8 = GUICtrlCreateMenuItem("About", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("Hotkeys")
$MenuItem6 = GUICtrlCreateMenuItem("F1 - Stealth", $MenuItem1)
$MenuItem7 = GUICtrlCreateMenuItem("F2 - Beenden", $MenuItem1)
$MenuItem11 = GUICtrlCreateMenu("Tools")
$MenuItem10 = GUICtrlCreateMenuItem("Update", $MenuItem11)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $sichtbar = 1, $Runden = 1, $Items = 1
Opt("mousecoordmode",2)
Opt("TrayIconDebug",1)
Opt("WinTitleMatchMode", 3)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $size = WinGetPos($client)
        if $size[2]<>800 or $size[3]<>600 Then
            Controlmove($client,"","",0,0,800,600)
            sleep(1500)
        endif          
                Bot()                
        Case $MenuItem8
            msgbox(0,"About", "A/E Nestlinge Bot Version 1.0" & Chr(13) & Chr(13) & Chr(13) & " © by Syc0n" & Chr(13) & "Functions by kknb & Syc0n")
        Case $MenuItem6
            hide()
        Case $MenuItem7
            End()
        Case $MenuItem4
            Msgbox(0,"Checkliste","Überprüfen Sie bitte die folgenden Angaben:" & Chr(13) & "GW im Fenster Modus?" & Chr(13) & "Richtiger Skillcode?" & Chr(13) & "Richtige Interfaceeinstellung?" & Chr(13) & "In Rata Sum?"& Chr(13) & "Schattenkünste 16 und 20% Verzauberung?")
        case $MenuItem9
            Shellexecute("Einstellungen.jpg")
        case $MenuItem10
            msgbox(0,"Hinweis","GW muss geöffnet sein")
            shellexecutewait("update.exe")
            msgbox(0,"Erfolg","Ihre Update.ini wurde erfolgreich aktualisiert!")
    EndSwitch
WEnd


Func hide()
If $sichtbar = 1 Then
WinSetState("Guild Wars", "", @SW_HIDE)
Winsetstate("A/E Nestlinge Bot","",@SW_HIDE)
$sichtbar = 0
Else
WinSetState("Guild Wars", "", @SW_SHOW)
Winsetstate("A/E Nestlinge Bot","",@SW_Show)
$sichtbar = 1
EndIf
Endfunc

Func End()
    exit
Endfunc


Func goout() ; In das Gebiet "Zerrissene Erde" gehen
        rndslp(2000)
        hm()
        Prepmoveto()
    If CheckArea(14468,14841) Then
        moveto(1,15200,15396)
        moveto(1,15823,15565)
        moveto(1,17029,15704)
        moveto(1,17417,15927)
        moveto(1,17712,16197)
        moveto(1,18086,16617)
        moveto(1,18602,16828)
        moveto(1,19278,16858)
        moveto(1,19930,16875)
    ElseIf CheckArea(16359,19525) Then
        moveto(1,16873,19022)
        moveto(1,17958,18393)
        moveto(1,19001,18032)
        moveto(1,19384,17783)
        moveto(1,19501,17581)
        moveto(1,19625,17343)
        moveto(1,19778,17191)
        moveto(1,19931,17097)
    ElseIf CheckArea(17774,14413) Then
        moveto(1,18213,15024)
        moveto(1,18685,15359)
        moveto(1,19294,15776)
        moveto(1,19523,16170)
        moveto(1,19722,16412)
        moveto(1,19913,16570)
    ElseIf CheckArea(19410, 16773) Then
        Keysend("x")
        slp(300)
        moveto(1,19989,16858)
    Else
        TransferGH()
        TransferGH()
        goout()
    EndIf
        KeepMoveTo()
        loadout()
Endfunc  

Func goto() ; in die Höhle gehen
    Prepmoveto()
    keysend("8")
    moveto(1,-24414,-4918)
    moveto(1,-24237,-5572)
    stopmoveto()
    keysend($ANtgtkey)
    rndslp(150)
    keysend("space");segen
    rndslp(2000)
    Blessing()
    rndslp(200)
    moveto(1,-24155,-5728)
    ;Keysend("8")
    moveto(1,-23921,-5758, false,true)
    moveto(1,-23521,-5939, false,true)
    moveto(1,-23125,-6239, false,true)
    moveto(1,-22682,-6678, false,true)
    
    moveto(1,-22270,-7167, false,true)
    moveto(1,-21544,-8052, false,true)
    moveto(1,-21371,-8457, false,true)
    stopmoveto()
    slp(500)
    SF()
    slp(1800)
    Prepmoveto()
    moveto(3,-21371,-8457, false,true)
    MoveTo(3, -20957, -8693, false,true)
    MoveTo(3, -19957, -9993, false,true)
    keysend("8")
    MoveTo(3, -19692, -10796, false,true)
    MoveTo(3, -20676, -12241, false,true)
    MoveTo(3, -22452, -11737, false,true)
    SF()
    ;moveto(3,-21051,-9387, false,true)
    ;MoveTo(3,-20476,-10874,false,true)
    ;Moveto(3,-20467,-10986,false,true)
    if $gotBlocked Then tryfree()    
    stopmoveto()
EndFunc

func tryfree()
    keysend("7")
    slp(200)
    PrepMoveTo()
    MoveTo(3,-20467,-10986,false,true)
    if $gotblocked Then 
        stopmoveto()
        resign()
    endif
    stopmoveto()
EndFunc

Func Fight() ; Der Kampf 
    BuildCLBlackList()
    Slp(500)
    keysend("4")
    slp(1000)
    keysend("5")
    slp(1000)
    keysend("6")
    slp(10500)
    SF()
    slp(22500)
    SFSchleife()
    slp(1200)
    CollectLoot(8, true,200, 2)
    $Items +=5
    $Runden +=1
    slp(500)
    keysend("7")
    rndslp(400)
    PrepMoveTo()
    MoveTo(3,-22212,-11115,false,true)
    if $gotBlocked Then 
        stopmoveto()
        resign()
    endif
    stopmoveto()
EndFunc

Func SFSchleife() ;Schattenform Schleife und Splitterrüstung
    SF()
    slp(2000)
    keysend("4")
    slp(1000)
    keysend("5")
    slp(1000)
    keysend("6")
    slp(5000)
    slp(5000)
    slp(5000)
    slp(3500)
    SF()
    slp(6500)
    slp(6000)
    keysend("4")
    slp(1000)
    keysend("5")
    slp(1000)
    keysend("6")
    slp(8000)
    SF()
EndFunc

Func Fight2()
    slp(8600)
    SF2()
    slp(2000)
    keysend("7")
    slp(2000)
    keysend("4")
    slp(1000)
    keysend("5")
    slp(1000)
    keysend("6")
    slp(2000)
    slp(6500)
    slp(7000)
    SF2()
    slp(2500)
    keysend("7")
    slp(3000)
    collectloot(5,true,200,2)
    slp(3000)
    keysend("4")
    slp(1000)
    keysend("5")
    slp(1600)
    keysend("6")
    slp(8400)
    SF2()
    slp(1200)
    CollectLoot(5, true,200, 2)
    resign()
Endfunc

Func SF() ; Schattenform
    keySend("1")
    slp(500)
    keySend("2")
    Slp(1200)
    keySend("3")
Endfunc

Func SF2() ; Schattenform
    keySend("1")
    slp(500)
    keySend("2")
    Slp(1500)
    keySend("3")
Endfunc

Func Bot ()
    Select
    case $Runden <= 3
        goout()
        goto()
        Fight()
        Fight2()
    case $Runden > 3
        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)
        If $Items > 400 Then identitems(0,4,3,8)
        gosell()
        $Runden = 1
        goout()
        goto()
        Fight()
        Fight2()    
    EndSelect
EndFunc
    
Func gosell() ; verkaufen in Rata Sum
        rndslp(2000)
        Prepmoveto()
    If CheckArea(14468,14841) Then
        moveto(1,15035,15299)
        moveto(1,15515,15586)
        moveto(1,16314,15528)
        moveto(1,17275,15187)
        moveto(1,18325,14632)
        moveto(1,19012,14499)
        moveto(1,19475,14721)
    ElseIf CheckArea(16359,19525) Then
        moveto(1,17004,18782)
        moveto(1,17609,17690)
        moveto(1,18054,16376)
        moveto(1,18513,15635)
        moveto(1,18929,15434)
        moveto(1,19216,15244)
        moveto(1,19472,14824)
    ElseIf CheckArea(17774,14413) Then
        moveto(1,18124,14459)
        moveto(1,18751,14436)
        moveto(1,19480,14734)
    ElseIf CheckArea(19410, 16773) Then
        moveto(1, 19461, 16139)
        moveto(1, 19542, 15235)
        moveto(1, 19576, 14829)
    Else
        TransferGH()
        TransferGH()
        gosell()
    EndIf
        stopmoveto()
        rndsleep(200)
        keysend("v")
        rndsleep(500)
        keysend("space")
        sell(25)
Endfunc 


[Leechman]

Originally Posted by Syc0n

edit->erweitert->anhänge verwalten

aaah, danke

na dann schaut mal rein, obs euch gefällt, was ich drangebammelt hab ^^

[Wiggum]

Originally Posted by Syc0n

e: Ahh ich glaub ich habs verstanden... Also wenn man vor dem Run rein und wieder rausläuft spawnt der Bot immer am Tor in Rata Sum? WEnn das so ist, dann nehm ich deine Lösung gleich in ne neue Version mit auf.

joa so isses, wobei "immer" nach /resign oder durchs Portal laufen ist.

Originally Posted by eF_Hacks

Edit: Zu wiggums funktion.. bringt doch nix.. sind maximal 10 sekunden schneller -> erhöht die chance gebannt zu werden da weniger randoms durch laufwege

1. es geht doch darum den bot möglichst zu optimieren, und da zählt ne zeitverkürzung halt dazu, wie lange sie jetzt is. ausserdem, warum nicht? du hast ja keine arbeit damit
2. da es vom tor-spawn etwa 2 schritte sind, ist die chance bei diesen zwei schritten gebannt zu werden wohl geringer als beim laufen quer durch die stadt von den andern spawnpunkten aus. und sry aber welcher realplayer läuft auf dieser kurzen strecke schon noch kurven, dass man randomwege bräuchte?

[EnnerJoKer]

Hallo ihr da bin neu beim Scripten ich hätte ne frage an Syc0n dein NEstling bot gefällt mir sehr big thanks schonmal aber jemand meine ne seite weiter vorn dass der bot net verkauft und immer gildenhalle klickt das ist bei mir auch der fall hab dein update eig angeklickt aber trotzdem will er net den krämpel verkaufen ^^


danke schonmal im Voraus

Mfg

[weisskopf]

Ich hab ein kleines Problem, bei der Ausführung vom Bot kommt bei mir die Fehlermeldung (hoffe Screen geht) :

[Frutex]

ne screen geht nicht..

[weisskopf]

N Freund sagt er geht... Klick einfach mal auf den Link

[Syc0n]

hmm schreib mal was in deiner tt6.au3 in der Zeile 827 steht

[weisskopf]

Wo kann ich die Zeilenanzahl im Editor anzeigen lassen? Gleiches Problem hab ich beim Z-Kerne Bot auch übrigens...

[Syc0n]

Oo... du musst auch AutoIT installieren!

[_revo]

die sollten standartmäßig links am rand angezeigt werden
wenn nicht
oben im menü
View>Line Numbers

edit: dachte jetzt an scyte bei "editor" ^^

hier kannst du dir autoit (scyte, der editor, ist enthalten) downloaden

[weisskopf]

Wird nicht angezeigt, AutoIt ist installiert... Hab die deutsche Version von Editor, da ist kein View

€: mein Fehler, sry...
Zeile 827:
$btup = $WM_LBUTTONUP

[Finaler]

bei mir dreht er sich nur im kreis und läuft bloß n'paar meter....-.-
hab auch die update.ini erneuert (per Update)

[Frutex]

dann hast du nicht alles gemacht