Also ich kann dir jezz nur kurz zeigen wie das mit dem angreifen und sammeln geht!
Als erstes kommen die HotKey's, dass sind Tasten, die eine von dir bestimmte Funktion ausführen:
Code:
HotKeySet("{F1}","Starten")
D.h. er führt die Funktion "Starten" aus, wenn man F1 drückt!
Jetzt noch eine Funktion zum Beenden und Pausieren:
Code:
HotKeySet("{F2}","Pause")
HotKeySet("{ESC}","Beenden")
Also is es jetzt F1 = Starten F2= Pause und ESC = Beenden!
Jetzt kommt die Hauptschleife des Programms!
In einer einfachen Varriante wie diese muss dort lediglich
immer der "Sleep" befehl ausgeführt werden. D.h er wartet
die ganze Zeit darauf das F1,F2 oder ESC gedrückt wird.
Und das alles muss in einer Schleife sein, welche mit "While 1"
beginnt und mit WEnd beendet wird!
Also sieht die Hautpschleife so aus:
Code:
While 1
Sleep(1000) ; die zahl in klammern gib die zeit die er warten soll in mill. sek. an
WEnd
So nun kommen die Funktionen!
Sie werden immer mit Func namederfunktion() eingeleitet.
Also für die Start funktion
Jeztz kommt der "Hauptteil" des Bots! Die Schleife zum angreifen!
Also beginnen wir wieder mit "While 1" und ein neuer Befehl taucht
auch auf und das ist der "Send" befehl! Mit ihm werden tasten anschläge
gesendet! Wir nutzen aber bei unserem Bot eine andere Version von "Send" und zwar "ControlSend" dies sendet die Tastatur befehle dirket an ein fenster!
Hier für NosTale:
"ControlSend("NosTale", "", 0, "{space}")"
dieser befehl sendet Leertaste and das Nostale fenster!
Was müssen wir ihn jetzt nur noch in die Funktion einbauen und eine Schleife
einsetzen!
Code:
Func Starten()
While 1
ControlSend("NosTale", "", 0, "{space}")
Sleep(100)
ControlSend("NosTale", "", 0, "{space}")
Sleep(50)
ControlSend("NosTale", "", 0, "{x}")
WEnd
EndFunc
D.h. der Bot sendet 2mal Leertaste zum anvisieren und angreifen und danach
x zum aufheben!
mit "EndFunc" zeigt man dem Skript, dass die Funktion nun beendet ist!
Jetzt noch die Pause Funktion:
Code:
Func Pause()
While 1
Sleep(1000)
WEnd
EndFunc
Dadurch wartet der Bot die ganze Zeit bis wieder F1 gedrückt wird um den Bot weiter auszuführen"
Am schluss noch die Beenden funktion:
Code:
Func Beenden()
Exit
EndFunc
Der Befehl "Exit" schließt das Programm!
Hier der gesammte code:
Code:
HotKeySet("{F2}","Pause")
HotKeySet("{ESC}","Beenden")
HotKeySet("{F1}","Starten")
While 1
Sleep(1000) ; die zahl in klammern gib die zeit die er warten soll in mill. sek. an
WEnd
Func Starten()
While 1
ControlSend("NosTale", "", 0, "{space}")
Sleep(100)
ControlSend("NosTale", "", 0, "{space}")
Sleep(50)
ControlSend("NosTale", "", 0, "{x}")
WEnd
EndFunc
Func Pause()
While 1
Sleep(1000)
WEnd
EndFunc
Func Beenden()
Exit
EndFunc