Noo(b)Bot

[aLX.dev]

Kleiner Bot der das Quest "Eine Gruppe bilden" "farmt".
Man brauch 2 Accounts mit Zugang zu Factions. Den ersten Account startet man mit der TexMod-Datei und man bleibt im Charaktermenü (Es wird ein freier Platz benötigt). Den plaziert man im Kloster von Shing Jea in der Nähe des Ausgangs zum Sunqua-Tal(bei der Fahne).
WICHTIG: Es dürfen nur die beiden Guild Wars Fenster in der Taskleiste sein!!!
Dann den Bot starten.
Genauso WICHTIG: Beide Acc's müssen auf dem China. Trad. d1 sein!!!

Die Idee des NooBot's war es einen Bot zu entwickeln der ohne jegliche skills und Vorraussetzungen Geld verdienen kann. Jedoch war die Idee zunächst schwer realisierbar, da ich keine einzige Idee hatte wie und wo so etwas geht. Schließlich kam so der Noo(b)Bot zustande jedoch ist das größte Manko des Bottes, dass er 1. nur ~48p/24h (nicht überprüft) verdient und 2. dass man für diesen Bot 2 Accounts mit Factions besitzen muss. Trotz all dem veröffentliche ich diesen Bot, so dass sich jeder selbst ein Bild davon machen kann. Falls ihr etwas verbessern wollt ist es euch erlaubt, vorrausgesetzt, dass ihr die Verbesserungen KOSTENLOS mit anderen teilt. Somit ist der Verkauf des Bottes untersagt.

-Grafik: 1280x1024
-Interfacegröße: Größer
-Bewegung: Nach Rechts drehen: D
-Bewegung: Automatisches Rennen: R
-Anwählen: Nächstbefindlichen Verbündeten: V
-Aktion: Ausführen: Leertaste
-Anzeige: Gruppe öffnen: P
-Bewegung: Richtung umkehren: X
-Bewegung: Nach Links drehen: A
-Bewegung: Seitwärts nach Rechts gehen: E
-Anzeige: Missionskarte öffnen: U
-Aktion: Gruppe befehligen: Z
-Verschiedenes: Ausloggen: F12

Code:

PHP Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ico.ico
#AutoIt3Wrapper_outfile=NooBot.exe
#AutoIt3Wrapper_Res_Comment=<------- Noo(b)Bot V.1.X --------->
#AutoIt3Wrapper_Res_Description=<---Noo(b)Bot V.1.X--->
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=aLX.dev
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $SS_NOTIFY, $WS_CLIPSIBLINGS, $WS_GROUP
#include <nomadmemory.au3>
#include <GUIConstants.au3>

InetGet("http://abot.ab.funpic.de/NooBot/welcome.txt", @ScriptDir & "\welcome.txt")
$version = 1.0
$texte = FileRead("welcome.txt")

HotKeySet("{END}", "_exit")
$PID = ProcessExists("Gw.exe")
$hprocess = _MemoryOpen($PID)
$charname = IniRead("config.sup", "Einstellungen", "CName", "Asdf Asdf")
$eharname = IniRead("config.sup", "Einstellungen", "EName", "Asdf Asdf")
$npcidselectanfang = IniRead("config.sup", "Einstellungen", "NPCID", "0xD2A480")

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### 
$Form1 = GUICreate("NooBot", 668, 323, 144, 286)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("data\Sonnenspeer-Quartiermeister.jpg", 24, 0, 233, 305, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$text = GUICtrlCreateEdit("", 264, 16, 385, 257)
GUICtrlSetData(-1, StringFormat("Edit1\r\nh"))
$go = GUICtrlCreateButton("Weiter", 272, 280, 105, 33, 0)
$update = GUICtrlCreateButton("Update", 400, 280, 105, 33, 0)
$end = GUICtrlCreateButton("Beenden", 528, 280, 105, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($text, $texte)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $end
            Exit
        Case $go
            GUIDelete($Form1)
            _bot()
        Case $update
            InetGet("http://abot.ab.funpic.de/NooBot/version.txt", @ScriptDir & "\version.txt")
            $new = IniRead("version.txt", "A", "Version", "1.0")
            If $version < $new Then
                InetGet("http://abot.ab.funpic.de/NooBot/bot.exe", @MyDocumentsDir & "\NooBot.exe")
            Else
                MsgBox(1, "Update", "Es ist kein Update vorhanden")
            EndIf
    EndSwitch
WEnd

func _bot()
#Region ### START Koda GUI section ### 
$Form1_1 = GUICreate("NooBot", 397, 424, 383, 257)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("data\Guildwars_Factions_Logo_(groß).jpg", 32, 8, 334, 117, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Namen ", 88, 144, 209, 105)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$cname = GUICtrlCreateInput("Name des neuen Charakter", 96, 168, 185, 22)
$ename = GUICtrlCreateInput("Name des Empfängers ", 96, 200, 185, 22)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Memory", 88, 264, 209, 89)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label1 = GUICtrlCreateLabel("Npc_ID_select", 96, 288, 73, 18)
$npcidselect = GUICtrlCreateInput("npcidselect", 96, 312, 105, 22)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$start = GUICtrlCreateButton("Bot starten", 208, 368, 129, 33, 0)
$Label2 = GUICtrlCreateLabel("Einstellungen speichern", 40, 376, 118, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$speichern = GUICtrlCreateCheckbox("", 160, 376, 33, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
       Case $start
            $aktiv = GUICtrlRead($speichern)
            If $aktiv = 1 Then
                $charname = GUICtrlRead($cname)
                $eharname = GUICtrlRead($ename)
                $npcidselectanfang = GUICtrlRead($npcidselect)
                IniWrite("config.sup", "Einstellungen", "CName", $charname)
                IniWrite("config.sup", "Einstellungen", "EName", $eharname)
                IniWrite("config.sup", "Einstellungen", "NPCID", $npcidselectanfang)
            EndIf
            MsgBox(1, "uirhvuierh", "start")
            WinActivate("Gw.exe")
            WinWaitActive("Gw.exe")
            _neuerchara()
    EndSwitch
WEnd

EndFunc

Func _neuerchara()
    MouseClick("left", 1041, 1003)
    Sleep(4000)
    MouseClick("left", 279, 489, 2)
    Sleep(3000)
    MouseClick("left", 664, 592, 2)
    Sleep(3000)
    MouseClick("left", 767, 998)
    Sleep(3000)
    Send($charname)
    Sleep(2000)
    MouseClick("left", 1233, 1001)
    Sleep(5000)
    While PixelGetColor(375, 383) = 0xFF00DC
        Sleep(3000)
    WEnd
    MouseClick("left", 1233, 1001) ; überspringen
    $rndsleep = Random(5000, 6000)
    Sleep($rndsleep)
    While PixelGetColor(375, 383) = 0xFF00DC
        Sleep(3000)
    WEnd
    _aussicht()
EndFunc

Func _aussicht()
    Send("{d down}")
    $rndsleep = Random(400, 410)
    Sleep($rndsleep)
    Send("{d up}")
    Send("r")
    Send("v")
    $rndsleep = Random(12000, 13000)
    Sleep($rndsleep)
    $id = 21
    _MemoryWrite($npcidselectanfang, $hprocess, $id)
    Send("{SPACE}")
    $rndsleep = Random(20000, 22000)
    Sleep($rndsleep)
    MouseClick("left", 623, 564)
    $rndsleep = Random(1232, 1434)
    Sleep($rndsleep)
    MouseClick("left", 628, 589)
    $rndsleep = Random(1232, 1434)
    Sleep($rndsleep)
    MouseClick("left", 657, 568)
    $rndsleep = Random(1232, 1434)
    Sleep($rndsleep)
    MouseClick("left", 515, 524)
    $rndsleep = Random(1232, 1434)
    Sleep($rndsleep)
    MouseClick("left", 616, 592)
    $rndsleep = Random(5000, 6000)
    Sleep($rndsleep)
    While PixelGetColor(375, 383) = 0xFF00DC
        Sleep(3000)
    WEnd
    _kloster1()
EndFunc

Func _kloster1()
    $id = 253
    _MemoryWrite($npcidselectanfang, $hprocess, $id)
    Send("{SPACE}")
    $rndsleep = Random(14000, 15000)
    Sleep($rndsleep)
    $id = 25
    _MemoryWrite($npcidselectanfang, $hprocess, $id)
    Send("{SPACE}")
    $rndsleep = Random(21000, 22000)
    Sleep($rndsleep)
    Send("v")
    Send("{SPACE}")
    $rndsleep = Random(3800, 4000)
    Sleep($rndsleep)
    MouseClick("left", 573, 737)
    Send("p")
    $rndsleep = Random(738, 828)
    Sleep($rndsleep)
    MouseClick("Left", 131, 195, 2)
    $rndsleep = Random(738, 828)    
    Sleep($rndsleep)
    MouseClick("left", 165, 234, 2)
    $rndsleep = Random(738, 828)
    Sleep($rndsleep)
    MouseClick("left", 174, 267, 2)
    $rndsleep = Random(2370, 2402)
    Sleep($rndsleep)
    Send("p")
    Send("x")
    $rndsleep = Random(321, 345)
    Sleep($rndsleep)
    Send("x")
    Send("{a down}")
    $rndsleep = Random(421, 432)
    Sleep($rndsleep)
    Send("{a up}")
    Send("{e down}")
    $rndsleep = Random(1200, 1300)
    Sleep($rndsleep)
    Send("{e up}")
    Send("r")
    $rndsleep = Random(8000, 9000)
    Sleep($rndsleep)
    While PixelGetColor(375, 383) = 0xFF00DC
        Sleep(3000)
    WEnd
    _quest()
EndFunc

Func _quest()
    $rndsleep = Random (1300, 1470)
    Sleep($rndsleep)
    Send("u")
    $rndsleep = Random (1300, 1470)
    Sleep($rndsleep)
    Send("Z")
    MouseClick("left", 600, 524)
    $rndsleep = Random(370, 490)
    Sleep($rndsleep)
    Send("u")
    Send("r")
    $rndsleep = Random(3400, 3500)
    Sleep($rndsleep)
    Send("v")
    Send("{SPACE}")
    $rndsleep = Random(2000, 2370)
    Sleep($rndsleep)
    MouseClick("left", 622, 764)
    $rndsleep = Random(1000, 1100)
    Sleep($rndsleep)
    Send("x")
    $rndsleep = Random(1100, 1200)
    Sleep($rndsleep)
    Send("r")
    $rndsleep =Random(15000, 16000)
    Sleep($rndsleep)
    While PixelGetColor(375, 383) = 0xFF00DC
        Sleep(3000)
    WEnd
    _tausch()
EndFunc

Func _tausch()
    MouseClick("left", 169, 161)
    Send($eharname)
    Send("{ENTER}")
    $rndsleep = Random(2300, 2900)
    Sleep($rndsleep)
    MouseClick("left", 117, 150)
    $rndsleep = Random(2000, 2500)
    Sleep($rndsleep)
    MouseClick("left", 1183, 20)
    $rndsleep = Random(3000, 3205)
    Sleep($rndsleep)
    MouseClickDrag("left", 110, 650, 397, 212)
    $rndsleep = Random(450, 570)
    Sleep($rndsleep)
    MouseClick("left", 340, 288)
    Send("{ALT DOWN}")
    Send("{TAB DOWN}")
    Send("{TAB UP}")
    Send("{ALT UP}")
    WinWaitActive("Guild Wars1")
    Sleep(1400)
    MouseClick("left", 79, 84)
    $rndsleep = Random(300, 400)
    Sleep($rndsleep)
    MouseClick("left", 340, 358)
    $rndsleep = Random(300, 400)
    Sleep($rndsleep)
    MouseClick("left", 170, 361)
    Send("{ALT DOWN}")
    Send("{TAB DOWN}")
    Send("{TAB UP}")
    Send("{ALT UP}")
    WinWaitActive("Guild Wars")
    Sleep(2000)
    MouseClick("left", 174, 358)
    _loesch()
EndFunc

Func _loesch()
    Send("{F12}")
    $rndsleep = Random(1500, 1600)
    Sleep($rndsleep)
    MouseClick("left", 631, 574)
    $rndsleep = Random(4000, 5000)
    Sleep($rndsleep)
    MouseClick("left", 1150, 994)
    Send($charname)
    $rndsleep = Random(1200, 1500)
    Sleep($rndsleep)
    Send("{ENTER}")
    $rndsleep = Random(4000, 5000)
    Sleep($rndsleep)
    _neuerchara()
EndFunc

Func _exit()
    Exit
EndFunc 


Ist zwar nichts besonderes aber wer mag kann sich ihn ja mal angucken +.~

[D_S]

Nicht schlecht . Falsches Sub übrigens :P. Aber 10g und 1 Klosterannerkennung pro "run" !???? 48p/tag werden da denk ich nich rausspringen O.o. Ansonsten nett gemacht

[USB Schnittstelle]

# Moved


ich teste es die tage mal

[kenny_deluxxe]

aber gibt des nicht auch ep also könnte man es auch eigentlich zum leveln nehmen...oder war des ne andere quest kp grad...belehrt mich wenn ich falsch liege

[N.E.O.]

Checked, result: Clear

Antivir: Nothing found
ArcaVir: Nothing found
Avast: Nothing found
AVG: Nothing found
BitDefender: Nothing found
F-Prot: Nothing found
Norman: Nothing found
Rising: Nothing found
VirusBlokAda32: Nothing found
VirusBuster: Nothing found


Scanned by

~ Maaan

[D_S]

Originally Posted by kenny_deluxxe

aber gibt des nicht auch ep also könnte man es auch eigentlich zum leveln nehmen...oder war des ne andere quest kp grad...belehrt mich wenn ich falsch liege

Da du die Quest nur machst und den Char danach löscht macht das glaub ich kein Unterschied ob es EP gibt oder nicht

[aLasca]

Lohnt sich in meinen Augen nicht - die ewige rennerei zur truhe etc...^^ dauert zu lange, für 10g / run lohnt sich der zeitaufwand definitiv nicht

[lox.0r]

Langeweile?^^

[browny93]

Die Dinger kosten doch nicht nur 10g oder? 80- 100g imo

[nofuture]

es gibt 10g und ne klosteranerkennung pro run, das 2. haben die meisten dabei wahrscheinlich übersehen :P
ich gehe zumindest mal von aus, dass die mit übergeben wird... sonst würds keinen sinn machen xD (nicht getestet)

[Painful Pete]

Aber muss man nicht für die Truhe allein schon 50g zahlen?

EDIT: Ok Text gelesen, verstanden Problem gelöst.... die Welt kann so einfach sein

[Der Crashkopf]

lohnt sich aufjedenfall nicht aber trotzdem respekt für dein script.

[killko]

emglish? what does this bot do?

[aLasca]

Schöne Idee.. aber wieso so umständlich? Ich weiß nicht wann der Bot enstanden ist aber inzwischen könnte man einen Bot machen der ausm Auge des Nordens rausrennt und die 1-2 Schwertlilien einsammelt..das Spart zeit^^

[NBA]

Originally Posted by killko

emglish? what does this bot do?

It farms the quest "make a group" or how its called.