Auto-Shot auch möglich?

sdce · 10/14/2012, 22:29

Hallöchen erstmal...
Also, ich bin eig. garnicht so neu hier... Ich hatte nur alle meine Zugangsdaten hier vergessen, war damals im metinbereich unterwegs.. /erstmal alles dazu

Nun habe ich begonnen mich mit Auto IT auseinander zu setzen...
Ich zocke ein Spiel, was hier nicht aufgeführt ist...
// Serious Sam...

So, ich habe schon einen kleinen Aimbot geschrieben, (mithilfe von tutorials...) der einen bestimmten Farbcode sucht...

Nun ist meine Frage :
Ist es möglich, etwas in der Form zu schreiben, das er dann schießt, wenn das Fadenkreuz seine Farbe von Weiß zu Grün/Gelb/Rot ändert?

In dem Spiel ist es nämlich so, das wenn man seinen Gegner anvisiert, sich die Farbe des Fadenkreuzes ändert...
Ein Spieler hatte so einen "Auto-Shot-Cheat" schon, nur leider ist dieser jetzt inaktiv und unkontaktierbar...

hier mal das, was ich bisher habe...
HotKeySet("{q}","_Exit")

While 1
$Variable = PixelSearch(156,311,640,661,0x181818)
If IsArray($Variable) = True Then
MouseMove($Variable [0], $Variable [1],1)
MouseClick ("left")

EndIf
WEnd

Func _Exit()
Exit
EndFunc

vllt kann man das ja ohne viel Aufwand so umschreiben, wie ich es meine..
Also nicht das er direkt nach der Farbe sucht, sondern erst schießt, wenn sich das "Crosshair" in eine andere Farbe verwandelt...

danke im Vorraus
euer Heiko.

butter123 · 10/14/2012, 23:20

lies mit

jedes mal die farbe des fadenkreuzes aus und vergleich sie mit der von dem mal davor. wenn sie sich veränder dann lass ihn schießen^^

sdce · 10/14/2012, 23:48

Also, erstmal danke für die Antwort...

Ich habe es jetzt so gemacht :

Quote:

HotKeySet("{q}","_Exit")

While 1
$Variable = PixelGetColor ( 0xC8C5C2, 0x05C204 ) <- / Farbwerte...
If IsArray($Variable) = True Then
Local $var = PixelGetColor(10, 100)
MsgBox(0, "0xC8C5C2", $var) <-- farbwerte
MsgBox(0, "0x05C204", Hex($var, 6)) <-- farbwerte
MouseClick ("left")

EndIf
WEnd

Func _Exit()
Exit
EndFunc

Aber leider schießt er im Spiel nicht....

~~Requiable~~ · 10/15/2012, 01:37

Mach aus MouseClick ein ControlClick
Sollte eig funzen dann

sdce · 10/15/2012, 11:38

Hallöchen, danke für die Antwort

Da hat man das Gefühl seinem Ziel ein Stückchen näher gekommen zu sein

Nur leider schießt er immernoch nicht...
Ich hab das ganze jetzt so :

Quote:

Ums mal ein wenig zu erklären, vllt hab ich ja vorher schon ein Fehler gemacht...
Zeile 4 in Klammern, habe ich erst den Farbwert des normalen Fadenkreuzes, und nach dem Komma den, den er hat wenn er ein Gegner im Visier hat (Grün)
//Ist das so richtig?

Zeile 7 und 8 Das gleiche.
7 Den Standartfarbwert
8 den veränderten...
// auch richtig?

mit dem ControlClick bin ich mir nicht sicher... Ich hab dank deines Tips, eine "Roh-Vorlage" gefunden, die sieht so aus :
ControlClick ( "title", "text", controlID [, button [, clicks [, x [, y ]]]] )

Wie kann ich die Control ID herrausfinden? und wie sag ich ihm, das er clicken soll wenn das Fadenkreuz Grün wird?

Der-Eddy · 10/15/2012, 12:07

Drück mal STRG + T und dann STRG + F6
mit dem kleinen Fenster kannst du alle nötigen Infos über Fenster abfragen

sdce · 10/15/2012, 12:32

Ich weiss aber nicht, wie ich die da einsetzen soll :/

otKeySet("{q}", "_Exit")

While 1
$Variable = PixelGetColor(0xC8C5C2, 0x05C204)
If IsArray($Variable) = True Then
Local $var = PixelGetColor(10, 100)
MsgBox(0, "0xC8C5C2", $var)
MsgBox(0, "0x05C204", Hex($var, 6))

ControlClick("Serious Sam", "Serious Sam", ViewPort Window1[, button[, clicks[, x[, y]]]])

EndIf
WEnd

Func _Exit()
Exit
EndFunc

Jetzt sagt er mir "Sytax Error"

push...

kann mir keiner helfen :/
ich verzweifel hier richtig :0

Achat · 10/15/2012, 18:32

Quote:

Originally Posted by sdce

Ich weiss aber nicht, wie ich die da einsetzen soll :/

Jetzt sagt er mir "Sytax Error"

push...

kann mir keiner helfen :/
ich verzweifel hier richtig :0

Code:

HotKeySet("{q}", "_Exit")

While 1
	$Variable = PixelGetColor(0xC8C5C2, 0x05C204)
	If IsArray($Variable) = True Then
		Local $var = PixelGetColor(10, 100)
		MsgBox(0, "0xC8C5C2", $var)
		MsgBox(0, "0x05C204", Hex($var, 6))

		ControlClick("Serious Sam", "Serious Sam")

	EndIf
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Parameter in [] müssen nicht verwendet werden.

MfG

Quote:

Originally Posted by sdce

kann mir keiner helfen :/

Hilf dir selbst, so hilfst du dir am Besten.

Quote:

Originally Posted by sdce

ich verzweifel hier richtig :0

Tutorials lesen, Hilfe (F1) lesen, .....

MfG

butter123 · 10/15/2012, 21:45

theoretischer aufbau (hab grad kein skite hier um vernünftig was zu machen^^):

hotkey für beenden
$previouscolor = 0
dauerschleife

$atmcolor = fadenkreuzfarbe
falls $atmcolor > $previouscolor ;weiß hat 255,255,255 als wert. jede andere farbe ist somit darunter.

dann klicken
danach
$previouscolor = $atmcolour

dauerschleife ende.

beendefunktion

so komplett ausm kopf und kein bisschen getestet^^ probiers einfach mal aus, try 'n fail

PS: so schießt er jz nur einmal kurz in dem moment, wo das fadenkreuz die farbe wechselt
PPS: falls er die ganze zeit schießen soll während das fadenkreuz ne andere farbe hat, dann einfach $previouscolor durch eine konstante ersetzen
PPPS: bzw größerzeichen in die andere richtung setzen wenndas fadenkreuz seine farbe von weiß nach x ändert

sdce · 10/18/2012, 20:48

ich habs jetzt mal versucht...

so klappts nicht

Quote:

HotKeySet("{e}","_Exit")

$previouscolor = 0
While True
$atmcolor > $previouscolor 255,255,255
If IsArray ($atmcolor) Then
MouseClick ("left")

EndIf
WEnd

Func _Exit()
Exit
EndFunc