Auto-Shot auch möglich?

10/14/2012 22:29 sdce#1
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 :D

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.
10/14/2012 23:20 butter123#2
lies mit [Only registered and activated users can see links. Click Here To Register...] 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^^
10/14/2012 23:48 sdce#3
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....
10/15/2012 01:37 Requiable#4
Mach aus MouseClick ein ControlClick
Sollte eig funzen dann ;)
10/15/2012 11:38 sdce#5
Hallöchen, danke für die Antwort :)
Da hat man das Gefühl seinem Ziel ein Stückchen näher gekommen zu sein :D

Nur leider schießt er immernoch nicht...
Ich hab das ganze jetzt so :
Quote:
[Only registered and activated users can see links. Click Here To Register...]
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?
10/15/2012 12:07 Der-Eddy#6
Drück mal STRG + T und dann STRG + F6
mit dem kleinen Fenster kannst du alle nötigen Infos über Fenster abfragen
10/15/2012 12:32 sdce#7
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
10/15/2012 18:32 Achat#8
Quote:
Originally Posted by sdce View Post
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 View Post
kann mir keiner helfen :/
Hilf dir selbst, so hilfst du dir am Besten.
Quote:
Originally Posted by sdce View Post
ich verzweifel hier richtig :0
Tutorials lesen, Hilfe (F1) lesen, .....

MfG
10/15/2012 21:45 butter123#9
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
10/18/2012 20:48 sdce#10
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