Jump to content
wundertüte

Release Phoenix Bmbot 3.5

Recommended Posts

Hi Wundertüte,

super das Du dich entschlossen hast den neuen BM Bot puplic zu machen...der "Alte" war schon super !

Welche Scar Version für den Bot?

Gruß

Potrar

---

Hi Wundertüte,

It's great that you've decided the make the new BM Bot public... The "old" was great!

Which version of Scar do I need for the bot?

Greetings,

Potrar

Edited by Freddy
Link to comment
Share on other sites

This is the bonus maps? how to turn it to something that says this: 04/11/2011: SCAR Divi 3.28 has been released! This marks another major leap

forward for SCAR, as the API has been seriously expanded. Check it out at:

http://forums.scar-divi.com/showthread.php?275-SCAR-Divi-3.28-Final

Successfully compiled (140 ms)

This script requires SCAR Divi 3.28 or higher, get it here:

http://www.scar-divi.com/

397

Stopped execution (31 ms)

Link to comment
Share on other sites

Bitte BMschriftfarbe überprüfen

Bitte BMschriftfarbe überprüfen

function aufBM startet

"BMschriftfarbe" nicht erkannt - Sollte das Schiff gerade auf BM sein, dann muss "BMschriftfarbe" neu ausgelesen werden oder die Seekartenposition neu eingestellt werden (skx2, sky2)

function bmsprung startet

Stopped execution (34679 ms)

Link to comment
Share on other sites

hello klasika2,

 

 

your settings is not right or your ship is very week. :D

 

i got FP-schip and i do caprikorn in less then 5 hours.

 

or maybe you should not shoot with the cheapest amo. :P

 

 

GREAT WORK WUNDERTÜTE!!! THANK YOU VERY MUCH!!!

Edited by Tarantula
Link to comment
Share on other sites

bei mir kommt auch immer nur

Bitte BMschriftfarbe überprüfen

Bitte BMschriftfarbe überprüfen

 

oder der fährt nur doof rum und kp was ich einstellen sollte.

der gold bot läuft

 

---

 

Whatever comes to me only

Bitte BMschriftfarbe überprüfen

Bitte BMschriftfarbe überprüfen

 

or just driving around stupid and what I should set kp.

the gold is offered

Edited by Freddy
Link to comment
Share on other sites

Hi , i have a problem my scrypt search only this bonus(in down)

this script

 

program Infinity;
var a, b, t, xx, x, y, my1, yy, i, stop, verbinde, quarter, schliessen, test, posix, posiy, chat, countclick, schiffe_inaktiv, counter, glitzimap, counter2, skx1, skx2, sky1, sky2, mmx1, mmx2, mmy1, mmy2, wrackmini, minijackpot, farbea, farbeb, miniglitzi_1o : Integer;

Procedure LoadBMP;
begin
    SetDesktopAsClient;
    farbea:= 4598791;// 2568961 für grün, 4598791 für blau
    farbeb:= 7630438; // 7172198 für grün 7630438 für blau
    counter:=0;
    SetDesktopAsClient;
//////////////////////////////////////////////////////////////////////////////////////////////////
//               Hier die Werte der Seekarte eintragen
//               skx1,sky1 entspricht links oben
//               skx1, skx2 entspricht links unten
//   in den tools findet ihr die pick color funktion mit der ihr einen mauswert auslesen könnt

    skx1:= 190;
    skx2:= 832;
    sky1:= 180;
    sky2:= 668;
  //           bitte noch in Zeile   172  einen X und Y Wert in der Funktion close
  //           eintragen
  //
//////////////////////////////////////////////////////////////////////////////////////////////////


      (...)

    test:=1;
end;

procedure mousesafe(var x,y:Integer);
begin
MoveMouse(396, 383);
wait(100+random(10));
ClickMouse(396, 383,True);
wait(100+random(10));
end;


procedure mouse(var x,y:Integer);
begin
MoveMouse(x, y);
wait(100+random(10));
ClickMouse(x,y,True);
wait(200+random(10));
end;


Procedure getvariable;
begin

if (FindBitmaptolerance(schiffe_inaktiv, a, b, 35)=true) then begin
   a:= a + 4
   b:= b + 5
   mouse (a, b);
   wait (200)
   end;

if (FindBitmaptolerance(glitzimap,a, b,35)=True)then begin
mouse (a, b);
    mmx1:= a- 38;
    mmx2:= a +51;
    mmy1:= b- 100;
    mmy2:= b- 13;

end;


end;

procedure close;
begin
if (FindBitmapToleranceIN(schliessen, xx, yy, skx1, sky1 + 40, skx2, sky2, 5)=True) then

///////////////////////////////////////////////////////////////////////////////
//        Hier die X und Y Koordinaten von Seite aktualisieren eintragen     ///
begin
    wait (40000);
    xx:=150; yy:=87;
    mouse(xx,yy);
    wait (12000);
    SetDesktopAsClient;
    getvariable;
end;
end;
///////////////////////////////////////////////////////////////////////////////


procedure mouseMM(var x,y:Integer);
begin
wait(150+random(10));
HoldMouse(x,y,true);
MoveMouseSmooth(x,y);
wait(150+random(10));
ReleaseMouse(x,y,true);
wait(150+random(10));
end;


Function checkstopp:Boolean;
var xn,yn:integer;
begin
Findcolortolerance(xn,yn,65535 , mmx1, mmy1, mmx2, mmy2, 30);
wait(10);
Findcolortolerance(xx,yy,65535 , mmx1, mmy1, mmx2, mmy2, 30);
if (xn=xx) then begin if (yn=yy) then begin result:=True; end;
  end else result:=False;
end;

function checkmove:boolean;
Begin
test:=0;
result:=false;
if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
wait (850);
end;
Findcolortolerance(a,b,65280, mmx1, mmy1, mmx2, mmy2, 30);
if (a=xx) and (b=yy) then begin
result:=true;
test:=1;
end;
end;



function Find:Boolean;
begin
result:=false;


if (FindBitmapToleranceIn(minijackpot , xx, yy,  skx1, sky1, skx2, sky2, 62)=True) then begin
    result:=true;
//    wait (50);
    xx:=xx+2; yy:=yy+10;
    end;

if (FindBitmapToleranceIn(miniglitzi_1o, xx, yy,  skx1, sky1, skx2, sky2, 79)=True) then begin
    result:=true;
    xx:=xx+0; yy:=yy+0;
    end;

if (FindBitmapToleranceIn(wrackmini, xx, yy,  skx1, sky1, skx2, sky2, 42)=True) then begin
    result:=true;
    xx:=xx+3; yy:=yy+12;
    end;

if (result=true) then begin
   mouse(xx,yy);
   repeat
   counter:=0;
   until (checkmove=true);
   counter:=11;
   end;
result:=false;
end;





procedure getposi;
begin
if (Findcolortolerance(xx,yy,65280, mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
posix:=xx - mmx1;
posiy:=yy - mmy1;
end;

end;

procedure getquarter;

begin
getposi;
//quarter:=1;

  if (posix<50) then begin
  if (posiy<39) then begin
  quarter:=1;
  end;
  end;
  if (posix>50) then begin
  if (posiy<50) then begin
  quarter:=2;
  end;
  end;
  if (posix>39) then begin
  if (posiy>50) then begin
  quarter:=4;
  end;
  end;
  if (posix<39) then begin
  if (posiy>39) then begin
  quarter:=3;
  end;
  end;
  if (posiy>38)and (posiy<50) then begin
  if (posix>38)and (posix<50) then begin
  quarter:=2;
  end;
  end;

end;


function glitziMM:boolean;
var xf,yf:integer; finding:boolean; a1,a2:extended;
Begin
result:=false;
t:=0;
counter:=counter+1;
if (Findcolortolerance(xx,yy,61179 ,mmx1,mmy1,mmx2,mmy2,24)=true)then begin
result:=true;
if (Findcolortolerance(x,y,65280,mmx1,mmy1,mmx2,mmy2,5)=true)then begin
i:=1;
end;

repeat
i:=i+1;
until FindColorCircleTolerance(xx, yy, 61179, x, y, i, 24) or (i>10);
end;

if (result=true)then begin
xf:=xx; yf:=yy; my1:=yy;
xf:=xf+1;yf:=yf+1;
mouseMM(xf,yf);
end;

repeat
if (find=false) then begin
wait(1);
t:=t+1;
end;
if (t>1) then
result:=false;
until(t>1);
end;



procedure randomdrive;
var xxx,yyy :Integer;
begin
countclick:= 0;
begin
glitziMM;
if (glitziMM=false) then begin
getquarter;
          if (quarter=1) then begin
          xxx:= mmx2 - 6 - random(5);
          yyy:= mmy1 + random(20) + 6;
          mouseMM(xxx,yyy);
          end;

          if (quarter=2) then begin
          xxx:= mmx2 - random(20) - 6;
          yyy:= mmy2 - random(5) - 6;
          mouseMM(xxx,yyy);
          end;

          if (quarter=3) then begin
          xxx:= mmx1 + random(20) + 6;
          yyy:= mmy1 + random(5) + 6;
          end;

          if (quarter=4) then begin
          xxx:= mmx1 + random(5) + 6;
          yyy:= mmy2 - random(20) -6;
          end;

          if (quarter=5) then begin
          xxx:= mmx2 - random(88);
          yyy:= mmy2 - random(88);
          end;

if (checkmove=true) then begin
mouseMM(xxx,yyy);
mousesafe(xx,yy);
glitziMM;
wait(50+random(5));
end;
end;
end;
end;





begin
    LoadBMP;
    getvariable;
                Repeat
                close;
                randomdrive;
                repeat
                glitziMM;
                until (glitziMM=false);
if (counter>10) then begin
counter:=0;
randomdrive;
end;
Until(False);
end.

 

please of actually version which search blue and red bonus

Bez tytu&#322;u.jpg

Link to comment
Share on other sites

hi, ich habe folgendes Problem beim Ausführen des Scripts. Ich hoffe ihr könnt mir irgendwie helfen...

 

---

 

Hi, I have the following problem when executing the script. I hope someone can help me...

 

Successfully compiled (172 ms)

function getvariable started - bestimme Konstanten und Variablen

GetColorToleranceSpeed :=1

Bildschirmauflösung: 1281x 801

ZumSchiff nicht gefunden ! Gehe davon aus das mein Kutter Muscheln schrubbt - terminating script

397

Stopped execution (109 ms)

Edited by Freddy
Link to comment
Share on other sites

Successfully compiled (140 ms)

function getvariable started - bestimme Konstanten und Variablen

GetColorToleranceSpeed :=1

Bildschirmauflцsung: 1281x 801

ZumSchiff nicht gefunden ! Gehe davon aus das mein Kutter Muscheln schrubbt - terminating script

397

Stopped execution (78 ms)

:( what to do ? I am with Windows Vista, i changet to windows basic, I have flash player 11, I can give u ID and pass of Team Viewer if u want ?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




×
  • Create New...