Deadly Serious
01-11-2012, 01:32 AM
This procedure isn't able to detect the normal essence and I don't know why. I've set up the bitmap properly, I'm pretty sure.
Any help would be greatly appreciated.
Procedure WithdrawEss;
var
ess, x, y:integer;
begin
if not loggedin then
begin
exit;
end;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
SetAngle(True);
If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [5662832, 5927290, 6323335, 6584191], 2)) Then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('Use-quickly');
Wait(2500+random(500));
Ess := BitmapFromString(32, 32, 'meJzVlm1LImEUhsWf0EJBEWtRRL' +
'FhWCFIixjSy0ZbIdVuhYiIuL0Xsb9/L7jrcPZ5Zsax+lDD/Un0urz' +
'PecaxUPgoVzHKezHb7W6n0+t2+73eoN+/HAyu/1zeXl3fv8WyWt/m' +
's2dn7YuLjviBQpab28dXWPSR45Pfp7/OvQK+FIoVubt7yq/gnQcHr' +
'aOjY/G9wheRyBQUeXj4m2cmP/Z+it9qnXqFLCYiwUY0q+xvvrW16/' +
'lSKLGI2FKGKvTlja9gMZG5vEguWSiCAkiptJIIr9c34e/s7KHY3z9' +
'UvCijlCymAJjIbza34StYYlFGKSxeEVzr61XxqaAEojylTKG7 L+Y3' +
'Gk2CRckp8qVQsAtfQbMSX5HFRGmN4jrwGRQVOE4Bv1JZ29iok 8CSs' +
'4sU4nNrMKKYX6t9T1TkLCI+W4DPHRHwy+UKfFMMLWIWX0QHib MKv/' +
'A/f3m5XK3WpBhaJHFcxteKA/7S0jf4SnaRxHEFfFYc8zlCxCsSRXG' +
'RmM8KgvtrYWFRfG9Jm1iigv1m8Eszs1TgFJE0S6yQxfj2kx7/PoyP' +
'T6Bgy1LElrS9e749NWI+r0xOTs3NzaPgrAaWjL0bX7cAirRHw NjYl' +
'+nprywCvpKm8EVUwVaMIo1ffJkSCrVIVPgiftdSDH1EoqAFg2 LdsS' +
'KwxC0y8c8KBsUurIjtwsdPTIqR/qIERXz8AZAFxah/sXhGF18OFUU' +
'UXIRS3jIi+JNd/wBBFhhR');
if FindBitmapToleranceIn(Ess, X, Y, 35, 85, 480, 295, 20) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('All');
Wait(500+random(250));
end;
FreeBitmap(Ess);
end;
end;
end;
Any help would be greatly appreciated.
Procedure WithdrawEss;
var
ess, x, y:integer;
begin
if not loggedin then
begin
exit;
end;
FindNormalRandoms;
Antiban;
DidRedClick;
begin
SetAngle(True);
If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [5662832, 5927290, 6323335, 6584191], 2)) Then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('Use-quickly');
Wait(2500+random(500));
Ess := BitmapFromString(32, 32, 'meJzVlm1LImEUhsWf0EJBEWtRRL' +
'FhWCFIixjSy0ZbIdVuhYiIuL0Xsb9/L7jrcPZ5Zsax+lDD/Un0urz' +
'PecaxUPgoVzHKezHb7W6n0+t2+73eoN+/HAyu/1zeXl3fv8WyWt/m' +
's2dn7YuLjviBQpab28dXWPSR45Pfp7/OvQK+FIoVubt7yq/gnQcHr' +
'aOjY/G9wheRyBQUeXj4m2cmP/Z+it9qnXqFLCYiwUY0q+xvvrW16/' +
'lSKLGI2FKGKvTlja9gMZG5vEguWSiCAkiptJIIr9c34e/s7KHY3z9' +
'UvCijlCymAJjIbza34StYYlFGKSxeEVzr61XxqaAEojylTKG7 L+Y3' +
'Gk2CRckp8qVQsAtfQbMSX5HFRGmN4jrwGRQVOE4Bv1JZ29iok 8CSs' +
'4sU4nNrMKKYX6t9T1TkLCI+W4DPHRHwy+UKfFMMLWIWX0QHib MKv/' +
'A/f3m5XK3WpBhaJHFcxteKA/7S0jf4SnaRxHEFfFYc8zlCxCsSRXG' +
'RmM8KgvtrYWFRfG9Jm1iigv1m8Eszs1TgFJE0S6yQxfj2kx7/PoyP' +
'T6Bgy1LElrS9e749NWI+r0xOTs3NzaPgrAaWjL0bX7cAirRHw NjYl' +
'+nprywCvpKm8EVUwVaMIo1ffJkSCrVIVPgiftdSDH1EoqAFg2 LdsS' +
'KwxC0y8c8KBsUurIjtwsdPTIqR/qIERXz8AZAFxah/sXhGF18OFUU' +
'UXIRS3jIi+JNd/wBBFhhR');
if FindBitmapToleranceIn(Ess, X, Y, 35, 85, 480, 295, 20) then
begin
MMouse(X, Y, 5, 5);
ClickMouse2(False);
Wait(300+random(250));
ChooseOption('All');
Wait(500+random(250));
end;
FreeBitmap(Ess);
end;
end;
end;