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!!!
Quote:
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.
Code:
-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
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
. Falsches Sub übrigens :P. Aber 10g und 1 Klosterannerkennung pro "run" !???? 48p/tag werden da denk ich nich rausspringen O.o. Ansonsten nett gemacht 
