Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi CurveBall - Bot (https://www.delphipraxis.net/115588-curveball-bot.html)

WinAPI 14. Jun 2008 13:56


CurveBall - Bot
 
Hallo,
ich hab mich spasseshalber mal an einen Bot für das Spiel Curveball gemacht =)
Allerdings scheint mir die Funktion mit jedem Pixel auszulesen und zu überprüfen zu langsam...
Hat irgendwer Tipps für mich was ich machen könnte ? =)

http://www.albinoblacksheep.com/flash/curveball

Ich hab auch mal das Programm angehängt...


MfG WinApi

Neutral General 14. Jun 2008 14:08

Re: CurveBall - Bot
 
Sagmal gehts dir noch zu gut???

Ich hätte fast meinen PC neustarten müssen!!!

Habe bestimmt 5 Minuten gebraucht bis ich dein sch.. Programm beendet hatte :evil:

:wall:

WinAPI 14. Jun 2008 14:10

Re: CurveBall - Bot
 
Oh tut mir wirklich leid =(
Ich habe noch keinen Notstop eingebaut...

Neutral General 14. Jun 2008 14:12

Re: CurveBall - Bot
 
-.-^^

Dann bau den bitte ein ... Vorher wage ich mich nichtmehr daran -.-^^

lbccaleb 14. Jun 2008 14:12

Re: CurveBall - Bot
 
Zitat:

Zitat von Neutral General
Sagmal gehts dir noch zu gut???

Ich hätte fast meinen PC neustarten müssen!!!

Habe bestimmt 5 Minuten gebraucht bis ich dein sch.. Programm beendet hatte :evil:

:wall:

jup mir gings genauso ;-(

WinAPI 14. Jun 2008 14:16

Re: CurveBall - Bot
 
Ich möchte mich nochmals sehr entschuldigen:(

Mir geht es eigentlich nur um den Teil...

Delphi-Quellcode:
Function PixelSearch(Color:TColor;Objekt:Flaeche;Differenz:Integer):Boolean;
var x,y: Integer;
    Handle: HWND;
begin
MyCanvas:= TCanvas.Create;
MyCanvas.Handle:=GetDC(0);
for x := Objekt.VonX to Objekt.BisX do
 begin
  for y := Objekt.VonY to Objekt.BisY do
   begin
    if (MyCanvas.Pixels[x,y] < Color + Differenz) and (MyCanvas.Pixels[x,y] > Color - 50) then
     begin
     SetCursorPos(x,y);
     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
     mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
     Result := True;
     Exit;
     end;
   end;
 end;

end;
Mit dem Pixel auslesen ist das einfach zu langsam =( Ich suche nur nach einer schnelleren Methode..^^

Neutral General 14. Jun 2008 14:26

Re: CurveBall - Bot
 
Hi,

Kopier alles auf ein Bitmap und benutze dann TBitmap.Scanline.

Dazu findest du auch hier im Forum genug glaube ich. Einfach mal nach Hier im Forum suchenScanline suchen ;)

WinAPI 14. Jun 2008 14:28

Re: CurveBall - Bot
 
Okay danke dir =)
Hoffe du kannst mir verzeihen =)

Neutral General 14. Jun 2008 14:29

Re: CurveBall - Bot
 
Kann ich ;)

Wenn ich etwas nicht kann, dann auf irgendjemanden lange böse sein -.-^^ (Ist nicht immer ganz von Vorteil aber hat auch seine Vorteile^^)


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz