Botsammelung 1.0 Unfinished

[NBA]

Bitte...bis jetzt ist es noch nicht fertig...ich versuche zwar die bots anzupassen, aber das GUI muss noch kommen

Solage geht NICHTS

€dit: sry des doppelposts, hab nur einmal gepostet


2.edit: Les den Code, das hilft oft.(ausser man versteht ihn nicht )

[Read Me]

Und wenn du den Code nich verstehst, dann warte bis der Bot fertig is :-)

TT:
Gute Idee. Ich hatte sowas auch mal vor, aber ich musste feststellen, dass ich definitiv zu faul für sowas bin^^

[NBA]

In diesem Kreise kann ich nur sagen :

Weunda ist ne faule Sau^^...

Naja, werd mich mal wieder darüber her machen in den Ferien, hab grad kaum zeit -.-

[NBA]

So, einigermassen "Erneuert"... leider hat es etwas laenger gedauert...musste da GUI selbst machen. Stand 26.12.2008:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#cs ----------------------------------------------------------------------------
	
	AutoIt Version: 3.2.12.1
	Bot Version: 1.0
	Author:         NBA and the Elit*pvpers community

       Stand 27.12.2008
	
	Script Function:
	Eine Sammelung (und Anpassung) der Bots
	Man könnte auch standartisierung der Bots sagen ;-)
	
	Have fun!!!
#ce ----------------------------------------------------------------------------

;Das GUI
#include <GuiConstants.au3>
;-----
GuiCreate("Community Bot - Guild Wars v.1.0 by NBA",500,500)
GuiSetstate(@SW_SHOW)
;Liste
$test = GUICtrlCreateList("",10,10)

$Elonaspitze = GuiCtrlSetData($test,"Elonaspitze")
$Thermalquellen = GuiCtrlSetData($test,"Thermalquellen")
$SenjiAssa = GuiCtrlSetData($test,"Ungeziefer Permasin")
$SenjiKrieger = GuiCtrlSetData($test,"Ungeziefer Krieger/Ritu")
$Jadebruderschaft = GUICtrlSetData($test,"Jaderbruderschaft")
$Flachland = GuiCtrlSetData($test,"Flachland von Jarin")
;Startbutton
$Start = GuiCtrlCreateButton("Start",215,20,120,120)

;Inputs
$GuildWarsPath = GuiCtrlCreateInput("Gib hier den Guild Wars path an",10,170,200,25)
$Email = GuiCtrlCreateInput("Gib hier die Account Email an",10,230,200,25)
$Passwort = GUICtrlCreateInput("Gib hier dein Passwort an",10,260,200,25)
$Runden = GuiCtrlCreateInput("Wie oft willst du Farmen",10,310,200,25)

;Label
GuiCtrlCreateLabel("Autologin :",10,200)
GuiCtrlCreateLabel("Settings :",10,287)
while 1 
	$msg = GUIGetMsg()
	if $msg = $GUI_EVENT_CLOSE then ExitLoop

WEnd

;-------------Zufallsvar
$Zufalls250 = Random(300, 350, 1) ; Zufall für Fertigkeiten mit Aktv. Zeit 1/4
$Zufalls1000 = Random(1700, 1800, 1) ; Zufall für Fertigkeiten mit Aktv. Zeit 1 sek.
$Zufalls2000 = Random(2500, 2700, 1) ; Zufall für Fertigkeiten mit Aktv. Zeit 2 sek.
;-------------


;Hotkeys



;----------
;----------
;----------
;Die Fertigkeiten als Funktionen(Damit man nicht ewig langen Code braucht):
Func Schutzgeist()
	Send("1")
	Sleep($Zufalls250)
EndFunc   ;==>Schutzgeist

Func Hand()
	;Schützende Hände
	Send("2")
	Sleep($Zufalls250)
EndFunc   ;==>Hand

Func SdA()
	; Schild Der Absorbtion
	Send("3")
	Sleep($Zufalls1000)
EndFunc   ;==>SdA

Func SS()
	; Bosthafter Geist
	Send("4")
	Sleep($Zufalls2000)
EndFunc   ;==>SS

Func GA()
	;Gesegnete Aura
	Send("6")
	Sleep($Zufalls2000)
EndFunc   ;==>GA

Func Essenzbindung()
	;Essenzbindung
	Send("7")
	Sleep($Zufalls2000)
EndFunc   ;==>Essenzbindung

Func BG()
	;Baltharsars Geist
	Send("8")
	Sleep($Zufalls2000)
EndFunc   ;==>BG

Func GdS()
	;Glyphe der Schnelligkeit
	Send("1")
	Sleep($Zufalls1000)
EndFunc   ;==>GdS

Func TP()
	;Tödliches Paradoxon
	Send("2")
EndFunc   ;==>TP

Func SF()
	;Schattenform
	Send("3")
	Sleep($Zufalls1000)
EndFunc   ;==>SF

Func SR()
	;Splitterrüstung
	Send("4")
	Sleep($Zufalls1000)
EndFunc   ;==>SR

;Wiederholende Kampfszenen als Func(Ist mir leider erst beim Perma eingefallen):

Func SfKampf()
	GdS()
	TP()
	sleep(1500)
	SF()
	SR()
	Sleep(17000)
EndFunc   ;==>SfKampf

;---------------
;---------------
;---------------

Func Elonaspitze()
	#cs
		Skills: OwQTc4HDnpesSur5BAAARfIPAA
	#ce
	
	;Mission Betreten
	MouseClick("left", 896, 424, 1, 800)
	
	;Meldung mit "JA" Beantworten
	MouseClick("left", 521, 434, 1, 800)
	
	;Warten bis man in der Missi ist
	Sleep(10000)
	
	;In Spieler Reinzoomen(Damit der Richtige weg gegeangen wird)
	MouseWheel("up", 300)
	;Verz Aktiv.
	
	BG()
	GA()
	Essenzbindung()
	;Geist Anwesieren
	Send("v")
	Send("{space}")
	Sleep(9000)
	;Scherbe Fallenlassen
	MouseClick("left", 501, 634, 1, 800)
	;sich selbst anwählen
	Send("f")
	;Zu den Feinden Laufen
	Send("{w down}")
	Sleep(3000)
	Send("{w up}")
	
	Send("{d down}")
	Sleep(800)
	Send("{d up}")
	
	Send("{w down}")
	Sleep(1000)
	Send("{w up}")
	
	Send("{a down}")
	Sleep(550)
	Send("{a up}")
	
	Send("{w down}")
	Sleep(9000)
	Send("{w up}")
	
	Send("{a down}")
	Sleep(550)
	Send("{a up}")
	
	Schutzgeist()
	Hand()
	Sleep(500)
	Send("{w down}")
	Sleep(6500)
	Send("{w up}")
	SdA()
	SS()
	Sleep(5000)
	Hand()
	Schutzgeist()
	Sleep(4000)
	SS()
	Sleep(5000)
	SdA()
	Sleep(6000)
	Hand()
	Sleep(1000)
	;Zeugs aufnehmen
	Send("ö")
	Send("{space}")
	Sleep(100)
	Send("ö")
	Send("{space}")
	Sleep(100)
	Send("ö")
	Send("{space}")
	Sleep(100)
	Send("ö")
	Send("{space}")
	Send("ö")
	Send("{space}")
	;Aufgeben
	Send("{enter}/resign{Enter}")
	
EndFunc   ;==>Elonaspitze


Func PermasinSenji()
	#cs
		Skills: OwZS41PPSfekOjHCAAAAAAA
		{
		1.Glyphe der Schnelligkeit
		2.Tödliches Paradoxon
		3.Schattenform
		4.Splitterrüstung
		}
		
		Man muss eine Hohe Rune der Schattenkünste in der Rüstung haben, außerdem 42 Energie!(42 Mana+14Schattenkünste)
		
		
		
		Waffe: Stab mit standart +10 energie, Mod +5 Energie(Ich habe die Kraft, glaub ich) und einen Verz. Verl. um 20 Mod.
	#ce
	MouseWheel("up", 300) ;Damit der Laufweg zZ. Nicht beeinträchtigt wird.
	
	
	Send("{w down}")
	Sleep(4000)
	Send("{w up}")
	
	Send("{a down}")
	Sleep(500)
	Send("{a up}")
	
	Send("{w down}")
	Sleep(1500)
	Send("{w up}")
	
	Send("{d down}")
	Sleep(500)
	Send("{d up}")
	
	Send("{w down}")
	Sleep(7000)
	Send("{w up}")
	
	Send("{a down}")
	Sleep(300)
	Send("{a up}")
	
	Send("{w down}")
	Sleep(4000)
	Send("{w up}")
	
	Send("{d down}")
	Sleep(600)
	Send("{d up}")
	
	Send("{w down}")
	Sleep(3500)
	Send("{w up}")
	
	Send("{a down}")
	Sleep(500)
	Send("{a up}")
	
	Send("{w down}")
	Sleep(12000)
	Send("{w up}")
	
	SfKampf()
	SfKampf()
	SfKampf()
	
	send("{ö}")
	sleep(250)
	send("{ö}")
	sleep(250)
	send("{ö}")
	sleep(250)
	send("{ö}")
	sleep(250)
	
	
EndFunc   ;==>PermasinSenji

#cs
Entwicklungslog

###27.12.1008###
Es wurde weitergearbeitet am GUI.
#ce

Das Log ist neu wie ihr wahrscheinlich erkannt haben wird.
Den Thermalquellen Bot schreib ich neu.

[m1337ftw]

man könnte ja auch noch einen drunkard beipacken

jedenfalls wirds eine sehr feine sache

[gaylord1]

Kannst du Flachland auch als K/R machen?
dürfte nicht so lang dauern, könnt ich Autoit, würd ichs selbst machen^^..

Fertigkeiten:
1.Nachtragend war Khanei
2.Dolyak Siegel
3.Bonettis Verteidigung
Rest leer

Attribute:
Wiederherstellungsmagie: 12
Taktik: 9
Rest Stärke

Bot geht aus der großen Halle der Sonnenspeere zu den Spinnen
nun greifen ihn die Spinnen an,
er drückt 1 und wartet 10 Sekunden, dann drückt er 2, wartet ne Sekunde, drückt 3, wartet 9 Sekunden
und wiederholt diesen Kampfalgorhytmus noch 2mal
jetzt noch loot einsammeln und resignen..Fertig

[makemoneylol]

as geht

[Heikofant]

Originally Posted by makemoneylol

as geht

necrophile!