find and take new colors..

[lordraal]

Hi all,

 

i need some help. I try to modify a glitz scar script but when i add new color this not pick up.

 

I'm new with scar divi so be patience\

 

 

now

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
  //
//////////////////////////////////////////////////////////////////////////////////////////////////


      schliessen := BitmapFromString(1, 9, 'beNpLNM5NxIEAfi0JCg==' +
      '');

        miniglitzi_1o  := BitmapFromString(9, 9, 'beNoB8wAM/2BRSFszT' +
      'F4zTVsrUmAsTl8uRVcwPlMyN0sxMUcyU14rX2YmcHIieHoidHcjZG' +
      'wnTl4tPlEwNkoxYm4teXwmjYgdm5IamI8ag4AfZG0oRVYuOkwveYA' +
      'zko8ropcZuaYTtqQTl48bcnclTlwrPEssdHknjYohpZkZuqYRuKQR' +
      'mY8ZdHYhTl0sPFIzcXUlhIIhl5AbopQVnpQYioYeanEmRVgwOkwvc' +
      'HQldnkkgYAfh4QfgoIgcXclV2QsQlc0OVI4d3kkbHInanAldX0xZG' +
      '0nVmIqSFkuPVU3R2FMeHokZm0oYmsnZnM1VmEpTFoqQVMvOVM5RK6' +
      '8UVI=');

        verbinde := BitmapFromString(52, 8, 'beNpLNM5NHEUDiT4+daWDL' +
      'jT1RGrHVEaMxoFyG53DDchG4yKTWGWxSuFST1JQ47IL0zSqM0h1G5' +
      'pnCbqcJAZ6SAIAU/Tl/A==');

        chat := BitmapFromString(36, 8, 'beNrz04rwIw19fOpKqhY4SgjXw' +
      '4OAJkMQsgh+LXhQaowhLgQ0FpONLEiMRmSUEW+SkWCEiYDqcYlDEK' +
      'YgmgJMEzITTDMTjTFJoEr84iAGqixcBJfe1BhjsAfRSVg44BQHM4z' +
      'hbAjCrzcuVA8XAmrBZJPEQEMRftr4UzgEYaZ5NEFMZei5AwD71D6r' +
      '');

       wrackmini := BitmapFromString(1, 10, 'beNoz0heXELS1t3Z1d46' +
      'Pj92+ffuOHbt6evrqO/o9I5N0AJ2qC/4=');

        minijackpot := BitmapFromString(17, 18, 'beNoBlgNp/EVZKyYtK' +
      'iUsKiUpMS0sHRoTNzUoj45829rIjIp7dXNndXJtgn5/ioiLdnR1Z2' +
      'dnWlpaBQUFHBceHhkgQz5CNjIxR0Q9YmBTmZiG7+7avLupeHZqq6i' +
      'jrqqrrauupaOkoKCggICAS0tLKyYsSURKOzc4WVVSQ0A3ZGJTubik' +
      'wcCrvbyolpSHoJ2WqaWkpaOkpqSln5+fmJiYYmJiGhUZQDs/Yl5fY' +
      '19ciIV8h4Z0vbyn19bB3NvH0tDBvruyysbD0c/Q0tDRvr6+kJCQra' +
      '2tPTg8TUhMSUVERkM+TUs/bGtXrKyU5+fP6+rV/fvsq6mdq6ijuLe' +
      '1wL6/ysrKbm5utra2LiorR0NES0dGVVJLTEo9enllzs628fHZ4ODI' +
      '5+bUyMa6rKmktLOxuri5t7e3nJycn5+fOzc4XFhZZ2NgdHFobmxdi' +
      '4p1t7ed6+vRvr6mzs25q6mcwr+4u7q2ysnH2NjYbW1tsLCwPDg3Xl' +
      'pZbWpld3Rrc3Fijo14rKyS2Ni8vLyit7aiuLap5OHa4uHd6unn7Oz' +
      'sampqpqamKiYjSUVCVlNMVlRIUlE/eXlhuLicyMmq4eHFvbyn6+na' +
      '7+zj///7///98PDwn5+fiYmJHBgVPTk2T0xFSkg8SEc1aGhQxsaq1' +
      '9i58fHV3NvG7+3ezsvC6Ofi+Pf1////tbW1lJSUGxcURkM+YV5XXF' +
      'pNYF9Lb29Vxcan9fbW29y98fHZwL+tpaOXp6ah1tXT////iIiIxcX' +
      'FHBkUSEVAZ2RdXlxPZGNPgoJowMGi/P3d0tO05OTMrKuZqKaamZmR' +
      'xMPB3NzcWFhY4ODgFhURPzs4WFdSSkg8TE09j456vb+p7u7W4OLMy' +
      '8q4vr+xxsO6urm0xsbEk5OTTU1NxczSGBgWNDMxMDAuWFdTc3RurK' +
      'umy8zE7e3l8/TsqKei///77Ovnnp6cq6urgYGBn5+fR15tMzMzKSk' +
      'pR0dHTU1NW1tbpqamq6urzMzM2trakpKStbW1xMTEzc3Nrq6uOzs7' +
      'ycnJDjFHQFdlFxcXODg4SEhIQkJCdnZ2paWl19fXv7+/lpaWqKios' +
      'bGxsLCwgYGBSEhIbYGOJEFVAB4zCQ4SIyMjUVFROTk5ZmZmsLCw5e' +
      'XlrKysrq6uurq6qampe3t7S0tLY2dqFzVKJ0RZSl5tUWFwCAgICAg' +
      'IJiYmb29vo6Oj0dHRmZmZoaGhk5OThISEa2trPDw8KUhcJkVZJsdx' +
      '7ug=');

      glitzimap := BitmapFromString(14, 16, 'beNoNjulP2nAAQH+ZW5x' +
      'OjcNriegcQycih1wFFFBUVKBYSqGllKMwcHig8yREEXV4IocMZYho' +
      'MrM4TZYl7ojJ/N9G8r695OXVPSFg6DAaWJgad5MSmpJQNpHd0ufEI' +
      'LdV6SVUJAItBy2xsB8Zk6/MIEGX1o1Jpr0qv0eOm3kr8zBNKOyImE' +
      'SkTos8QA2HfPD2mp+2Kb0Y5HfIbSYOgXBJlH9/e3CWCFn1fNwotBk' +
      'EtLXfqOXA2l6XRYrruwN2yGMTUxZR5CP6+Ct3f5Pwk+oyAYeGgAU+' +
      'YqDcD9FDU3YZNclzIKKyuilu/7lNP9xl9iMen1VpN/Df2xV+UklMC' +
      'uc86vWQIbFJfc1FrvOxv3fZfz/zjz/Ovhd2rk7Cl5nleITcWEIIE3' +
      'fWPRAgxKVMqJBYvMxunCfWHm5zv79lSqnw9en66f7M6cFU0N0foOT' +
      'YGNtp5ho1zEJyOX8UvkhvXmW3S8loKRMtpSJbq2RHM2C9AhC/0mkR' +
      'eHAhomNpodazRLiQjJ6ndorJ+HkyfpGOtdSAmgrQVAvM+g7aLnWgX' +
      'EzfNR+YuPwcLZ18KqZ280fxYmrvy/EW8yVgMYHPJZ/299MEhMOcWa' +
      '9mfQm7yEay+6uH0cXjWHljr5TbFbxjIBO9oQ8jpE2IGXrNuq4grdr' +
      'doLKHc6ZhQf1T8KapisYN6b3w+CDXrOeTVqkZ7sFgIWWReHBZeMGo' +
      'lDCqK8CLCsCoAs8BYLdWK8UdAzKmm1ShsNA4ynVhCp9T5bD2NdeDx' +
      'log5TV7iFE7OtjZXlMJgELcRhEateJtD7tOLXtdLhOoUK1sgse7bY' +
      'jMS+locgxH1JN6CBK164b4PezG9pZn/K4GFdRmmuAQWJ/NLMZRqZc' +
      'awVE1YRk06MTDKl4nq4HxH0L14uw=');



       schiffe_inaktiv := BitmapFromString(18, 16, 'beNotkulTUlEYx' +
      'g+hopCpqbRoCZalF0VAFoktXLuxb/fWZQ3EWDS11HAqs91RURaJRW' +
      'OopskclMSMqawPzfR/dVpmng9n3jnP8/7O+55qioDDCPpwpL1Or+Y' +
      'GfehkUIPpeHq004YJnXjP2IjCgfEGJKdNmq6pgPaWT2/W9irEHd4b' +
      'FsYZqkjQPOZTBbyD1009hJnntkmvm7rdhGBmfMiBdQc9cr9H6XP3T' +
      'fi0gRG1gN0sv8TmsE6OulH7NcmQkukiem/ekPldil/fU7j24qidH/' +
      'CIPVa+zcwZVrbo0S4XcRnXyxinqbxOut+DQircwB21S62m7sL7J1/' +
      '2wpDQgXGL289hDiwa1YgdF+1sLdtxGXL+2KD8vMMsthuFTgPfS0iL' +
      '718EXLLS7lolCXwtbhzsrl8zCWEgZuzeL6x8ePcYM3DZ7bXqvou4m' +
      'jPuHAhalfnsI79V7rPLfhykDj+99jrU+/k0rRw4Cem30rrbIc5mZi' +
      'rIgIM02CySKa8qFNDt5p5Nea7AjrXl4PNOpBKACR/289sWhQQK2yt' +
      'GLctpFb7Jzp2ig67247heOEIodl6/yGef7L1dLOUj+9vLhwep0sdX' +
      'X4q5z4XNYn79sJQpbC8loreS8UnYC2mrM6sFI4TSjcn99v5qErAZB' +
      'F6bzGYRV5EBJBwfNUFC3CigVQCXVTY1pqUfB22tNauLt5OR2fRqKL' +
      'M6uxkJvU3Pp6LTych0KnY/m3waD99NRudymYXoykRuYz6TCK0tT55' +
      'tohquimJLd17F5nOJh9n4g2R4OhWdScVC2dTj6BK03IOKh2egMbI0' +
      '+TIS0qI9Jxor4JapZLARX4gvTm9GHyTCs9CSjN5NrM2lYw/TMOevE' +
      'QrmQFrKEVBTDZhNNLmo7SgZ0MgAzg2qmgIqywAcXeURAF8HD38E/g' +
      'tWWlrqW5pqOi/Q+ySsqr+WOiqoIP0RtPy7Ty0DR8sB5IF7ryIBdns' +
      'zi8WsoYGmRkov55zyEmLRXB6Us806KWFRWnRi3CCGn1w7zFcN8NA+' +
      'nkKE9CBMxqk6JrOez7vQUFtGry1DWhv7JWzVoEghZek0vQa1UIdyN' +
      'cNcPSo0qsRDcm4H48SxctDwG0JHD88=');

    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.

i found the part i think need to be modify:

 

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;

the code to modify are the color like 65280 but if i change niothing work...

[FHannes]

Without knowing where the colors came from in the game, it's rather hard to pick replacements. You should ask the author of the script to fix this if it is indeed broken.