Release Phoenix Bmbot 3.5

[wundertüte]

- rejoins bms

- plays on every zoom every bm

phoenix bmbot 3.5 .scar

[potrar]

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 November 4, 2011 by Freddy

[HuiBuh75]

Ätsch ich habe den schon lange.. portar probier es mal mit 3.25 aufwärts

---

Yah I have the long .. Portar try it with 3.25 or newer

Edited November 4, 2011 by Freddy

[momo414]

please configuration

--MERGED---

please screen shoot for configuration

Edited November 4, 2011 by Freddy

[sea18]

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)

[Vo0Do0]

Help me please?? the script not run..

Bitte BMschriftfarbe überprüfen

Stopped execution (32948 ms)

[Rambazamba]

Scar Divi 3.25 Works no Problems

[klasika2]

bot working but very slow , capricorn map for 9 hour (

[Bobita]

i have Scar Divi 3.28 and this script doesn't shoting..

[wundertüte]

setup color scheme in windows correctly to windows basic design - doesnt work with aero designs

[brutale910]

Where can I find the Scar Divi 3.25?

of which operating system I run it?

[FHannes]

Where can I find the Scar Divi 3.25?

of which operating system I run it?

You can find the latest copy of SCAR Divi at http://www.scar-divi.com/?page=download

[brutale910]

I know, I want the version 3.25

[FHannes]

I know, I want the version 3.25

SCAR 3.28 can run any script 3.25 can... You should use the latest version.

[Tuetchen]

works fine but didnt test the reconnect option so far does the reconnect option work even when i get 24 hour disconnect from my router?

[Vo0Do0]

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)

[tugab]

very cool wundertüte :-) the best thing

[Tarantula]

hello klasika2,

 

 

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

 

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

 

or maybe you should not shoot with the cheapest amo.

 

 

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

Edited November 10, 2011 by Tarantula

[klasika2]

so tell me settings ) and iam not weak ship )

[geheim]

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 November 12, 2011 by Freddy

[lukas1407]

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

[B00mer]

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 November 13, 2011 by Freddy

[BlackDragon]

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 ?

[Bobita]

What it.s "windows basic design"..i have windows XP Service Pack 3

[wundertüte]

What it.s "windows basic design"..i have windows XP Service Pack 3

 

this is only for win 7 / vista