Kronen Bot

[Cry Zor]

Hi,
dieseer BOt farmt die Bison marken in Gunnars feste für die man sich zum beispiel eine Krone kaufen kann.Neben bei maxt er für 90p auch noch den Norntitel.Das prob an der sache ist das man trotz vieler vorsichts maßnahmen gegen eles bei Cynn immer stirbt da sie ihren flächen dmg ~3 mal catet sodass auch das von mir programmierte wegrennen und geisterherporten nichts nützt.Da ich das gemerkt habe ist diese Bot nich ganz ausgereift=heißt:ihr müsst von selber beim starten des Bots rein gehen in die missi und dann erst den Bot starten wenn ihr drinnen Seid.Ich werde vllt einen Todes check eionbauen da nach jetzigem stand der Bot so zu sagen abstürzt man aber weiter rumläuft.Aus diesen gründen haben ich den source code bei gefügt.Viel spaß:

Gunnars Feste Bot

Hi, ich möchte euch hier meinen ersten Bot zeigen. Er ist noch sehr einfach, aber ich lerne ja.

Der Bot funktioniert in der Auflösung 1920x1080

Source

 Spoiler

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot V. 1.0", 572, 235, 192, 124)
$Group1 = GUICtrlCreateGroup("HotKeys", 328, 56, 233, 129)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Bot pausieren", 344, 152, 82, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Guild Wars zeigen", 344, 104, 107, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Guild Wars verstecken", 344, 80, 133, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Num_Minus", 480, 80, 74, 20)
$Label5 = GUICtrlCreateLabel("Escape", 480, 128, 51, 20)
$Label6 = GUICtrlCreateLabel("Num_Minus", 480, 104, 74, 20)
$Label8 = GUICtrlCreateLabel("Bot Beenden", 344, 128, 77, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Pause", 480, 152, 43, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label7 = GUICtrlCreateLabel("Gunnars Bot ", 8, 8, 154, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Group2 = GUICtrlCreateGroup("Optionen", 8, 56, 305, 129)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Anzahl der Runden", 24, 88, 112, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("20", 152, 80, 81, 24)
$Label11 = GUICtrlCreateLabel("Verschleiern", 24, 112, 74, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio1 = GUICtrlCreateRadio("Ja", 152, 112, 33, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Nein", 152, 136, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Bot starten", 8, 192, 307, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Bot Beenden", 328, 192, 235, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
  $nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE
        Exit
    Case $Button2
        Exit
    Case $Button1
       Start()

EndSwitch
WEnd


;===========================================================================


#cs
HotKeys definieren ;)
#ce

HotKeySet("{ESC}", "Close")
HotKeySet ("{Pause}", "TogglePause")
HotKeySet("{NUMPADSUB}", "HIDE")
HotKeySet("{NUMPADADD}", "Show")

;===========================================================================

#cs
Variabeln dekladieren
#ce

$Anzahl = GUICtrlRead($Input1)
$yes = GuiCtrlRead($Radio1)
$no = GUICtrlRead ($radio2)
$Titel = "Guild Wars"

;===========================================================================

#cs
"normale" Funktionen
#ce

Func Close()
    Exit 1
EndFunc

Func Hide()
    WinSetState($Titel, "", @SW_HIDE)
EndFunc

Func Show()
    WinSetState($Titel, "", @SW_SHOW)
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
EndFunc

;===========================================================================



Func Start()
if not WinActive ("Guild Wars") Then
    WinActivate ("Guild Wars")
EndIf
WinWaitActive ("Guild Wars")


For $i = 1 To $Anzahl
Sleep(random(7000, 9000))
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{D Down}")
Sleep(101)
ControlSend ("Guild Wars","",0,"{D Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(4100)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"7")
Sleep(2000)
ControlSend ("Guild Wars","",0,"3")
Sleep(4000)
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(3000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"8")
Sleep(2000)
ControlSend ("Guild Wars","",0,"4")
Sleep(2000)
ControlSend ("Guild Wars","",0,"5")
Sleep(2000)
ControlSend ("Guild Wars","",0,"6")
Sleep(2000)
ControlSend ("Guild Wars","",0,"2")
Sleep(2000)
ControlSend ("Guild Wars","",0,"1")
Sleep(35900)
ControlSend ("Guild Wars","",0,"{A Down}")
Sleep(400)
ControlSend ("Guild Wars","",0,"{A Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(1300)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"{Tab}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"{Space}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"R")
ControlClick ("Guild Wars", "", 0, "Left", "1", 578, 630)
Sleep(1000)
ControlSend ("Guild Wars","",0,"{Tab}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"{Space}")
ControlClick ("Guild Wars", "", 0, "Left", "1", 542, 535)
Sleep(1000)
ControlClick ("Guild Wars", "", 0, "Left", "1", 527, 628)
Sleep(1000)
ControlSend ("Guild Wars","",0,"X")
Sleep(600)
ControlSend ("Guild Wars","",0,"{A Down}")
Sleep(500)
ControlSend ("Guild Wars","",0,"{A Up}")
ControlSend ("Guild Wars","",0,"{W Down}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"{W Up}")
ControlSend ("Guild Wars","",0,"{Tab}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"{Space}")
Sleep(1000)
ControlSend ("Guild Wars","",0,"R")
ControlClick ("Guild Wars", "", 0, "Left", "1", 550, 598)
Sleep(1000)
ControlClick ("Guild Wars", "", 0, "Left", "1", 569, 564)
Next
EndFunc 


Über Feedback würde ich mich sehr freuen. Bitte bewertet aber nicht so hart . Ich bin noch Anfänger

mfg Cry Zor

[buFFy!]

Ich hab vorhin noch über den Bot nachgedacht.. hab aber ne bessere Stelle für Nornpunkte gefunden

[Syc0n]

Für nen Anfänger natürlich für den Anfang nicht schlecht, aber eventuell solltest du dir mal die gwca angucken, da dein Code doch ziemlich lang und "überflüssig" ist

[Cry Zor]

ok danke aber was bewikrt gwca ungefähr ich weiß es ungefähr aber nicht genau
wäre gut denn es ist jetzt auch ein "punkte packadge" in arbeit
genaueres wenn ihr wollte auf meiner website:

[Syc0n]

Originally Posted by Cry Zor

ok danke aber was bewikrt gwca ungefähr ich weiß es ungefähr aber nicht genau
wäre gut denn es ist jetzt auch ein "punkte packadge" in arbeit
genaueres wenn ihr wollte auf meiner website:

Also deine Internetadresse gibt es nicht.

Mit GWCA kannste GW-Interne Funktionen callen. Wichtigsten dabei wären wohl die MoveTo und die UseSkill Funktionen, aber am besten guckst du einfach mal auf der Seite nach:

[Cry Zor]

ok ja ich habs gesehen edit ist ja schon draußen :P

[rpg-all]

Achja, das gute alte Au3, ohne jegliche MoveTo usw.
Ist das nicht schön.. xD

Schon lang nimmer gesehn x)

[Cry Zor]

abert es läuft doch

[pr(o*o)wn]

nicht schlecht aber wer bitte schön spielt hier alles 1920x1080? oder ist das nicht wichtig, hab ihn leider noch nicht getestet

[Cry Zor]

ja is halt schon geil so nen geilen compi zu haben kannst ja auch einfach des script ändern :P
des dürft ja net so schwer sein der is halt erst mal für mich gewesen

[NBA]

Cry Zor, deine Signatur ist unleserlich
Es müsste heißen:
Besucht auch meine Homepage: ! Sie ist noch in Bearbeitung :P
(Das mit dem Ihr Homepagetitel will ich jetzt nicht ausbessern xD)

Aber egal, es sprechen mehrere Gründe für den Bot :

- Eine externe Moveto und anscheinend wird eine externe Datei werden nicht benötigt.
- Der Bot hat eine GUI
- Der Bot kann im Hintergrund laufen, aber hat eben die typischen Au3 macken

Dagegen spricht, dass ohne MoveTo der Bot unzuverlässig wird, außerdem fehlen gewisse Abfragen, die einen wahren Profibot ausmachen würden (Aber da es ja einer deiner ersten Bots scheint, ist er schon ziemlich fortschrittlich...) :
- Überprüfen ob die Verbindung noch steht
- Eine einigermaßen lesbare Beschreibung (Das ist das was unten im Spoiler ist)
- Deathcheck eben
- Erkennen von Cynn ^.^

Hier ist eine überarbeitete Version deiner Beschreibung:

 Spoiler

Hi,
dieser Bot farmt die Bisonmarken in Gunnars Feste, für die man sich z.B. eine Krone kaufen kann. Nebenbei maxt er für 90 P auch noch den Norntitel. Das Problem an der Sache ist, dass man trotz vieler Vorsichtsmaßnahmen, gegen Ele's (bei Cynn) immer stirbt, da sie ca. 3 mal Flächenschaden casten [oder ist das nur bei Cynn??].
Ihr müsst noch selbst in die Mission gehen und ihn erst dann starten, da er noch nicht sehr ausgereift ist.
Evtl.*bau ich noch einen Deathcheck (Todescheck) mit ein, da er z.Z. noch "abstürtzt", aber noch weiterläuft. Aus diesen Gründen habe ich den Sourcecode hinzugefügt.
Viel Spaß.

Es ist mein erster Bot, aber ich lerne ja noch.
Die standartmäßige Auflösung beträgt 1920x1080.

Sorry für das Rechtschreibgeflame, aber ich hasse Botbeschreibungen die man nicht mal schnell durchlesen kann x)

mfg

edit:
Mir ist grade aufgefallen dass du "#ce" und "#cs" zum kommentieren von einzelnen Zeilen hernimmst.
Kleiner Tipp: mit ";" (Semikolon) spart man Zeilen und macht den Code übersichtlicher.

[Moppel123]

Ach ja, das ist ja mal richtig schön, so ein Script zu sehen..
Ich habe ebenfalls mit sowas angefangen, deshalb werde ich dir gerne behilflich sein, wenn du Fragen oder Ähnliches hast.

Am Besten liest du dir mal die Tutorials hier im Forum durch, denn damit klären sich bereits ein paar Fragen und du lernst zu verstehen, was einen guten Bot ausmacht (du musst es ja noch nicht können - nur verstehen). Und dann schaust du dir ein paar Codes an.

Ich habe heute leider nicht mehr viel Zeit, deshalb kann ich erst ab morgen die Tuts etc. verlinken.

Und wie gesagt: wenn du Fragen hast, dann frag.
Du hast ein sehr ordentliches Script abgeliefert und vorher nicht dumm rumm gesapammt oder dergleichen.
Deshalb wird dich hier niemand abweisen!
Dies richtet sich auch an alle "Neuen"; wenn ihr nett seid, wird man euch auch freundlich weiterhelfen. Aber wenn ihr unfreundlich oder dreist seid, dürft ihr euch über die Reaktionen hier im Forum nicht wundern.

So, das wars für heute^^

[Cry Zor]

1.ich hasse recht Schreibung war noch nie gut drinnen und mir ist es ehrlich gesagt auch EGAL(wenn ihr meine Lehrer gekannt hättet würdet ihrs verstehen XD
2.ich muss
leider gestehen das mir jemand geholfen hat und ohne den hätte ich nie einen so guten Guide ihnbekommen bzw über Haupt einen Bot. Hier also nochmal danke schön.
3. Ich lerne derzeit an deathcheck und gwca kommt demnächst auch noch moveto hab im mom nur Klausuren Stress ;(
4. ichfinde es sehr nett das ihr so hilfbereit seid und werde das in Zukunft bestimmt in Anspruch nehmen müssen vorallem im betzug auf gwca
dann bis mrgen gn8 schlafe schön und träumt süß von mir
nen schman XD

[NBA]

Ich habe auch schlechte Deutschlehrer. Aber ich habe es mir durch das Internet angewöhnt, schnell zu lesen. Da ist es vorteilhaft, wenn ein wenig auf Interpunktion und Groß/Kleinschreibung geachtet wird.
Genug Offtopic.
Evtl. aber nicht sicher setze ich mich ran, deine Website in ein "anständiges" Deutsch zu portieren (Fead Back wird zu Feedback usw.).
Evtl. auch, sobald meine Windowspartition wieder läuft, den Bot in die GWCA zu portieren. Hängt halt davon ab, wie ein paar wichtige Termine stehen, die über den Rest meiner verdammten Zukunft entscheiden .
Ist der Bot erstmal in GWCA sollte es ein leichtes sein, Cynn zu erkennen und ggf. zu Resignen, damit man nicht normal stirbt...
Normal sterben ist halt Gift für den Survivor Title, das sehen ein paar Leute halt nicht gerne .
Leider ist Multithreading nicht wirklich in Au3 möglich - sonst wäre ein eingebauter Verbindungscheck nicht schlecht.

[Cry Zor]

Ah ok ja man Muss dazu sagen ich habe den bot weitgehend in der Schule geschrieben (deutsch) XD
jetzt mal als Frage wie kann ich jene variablen Win Name einfügen?
MfG und schönen Tag :P