Bot Programmierkurs by NetMax

Page 1 of 7

07/26/2009 11:10 NetMax#1

Da ja jetzt die Zeit gekommen ist um hier Tutorials zu ver�ffentlichen werf ich gleich meine auch auf den Markt.
In diesen Tutorial werden wir schrittweise einen Bot erstellen:

Programmierkurs by NetMax - LEKTION I Installation
Willkommen bei meinem Programmierkurs f�r die Sprache AutoIT.
AutoIt bietet die M�glichkeit leicht BOTS zu programmieren. Ziel dieses Programmierkurses ist alle n�tigen F�higkeiten zu erlernen um einen Bot wie z.B. NetMax's NosBot selbst programmieren zu k�nnen.

1a) INSTALLATION
Wir ben�tigen
AUTOIT ([Only registered and activated users can see links. Click Here To Register...])
SciTE ([Only registered and activated users can see links. Click Here To Register...])
Kode Form Designer([Only registered and activated users can see links. Click Here To Register...])

1b) Installiert die 3 Programme.

1c) F�r was brauchen wir das alles?
AutoIT
Bei Autoit handelt es sich um die Kernkomponten die wir zu �bersetzen einer AU3 Datei ben�tigen.
SciTE
Der Editor der uns erlaubt komfortabel AutoIT Scripte zu erstellen
Koda
Damit k�nnen wir Dialoge designen (also die graphische Benutzeroberfl�che)

07/26/2009 11:12 NetMax#2

Da wir ja jetzt �ber alle ben�tigten Programme verf�gen, kann es nun endlich losgehen.

Aufgabestellung f�r diese Lektion:
Entwickeln Sie ein Programm das die ganze zeit text in das aktive Fenster senden. Zwischen den Tastdendr�cken sollen 1,5 Sekunden Pause sein.

Was sagt uns die Angabe: "das die ganze zeit" --> wir brauchen eine schleife.

Was ist ein Schleife:
Ein schleife wiederholt Anweisungen die in ihr stehen bis eine Bedingung erf�llt ist:

Code:

While 1=1
    ....
WEND

Das ist eine While-Schleife. "..." stellt weitere Anweisungen dar die wiederholt werden sollen. 1 ist hier die Bedingung(d.h. solange 1=1 ist also endlosschleife)

Was sagt uns die Angabe: text in das aktive Fenster senden
Hierzu gibt es in Autoit einen Befehl: Send("TEXT")
Damit senden wir Text in das aktive Fenster...

Was sagt uns die Angabe:
Zwischen den Tastdendr�cken sollen 1,5 Sekunden Pause sein
Wir m�ssen unser Programm nach einem Tastdruck 1,5 Sekunden schlafen legen(weil sonst wiederhollt sich die Schleife immer wieder ohne Pause)
Hierzu verwenden wir:
sleep(Zeit)
Besonders wichtig ist hierbei das die Zeit in Millisekunden angegeben werden muss(1 sek = 1000 Millisekunden)
F�r unser Beispiel hei�t das 1,5 Sekunden = 1500 Millisekunden also
sleep(1500)

Da wir jetz alles wissen um unser Programm zu entwicklen kann es nun los gehen.

Wir starten SciTE (das finde wir im Startmeue unter Autoit V3/SciTe)
Wir klicken auf das wei�e Blatt Papier(New)
Nun schreiben wir einmal unsere Schleife

Code:

While 1=1
   
WEND

4. Nun f�gen wir das Send hinzu

Code:

While 1=1
   
    Send("asdf")
WEND

5. Jetzt wollen wir auch noch die gew�nschte Pause hinzuf�gen

Code:

While 1=1
       Send("asdf")
       sleep(1500)
WEND

6.) Unser Programm ist jetzt fertig. Wir speichern es mit einem Klick auf das Diskettensymbol(Namen k�nnt ihr euch aussuchen).
7.) Jetzt braucht ihr nur mehr auf F5 dr�cken und euer Programm wird ausgef�hrt(F5 ist das selbe wie ein Klick auf Tools/Go)
8) Nun wird alle 1,5 Sekunden "asdf" an das Fenster im Vordergrund gesendet
9) Zum Stoppen des Programm macht ihr einen Rechtsklick auf den Blauen Kreis mit dem A(das Autoit-Symbol) und w�hlt "Exit".
10) FERTIG!

Ein konkrettes Beispiel oder wof�r bracu ich das jetzt?
Das braucht ihr z.B. f�r einfache NosTale Bots:
EIn Bot der alle 0,5 Sekunden einmal die Leertaste dr�ckt(was in Nostale ein Autofight-Bot w�re):

Code:

While 1=1
       Send(" ")
       sleep(500)
WEND

Und fertig =)

07/26/2009 11:13 NetMax#3

Da wir jetzt schon Zeichen an Programme senden k�nnen w�re es doch sch�n wenn wir nebenbei z.B. Internet surfen k�nnten. Also m�ssten wir Zeichen an Programme senden die im Hintergrund ausgef�hrt werden. In folgenden Besipiel werden wir Space an das Programm NosTale senden.

Wie funktioniert das?
Wir brauchen den Titel des Programms. Diesen wollen wir in einer Variable speichern. Dann �ffent unser Programm die Kommunikationsschnittstellen des Fensters mit dem Namen aus der Variable. Wenn dies gelingt k�nnen wir mit ControllSend texte an das Fenster schicken. Wenn nicht wird eine fehlermeldung ausgeben(MsgBox) und das Programm beendet. Um diese Bedingung zu �berpr�fen brauch wir ein IF.

Was ist ein IF?
Mit einem If k�nnen wir bedingungen �berpr�fen.

Code:

If Bedingung Then
   ....
Else
.....
EndIf

Die Anweisungen unter dem Else geben an was gemacht werden sol wenn die Bedingung nicht erf�llt ist

Nun gehts los:
1) Wir speichern uns den Namen des Fensters das wir ansprechen wollen in der Variable

Code:

$fenstername = "NosTale"

2) Nun �ffnen wir die Kommunikationsschniitstellen(das machen wir weil wir wissen wollen ob es �berhaupt ein Fenster gibt das diesen Namen hat)

Code:

$handle = WinGetHandle($windowname, "")

3) Nun m�ssen wir �berpr�fen ob wir das Fenster �ffnen konnten. Dazu verwenden wir eine Systemvariable von Autoit @error. Es gibt einige Varaiblen die von AutoIT bereits vordefiniert und automatisch bef�llt sind. In @error steht true(also wahr) wenn ein fehler aufgetreten ist und false(also falsch) wenn keiner aufgetreten ist.

Code:

If @error Then
    
Else
          
EndIf

4) Nun geben wir eine Fehlermeldung aus wenn ein Fehler aufgetreten ist. Daf�r verwenden wir die Funktion MsgBox
MsgBox(Nr, "Titel", "Text")

F�r unser Programm schaut das so aus:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
$windowname="NosTale"
$handle  = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Could not find the correct window")
Else
    
EndIf

5) Nun sollten wir auch was tun wenn kein Fehler auftritt :D
Wir schreiben wieder unsere Schleife mit dem sleep wie vorher. Das Send lassen wir jetzt aber vorl�ufig weg.

Code:

AutoItSetOption("WinTitleMatchMode", 4)
$windowname="NosTale"
$handle  = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Could not find the correct window")
Else
   
    while 1
       
        sleep(150)
    WEnd

EndIf

6) Jetzt kann unser Programm schon ziemlich viel(au�er texte senden).
Um im Hintergund zu senden verwenden wir ControllSend

Code:

ControlSend($fenstername,'','',"TEXT")

Die Paramter in der Mitte sind uns daweil noch egal.
Bauen wir das ganze jetzt in unser Programm ein:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
$windowname="NosTale"
$handle = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden")
Else
  
    while 1
        ControlSend($windowname,'',''," ")
        sleep(150)
    WEnd

        
EndIf

Unser Programm ist nun fertig. Wir k�nnen es nun speichern und mit F5 ausf�hren.

Anwenden k�nnte man so ein Script f�r Bots.

07/26/2009 11:16 NetMax#4

Jetzt da unser Programm ja schon ziemlich gut l�uft wollen wir vielleicht die M�glichkeit schaffen es �ber die Tastatur zu beenden, zu pausierenn bzw wieder fortzusetzen...

Was wir bisher haben:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
$windowname="NosTale"
$handle = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden")
Else
  
    while 1
        ControlSend($windowname,'','',"asdf")
        sleep(150)
    WEnd

        
    EndIf

Jetz wollen wir unser Script mit Escape beenden und mit der Pause-Taste pausieren bzw wieder fortstetzen k�nnen.

Zuerst m�ssen wir festlegen das eine Taste eine bestimmte Funktion aufruft das machen wir so:
HotKeySet("{PAUSE}","TogglePause")
{PAUSE} ist die Taste. Also in diesen Fall die Pause Taste
TooglePause ist die Funktion die aufgerufen werden soll(Diese m�ssen wir selbst programmieren.)

Nun wollen wir die Funktion TooglePause porgrammieren. Daweil wissen wir aber noch nicht einmal was eine Funktion ist. Eine Funktion kann aufgerufen werden. Sie bekommt verschiedene Parameter und kann einen Wert zur�ckgeben.

Nun zu unserer TogglePause-Funktion. Wir brauchen eine Variable die speichert ob das Script pausiert ist oder nicht. Bei jedem aufruf von TogglePause m�ssen wir den Wert von Pause umsetzen.
z.b. wenn $Paused true ist wird durch $pause = not $Pause der wert genau ge�ndert
also $pause = not true = false. Jetzt machen wir eine Schleife die abbricht wenn Paused false ist(also nicht pausiert).Um nicht die CPU-Resourcen zu verschwenden findet die �berpr�fung nur alle 100 Millisekunden statt.

Code:

Global $Paused
 Func TogglePause()
     $Paused = NOT $Paused
     While $Paused
         sleep(100)
     WEnd
     
 EndFunc

Jetzt wollen wir das Programm mit ESC beenden dazu ben�tigen wir wieder ein HotKeySet
HotKeySet("{ESC}","Terminate")

jetzt m�ssen wir wieder die Funktion Terminate programmieren:

Code:

Func Terminate()
     Exit  0
 EndFunc

Unser Bsp aus der Lektion 3 sieht nun so aus:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
Global $Paused
 HotKeySet("{PAUSE}", "TogglePause")
 HotKeySet("{ESC}", "Terminate")
$windowname="NosTale"
$handle  = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096,  "Error", "Fenster konnte nicht gefunden werden")
Else
  
     while 1
        ControlSend($windowname,'','',"asdf")
        sleep(150)
     WEnd

Func TogglePause()
     $Paused = NOT $Paused
     While $Paused
         sleep(100)
      WEnd
   EndFunc
 
 Func Terminate()
     Exit  0
 EndFunc
        
    EndIf

07/26/2009 11:17 NetMax#5

Heute lernen wir einen der wichtigsten Aspekte f�r Bots: Timer.
TImer f�hren Befehle oder Funktionen nach einer bestimmten Zeit aus.

Wof�r brauch ich Timer:
Programmiere einen Bot der alle 3 Minuten schalfen geht(die Taste T dr�ckt) und sonst immer die Leertaste. Der Bot soll eine bestimmte Zeit die vom Benutzer eingebe wurde schlafen.

Wie funktiioniert ein timer:

Zuerst speichern man die aktuelle Zeit(ist ein Timestamp aber das ist uns egal) $WertVonAnfang = TImerInit()
Dann macht man eine Hauptschleife
In der Hauptschleife muss man Vergleichen ob die Differenz eine bestimmte Zeit in Millisekunden �bersteigt TimerDiff(WertVonAnfang) > ZeitDieManWartenWill

Mit diesem Wissen k�nnen wir jetzt schon unseren ersten Timer programmieren:
Damit sich er Ablauf immer widerholt nehmen wir in der Schleife nach dem der befehl ausgef�hrt wurde den aktuellen Wert und setzen ihn als neuen Anfangswert: $timer1 = TimerInit()

Code:

$timer1 = TimerInit ()

While 1
    If TimerDiff ($timer1) > 5000 then
        MsgBox (0,"","5 sekunden sind vergangen")
        $timer1 = TimerInit()
    EndIf
WEnd

Nun wollen wir vielleicht den Benutzer entscheiden lassen wie lange gewartet werden soll:
Eingaben einlesen k�nnen wir mit dem Befehl InputBox("Titel","Frage"). Diese Funktion gibt uns einen Wert zur�ck den wir nat�rlich in einer Variable speichern m�ssen:
$zeit = InputBox("Frage?","Wielange soll gewartet werden?")

Da wir nun alles wissen programmieren wir jetzt das Beispiel von oben.
Hier nochmal zur Erinnerung
Programmiere einen Bot der alle x Minuten schlafen geht(die Taste T dr�ckt) und sonst immer die Leertaste. Der Bot soll eine bestimmte Zeit die vom Benutzer eingebe wurde schlafen. Auch x ist vom Benutzer einzulesen

Code:

$zeitLeveln = InputBox("Frage?","Wielange Leveln bis geschlafen wird? (zeit in Millisekunden)")
$zeitSchlafen = InputBox("Frage?","Wielange soll geschlafen werden? (zeit in Millisekunden)")
$timer1 = TimerInit ()

While 1
    If TimerDiff  ($timer1) > $zeitLeveln then
        send("T")
        sleep($zeitSchlafen)
        send("T")
        $timer1 = TimerInit()
    EndIf
   Send(" ")
WEnd

Und fertig ist der Bot der Leveln und Schlafen kann ;)

Jetzt wollen wir das ganze nat�tlich auch in user gro�es Beispiel integrieren:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
Global $Paused
 HotKeySet("{PAUSE}", "TogglePause")
 HotKeySet("{ESC}", "Terminate")
$zeitLeveln = InputBox("Frage?","Wielange Leveln bis geschlafen wird?  (zeit in Millisekunden)")
$zeitSchlafen = InputBox("Frage?","Wielange  soll geschlafen werden? (zeit in Millisekunden)")
$timer1 =  TimerInit ()
$windowname="NosTale"
$handle  = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096,  "Error", "Fenster konnte nicht gefunden werden")
Else
  
     while 1
If TimerDiff  ($timer1) > $zeitLeveln then
        ControlSend($windowname,'','',"T")
         sleep($zeitSchlafen)
        ControlSend($windowname,'','',"T")
        $timer1 =  TimerInit()
    EndIf
        ControlSend($windowname,'',''," ")
        sleep(150)
     WEnd


        
    EndIf

Func TogglePause()
     $Paused = NOT $Paused
     While $Paused
          sleep(100)
      WEnd
   EndFunc
 
 Func  Terminate()
     Exit  0
 EndFunc

07/26/2009 11:19 NetMax#6

[align=left]Bei der Entwicklung gr��erer Programme ist es besonders wichtig das man strukturiet programmiert d.h. das man z.B. sich wiederhollende Bestandteile in Funktionen auslagert. Auch ist es wichtig das man z.B Teile wie angreifen und diverse Funktionen auslagert. Dies erleichert sp�ter den Austausch dieser Funktionen.

Beispiel erweitern Sie das Programm um eine Aufsammel funktion. Der Benutzer soll eingeben k�nnen nach wievielen Tastendr�cken der Leertaste 2 mal die Aufsammeltaste gedr�ckt werden soll. Auch soll nach dem Schlafen 2 mal die Aufsammel Taste ged�rckt werden. Die Aufasammeltaste soll in einer Variable definiert sein.

Das haben wir bisher.

Code:

AutoItSetOption("WinTitleMatchMode", 4)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$zeitLeveln = InputBox("Frage?", "Wielange Leveln bis geschlafen wird?  (zeit in Millisekunden)")
$zeitSchlafen = InputBox("Frage?", "Wielange  soll geschlafen werden? (zeit in Millisekunden)")
$timer1 = TimerInit()
$windowname = "NosTale"
$handle = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden")
Else

    While 1
        If(TimerDiff($timer1) > $zeitLeveln) Then
            ControlSend($windowname, '', '', "T")
            Sleep($zeitSchlafen)
            ControlSend($windowname, '', '', "T")
            $timer1 = TimerInit()
        EndIf
        ControlSend($windowname, '', '', " ")
        Sleep(150)
    WEnd


    

EndIf




Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc   


Func Terminate()
    Exit 0
EndFunc

Zun�chst schreiben wir jetzt eine Angriffsfuntkion(diese k�nnen wir sp�ter z.B. f�r den EInsatz von Skills erweitern):

Code:

Func Attack()
    ControlSend($windowname, '', '', " ")
EndFunc

Nun schreiben wir eine Funktion die �berpr�ft ob esZeit ist zum schlafen. Dieser geben wir den sprechenden Namen isSleepTime. Diese Funktion gibt True zur�ck wenn es Zeit ist zu schlafen und False wenn wir nicht schlafen m�ssen

Code:

Func isSleepTime()
    If(TimerDiff($timer1) > $zeitLeveln) Then
        return True
    Else
        return False
    EndIf
EndFunc

Nun programmieren wir noch eine Funktion die Schlafen hei�t:
Sie f�hrt einfach alle befehle aus die wir f�r einen Schlafvorgang bracuhen also Niedersetzen, Warten, Aufstehen

Code:

Func Schlafen()
    ControlSend($windowname, '', '', "T")
    Sleep($zeitSchlafen)
    ControlSend($windowname, '', '', "T")
    $timer1 = TimerInit()
EndFunc

Nun bauen wir die Funktionen ein. Das sollte dann so aussehen:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$zeitLeveln = InputBox("Frage?", "Wielange Leveln bis geschlafen wird?  (zeit in Millisekunden)")
$zeitSchlafen = InputBox("Frage?", "Wielange  soll geschlafen werden? (zeit in Millisekunden)")
$timer1 = TimerInit()
$windowname = "NosTale"
$handle = WinGetHandle($windowname, "")
If @error Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden")
Else

    While 1
        If(isSleepTime()) Then
            Schlafen()
            
        EndIf
        Attack()
        Sleep(150)
    WEnd


    

EndIf


Func Attack()
    ControlSend($windowname, '', '', " ")
EndFunc
Func isSleepTime()
    If(TimerDiff($timer1) > $zeitLeveln) Then
        return True
    Else
        return False
    EndIf
EndFunc

Func Schlafen()
    ControlSend($windowname, '', '', "T")
    Sleep($zeitSchlafen)
    ControlSend($windowname, '', '', "T")
    $timer1 = TimerInit()
EndFunc
    

Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc   


Func Terminate()
    Exit 0
EndFunc

Jetzt m�ssen wir nur noch die neuen Funktionen porgrammieren.

Beispiel erweitern Sie das Programm um eine Aufsammel funktion. Der Benutzer soll eingeben k�nnen nach wievielen Tastendr�cken der Leertaste 2 mal die Aufsammeltaste gedr�ckt werden soll. Auch soll nach dem Schlafen 2 mal die Aufsammel Taste ged�rckt werden. Die Aufasammeltaste soll in einer Variable definiert sein.

Ok. Wie wir Benutzereingaben realisieren k�nnen wissen wir schon:
Mit einer InputBox

$nachwvdl = InputBox("Frage?","Nach wievielen Schleifendurchl�ufen soll aufgesammlt werden")

Der LootKey soll in einer Variable gespeichert sein:
$lootkey = "R";

Nun m�ssen wir die Aufsammel-Funktion programmieren

Code:

Func Loot()
    ControlSend($windowname, '', '', $lootkey)
     Sleep(1000)
    ControlSend($windowname, '', '', $lootkey)
     EndFunc

Diese Funktion m�ssen wir jetzt nur mehr an den richtigen Stellen in unserem Beispiel aufrufen:

Code:

AutoItSetOption("WinTitleMatchMode", 4)
$nachwvdl = InputBox("Frage?","Nach wievielen Schleifendurchl�ufen soll  aufgesammlt werden")
Global $Paused
$lootkey = "R";
HotKeySet("{PAUSE}",  "TogglePause")
HotKeySet("{ESC}", "Terminate")
$zeitLeveln =  InputBox("Frage?", "Wielange Leveln bis geschlafen wird?  (zeit in  Millisekunden)")
$zeitSchlafen = InputBox("Frage?", "Wielange  soll  geschlafen werden? (zeit in Millisekunden)")
$timer1 = TimerInit()
$windowname  = "NosTale"
$handle = WinGetHandle($windowname, "")
If @error  Then
    MsgBox(4096, "Error", "Fenster konnte nicht gefunden  werden")
Else
$durchl = 0
    While 1
        If(isSleepTime()) Then
             Schlafen()
Loot()
            
        EndIf
         Attack()

        Sleep(150)
if($durchl >=  $nachwvdl) THEN
     	Loot()
     	$durchl = 0
EndIf
$durchl = $durchl + 1

    WEnd


    

EndIf


Func  Attack()
    ControlSend($windowname, '', '', " ")
EndFunc
Func  isSleepTime()
    If(TimerDiff($timer1) > $zeitLeveln) Then
         return True
    Else
        return False
    EndIf
EndFunc

Func  Schlafen()
    ControlSend($windowname, '', '', "T")
     Sleep($zeitSchlafen)
    ControlSend($windowname, '', '', "T")
     $timer1 = TimerInit()
EndFunc
    

Func TogglePause()
         $Paused = Not $Paused
        While $Paused
             Sleep(100)
        WEnd
    EndFunc   


Func Terminate()
     Exit 0
EndFunc 

Func Loot()
     ControlSend($windowname, '', '', $lootkey)
      Sleep(1000)
     ControlSend($windowname, '', '', $lootkey)
      EndFunc

[/align]

07/26/2009 11:22 NetMax#7

Jetzt soll sich unser Bot nat�rlich nur hinsetzen wenn es wirklcih notwendig ist

Wie k�nnte man vorgehen:
HP ermitteln --> schauen ob kleiner als Wert --> hinsetzen --> �berpr�fen ob HP > WertMax --> Aufstehen sonst NIXTUN

Wie gehen wir jetzt vor:
Wir starten das Spiel von dem wir den Wert ermitteln wollen in unserem Beispiel NosTale
Wir loggen uns ein
Wir sehen unseren derzeitigen HP Stand.
Diesen Wert merken wir uns.

Nun brauchen wir Cheatengine
[Only registered and activated users can see links. Click Here To Register...]

Nun solltet ihr CheatEngine installieren

Starte CheatEngine
Nun nehme deine aktuelle HealthPoints(nicht die MaxPoints) und merke sie dir.
Klicke in Cheatengine auf das Lupensymbol

Das rot Markiete!

Du kommst in die ProcessList:

W�hle NostaleX.dat und dr�cke auf OPEN

Nun gibt deine aktuellen Healthpoints von vorher in das Feld Value ein!
Dann klicke auf First Scan(beim mir auf der Grafik steht �New Scan� weil ich da schon drauf geklickt habe).

Nun lasse dich leicht verwunden

Gib deine veringerte HP Zahl nun in das Value-Feld ein und dr�cke �Next Scan�
Nun solltest du die Speicheradresse sehen(in diesem Fall 027A839C)

Der Bot ben�tigt die Speicheradresse allerdings nicht so: 027A839C
Plaziere nun zwischen 0 der daraufolgenden Zahl ein x also:
0x27A839C
Diese Adresse brauchen wir

Nun zum eigentlichen Programm

Code:

$SPA = "0x27A839C"
$pid = WinGetProcess($windowname) ; hier besorge ich die PID
;open the process
$ProcessInformation = _MemoryOpen($pid)
$Number = _MemoryRead($SPA, $ProcessInformation)
_MemoryClose($ProcessInformation)

Mit diesem Wissen k�nnen wir:

Die HP auslesen und darauf reagieren
Die MP auslesen und darauf reagieren
Auslesen ob unser Charakter sitzt oder steht
Auslesen ob wir ein Monster ausgew�hlt haben

BILDER FOLGEN SP�TER!

07/26/2009 11:23 NetMax#8

Das GUI werde ich anhand von KODA erkl�ren
Der Koda ist ein Programm um GUI�s (Graphical User Interface) f�r AutoIt Programme zu schreiben und zu gestalten. Das Programm haben wir ja schon bereits in Lektion I installiert.

Nun �ndern wir die Sprache auf Deutsch. Dazu klickt Man auf den Menuepunkt "Options" und w�hlt danach "Settings". Hier dann "German" anw�hlen nun OK klicken.
Zum erstellen eines GUIs �ffnet man den Formdesigner. Hier kann man ein GUI anlegen. Nach einem Klick auf Neu steht man vor einem leeren Formular was nun mit Elementen f�llen kann. Sitlich im sogenannten ObjectInspector ist es ganz wichtig die EIgenschaften Name(der Name des Elements) und Caption(der Text der angezeigt wird) auszuf�llen. Cation gibt es nicht immer da f�r z.B. Eingabefelder dieser Wert Text hei�t(kann auch leer bleiben)
[Only registered and activated users can see links. Click Here To Register...]

F�r einen einfachen Button und eine Checkbox k�nnte das so aussehen:
[Only registered and activated users can see links. Click Here To Register...]
Nun w�hlt man Erzeuge Code und kopiert den Code. Diesen kann man dann in sein AutoIt-Programm einf�gen
[Only registered and activated users can see links. Click Here To Register...]
So kann der Code aussehen
[Only registered and activated users can see links. Click Here To Register...]
Die eigentlichen Programmierschritte lernen wir in der n�chsten Lektion.

07/26/2009 11:25 NetMax#9

FRAGEN BITTE IN DEN THREAD "Fragen zu NetMax's Programmiertutorial"

08/26/2009 11:26 NetMax#10

Im heutigen Tutorial werden wir mit Hilfe des Wissens was wir bisher erworben haben dieses Benutzerinterface erstellen.

[Only registered and activated users can see links. Click Here To Register...]

Wichtig:
Name f�r das HP-Eingabefeld = txtHP
name f�r das Aufsammeltastenfeld = txtASK
name f�r das Schlaftastenfeld = txtSK
name f�r die minHP = txtMinHP
name f�r die maxHP = txtMaxHP
F�r die Checkbox(Das zu Anhaken) = chkAufsammeln
der StartButton = cmdSS
der Pausebutton = cmdPause

Legt nun das Benutzerinterface so wie abgebildet an!

Nun lassen wir uns(wieim letzten Tutorial gelernt) den Code generieren.

Wir erhalten in etwas folgendes:

Code:

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NetMax's TutorialBot", 259, 403, 192, 124)
$grpAufsammeln = GUICtrlCreateGroup("Aufsammeln", 16, 88, 233, 65)
$chkAufsammeln = GUICtrlCreateCheckbox("Aufsammeln", 88, 128, 97, 17)
$Label2 = GUICtrlCreateLabel("Aufsammeltaste", 32, 104, 78, 17)
$txtASK = GUICtrlCreateInput("", 120, 104, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpAdd = GUICtrlCreateGroup("Adressen", 16, 24, 233, 57)
$Label1 = GUICtrlCreateLabel("HP", 32, 56, 19, 17)
$txtHP = GUICtrlCreateInput("", 88, 48, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpSteuerung = GUICtrlCreateGroup("Steuerung", 16, 304, 233, 81)
$cmdSS = GUICtrlCreateButton("Start", 48, 320, 179, 25, 0)
$cmdPause = GUICtrlCreateButton("Pause", 48, 348, 179, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sonstige = GUICtrlCreateGroup("Sonstige Tasten", 16, 152, 233, 57)
$Label3 = GUICtrlCreateLabel("Schlaf-Taste", 32, 176, 64, 17)
$txtSK = GUICtrlCreateInput("", 120, 174, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Sonstige Einstellungen", 16, 216, 233, 89)
$Label4 = GUICtrlCreateLabel("MinHP", 32, 240, 36, 17)
$Label5 = GUICtrlCreateLabel("MaxHP", 32, 274, 39, 17)
$txtMinHP = GUICtrlCreateInput("", 99, 238, 121, 21)
$txtMaxHP = GUICtrlCreateInput("", 97, 271, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

	EndSwitch
WEnd

Nun wollen wir die Aktionen f�r die Tasten definieren. Wir sehen eine While-Schleife.
$nMsg = GUIGetMsg() fragt ab ob sich etwas am formular ge�ndert hat.
Das Switch unterscheidet die einzelnen Ver�nderungen.
Standartm��ig gibt es

Code:

Case $GUI_EVENT_CLOSE
			Exit

Nun wollen wir eine Aktion f�r unseren Startknopf definieren. Dieser hei�t cmdSS
Wir f�gen ein Case hinzu:

Code:

Case $cmdSS
			startstop()

Die Funktion startstop() werden wir sp�ter definieren

Nun definieren wir auch noch eine Aktion f�r den Pause-Knopf(cmdPause):

Code:

Case $cmdPause
			pause()

Der fertige Code mit dem Rohbau der Funktionen startstop() und TogglePause() sollte so aussehen:

Code:

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

#Region ### START Koda GUI section ### Form=
...
#EndRegion ### END Koda GUI section ###
func startstop()
	;die StartStopFUnktion
EndFunc
func TogglePause()
	;die PauseFUnktion
EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $cmdSS
			startstop()
		Case $cmdPause
			TogglePause()

	EndSwitch
WEnd

Da wir das Rad nicht jedesmal neuerfinden m�ssen nehmen wir einfach die Pause Funktion aus LEKTION VI.
Zur erinnerung folgende Code-Teile sind f�r die Pause funktion wichtig:

Code:

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc

Diese Funktion bauen wir jetzt gleih in unseren Code ein:

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NetMax's TutorialBot", 259, 340, 192, 124)
$grpAufsammeln = GUICtrlCreateGroup("Aufsammeln", 16, 104, 233, 105)
$chkAufsammeln = GUICtrlCreateCheckbox("Aufsammeln", 88, 176, 97, 17)
$Label2 = GUICtrlCreateLabel("Aufsammeltaste", 32, 136, 78, 17)
$txtASK = GUICtrlCreateInput("", 120, 136, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpAdd = GUICtrlCreateGroup("Adressen", 16, 24, 233, 73)
$Label1 = GUICtrlCreateLabel("HP", 32, 56, 19, 17)
$txtHP = GUICtrlCreateInput("", 88, 48, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpSteuerung = GUICtrlCreateGroup("Steuerung", 16, 216, 233, 105)
$cmdSS = GUICtrlCreateButton("Start", 48, 240, 179, 25, 0)
$cmdPause = GUICtrlCreateButton("Pause", 48, 268, 179, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sonstige = GUICtrlCreateGroup("Sonstige Tasten", 16, 152, 233, 57)
$Label3 = GUICtrlCreateLabel("Schlaf-Taste", 32, 176, 64, 17)
$txtSK = GUICtrlCreateInput("", 120, 174, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Sonstige Einstellungen", 16, 216, 233, 89)
$Label4 = GUICtrlCreateLabel("MinHP", 32, 240, 36, 17)
$Label5 = GUICtrlCreateLabel("MaxHP", 32, 274, 39, 17)
$txtMinHP = GUICtrlCreateInput("", 99, 238, 121, 21)
$txtMaxHP = GUICtrlCreateInput("", 97, 271, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
func startstop()
	;die StartStopFUnktion
EndFunc
Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
    EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $cmdSS
			startstop()
		Case $cmdPause
			TogglePause()

	EndSwitch
WEnd

Wir wollen einen Bot machen der sich hinsetzt wenn zu wenig HP vorhanden sind. Dann sitzen bleibt bis wieder die Maximalen HP erreicht sind. Zwischendurch greift er an und sammelt auf. Die HP Zahl lesen wir wie in LEKTION VII aus dem Arbeitspeicher aus.

Was brauchen wir?
4 neue Funktionen:
doSleep() --> Setzt sich hin und wartet bis HP wieder voll. Steht dannach auf.
attack() --> Dr�ckt den Attack Key
loot() --> Dr�ckt die Aufsammeltaste
checkHP() --> Lie�t die aktuellen HP aus dem Arbeitsspeicher und gibt sie Zur�ck

und wir m�ssen das Programm erweitern:

checkHP():

Code:

func checkHP()
$SPA = "0x27A839C" ; Die Speicheradresse(mit CE suchen)
$pid = WinGetProcess($windowname) ; hier besorge ich die PID 
; process �ffnen
$ProcessInformation = _MemoryOpen($pid)
$Number = _MemoryRead($SPA, $ProcessInformation) ;Lesen
_MemoryClose($ProcessInformation)
return $Number ; Wert zur�ckgeben
EndFunc

doSleep():

Code:

func doSleep()
	ControlSend($windowname, '', '', $sk) ;Schlaftaste dr�cken
	while(checkHP()<$maxHP) ; Schauen ob aktuelle HP < maxHP sind
		sleep(500) ; Warten
	WEnd
	ControlSend($windowname, '', '', $sk) ; Wiederaufstehen
	
EndFunc

attack und loot senden jeweils nur eine Taste:

Code:

func loot()
	ControlSend($windowname, '', '', $lk)
EndFunc

func attack()
	ControlSend($windowname, '', '', $atk)
EndFunc

Das hauptprogramm:

Code:

if $running == True Then ; $running m�ssen wir in der Funktion startstop() setzen
	if(checkHP()<$minHP) Then ; wir schauen ob die Hp kleiner als die MinimumHP sind --> wenn ja schlafen
		doSleep()
	EndIf
	
	attack() ;--> Angreifen
	loot() ; --> Aufsammeln
EndIf

Die ver�nderte startstop Funktion:

Code:

$running = false
func startstop()
	$running = NOT $running
EndFunc

Das ganze sieht nun so aus:

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
#Region ### START Koda GUI section ### Form=
...gek�rzt...
#EndRegion ### END Koda GUI section ###
func startstop()
	$running = NOT $running
EndFunc
Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
EndFunc
func checkHP()
$SPA = "0x27A839C"
$pid = WinGetProcess($windowname) ; hier besorge ich die PID
;open the process
$ProcessInformation = _MemoryOpen($pid)
$Number = _MemoryRead($SPA, $ProcessInformation)
_MemoryClose($ProcessInformation)
return $Number
EndFunc
func loot()
	ControlSend($windowname, '', '', $lk)
EndFunc

func attack()
	ControlSend($windowname, '', '', $atk)
EndFunc

func doSleep()
	ControlSend($windowname, '', '', $sk)
	while(checkHP()<$maxHP)
		sleep(500)
	WEnd
	ControlSend($windowname, '', '', $sk)
	
EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $cmdSS
			startstop()
		Case $cmdPause
			TogglePause()
	EndSwitch
if $running == True Then
	if(checkHP()<$minHP) Then
		doSleep()
	EndIf
	
	attack()
	loot()
EndIf
WEnd

08/26/2009 11:28 NetMax#11

Nun brauchen wir folgende Informationen
$minHP --> minimale HP
$maxHP --> maximale HP
$windowName --> fenstername
$SPA --> HPAdresse
$sk --> SleepKey
$ASK --> Aufsammeltaste

WindowName definieren wir einfach
$windowname = "NosTale"

Doch wie bekommen wir jetzt die anderen Werte(die wir ja schon in den Textboxen haben)?
F�r normale textfelder geht das ganz einfach GUICtrlRead(TEXTFELDNAME)
Also z.B.
$minHP = GUICtrlRead($txtMinHP)
$maxHP = GUICtrlRead($txtMaxHP)
$SPA = GUICtrlRead($txtHP)
$sk = GUICtrlRead($txtSK)
$lk = GUICtrlRead($txtASK)

Nun bauen wir diese Zeile vor den ersten Funktionen ein:

Code:

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


#include <NomadMemory.au3>



Global $Paused
$running = false
HotKeySet("{PAUSE}", "TogglePause")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NetMax's TutorialBot", 259, 403, 192, 124)
$grpAufsammeln = GUICtrlCreateGroup("Aufsammeln", 16, 88, 233, 65)
$chkAufsammeln = GUICtrlCreateCheckbox("Aufsammeln", 88, 128, 97, 17)
$Label2 = GUICtrlCreateLabel("Aufsammeltaste", 32, 104, 78, 17)
$txtASK = GUICtrlCreateInput("", 120, 104, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpAdd = GUICtrlCreateGroup("Adressen", 16, 24, 233, 57)
$Label1 = GUICtrlCreateLabel("HP", 32, 56, 19, 17)
$txtHP = GUICtrlCreateInput("", 88, 48, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpSteuerung = GUICtrlCreateGroup("Steuerung", 16, 304, 233, 81)
$cmdSS = GUICtrlCreateButton("Start", 48, 320, 179, 25, 0)
$cmdPause = GUICtrlCreateButton("Pause", 48, 348, 179, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sonstige = GUICtrlCreateGroup("Sonstige Tasten", 16, 152, 233, 57)
$Label3 = GUICtrlCreateLabel("Schlaf-Taste", 32, 176, 64, 17)
$txtSK = GUICtrlCreateInput("", 120, 174, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Sonstige Einstellungen", 16, 216, 233, 89)
$Label4 = GUICtrlCreateLabel("MinHP", 32, 240, 36, 17)
$Label5 = GUICtrlCreateLabel("MaxHP", 32, 274, 39, 17)
$txtMinHP = GUICtrlCreateInput("", 99, 238, 121, 21)
$txtMaxHP = GUICtrlCreateInput("", 97, 271, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$windowname = "NosTale"
$minHP = GUICtrlRead($txtMinHP)
$maxHP = GUICtrlRead($txtMaxHP)
$SPA = GUICtrlRead($txtHP)
$sk = GUICtrlRead($txtSK)
$lk = GUICtrlRead($txtASK)

func startstop()
	$running = NOT $running
EndFunc

Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
EndFunc

func checkHP()
$SPA = "0x27A839C"
$pid = WinGetProcess($windowname) ; hier besorge ich die PID
;open the process
$ProcessInformation = _MemoryOpen($pid)
$Number = _MemoryRead($SPA, $ProcessInformation)
_MemoryClose($ProcessInformation)
return $Number
EndFunc
func loot()
	ControlSend($windowname, '', '', $lk)
EndFunc

func attack()
	ControlSend($windowname, '', '', "{SPACE}")
EndFunc

func doSleep()
	ControlSend($windowname, '', '', $sk)
	while(checkHP()<$maxHP)
		sleep(500)
	WEnd
	ControlSend($windowname, '', '', $sk)

EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $cmdSS
			startstop()
		Case $cmdPause
			TogglePause()

	EndSwitch

if $running == True Then
	if(checkHP()<$minHP) Then
		doSleep()
	EndIf

	attack()
	loot()
EndIf


WEnd

Nun fehlt uns noch die Checkbox(Diese gibt an ob der Bot aufsammeln soll oder nicht)

Code:

if BitAnd(GUICtrlRead($chkNAME), $GUI_CHECKED) THEN
	;Ausgew�hlt also sammeln
Else
	;nicht ausgew�hlt
EndIf

Nun passen wir unsere Loot-Funktion(die Funktion zum Aufsammeln) an:

Code:

func loot()
	if BitAnd(GUICtrlRead($chkAufsammeln), $GUI_CHECKED) THEN
				ControlSend($windowname, '', '', $lk)
	Else
				;NIX TUN --> WEIL NICHT AUSGEW�HLT
	EndIf
	
EndFunc

Das sollte dann insgesamt so aussehen:

Code:

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


#include <NomadMemory.au3>



Global $Paused
$running = false
HotKeySet("{PAUSE}", "TogglePause")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NetMax's TutorialBot", 259, 403, 192, 124)
$grpAufsammeln = GUICtrlCreateGroup("Aufsammeln", 16, 88, 233, 65)
$chkAufsammeln = GUICtrlCreateCheckbox("Aufsammeln", 88, 128, 97, 17)
$Label2 = GUICtrlCreateLabel("Aufsammeltaste", 32, 104, 78, 17)
$txtASK = GUICtrlCreateInput("", 120, 104, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpAdd = GUICtrlCreateGroup("Adressen", 16, 24, 233, 57)
$Label1 = GUICtrlCreateLabel("HP", 32, 56, 19, 17)
$txtHP = GUICtrlCreateInput("", 88, 48, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grpSteuerung = GUICtrlCreateGroup("Steuerung", 16, 304, 233, 81)
$cmdSS = GUICtrlCreateButton("Start", 48, 320, 179, 25, 0)
$cmdPause = GUICtrlCreateButton("Pause", 48, 348, 179, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Sonstige = GUICtrlCreateGroup("Sonstige Tasten", 16, 152, 233, 57)
$Label3 = GUICtrlCreateLabel("Schlaf-Taste", 32, 176, 64, 17)
$txtSK = GUICtrlCreateInput("", 120, 174, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Sonstige Einstellungen", 16, 216, 233, 89)
$Label4 = GUICtrlCreateLabel("MinHP", 32, 240, 36, 17)
$Label5 = GUICtrlCreateLabel("MaxHP", 32, 274, 39, 17)
$txtMinHP = GUICtrlCreateInput("", 99, 238, 121, 21)
$txtMaxHP = GUICtrlCreateInput("", 97, 271, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$windowname = "NosTale"
$minHP = GUICtrlRead($txtMinHP)
$maxHP = GUICtrlRead($txtMaxHP)
$SPA = GUICtrlRead($txtHP)
$sk = GUICtrlRead($txtSK)
$lk = GUICtrlRead($txtASK)

func startstop()
	$running = NOT $running
EndFunc

Func TogglePause()
        $Paused = Not $Paused
        While $Paused
            Sleep(100)
        WEnd
EndFunc

func checkHP()
$SPA = "0x27A839C"
$pid = WinGetProcess($windowname) ; hier besorge ich die PID
;open the process
$ProcessInformation = _MemoryOpen($pid)
$Number = _MemoryRead($SPA, $ProcessInformation)
_MemoryClose($ProcessInformation)
return $Number
EndFunc
func loot()
	if BitAnd(GUICtrlRead($chkAufsammeln), $GUI_CHECKED) THEN
				ControlSend($windowname, '', '', $lk)
	Else
				;NIX TUN --> WEIL NICHT AUSGEW�HLT
	EndIf
	ControlSend($windowname, '', '', $lk)
EndFunc

func attack()
	ControlSend($windowname, '', '', "{SPACE}")
EndFunc

func doSleep()
	ControlSend($windowname, '', '', $sk)
	while(checkHP()<$maxHP)
		sleep(500)
	WEnd
	ControlSend($windowname, '', '', $sk)

EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $cmdSS
			startstop()
		Case $cmdPause
			TogglePause()

	EndSwitch

if $running == True Then
	if(checkHP()<$minHP) Then
		doSleep()
	EndIf

	attack()
	loot()
EndIf


WEnd

08/26/2009 15:24 Jeopardize#12

Hi,
Sehr gutes Tutorial, mein Thanks hast du jedenfalls schon. ;)

09/02/2009 15:05 Gianotti#13

nice tut hast dir viel m�he gemacht +thx

09/04/2009 16:59 50cent1234#14

Sehr sehr gutes Tut!!! Ich finde sowas sollte auf jdenFall belohnt werden!
Die Muehe die da drin steckt ist beeindruckend!

09/07/2009 14:47 trisithack#15

Hey netMax..
Also als erstes SUPER!

Zweitens ..wie finde ich die Sachen heraus wie z.B Speedhack..also dass man solange schl�gt nd so was fr zahlen und so muss ich eingeben?..und is das f�r metin2 oder �berhaut=?

Page 1 of 7

Last »