Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding
You last visited: Today at 07:51

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement
Bitcoin Dice Game


Hilfe bot zusammenstellen (Scar?)

Discussion on Hilfe bot zusammenstellen (Scar?) within the General Coding forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Nov 2012
Posts: 40
Received Thanks: 6
Hilfe bot zusammenstellen (Scar?)

Hallo,
bräuchte bitte Hilfe einen Bot Script in Scar (besser aber auch alternativen sind ok) zusammenzustellen.

Was ich brauche:
es geht um einen Bot (Spiel ähnlich wie Seafight) der einen Schiff mit Hilfe einer Minimappe bewegt und die Figuren (mit Farbe oder bmp) erkennen und schießen sollte. Die Figuren werden aber nur auf Hauptkarte angezeigt (also keine Farbenpixel auf Minimappe).
Sollte also die Figuren (Monster usw.) erkennen, in die nahe kommen und dann schießen (lieber mit Taste aber auch 2xClick ist ok) bis die Figur verschwindet und dann weitersuchen.

Danke an alle für die Hilfe.



Mac82 is offline  
Old 06/30/2020, 09:47   #2



 
elite*gold: 50
Join Date: Mar 2009
Posts: 5,730
Received Thanks: 1,959
Quote:
bräuchte bitte Hilfe einen Bot Script in Scar zusammenzustellen.
Womit hast du denn schon Angefangen? Zeig doch mal was du schon gemacht hast, dann kann man dir schneller helfen.

Sofern du meinst mit "hilfe" jemand der dir das für lau macht, wird schwierig. Da würde ich eher im Black-Market schauen und jemand dafür bezahlen.


Devsome is offline  
Old 06/30/2020, 22:02   #3
 
elite*gold: 0
Join Date: Nov 2012
Posts: 40
Received Thanks: 6
Quote:
Originally Posted by Devsome View Post
Womit hast du denn schon Angefangen? Zeig doch mal was du schon gemacht hast, dann kann man dir schneller helfen.

Sofern du meinst mit "hilfe" jemand der dir das für lau macht, wird schwierig. Da würde ich eher im Black-Market schauen und jemand dafür bezahlen.
Hallo Devsome, ich benutze alte Seafight Scar bots und versuche die an andere Spiele anzupassen, es ist eigentlich um etwas zu lernen und etwas schaffen was ich im Moment auch benötige.
Hat bei einen Glitzybot funktioniert und jetzt versuche ich 2 bots anzupassen die bei Events Monsters killen (die aber auf Minimap nicht angezeigt werden).

Habe diese 2 Scripts (habe hier die bmp gekürzt da sonst wirklich alles zu lange ist) die ich anpassen möchte. Benötige nicht so viele Funktionen und Figuren (max 2) und die Bewegung mit Hilfe der Minimappe und suche direkt aber auf Hauptkarte:
Also: Bewegung auf Minimappe und click auf Karte, Karte zentrieren (Space Taste), sucht Figur auf Karte, wenn gefunden fährt dort in die nahe und schießt mit Taste oder doppel Click bis Figur verschwindet, wenn nicht gefunden nächste Bewegung auf Minimappe, usw.

1)
program new;
var
chat, logout, minimap, alerts, broken, sea_shop, harp50, upArrow, lastH, lastH1, x, y,
xx, yy, mx, my, mx1, my1, i, mx2, mmx, mmy, mmx1, mmy1, quarter, attack, attacking,
firasx,firbsx,firadx,firbdx,serasx,serbsx,seradx,s erbdx,orcasx,orcbsx,orcadx,orcbdx,traasx,trabsx,tr aadx,trabdx: integer;

procedure msg; forward;

procedure loadBMP;
begin
firasx := BitmapFromString(24, 14, 'ceNoB8AMP/MfJosrIqtrWx' +
'v/05+z//HS6tU+gpmGUoM/g7UeexG672GK4zjGetTKetWKfsdPk8' +
'4yrulWlsUadoev////55//038rNv8zRwcvUtcjAqfPo3v/79un//' +
'2a1tD2YoGacrdHh9VuUvXmpylicshyLmSGXomOhq9vi7aO+xF Kur' +
=');

firbsx := BitmapFromString(13, 26, 'ceNoB9gMJ/M3V0sLIxcvT0' +
=');

firadx := BitmapFromString(6, 37, 'ceNpj0jJh0jJh1TVn07Ng1D' +
'RmAnOBDAYNI6Agi44ZkMusbQoSUdUHsiEiQBKIgCIM6oZAlUB ZiA' +
);

firbdx := BitmapFromString(17, 26, 'ceNpdkntMk1cYxkvpjbYID' +
'trKxVrond5bSrm5CALSEW9jxcGGdKgbAxmLQDRTmGQzRpYJGA ao2' +
'VjUaDdhy5Qtc9mMbCmDIdQCug0EMRS5SLn09h2ExL3wZS5Z8u bk+' +
'==');

serasx := BitmapFromString(19, 26, 'ceNo9VOk33FcY/jHGYAxm3' +
'/edwcQyYxnbDKK2TFSmKC2xGyZGbEGQqSgJaoktYmmIZWoNWdpI 9' +
'bRNox/6oV/6rf1b+uic03Oec8/7u7/3vc+7PPdG6dWOUvvs9MTn5' +
;

serbsx := BitmapFromString(25, 18, 'ceNolketrm3UUx0/SJk/yP' +
'Mlzv99ya9KkbZo0TZo0be7p1svc1qZds5U6t7a7yDrsuq0WdQ Xd8' +
M=');

seradx := BitmapFromString(29, 22, 'ceNolkwlQk2caxx8IRw4SI' +
'CF3yEUuyEUCgYRThIgcgoCggqKgsMAuWotVV4tb1K7iWUFc1K qg1' +
'rCKJ8ihRQTRHmw9ZqeOuz1cj7azYxUrhiuEZz+2M++88x7f+3 t/8' +
==');

serbdx := BitmapFromString(21, 28, 'ceNolVGlvHLkV5Jw90xfJ5' +
's0m+5qrZ0Yaj+7LkkYraS1Z68hx1pLi+NTGa+/m0yJAEOTXh0qAA' +
'tF4eNWvWK/AqNchcTdTpCpMmqac81TgscWLihxv16vn27evX5WKS' +
'');

orcasx := BitmapFromString(24, 12, 'beNolkulPE0EYh78qYEt3u+' +
'y93dmru9s9eiwtlDZSK0UBiXeMF4poghenIFo8oEYhiHhUEA/w4Ba' +
'8j8R/zteY/DKZTGae95l3xopjJMsIaEcgSPMiUnVaQEgz7Hitk0ha' +
=');

orcbsx := BitmapFromString(38, 24, 'beNo9lgl0VNUZxyfJwEzCZP' +
'btzcxb5+3vzZt9y2Qmk8ySZLIMJCEkLCK7aAiIKYsgIGGTXSq KLC6' +
Vavqq' +
'qeN3Tn3Ru2PnLw8Ko164PRmMWJODAi29LeM2W6m5VNGGumJAs dMDM' +
'hExc1sxGXP82mS6FSv7/jZjQ7oTrQopULNeGOKrmoYhoruVwVn9P4' +
==');

orcadx := BitmapFromString(34, 35, 'beNotVwl0G9UVHclavFuWZG' +
'2WRjOaXTOjfbc2a7Udx4mNYzuBgCFxFkjIQhKTnYSEJS1baJo WAiV' +
AZqvmFo=');

orcbdx := BitmapFromString(39, 26, 'beNo1ltmLZFcdx0/tVbfq7v' +
'u+1q1by62qW1tXdfVW0/sy3TOTTiYzzJhJnCSoQRB9EPRBIUIEFRc' +
'YEgQffFBxVwyCf5AviiD4B/jtXAKHw7nV957P+X5/y2m/z8uKqBqS' +
'ZoqaKemWYjqq5WJhuIEdhn6n40RY+GG348XRaD6Nesl0tfXkr ec//' +
==');

traasx := BitmapFromString(44, 27, 'beNotV1lwW+d5bSKLorgBIH' +
'bg3gvcfcUF7sVdcLGvBEGCC0hwAUGC4iJuEheZpCRrsRbLimR bimT' +
'JrmW5UTKO7bTxuHE7k3bitnnNTJuXZDqdzHTy0If2pe99yUz7 0S7m' +
'm38uMMD85zvnfAt2cqwQkhUGziDmxGmvIIelGCGrVNzkOQlN5 aVq3' +
Q');

trabsx := BitmapFromString(19, 16, 'beNoNjvtPGwUAxzdmBF+gXa' +
'FP2l57veu9eu+7Xq93LX3QFnbdaFnZLIUWNywgD8taBjKYRp0 TlpG' +
'hbBnZJpkmukWR6GDxmeAiW+YPWzLNNhMX4w8m/gX+4A82+f74+eTz' ==');

traadx := BitmapFromString(42, 26, 'beNodlXuUE+UZxntOKQW5s/' +
'dLrpPMJDOTmcxkZpLJTCbJ5DK5brLJbsJmL+yNhV32wi6IUO4 sV6F' +
==');

trabdx := BitmapFromString(34, 34, 'beNpVk9lv4+p5xuV9t8fxov' +
'GifbVlLZRIibtIiVpIiqKoXbJ2WYttybY0tjXjGY+3OXNmTpO gOW2' +
=');

chat := BitmapFromString(11, 13, 'ceNoBrQFS/lhTUI6XkaGkk' +
'oWFdJSVkpOfnJuwpL3VyEpXUEY4JoNZJEA+PI6Xl6iqn4J+bo 6Kg' +
=');

logout := BitmapFromString(11, 6, 'ceNp7v7P13rqGmhhXS2VxfR' +
'EuL125KFu9aAejQDNNBw3ZLD+LeBvtpTURP472rmyIctWWcdW W8z' +
==');

minimap := BitmapFromString(100, 98, 'ceNqVvQeQZOd5rjeusn1d' +
'kq9dZdW1JZV9S7ItyRKTJJJgEAkiESRA5LCIC2zC7mJzjpNzz jl1' +
'T09P5+mc8/TknHOOmzMSCUrwc/rf7TsCLmW56qu//j59pvuc57zf' +
'973/6e7dSzufyfz4laQ9z6Xs+03qgRczDr1Sen5n4el3ck68mXn0' +
==');

sea_shop := BitmapFromString(7, 10, 'ceNpVyMkRgzAMAMBiAN+QYi' +
'XZODWZwTcuJzCTPLLPHSQvFA15BZZhiTAfMA1SHeWT+EuchlW dZC' +
');

harp50 := BitmapFromString(14, 1, 'ceNqrCzfuyXBeVOa3pc73QJ' +
'XTwSKTZdluC7Lcp+X4zaqJn9GU1pQbWBhtXxBsBQCS7BI9');

lastH := BitmapFromString(20, 7, 'ceNqdkAuOgjAQhkvrdlHLow' +
'IFVMTKoyCIWXWzjxO16GX3Rju4N9jky2SSmW/+ZLC7woDDLeY/4Y' +
'hxy10hlxMeET8kfoAcH7uw4FnMtRzf8gKSZCQr6eG0qM44kSj KsN' +
'iRIEXO5E47z4q9ADEPcYHCFG8LvD3Miu6l7F/bC60vj2NqmlgroZ' +
't4bBNdR2PF9X5p8rmRbGyFVtFEHRgVTrRiPCa0eaPq+jOgfzC rz+' +
'A+ujVwh3QVmSowdTgeY134WjL9zDUVH1UAzb1LYAS5uoks2YJ rt+' +
'/L/pOdvuzmNm+udtGjXY3SPRIbtBKzdU7SnO7VXA20PkMcLk/Woc' +
'Nr+ecuug9n+AYd6qK9oayanuOF00vjDUl2dCttqWjZk2oAFy6 QOP' +
'sFSv8+sQ==');

lastH1 := BitmapFromString(9, 7, 'ceNo9i1sOgjAABLct8VmgpdJ' +
'YHhZMoEbihx5HPEjxXHowbyBIYrKZ7GayJFJkSoJIUqGY2JF4 6iM' +
'Jl+ByVkymo2JCIRR0nMognBQJxUwaK/AYUgfNFbZ76NSL7RCvB8m' +
'fRt9NhvqM8oT68lb8E+GfV7LBoaVFS0vX54VXwkvuf69e66By K3d' +
'bHjuUDfYWOkeig8wyYxeV+wI+aBUZ');

upArrow := BitmapFromString(5, 4, 'ceNr7/5D3/12G3zeZf99l+P+' +
'U4d8jhv/PQIy/jxj+ANnvGf5/ZPj+iOPfO6b/nxj+/+Z/e19461L' +
'RJbMYPjyWBQCMcCTm');

alerts := BitmapFromString(7, 20, 'beNpLCwz2seuvS0dDPdWp0' +
'sKcUYHOKdGemfE+2Ym+QNRRnigtwh0dZDt7YvniGdXL5tQCUU txrL' +
'Qot6mumK+TUpi3enSAFhDV5UXKifPaGEsBRRLDdNOjDYCoIiN YXpL' +
'X3kwaqADIzU00BqKiJD9MwZwYD0zB1DAnTMG4AFtMwQgvc0zB IBcj' +
'TEFfe11MQQ9rTUxBF3M1TEFHE2VMbzoYK2IGiL2RojA/u7QYj4I0n' +
'4qcgJqCIBAFuxpxc7Dwc7MJ8bELC3BAkIudYWlaIAoCAEgpcL w=');

broken := BitmapFromString(7, 18, 'beNoTE5ORkSkvL29paenq6uq' +
'FAVlZ2dLS0kuXLt2+ffsBDMjJydnY2ERGRqakpGTDgKKioqur K1Ck' +
'qKioEgaUlZU9PDyAskB2IwwMaUGs3sQaIKKiovLy8qqqqpqam joww' +
'MPDIyAgICIiIgYHAG8Yj7Y=');

attacking := BitmapFromString(9, 16, 'ceNqbFcrQH8vYmiCeacmAhm' +
'YEM3SGMbTES2BKzYvimBHFNSlBDFNqkh/XrECOWRHsaOL///+fGS' +
'61PExgbiC6OBDMCJNcFMi1OBxFHELOCuebF8Y5PYwR08BZ4Qz TIl' +
'i6ozixSIUx9EQxtCYKYUrNjWLoiWFoSeTFlFqWwjA9iaE7nhn TX1' +
'uLGVblMixMY8CUOlzHsLOMY0cJS5U7Q7k7Q4UbIxw93iZ1bzX D3a' +
'UM12cznJvEcLMHgab0aj495Pf9uNvXw9Yf9xi+2WMLRwzq0ox aMg' +
'waknrOImZBMhYBouYBIub+wqb+QgA5LJAX');

attack := BitmapFromString(4, 26, 'ceNqbViE1s1JqFpAsAzJkZ1' +
'XIziyXnV4qO6NMbkap3PQSuSlFQFJ+arH8lCL5SQXy04oVphY qTs' +
'5XnJinOLVYaVKh0sR8JRC7SGVykfLEAuWJ+cpTi9WmFKtOKlS dVK' +
'A6o1RtGhCVqAEFZ1ZoAtGMchCaU6U1u1JrViWInF+nA0K1Ogt qdR' +
'Y16S9u1F/UoL+oUX95q8GKVsPlrYbLWg1XdRoD0Uog6jKeWq01r9' +
'lwY6/xun6zzWsmFWYFpkdZLG3Vi4+wzEv3KskJqs0xbawIS4my6m' +
'lK6W3L7KqPuXR8yan9c1YtrJ/bn3391OJXD3Y8uLZuWmfSg8ur75' +
'xfvmtDK5C9bWXj0R1929bWt7elr1rSunlJ27qZ1V4u6olR1p2 VsX' +
'M7soxUefWVOex0BBd25wMANTSLmg==');

end;

procedure seaPage;
begin
if FindWindowTitlePart('sonk', False) then
begin
ActivateClient;
wait(750);
end
else
begin
ShowMessage('I can not find the page of the Sea');
TerminateScript;
end;
end;

procedure getVariable;
begin
if FindBitmapTolerance(chat, x, y, 50) then
begin
mx:= x + 27;
my:= y + 692;
if FindBitmapTolerance(logout, xx, yy, 50) then
begin
if ((xx-x)>727) then
begin
mx1:=mx+675;
my1:=my+70;
end
else
begin
mx1:=mx+1110;
my1:=my+704;
end;
end;
if FindBitmapTolerance(minimap, x, y, 50) then
begin
mmx:=x+83;
mmy:=y+96;
mmx1:=mmx+121;
mmy1:=mmy+121;
end;
end
else
begin
ShowMessage('I can not find the icons of the game!');
TerminateScript;
end;
end;

procedure HMouse(var x, y: Integer);
begin
HoldMouse(x, y, True);
MoveMouseSmooth(x, y);
wait(50+random(50));
ReleaseMouse(x, y, True);
wait(100+random(150));
end;

procedure Mouse(var x, y: Integer);
begin
MoveMouseSmooth(x-5, y-35);
wait(100+random(50));
ClickMouse(x, y, True);
wait(100+random(50));
end;

procedure space;
begin
KeyDown(32);
wait(500);
KeyUp(32);
end;

Procedure v;
begin
KeyDown(86);
Wait(30);
KeyUp(86);
wait(50+random(10));
end;

procedure f;
begin
KeyDown(70);
Wait(30);
KeyUp(70);
wait(50+random(10));
end;

Procedure repair; //q
begin
KeyDown(81);
Wait(30);
KeyUp(81);
wait(50+random(10));
end;

procedure h;
begin
KeyDown(72);
Wait(30);
KeyUp(72);
wait(50+random(10));
end;

procedure aa;
begin
KeyDown(65);
wait(100);
KeyUp(65);
end;

procedure dd;
begin
KeyDown(68);
wait(100);
KeyUp(68);
end;

Procedure upLeft;
begin
x:= mmx + 3;
y:= mmy + 3;
HMouse(x,y);
v;
wait(350);
space;
end;

Procedure downLeft;
begin
x:= mmx + 3;
y:= mmy1 - 3;
HMouse(x, y);
v;
wait(350);
space;
end;

Procedure upRight;
begin
x:= mmx1 - 3;
y:= mmy + 3;
HMouse(x, y);
v;
wait(350);
space;
end;

Procedure downRight;
begin
x:= mmx1 - 3;
y:= mmy1 - 3;
HMouse(x, y);
v;
wait(350);
space;
end;

procedure getQuarter;
begin
if Findcolortolerance(x, y, 26367, mmx, mmy, mmx1, mmy1, 30) then
begin
xx:=x-mmx;
yy:=y-mmy;
if (xx<=45) and (yy<=45) then quarter:=1;
if (xx>45) and (yy<=45) then quarter:=2;
if (xx>45) and (yy>45) then quarter:=3;
if (xx<=45) and (yy>45) then quarter:=4;
end;
end;

function find:boolean;
begin
//if FindBitmapToleranceIn(big, xx, yy, mx, my, mx2, my1, 80) or
// FindBitmapToleranceIn(big2, xx, yy, mx, my, mx2, my1, 80) then
result:= False;
mx2:=mx1-90;
if FindBitmapToleranceIn(firasx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(firbsx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(firadx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(firbdx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(serasx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(serbsx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(seradx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(serbdx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(orcasx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(orcbsx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(orcadx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(orcbdx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(traasx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(trabsx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(traadx, xx, yy, mx, my, mx2, my1, 80) or
FindBitmapToleranceIn(trabdx, xx, yy, mx, my, mx2, my1, 80)then
result:= True
end;

procedure moveRight;
begin
i:=0;
repeat
space;
wait(350);
dd;
i:=i+1;
until find or (i=160);
end;

procedure moveLeft;
begin
i:=0;
repeat
space;
wait(350);
aa;
i:=i+1;
until find or (i=160);
end;

procedure drive;
begin
getQuarter;
if (quarter=3) then
begin
downLeft;
moveLeft;
end;
if (quarter=1) then
begin
downRight;
moveRight;
end;
if (quarter=4) then
begin
upRight;
moveRight;
end;
if (quarter=2) then
begin
upLeft;
moveLeft;
end;
end;

function checkShop: boolean;
begin
result:=False;
if FindBitmapTolerance(lastH, xx, yy, 30) then
result:=True;
if FindBitmapTolerance(lastH1, xx, yy, 30) then
result:=True;
end;

procedure shop;
begin
h;
wait(350+random(300));
if FindBitmapTolerance(sea_shop, xx, yy, 20) then
begin
Mouse(xx, yy);
wait(750+random(750));
if FindBitmapTolerance(harp50, xx, yy, 30) then
begin
Mouse(xx, yy);
wait(750+random(750));
if FindBitmapTolerance(upArrow, xx, yy, 30) then
begin
Mouse(xx, yy);
Mouse(xx, yy);
Mouse(xx, yy);
msg;
end;
end;
end;
end;

procedure msg;
begin
if FindBitmapTolerance(Alerts, xx, yy, 50) then
begin
xx:=xx+2;
yy:=yy+2;
Mouse(xx, yy);
end;
if FindBitmapTolerance(broken, xx, yy, 55) then
begin
xx:=xx+2;
yy:=yy+2;
Mouse(xx, yy);
repeat
wait(100);
until FindBitmapTolerance(chat, xx, yy, 50);
wait(150);
repair;
wait(1500);
repair;
end;
end;

procedure gift;
var
caz:integer;
begin
if Not find then drive;
if find then
begin
Mouse(xx, yy);
wait(350);
x:=xx+50+random(70);
y:=yy+15+random(15);
if (caz>10) then
begin
x:=xx-50-random(70);
caz:=0;
end;
Mouse(x, y);
i:=0;
repeat
wait(500);
caz:=caz+1;
i:=i+1;
until FindBitmapTolerance(attack, xx, yy, 42) or (i>10);
f;
wait(350);
space;
repeat
msg;
if checkshop then shop;
Wait(550);
until Not FindBitmapTolerance(attacking, xx, yy, 42);
end;
if (i=40) then drive;
end;

begin
//GetSelf.WindowState := wsMinimized;
SetDesktopAsClient;
loadBMP;
seaPage;
getVariable;
repeat
msg;
gift;
until False;
end.



2)
program new;
var
chat, logout, minimap, alerts, broken, sea_shop, harp50, upArrow, lastH, lastH1, x, y,
xx, yy, mx, my, mx1, my1, i, mx2, mmx, mmy, mmx1, mmy1,rose, quarter, attack, attacking,
icefloe,maskice,contor,reppbutton,greenhp,r,xxx,yy y: integer;

procedure msg; forward;

procedure loadBMP;
begin
{wrak := BitmapFromString(19, 17, 'beNodkNlPI3UAx39yLMeUFjpt' +
W'); }

greenhp := BitmapFromString(41, 6, 'beNoLZGAoZWCoZGAoBJN0Zp' +
'fCRAaEPVC2D1RoD6ztiQwMgQwMoWAUSEc2AG6ja9c=');

icefloe:= BitmapFromString(15, 14, 'beNoNyW1T0gAAAOBf2' +
'afu+tRlkp1BKaYyxosgDLaxAWMIIoMx2BCQbcIQ5CzhFAhFET BEU' +
'ecLoniV3XVX3dXz9Tls9Effm+dytdPtXt/ePv3oyJcXo4fjK/no8' +
');

reppbutton := BitmapFromString(18, 16, 'beNoNke1v21QchX' +
'9OYvv6+uX67TqxYyeOEyed0ySrW7VZ32m7lFZMpWNk3QalWlV alS' +
'1lBbplAzS6SbQT6goMbdUEHxBDQoIh0CT+PSw9X59zdHQAmuN BNO' +
');

chat := BitmapFromString(28, 24, 'beNpNVSEQrSAQNBqNVCKRSCUS' +
'iVQikUg1Go1WotFoJRqJVKPR+P4e/j/zZ26Yez5Z95ZjbxoYHzlng' +
'k9CTFJOSlFIMSrkctRq0nIytFLeHzIpKJTgSnIktFHQds4GPo 2CMc' +
==');

{logout := BitmapFromString(33, 9, 'beNrTE//41LW92jQjxpB2CGh' +
'FV515ToIx1RHQZDgDzYpV86yAgkAEZEBEzh6wh4jAFWOqQTYQ TQtm' +
'QAFFkBkr5lgii0AUo6khyGguN04K14MgIBsoAmFDpE7tswMiZ BFMN' +
'); }

// Maskice := BitmapFromString(24, 11, 'beNpjYKAiqEQFcEEyzCFSkEJz' +
//'0JyKSxC/OVhV4hLEYzh5gmRYTaE5pIYztfxFfHxRAQAAUr1Tqg==');

Maskice := BitmapFromString(26, 11, 'beNpjYMAFKisrGcgClRiAQtOo' +
'6zb8gmjOxi+O3zRMEwiKY9pCiWnkuQ2/Myh3Ay3CjYpxSjUAAHRhX' +
'wI=');

logout := BitmapFromString(34, 9, 'beNrTE//41DUjxpDWCGh' +
'LToIxLRCyyVhtAQqiiUNE0DRiNQfCgKuHczF9R10GhJ0UroeM 4CL' +
'UYkDY0f5ayAguQi0GhI2MAt1UgQiZjSyCLEiSGldreeIRUAtJ 6uH' +
'IQk+cGARxFZGK0REAnRNRnQ==');

minimap := BitmapFromString(19, 11, 'beNoBcwKM/RQATUc5NC8cY' +
'11Hd3FZnZZ8v7ib6+fC2NWsZmE73tmzjoZhm5Nv9ezNuK+Stq +Vhn' +
'5nbmdUWlNDOzUnLSUOQjwcu7OPtqyIfXBOlIpn1c2pTkYhU0w i0Me' +
=');

sea_shop := BitmapFromString(13, 8, 'beNoBOAHH/nEBWktIOiUqNh' +
'8RlYBBz7pN3c0ytacAoZEAjoAAhXkLgHQOd2sAeWgARDUuX0p PJw8' +
'DnYdNrpgy3cw4tqQCo5EBlIIEj34Uh3cXhXMRhG0PVEQ1fGhq FAAA' +
'f2g+oYw5t6MmxbIlp5AOmIEPlH0ginMliXImhGkiZ1ZEjHh3E QAAR' +
=');

harp50 := BitmapFromString(17, 9, 'beNpdkOcNglAUhRN7QTpWLFO' +
'oqFPoBo6iov61ROeRIXADxzB+cAkBk5uXe9o7DxzFVMu6UjRa JUurcMo' +
'uCxKjNQsMMGW6djMM1t/PVubuezl4XISvHMRv61WC1/0MhlPqCIqhYzV' +
'gLrupqJhR22bdMWqJx/cgYTADH6floKOi3g5zUbkBFU8UiT2cMPDP80r' +
'geGBikBYpFQOTRHwPJm2RCGra0nMUvoXqfruVjUQ3xO/kYaO+kap8Czs' +
'z7OnvYJP9J1lI6k8l4nY1KaJUoNzMAiMzcS1InhTBH625lYI= ');

lastH := BitmapFromString(17, 10, 'beNpFkNtOwkAURVsUkdKWltq' +
'WqdBCC6USAREFa+oVBJWEiDZoTHzxwcTEN3/GqNEYbzEan/wfxUv0L/S' +
'MlzpZmcyZ2XvOnhGCPE2IDIkimJhIajKpI0KPkm5d2HULm1Vr o5rpzGd' +
'Wp9NN25grquUsYilS4v4t3y4iiXw7HWNrMQt6wJ1NtxyjUUnM jMTHh1C' +
'onxDCpIghZJ5Ydxuff+Pj7RnEXlkva05+sJSJ9vUSDEVAPI4m YXbb2DJ' +
'T4bfbVss2H27PoFyZwsb76xNsMWUqQIIYXJBQDPs2O0twulbX Wk5quWK' +
'8v3aBpq2DHvYnsmgkJYISLodsaS1gj0b29zpekmpJ/bm8VlLvLo9hPZa' +
'RhpMC1Y9bqLLPKdKt6mBjUq2Nx+1h5fX5ycPJoZvzI7DkdcFS efyWIP4' +
'iOx9asBVIC92LaQkEL93Hq7NDWJRMEeaL0wNL5VIK6+/BFuhSMIPl3MB' +
'L98kLZsU5wCvNWNhATEKmedYvcv6YFEjFKVNjdSUMJBGryfQv UYDRZCY' +
'mhZSBIPoCWk2mCQ==');

lastH1 := BitmapFromString(14, 9, 'beNoT5pQSZpQRBSF5cQYlSaa' +
'0MOVYD60IZ3UgCnFQ9bNRdjdXsDeQNdWUFOFjEBdkEBdiBDKS Yz3///8' +
'fYqcGVPMfBtzM5G30pI3VJQR4GAV5GIT4GEUFmCBSfpZqW1Yv BDICbEH' +
'q1y2fB1KpJs7HxSjKzyQtxgwUbKqMBZJe5srPnzwEIm9LJaAy oIiFlqS' +
'BiqiqPLulkRCQu2HVHE8rOSDD2VgOYpSLsdyapXOAbBN1MR1F YRtDHj9' +
'n6f+o4OnjB0Bkoyu5cvFsIFdPSVhDTtBSj9vVUgroEqAVhqpi QHGgRcs' +
'WzgIyjNVEgeSS+TM05ARUpPj01TjNdEX0VcT0lES05EHO0JAV ACK4+Wo' +
'y/MqSvAriPCqyXGryfEpS/ECkKMknL84DRRJAxCsvzisjxi0lwikJAKr' +
'Fk08=');

upArrow := BitmapFromString(11, 6, 'beNpTFpIS5YYjEQFOHi5WII' +
'ksCEdC/BwiAlz9rQUignzIamQleIBIQoSLi4O1Ic/1/KElkztLgGwpMa' +
'iUojSfghSvEB97VrTlignRl4+vObVndlq0C9BAoBQQqcgJALU HuekAZZ' +
'GRs5WKtBgPUFZLWUhFjl9TSVRLRQwZqSuKgGQB8rwkVg==');

alerts := BitmapFromString(7, 20, 'beNpLCwz2seuvS0dDPdWp0' +
'sKcUYHOKdGemfE+2Ym+QNRRnigtwh0dZDt7YvniGdXL5tQCUU txrL' +
'Qot6mumK+TUpi3enSAFhDV5UXKifPaGEsBRRLDdNOjDYCoIiN YXpL' +
'X3kwaqADIzU00BqKiJD9MwZwYD0zB1DAnTMG4AFtMwQgvc0zB IBcj' +
'TEFfe11MQQ9rTUxBF3M1TEFHE2VMbzoYK2IGiL2RojA/u7QYj4I0n' +
'4qcgJqCIBAFuxpxc7Dwc7MJ8bELC3BAkIudYWlaIAoCAEgpcL w=');

{ broken := BitmapFromString(7, 18, 'beNoTE5ORkSkvL29paenq6uq' +
'FAVlZ2dLS0kuXLt2+ffsBDMjJydnY2ERGRqakpGTDgKKioqur K1Ck' +
'qKioEgaUlZU9PDyAskB2IwwMaUGs3sQaIKKiovLy8qqqqpqam joww' +
'MPDIyAgICIiIgYHAG8Yj7Y='); }
broken := BitmapFromString(7, 18, 'beNoTEysvL29paenq6up' +
'FAqWlpZcuXbp9+/YDJGBjYxMZGZmSkpKNBFxdXYEiRUVFlUjAw8M' +
'DKAVkNCKBIS2I1ZtYA0ReXl5VVVVTU1MHCQgICIiIiIghAwDS qqK' +
'X');

{attacking := BitmapFromString(25, 25, 'beNotlCFoJEkUhku0eK' +
'LEEy2eGDEFI1IQkYKINIxJw4prWLENZ9oOK5bmxNJEhHZHs+J oIpY' +
'hIgwnFmbFwJlAVhzkZE4cjDnIioMxK0asGLFixIq6/3XvzEtRZLq+' +
'fu/9f72ZP1z3h7f1Hy9D/O8p7reH9/Xz6+LhRfn4tvOJ4cSYYRWsx' +
2KqA==' +
''); }
attacking := BitmapFromString(19, 15, 'beNodkuty2' +
'zYQhV9nsVgsQBAgaUqiHdlSZNlRZJuUZIpiUttpbpPWTSYzzW Ryc' +
'1xXaWf4zIGDOX+/PYuzh81/f7/82o7u2uHNxdEeAQkAitLicLa4y' +
==');


{attack := BitmapFromString(16, 20, 'beNolUi1oI0EUHhExomJEx' +
'IiIHYjYgYgdiOhATAcislCRhYoOVJQlIiwVZakoS0xZIkqpKE tFWU' +
'4U1hzkxMFGFFYVYgqtOOi52ogTkSvfvWmGx+6b4fvez/eeJ9tl0q4' +
=='); }

attack := BitmapFromString(15, 17, 'beNotkstPE1EUxs9MZ6' +
'YzvTOddl6daedBW1rbWlpEoAIGKDQ8pUkVSatAfEVREkmMLEQ EiS' +
'7UaAwEiASVuDWG4CNhY2Ligo3RGJYGk7oh0b/CGfTLWXznni/n/n' +
=');

end;

procedure seaPage;
begin
if FindWindowTitlePart('.seafight', False) then
begin
ActivateClient;
wait(750);
end
else
begin
ShowMessage('I can not find the page of the Sea');
TerminateScript;
end;
end;

procedure getVariable;
begin
if FindBitmapTolerance(chat, x, y, 50) then
begin
mx:= x + 20;
my:= y + 41;
// writeln('Mx='+inttostr(mx)+'- My='+inttostr(my));
if FindBitmapTolerance(logout, xx, yy, 50) then
begin
//writeln('Coordonate buton Logout = '+inttostr(xx)+'/'+inttostr(yy));
if ((xx-x)>685) then
begin
mx1:=mx+775;
my1:=my+573;
end
else
begin
mx1:=mx+598;
my1:=my+440;
end;
end;
writeln('Coordinate map: '+inttostr(mx)+'/'+inttostr(my)+' - '+inttostr(mx1)+'/'+inttostr(my1));
if FindBitmapTolerance(minimap, x, y, 50) then
begin
mmx:=x-35;
mmy:=y+28;
mmx1:=mmx+87;
mmy1:=mmy+87;
end;
writeln('Coordinate minimap: '+inttostr(mmx)+'/'+inttostr(mmy)+' - '+inttostr(mmx1)+'/'+inttostr(mmy1));
end
else
begin
ShowMessage('I can not find the icons of the game!');
TerminateScript;
end;
end;

procedure HMouse(var x, y: Integer);
begin
HoldMouse(x, y, True);
MoveMouseSmooth(x, y);
wait(50+random(50));
ReleaseMouse(x, y, True);
wait(100+random(150));
end;

procedure Mouse(var x, y: Integer);
begin
MoveMouseSmooth(x, y-20);
wait(100+random(50));
ClickMouse(x, y-20, True);
wait(100+random(50));
end;

procedure space;
begin
KeyDown(72);
wait(30);
KeyUp(72);
end;

Procedure vv;
begin
KeyDown(67);
Wait(30);
KeyUp(67);
wait(50+random(10));
end;

procedure ff;
begin
KeyDown(32);
Wait(30);
KeyUp(32);
wait(50+random(10));
end;

Procedure repair; //q
begin
KeyDown(82);
Wait(30);
KeyUp(82);
wait(50+random(10));
end;

Procedure hh; // L - meniul de harpoane
begin
KeyDown(76);
Wait(30);
KeyUp(76);
wait(50+random(10));
end;

Procedure aa;
begin
KeyDown(37);
wait(100);
KeyUp(37);
end;

Procedure dd;
begin
KeyDown(39);
wait(100);
KeyUp(39);
end;

procedure ww;
begin
KeyDown(38);
wait(100);
KeyUp(38);
end;

procedure ss;
begin
KeyDown(40);
wait(100);
KeyUp(40);
end;
Procedure upLeft;
begin
x:= mmx + 2+random(10);
y:= mmy + 2+random(10);
HMouse(x,y);
//vv;
x:=mx+150+random(100);
y:=my+150+random(100);
HMouse(x,y);
wait(350);
space;
end;

Procedure downLeft;
begin
x:= mmx+3+random(15);
y:= mmy1-2-random(10);
HMouse(x, y);
//vv;
x:=mx+300+random(100);
y:=my1-50-random(150);
HMouse(x,y);
wait(350);
space;
end;

Procedure upRight;
begin
x:= mmx1-2-random(10);
y:= mmy + 2+random(10);
HMouse(x, y);
//vv;
x:=mx1-300-random(100);
y:=my+50+random(150);
HMouse(x,y);
wait(350);
space;
end;

Procedure downRight;
begin
x:= mmx1 - 2-random(10);
y:= mmy1 - 2-random(10);
HMouse(x, y);
//vv;
x:=mx1-150-random(100);
y:=my1-250-random(100);
HMouse(x,y);
wait(350);
space;
end;

procedure getQuarter;
begin
if Findcolortolerance(x, y, 65280, mmx, mmy, mmx1, mmy1, 30) then
begin
xx:=x-mmx;
yy:=y-mmy;
if (xx<=45) and (yy<=45) then quarter:=1;
if (xx>45) and (yy<=45) then quarter:=2;
if (xx>45) and (yy>45) then quarter:=3;
if (xx<=45) and (yy>45) then quarter:=4;
end;
end;

function TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;
function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;
function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;
function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;
function TimeStr : string;
var v : extended;
begin
v := now;
result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' ' ;
//result :=' ' + inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+ ':'+ inttostr(TimeMs(v));
end;

function beschossen: boolean;
var xxx,yyy,px,py,pykoord:integer; a1,a2:extended;
begin
Findcolortolerance(xxx,yyy,65280,mmx,mmy,mmx1,mmy1 ,15);
// xxx:=xxx-8;
// yyy:=yyy-4;
pykoord:=mmy;
if (Findcolortolerance(px,py,255,mmx,pykoord,mmx1,mmy 1,50)=true)
then begin
a1:=sqrt(sqr(xxx-px)+sqr(yyy-py));
repeat
if (Findcolortolerance(px,py,255,mmx,pykoord+1,mmx1,m my1,50)=true)
then begin
pykoord:=py;
a2:=sqrt(sqr(xxx-px)+sqr(yyy-py));
if a2<a1 then a1:=a2;
end;
until (Findcolortolerance(px,py,255,mmx,pykoord+1,mmx1,m my1,50)=false);
if a1<=3 then result:=true else result:=false;
end else result:=false;
end;

Function checkstopp:Boolean;
var px,py,pxn,pyn:integer;
begin
Findcolortolerance(pxn,pyn,65280,mmx,mmy,mmx1,mmy1 ,0);
wait(2500);
Findcolortolerance(px,py,65280,mmx,mmy,mmx1,mmy1,0 );
if (pxn=px)
then begin
if (pyn=py)
then begin
result:=True;
end;
end else result:=False;
end;

function find:boolean;
begin
result:= False;
mx2:=mx1-5;
//if FindBitmapToleranceIn(wrak, xx, yy, mx, my, mx2, my1, 24) then begin
if (FindBitmapMaskTolerance(maskice, xx, yy, mx, my, mx2, my1, 0, 5)=true) then begin
result:= True;
//Writeln('Find ice floe at coordinates '+inttostr(xx)+'/'+inttostr(yy));
end;
end;

procedure moveRight;
begin
i:=0;
repeat
space;
wait(350);
dd;
i:=i+1;
until find or (i=160) or (checkstopp=true);
end;

procedure moveLeft;
begin
i:=0;
repeat
space;
wait(350);
aa;
i:=i+1;
until find or (i=160) or (checkstopp=true);
end;

procedure drive;
var dir:integer;
begin
getQuarter;
dir:=random(1)+1;
if (quarter=1) then
begin
if dir=1 then begin
downLeft;
moveLeft;
end else begin
downRight;
moveRight;
end;
end;
if (quarter=4) then
begin
if dir=1 then begin
downRight;
moveRight;
end else begin
upRight;
moveRight;
end;
end;
if (quarter=3) then
begin
if dir=1 then begin
upRight;
moveRight;
end else begin
upLeft;
moveLeft;
end;
end;
if (quarter=2) then
begin
if dir=1 then begin
upLeft;
moveLeft;
end else begin
downRight;
moveRight;
end;
end;
end;

{unction checkstopp:Boolean;
begin
//test:=0;
result:=false;
//zuschiff(x,y);
rose:=random(3);
if (rose=0) then begin aa; end;
if (rose=1) then begin ss; end;
if (rose=2) then begin dd; end;
if (rose=3) then begin ww; end;
//wait(mousedelay);


end; }



{unction drive:boolean;
var xxx,yyy :Integer;
begin
result:=false;
writeln('In Navigazione');
if (quarter=2) then begin
xxx:= mmx + random(35) + 12;
yyy:= mmy1 - random(4) - 2;
dd;
end;

if (quarter=3) then begin
xxx:= mmx + random(4) + 2;
yyy:= mmy + random(35) + 12;
ss;
end;

if (quarter=4) then begin
xxx:= mmx1 - random(4) - 2;
yyy:= mmy1 - random(35) - 12 ;
ww;
end;

if (quarter=1) then begin
xxx:= mmx1 - random(35) - 12;
yyy:= mmy + random(4) + 2;
aa;
end;

Mouse(xxx,yyy);
wait(50 + random(360));
v;
rose:=random(3);
if (rose=0) then begin
aa;
v;
end;
if (rose=1) then begin
ss;
v;
end;
if (rose=2) then begin
dd;
v;
end;
if (rose=3) then begin
ww;
v;
end;
//xxx:=skx1+random(200) + 50;yyy:=sky1 + 50 + random(200);
//mouse(xxx,yyy);
//end;
end; }
function checkShop: boolean;
begin
result:=False;
if FindBitmapTolerance(lastH, xx, yy, 30) then
result:=True;
if FindBitmapTolerance(lastH1, xx, yy, 30) then
result:=True;
end;

procedure shop;
begin
hh;
wait(350+random(300));
if FindBitmapTolerance(sea_shop, xx, yy, 20) then
begin
Mouse(xx, yy);
wait(750+random(750));
if FindBitmapTolerance(harp50, xx, yy, 30) then
begin
Mouse(xx, yy);
wait(750+random(750));
if FindBitmapTolerance(upArrow, xx, yy, 30) then
begin
Mouse(xx, yy);
Mouse(xx, yy);
Mouse(xx, yy);
msg;
end;
end;
end;
end;

procedure msg;
begin
if FindBitmapTolerance(Alerts, xx, yy, 50) then
begin
xx:=xx+2;
yy:=yy+2;
HMouse(xx, yy);
end;
if FindBitmapTolerance(broken, xx, yy, 55) then
begin
writeln(Timestr+' I repair.. xx='+inttostr(xx)+'/ yy='+inttostr(yy));
xx:=xx+2;
yy:=yy+2;
HMouse(xx, yy);
repeat
wait(100);
until FindBitmapTolerance(chat, xx, yy, 50);
wait(150);
repair;
repeat
until (FindBitmapTolerance(reppbutton, xx, yy, 50)=false);
end;
end;

function hp_full:boolean;
begin
result:=false;
if (FindBitmapTolerance(greenhp, xx, yy, 25)=true) then result:=true;
end;


procedure gift;
var
caz:integer;
begin
if Not find then drive;
// if (beschossen=false) then drive;
// writeln('Nu e inamic in zona');
if (find=true) then begin
writeln('colectez');
Mouse(xx, yy);
wait(350);
x:=xx+15+random(5);
y:=yy+15+random(3);
if (caz>5) then
begin
x:=xx-15-random(3);
caz:=0;
end;
Mouse(x, y);
i:=0;
repeat
wait(500);
caz:=caz+1;
i:=i+1;
until FindBitmapTolerance(attack, xx, yy, 50) or (i>50) or (checkstopp=true);
if (beschossen=false) then begin
writeln('Atac');
ff;
wait(350);
space;
repeat
msg;
//if checkshop then shop;
Wait(550);
until (FindBitmapTolerance(attacking, xx, yy, 50)=true);
contor:=contor+1;
writeln(Timestr+' Ice floe ('+inttostr(contor)+')');
end else begin
writeln('nava in zona... nu atac');
drive;
wait(7000);
end;
if hp_full=false then begin
repair;
repeat
until (FindBitmapTolerance(reppbutton, xx, yy, 50)=false);
end;
end;
// end else begin
// writeln('Ship in the range');
// end;
if (i=40) or (checkstopp=true) or not find then drive;
end;

begin
cleardebug;
contor:=0;
writeln('*** START: ice flow ***');
//GetSelf.WindowState := wsMinimized;
SetDesktopAsClient;
loadBMP;
// seaPage;
getVariable;
repeat
msg;
gift;
{ if hp_full=false then begin
repair;
repeat
until FindBitmapTolerance(reppbutton, xx, yy, 50);
end; }
until False;
end.
Mac82 is offline  
Reply



« Coders Chit-Chat | - »

Similar Threads Similar Threads
[Buying] FN Scar CQC or FN Scar Nightstalker empty for e*gold
01/05/2015 - Infestation Trading - 0 Replies
hey I want to buy 160-180 FN Scar CQC or FN Scar Nightstalker empty for 650 e*gold Skype: ben_dope1
[Selling] FN Scar CQC / Honey Badger / FN Scar Night stalker / M4 / M16 / Stanag / Backpacks
01/01/2014 - Infestation Trading - 4 Replies
Hello guys. I sell 70x FN Scar CQC I sell 10x Honey Badger I sell 5x FN Scar Night Stalker I sell 50x M4 I sell 25x M16 I sell 50x Large Backpack I sell 20x Military Ruck I sell 60x Stanag 30
[HILFE] Gaming PC zusammenstellen [HILFE]
12/02/2013 - Hardware Discussions / Questions - 6 Replies
Hey, Ich möchte mir mit meinem Weihnachtsgeld mir einen Gamig PC zusammenstellen bzw. bestellen, da ich noch keine guten I-Net Seiten kenne etc. wollte ich fragen ob ihr mir einen vorschlagen könnt!? Budget: bis 700€ MfG.
Suche ImI Tar Scar NS Scar CQC
02/19/2013 - Infestation Trading - 4 Replies
Hey leute, Wie ihr am titel sehen könnte suche ich eine IMI Tar Scar NS und noch eine Scar CQC !!! Ich gebe Psc !
Scar Heavy,Scar Light oder Ak 47 oder Coupons im BlackMarket
07/23/2010 - CrossFire - 16 Replies
Also ich bin auf dem Rang Corporal und ab dem nächsten Rang kann ich Scar Heavy kaufen und in den Blackmarket,und da frag ich mich weil ab dem nächsten Rang hab ich ca. 80 k GP und da frage ich soll ich Scar Heavy kaufen auf Schar Light oder AK 47 sparen oder im Blackmarket Coupons kaufen??



All times are GMT +2. The time now is 07:51.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

BTC: 33E6kMtxYa7dApCFzrS3Jb7U3NrVvo8nsK
ETH: 0xc6ec801B7563A4376751F33b0573308aDa611E05

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2020 elitepvpers All Rights Reserved.