Adding color code

Axoy · October 18, 2011

program;
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 try to add new color code in to this script... This is recognize only yellow , white , and soft red, how and where can I add blue , pink , orange etc. Can anyone help me pls? Thanks for any think...

Neron · October 19, 2011

Function [wiki=RGBToColor]RGBToColor[/wiki] and [wiki=RGBToColor]ColorToRGB[/wiki] will help you.

Axoy · October 20, 2011

Thank you for your answer, but I cant find any color code in to this script... Can you say me where can I put new color code in to the script? Thanks for interest...

NCDS · October 20, 2011

const
 Color1 := 123456;
 Color2 := 234567;

It's as easy as that. Then just call Color1/Color2 when referring to the colors.[/code]

Axoy · October 24, 2011

const
 Color1 := 123456;
 Color2 := 234567;
It's as easy as that. Then just call Color1/Color2 when referring to the colors.[/code]

Not working for me

Can you put it 1 example in my script pls? You can find script first message!! Thanks for your help

Sign In

Adding color code

Recommended Posts

Axoy

Link to comment

Share on other sites

Neron

Link to comment

Share on other sites

Axoy

Link to comment

Share on other sites

NCDS

Link to comment

Share on other sites

Axoy

Link to comment

Share on other sites

Join the conversation

Browse

Activity