|
You last visited: Today at 02:50
Advertisement
Demon Slayers Bot
Discussion on Demon Slayers Bot within the AutoIt forum part of the Coders Den category.
08/14/2013, 20:27
|
#16
|
elite*gold: 22 
Join Date: Dec 2005
Posts: 416
Received Thanks: 72
|
würde nicht mit bmp's arbeiten, hatte schon mal das Problem das ich dann das Bild wonach ich gesucht habe nicht gefunden habe obwohl ich mir genau diese Bitmap Datei angeschaut habe =)
mit Png's funktioniert alles gut.
Grüße
|
|
|
|
08/14/2013, 20:59
|
#17
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Das liegt daran, weil bmp komprimiert. PNG ist Lossless Kompirimierung, d.h. es wird so weit komprimiert bis man an die Grenze des Datenverlustes kommt. -> Keine Farbverfälschung!
Niemals für Pixelsuche JPG, GIF, BMP verwenden!!
|
|
|
|
|
08/15/2013, 03:36
|
#18
|
elite*gold: 0
Join Date: Apr 2012
Posts: 36
Received Thanks: 0
|
Also nochdem alpines mir schrieb ich soll es mit pixelsearch probieren habe ich das getan und das kam erstmal raus
Code:
HotKeySet ("{NUMPAD1}", "_START")
HotKeySet ("{NUMPAD2}", "_PAUSE")
HotKeySet ("{NUMPAD3}", "_ENDE")
Global $WeltenbossSymbol
Global $WeltenbossBetreten
Global $WeltendbossBekaempfen
;Hauptprogramm=====================================================================================================================================================================================================================================================
Func _START()
While 1
;=============================================================WeltenbossSymbol anklicken Hauptprogramm==================================
$WeltenbossSymbol = PixelSearch(0,0,1920,920,0xBBCBC1)
if Not @error Then
Weltensymbolanklicken()
EndIf
;=============================================================WeltenbossBetreten Hauptprogramm==========================================
$WeltenbossBetreten = PixelSearch(0,0,1920,920,0xFFE726)
if Not @error Then
WeltenbossBetreten()
EndIf
;=============================================================Weltendboss Laufen Hauptprogramm==========================================
If Not @error Then
WeltendbossLaufen()
EndIf
;=============================================================Weltendboss bekämpfen Hauptprogramm=======================================
If Not @error Then
WeltendbossBekaempfen()
EndIf
WEnd
EndFunc
;Funktion WeltenbossSymbol Anklicken===============================================================================================================================================================================================================================
Func Weltensymbolanklicken()
MouseMove($WeltenbossSymbol[0],$WeltenbossSymbol[1],1)
MouseClick("left")
Sleep(2000)
EndFunc
;Funktion WeltenbossBetreten Anklicken=============================================================================================================================================================================================================================
Func WeltenbossBetreten()
MouseMove($WeltenbossBetreten[0],$WeltenbossBetreten[1],1)
MouseClick("left")
Sleep(5000)
EndFunc
;Funktion zum Weltenboss laufen====================================================================================================================================================================================================================================
Func WeltendbossLaufen()
MouseMove ("left",1038,174)
Sleep(3000)
MouseMove ("left",1129,270)
EndFunc
;Funktion Weltendboss bekaempfen===================================================================================================================================================================================================================================
Func WeltendbossBekaempfen()
;Farbe bekommen
$Gegnerleiste = PixelGetColor( 400, 500)
;In Hex umwandeln und überpüfen
IF Hex($Gegnerleiste, 6) = "84920B" Then
;Das heißt er soll weiter angreifen, also senden wir ne taste
Send( "{1}" )
EndIf
;Programm pausieren===============================================================================================================================================================================================================================================
Func _PAUSE()
While 1
Sleep(2000)
WEnd
EndFunc
;Programm beenden==================================================================================================================================================================================================================================================
Func _ENDE()
Exit
EndFunc
Nun kommt dauernd ein Fehler
Code:
C:\Users\Relax\Desktop\Autoit\Demon Slayer Pixel\Demon Slayer.au3 (67) : ==> "Func" statement has no matching "EndFunc".:
Func _PAUSE()
ich probiere da nun seit 2 Stunden rum um das zu lösen ich hab viele Foren durchgesehen die das gleiche Problem auf die ein oder andere Weise hatten aber jedes verdammte mal das gleiche..
Ich gebe ihm den Anfang der Funkion vor mit Func _Pause und beende die Funktion wieder mit EndFunc..
Also wo ist sein Problem?!
Ich habe es in dem vorherigen Script mit Imagesearch genauso gemacht und es funktionierte warum geht es nun nicht mehr?????
Schon mal danke
|
|
|
|
|
08/15/2013, 10:32
|
#19
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Das liegt daran, weil du bei Weltbossbekaempfen() ein EndFunc vergessen hast 
Hier ist die korrekte Variante, wie sie laufen sollte - nicht muss!
Code:
HotKeySet ("{NUMPAD1}", "_START")
HotKeySet ("{NUMPAD2}", "_PAUSE")
HotKeySet ("{NUMPAD3}", "_ENDE")
Global $WeltenbossSymbol
Global $WeltenbossBetreten
Global $WeltendbossBekaempfen
;Hauptprogramm=====================================================================================================================================================================================================================================================
Func _START()
While 1
;=============================================================WeltenbossSymbol anklicken Hauptprogramm==================================
$WeltenbossSymbol = PixelSearch(0,0,1920,920,0xBBCBC1)
if Not @error Then
Weltensymbolanklicken()
EndIf
;=============================================================WeltenbossBetreten Hauptprogramm==========================================
$WeltenbossBetreten = PixelSearch(0,0,1920,920,0xFFE726)
if Not @error Then
WeltenbossBetreten()
EndIf
;=============================================================Weltendboss Laufen Hauptprogramm==========================================
If Not @error Then
WeltendbossLaufen()
EndIf
;=============================================================Weltendboss bekämpfen Hauptprogramm=======================================
If Not @error Then
WeltendbossBekaempfen()
EndIf
WEnd
EndFunc
;Funktion WeltenbossSymbol Anklicken===============================================================================================================================================================================================================================
Func Weltensymbolanklicken()
MouseMove($WeltenbossSymbol[0],$WeltenbossSymbol[1],1)
MouseClick("left")
Sleep(2000)
EndFunc
;Funktion WeltenbossBetreten Anklicken=============================================================================================================================================================================================================================
Func WeltenbossBetreten()
MouseMove($WeltenbossBetreten[0],$WeltenbossBetreten[1],1)
MouseClick("left")
Sleep(5000)
EndFunc
;Funktion zum Weltenboss laufen====================================================================================================================================================================================================================================
Func WeltendbossLaufen()
MouseMove ("left",1038,174)
Sleep(3000)
MouseMove ("left",1129,270)
EndFunc
;Funktion Weltendboss bekaempfen===================================================================================================================================================================================================================================
Func WeltendbossBekaempfen()
;Farbe bekommen
$Gegnerleiste = PixelGetColor( 400, 500)
;In Hex umwandeln und überpüfen
IF Hex($Gegnerleiste, 6) = "84920B" Then
;Das heißt er soll weiter angreifen, also senden wir ne taste
Send( "{1}" )
EndIf
EndFunc
;Programm pausieren===============================================================================================================================================================================================================================================
Func _PAUSE()
While 1
Sleep(2000)
WEnd
EndFunc
;Programm beenden==================================================================================================================================================================================================================================================
Func _ENDE()
Exit
EndFunc
|
|
|
|
|
08/15/2013, 11:29
|
#20
|
elite*gold: 0
Join Date: Apr 2012
Posts: 36
Received Thanks: 0
|
Danke ^^ das hab ich jetzt soweit nun hab ich zwei weitere Fragen
also wäre wichtig für mich, das dass alles richtig ist weil ich es immer nur zu bestimmten Zeiten ( unschwer zu erkennen xD ) testen kann.
hier die neue Fassung
Code:
HotKeySet ("{NUMPAD1}", "_START")
HotKeySet ("{NUMPAD2}", "_PAUSE")
HotKeySet ("{NUMPAD3}", "_ENDE")
Global $WeltenbossSymbol
Global $WeltenbossBetreten
Global $WeltendbossBekaempfen
;Hauptprogramm=====================================================================================================================================================================================================================================================
While 1
Sleep(1000)
WEnd
Func _START()
While 1
;=============================================================Zeitangabe Hauptprogramm==================================================
If (@HOUR = 10 and @MIN = 58) or (@HOUR = 15 and @MIN = 58) or (@HOUR = 22 and @MIN = 58) Then
;=============================================================WeltenbossSymbol anklicken Hauptprogramm==================================
$WeltenbossSymbol = PixelSearch(0,0,1920,920,0xBBCBC1)
if Not @error Then
Weltensymbolanklicken()
Else
MsgBox(0,"Fehler", "Konnte WeltenbossSymbol nicht finden)
EndIf
;=============================================================WeltenbossBetreten Hauptprogramm==========================================
$WeltenbossBetreten = PixelSearch(0,0,1920,920,0x5B8E16)
if Not @error Then
WeltenbossBetreten()
Else
MsgBox(0,"Fehler","Konnte BetretenSymbol nicht finden")
EndIf
;=============================================================Weltendboss bekämpfen Hauptprogramm=======================================
$Gegnerleiste = PixelGetColor( 1075, 151)
If Not @error Then
WeltenbossBekaempfen()
Else
MsgBox(0,"Fehler","Konnte Weltenboss nicht finden")
EndIf
EndIf
WEnd
EndFunc
;Funktion WeltenbossSymbol Anklicken===============================================================================================================================================================================================================================
Func Weltensymbolanklicken()
MouseMove($WeltenbossSymbol[0],$WeltenbossSymbol[1],1)
MouseClick("left")
Sleep(2000)
EndFunc
;Funktion WeltenbossBetreten Anklicken=============================================================================================================================================================================================================================
Func WeltenbossBetreten()
MouseMove($WeltenbossBetreten[0],$WeltenbossBetreten[1],1)
MouseClick("left")
Sleep(5000)
EndFunc
;Funktion Weltenboss bekaempfen===================================================================================================================================================================================================================================
Func WeltenbossBekaempfen()
while 1
$Gegnerleiste = PixelGetColor( 1551, 149)
IF Hex($Gegnerleiste, 6) = "0xAF6F3C" Then
MouseMove("left",965,128)
Else
ExitLoop
EndIf
wend
EndFunc
Nun meine Fragen
Uhrzeit hab ich schon getestet und funktioniert.
ich hab ja geschrieben er soll ne MsgBox mit Fehler aufmachen wenn er was nicht findet bei der Func WeltenbossBetreten klickt er das Symbol ordnungsgemäß an so kommt er in den Bossraum aber gibt mir dann trotzdem den Fehler von der MsgBox warum? Er hat das Pixel gefunden angeklickt und gewartet.. und macht dann einfach bei "else" weiter
Und das mit dem Pixelgetcolor funktioniert nicht wie würde das richtig aussehen? (also er macht gar nichts) Er soll den Lebenspunktebalken vom Boss lesen dazu hab ich das Pixel nahe ende seines Balkens genommen. Er soll das Pixel vom Lebenspunktebalken erkennen und solange angreifen bis es verschwunden ist.
|
|
|
|
|
08/15/2013, 17:00
|
#21
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Ehm, das wird dir nicht sehr viel weiterhelfen aber trotzdem.
"MouseMove" hat keinen "left"/"right" Parameter, MouseClick hat es, vielleicht ist dort dein Problem? Mit 128 am Ende sprichst du einen ganz anderen Parameter an als du es bei MouseClick tun würdest.
|
|
|
|
|
08/15/2013, 17:17
|
#22
|
elite*gold: 0
Join Date: Apr 2012
Posts: 36
Received Thanks: 0
|
das mit dem MouseMove und MouseClick separat schreiben probiere ich mal allerdings muss ich zuerst das Problem mit dem WeltbossBetreten lösen weil er genau das macht was er soll.. also er findet das Symbol per Pixelsearch klickt es an und wartet paar sec.. allerdings macht er dann bei "else" weiter so als hätte er das Symbol oder auch Pixel nicht gefunden obwohl er es zuvor ja angeklickt hat
|
|
|
|
|
08/15/2013, 17:42
|
#23
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
MouseMove kannst du dir sparen weil MouseClick("left", ***, ***) das gleiche tut.
Schau mal was du beim Else hast und ob der Befehl der beim Else steht außerhalb der If-Schleife steht, dann liegts daran.
|
|
|
|
|
12/17/2013, 09:49
|
#24
|
elite*gold: 0
Join Date: Sep 2013
Posts: 10
Received Thanks: 1
|
When will there be a world boss bot? I am missing out both WB's due to timezone. It really sucks. Also make the world boss bot work on 2 screens (if possible). TY
|
|
|
|
|
02/07/2014, 19:28
|
#25
|
elite*gold: 0
Join Date: Nov 2013
Posts: 4
Received Thanks: 0
|
kann mir jemand einen bot erstellen für die heldengeister?
Meine auflösung ist 1280 x 1024
Wäre nett, bräuchte ihn morgen
|
|
|
|
|
02/07/2014, 20:30
|
#26
|
elite*gold: 60
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
|
Ja ist klar, brauchst du noch was? Wenn du einen Bot willst geh in den Requests Thread oder in den Coding TBM, bis morgen kriegst du sicherlich nichts.
|
|
|
|
 |
|
Similar Threads
|
Demon-Gaming|Demon-Co The Cradle of Hell
12/27/2012 - CO2 PServer Archive - 7 Replies
Welcome Guys i would like to introduce you the Demon-Gaming community
-Honor Arena/Point System
-New PVP System Kill players win Points and Gain Exp
-Page with the Rank of higher Killer :).
-2x CPS Potion with Demon-Points.
-You can Gain Demon-Points By Killing other Players
-High Exp Rate
-FREE +12 ITEMS As Start Pack
-Automated CPS Drop System
-135 Weapons And Gears
|
Selling 100 Demon BM and 93 Demon Sin Account (Sanctuary)
04/05/2012 - Perfect World Trading - 0 Replies
Bm is level 100 and has bound TT99 HA Wrist and Boots (3 soc with immac citrines +3), Lunar Glade Cape (account stashable), Demon Golden Aura of the Bell, Demon Marrows, and Demon Cyclone Heel. Comes with used Mana and HP charms. Stats are as follows: Str 284, Mag 5, Dex 190, Vit 36.
Sin is only level 93, but has over 200k rep if interested in r8 for it. It also has gold TT90 LA bracers and Lunar Cape since account has a stash.
Prefer real money as I'm quitting, but coin offers are...
|
Slayers
04/29/2011 - Anime & Manga - 10 Replies
Ich frage mich einfach wer hier alles Slayers, bzw. Slayers Next kennt und was ihr davon haltet.
Also ich habs letztends geguckt und fand es sehr lustig und vor allem irgendwie anders. ;)
|
[WTS] Heavenly Demon - Blood Demon FC3
05/09/2010 - 9Dragons Trading - 0 Replies
Pretty self explanatory title. I'm selling HD Warrior FC3 character. I will exchange cheap.(Preferably in game currency) PM me any offers because I don't really know the going rate for account and I'll take into consideration and reply. Once you message me I will provide you with any information on the character you request. Thank you!
|
All times are GMT +1. The time now is 02:51.
|
|
