Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 06:02

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Ungewöhnliche Frage! Wichtig!

Discussion on Ungewöhnliche Frage! Wichtig! within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jun 2009
Posts: 3
Received Thanks: 0
Ungewöhnliche Frage! Wichtig!

Hy an alle,
bin neu hier und habe Folgendes Problem bei einem bot:

Ich möchte 2 pixelsearch funktionen machen in diesem code so das er nach 2 farben sucht aber den 1 selben mousemove verwendet!

Code:
HotKeySet("x", "MeinExit")
HotKeySet("y", "StartStop")
HotKeySet("a", "Schuss")
MsgBox( 1, "Auanoid Bot - by Flochek", "Start and Stop the Bot with Y shoot the b")

Global $On
$On = False

while 1
while $On = True
$Ballposition = PixelSearch( 40, 436, 622, 557, 0x070C20, 1)
;HIER MEIN DENKFEHLER ODER
;HIER MEIN DENKFEHLER $Ballposition = PixelSearch( 40, 436, 622, 557, 0xCECF42, 1)
if IsArray($Ballposition) = True Then
MouseMove( $Ballposition[0], $Ballposition[1], 0)
Endif
wend 
wend

Func StartStop()
    If $On = False Then
        $On = True
    Else
        $On = False
    EndIf
EndFunc


Func Schuss()
MouseClick("left", 324, 398)
EndFunc


Func MeinExit()
    Exit
EndFunc
also er sucht nach der farbe 0x070C20 und der farbe 0xCECF42 und wenn er eine der beiden findet soll er den mousemove machen!


danke für eure hilfe im vorraus

greetz flo
flochek is offline  
Old 06/13/2009, 20:22   #2
 
Shadow992's Avatar
 
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
Quote:
Originally Posted by flochek View Post
Hy an alle,
bin neu hier und habe Folgendes Problem bei einem bot:

Ich möchte 2 pixelsearch funktionen machen in diesem code so das er nach 2 farben sucht aber den 1 selben mousemove verwendet!

Code:
HotKeySet("x", "MeinExit")
HotKeySet("y", "StartStop")
HotKeySet("a", "Schuss")
MsgBox( 1, "Auanoid Bot - by Flochek", "Start and Stop the Bot with Y shoot the b")

Global $On
$On = False

while 1
while $On = True
$Ballposition = PixelSearch( 40, 436, 622, 557, 0x070C20, 1)
;HIER MEIN DENKFEHLER ODER
;HIER MEIN DENKFEHLER $Ballposition = PixelSearch( 40, 436, 622, 557, 0xCECF42, 1)
if IsArray($Ballposition) = True Then
MouseMove( $Ballposition[0], $Ballposition[1], 0)
Endif
wend 
wend

Func StartStop()
    If $On = False Then
        $On = True
    Else
        $On = False
    EndIf
EndFunc


Func Schuss()
MouseClick("left", 324, 398)
EndFunc


Func MeinExit()
    Exit
EndFunc
also er sucht nach der farbe 0x070C20 und der farbe 0xCECF42 und wenn er eine der beiden findet soll er den mousemove machen!


danke für eure hilfe im vorraus

greetz flo

naja dann machste das halt so
Code:
HotKeySet("x", "MeinExit")
HotKeySet("y", "StartStop")
HotKeySet("a", "Schuss")
MsgBox( 1, "Auanoid Bot - by Flochek", "Start and Stop the Bot with Y shoot the b")

Global $On
$On = False

while 1
while $On = True

$Ballposition = PixelSearch( 40, 436, 622, 557, 0x070C20, 1)

if not @error Then
MouseMove( $Ballposition[0], $Ballposition[1], 0)
Endif

$Ballposition = PixelSearch( 40, 436, 622, 557, 0xCECF42, 1)

if not @error Then
MouseMove( $Ballposition[0], $Ballposition[1], 0)
Endif

wend 
wend

Func StartStop()
    If $On = False Then
        $On = True
    Else
        $On = False
    EndIf
EndFunc

Func Schuss()
MouseClick("left", 324, 398)
EndFunc

Func MeinExit()
    Exit
EndFunc
so müsste es gehen , wie du es meinst

Edit
Am besten wäre , wennste das Mausklick , pixelsearch gezeugse in eine funktion reinschreibst ......
dann brauchste das ganze auch net sooft tippen und es wird dann viel übersichtlicher ;-)
Aber ich schätze das muss nicht sein , bist ja noch ziehmlich neu .....
Shadow992 is offline  
Thanks
2 Users
Old 06/14/2009, 18:44   #3
 
elite*gold: 0
Join Date: Jun 2009
Posts: 3
Received Thanks: 0
sehr gut haut hin auf die art und weise

danke

greetz flo
flochek is offline  
Reply


Similar Threads Similar Threads
Ungewöhnliche Frage
07/22/2010 - Metin2 Private Server - 5 Replies
OBWOHL ich weis dass diese FRAGE NIEMAND beantworten wird, stell ich sie einfach mal :D : Wie modde ich Fertigkeiten auf einem Macintosh, sprich einem Apple Computer? Spielen kann ich ja metin2 aber modden ... wie geht das? gibt es hier vll einen macuser??? xDD:p:p:p:p
Ungewöhnliche Spielhandlung?!?
06/16/2010 - WarRock - 5 Replies
lol ich hab gerade ne runde marien gezockt, als plötzlich das Spiel mit der Nachricht "Verbindung aufgrund ungewöhnlicher Spielhandlung abgebrochen" zusammenbrach. Weiß jemand wie das passieren konnte ? PS: Ich hab ohne Hacks gespielt.
Root Server frage WICHTIG WICHTIG!
03/28/2010 - Metin2 Private Server - 12 Replies
Hallo, ich habe eine frage, (der jenige wo sie mir beantwortet, bekommt 2 elite*gold + 1 thanks ;) und zwar: was muss ich in vpc eingeben, bei Networking für ip's? (es ist ein root) und bei portmap z.b. .218 oder .100? und im mc.txt .218 oder .100? ich danke euch.
[List]Ungewöhnliche Questbelohnungen(Longju3)
03/25/2009 - Metin2 Private Server - 53 Replies
Also Leute ich habe beschlossen eine Liste zu machen von allen Quests die nützlich sind auf longju3 und das lvl dazu wenn ihr ergänzungen habt schreibt sie hier rein oder schreibt sie mir ig unter BelieveMe. Level 35 - --- Die Goldaxt von Deokbae----suche die Goldene Axt (töte Wilder General) und brings sie dem Holzfäller Map2 Belohnung 400.000 Exp und 30.000 Yang und ein Steinsplitterbuch Level 37 - Yu-Rang----töte Babyspinnen und suche das Glöckchen geh zu Taurean dann wieder...
Ungewöhnliche Questbelohnung [2] ^^
02/01/2009 - Metin2 Private Server - 6 Replies
Also mir ist aufgefallen ; das es bei der 21er Quuest gar keinen Silberarmband gibt , sondern Rotes Haarband oder wie das heißt -.- Euch auch ?



All times are GMT +2. The time now is 06:02.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.