script dose not withdraw money from the bank iv tried changing the bank color and still nothing please fix
Thanks!
It is a nice script and it bought the first inventory of silk flawlessly. However, after returning to the bank it failed to open it to deposit the silk and then began to go back to the silk trader to buy more silk even though it still had a full inventory.
Maybe consider adding a fail-safe so that it won't leave the bank until the inventory has no more silk in it?
Sorry guys for the long wait.. I'm not mantaining it atm, since I've got no time for it actually.. I need some more skills to improve this that I haven't yet..
If someone has got some advices/corrections or anything, I'm happy to hear them![]()
Check out my new script here: http://villavu.com/forum/showthread.php?p=1194418Al-Kharid Silk buyer
can somebody please fix this so it works ?![]()
After the one click banking method this script is not working.
Good script, but fails when banking...all it needs to do is click on the bank, instead it right clicks into nowhere land.
you guys should make coal miner at mining guild, and banker, that would be awesome!
Not my script. =p
Sometimes people become busy in real life or preoccupied with other projects that take priority over something like this. So the only option people have other than fixing the problem themselves is to simply be patient and wait for the original scripter to find the time to make any fixes/updates to their script.
Glad to see that you are interested in learning how to script.
I recommend taking a look at these threads:
http://villavu.com/forum/showthread.php?t=69179
http://villavu.com/forum/showthread.php?t=58935
Check out my new script here: http://villavu.com/forum/showthread.php?p=1194418Al-Kharid Silk buyer
Hey everyone, I did not take the time to read through the posts since im lazy and want to better this code lol. basically i just wanted to state out for the record that if anyone needs this working, i have recompiled a sh*t ton in this .simba since Zorgatone had many, many bugs.
Zorgatone i give you props, you did a decent job, but its a real mess when looking at the code. i mean you have shit placed improperly and not in order lol, so i have to jump around to get to things.
other than that, major fixes i have done are "removed excess movement to shops(going to cookery, then to furnace, etc.) so it goes from first spot cookery, to scimitar, directly to silk trader and vice-versa for walk back.
im working on the bank bug currently, it is very unstable due to the fact that it does not check if you have money in your invo and does not withdraw money from the bank when script is initialized.
also working on banking silks, fairly easy fix though its just off centered when picking open bank, it picks "walk here" instead and then try to bank all the silks which in some cases may drop your silks instead and then it thinks its an empty invo and walks to the silk trader and buys silk and keeps buying and waste your money when you have a full invo and all the silk goes on the ground lol.
so those are my minor tweaks im working on, if its okay with Zorgatone ill release the "fixed" version of this, including a lot more anti-bans and anti-randoms and random event doers.
Cheers
*edit
also im going to add in alot of random mouse movements since i see very vague movements, and that leads to detection by jagex and further more a ban. random mouse movements make it look more legit and more human-like![]()
Last edited by OriginalGM; 03-27-2013 at 02:28 AM.
tysm! ^
So which files do we download. Sorry it's not clear.
Hey, core rewrote the script for me to use SRL-OSR instead of p07include. Hopefully this can be useful to someone:
Simba Code:program silktrader;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.simba}
procedure MyFlag;
begin
wait(1250);
Flag;
end;
function FindVendor(var fx, fy: Integer): Boolean;var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 0.44);
if not(FindColorsTolerance(arP, 9323663, MSX1, MSY1, MSX2, MSY2, 21)) then
begin
Writeln('Failed to find the vendor, no object found.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
Result := True;
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Writeln('FindVendor could not find vendor.');
Exit;
end;
GetMousePos(fx, fy);
end;
function FindVendorPants(var fx, fy: Integer): Boolean;
var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.06, 0.27);
if not(FindColorsTolerance(arP, 10121596, MSx1, MSY1, MSx2, MSY2, 22)) then
begin
Writeln('Failed to find the vendor, no object found.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
Result := True;
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
begin
Writeln('FindVendorPants could not find vendor pants.');
Exit;
end;
GetMousePos(fx, fy);
end;
Procedure Path;
var
x, y : Integer;
contin : boolean;
begin
MakeCompass('n');
If FindSymbol(x, y, Symbol_Bank) then
begin
writeln('Im at the bank');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the bank');
end;
x := MMCX + 25;
y := MMY1 + 23;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
begin
writeln('Walking to first spot');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the first spot');
x := MMCX + 15;
y := MMY1 + 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
If FindSymbol(x, y, Symbol_Tanner) then
begin
writeln('Walking to tanner');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
wait(7000);
writeln('lolol');
x := MMCX + 30;
y := MMY1 + 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
If false and FindSymbol(x, y, Symbol_ScimitarShop) then //always false
begin
writeln('Walking to the scimitar shop');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
x := MMCX + 50;
y := MMY1 + 70;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
x := MMCX + 30;
y := MMY1 + 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
If FindSymbol(x, y, Symbol_Cookery) then
begin
writeln('Walking to the Cookery');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the Cookery');
end;
contin := false;
Repeat
If FindSymbol(x, y, Symbol_SilkStall) then
begin
writeln('Walking to the SilkStall');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
contin := false;
end else
begin
writeln('I cant find the SilkStall');
contin := true;
end;
Until not contin;
end;
Procedure PathReversed;
var
x, y : Integer;
contin : boolean;
begin
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('n');
wait(1500);
If FindSymbol(x, y, Symbol_SilkStall) then
begin
writeln('Walking to the SilkStall');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
contin := false;
end else
begin
writeln('I cant find the SilkStall');
contin := true;
end;
If FindSymbol(x, y, Symbol_Cookery) then
begin
writeln('Walking to the Cookery');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the Cookery');
end;
x := MMCX - 30;
y := MMY2 - 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
If false and FindSymbol(x, y, Symbol_ScimitarShop) then //always false
begin
writeln('Walking to the scimitar shop');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
x := MMCX - 50;
y := MMY2 - 70;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
If FindSymbol(x, y, Symbol_Tanner) then
begin
writeln('Walking to tanner');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
wait(7000);
writeln('lolol');
x := MMCX - 30;
y := MMY2 - 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
begin
writeln('Walking to first spot');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the first spot');
x := MMCX - 15;
y := MMY2 - 30;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end;
x := MMCX - 25;
y := MMY2 - 23;
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
If FindSymbol(x, y, Symbol_Bank) then
begin
writeln('Im at the bank');
MMouse(x, y, 3, 3);
ClickMouse2(Mouse_Left);
MyFlag;
end else
begin
writeln('I cant find the bank');
end;
end;
function BankBoothColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.06, 0.41);
if not (FindColorsTolerance(arP, 4220043, MSX1, MSY1, MSX2, MSY2, 2)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('BankBoothColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('BankBoothColor failed in finding the color.');
end;
function FaceColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.04, 0.10);
if not (FindColorsTolerance(arP, 3890561, MCx1, MCy1, MCx2, MCy2, 16)) then
begin
Writeln('Failed to find the face in the dialog, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('FaceColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('FaceColor failed in finding the face in the dialog.');
end;
function isopenchat : boolean;
var
temp : boolean;
x, y : integer;
begin
temp := false;
if (not(FaceColor = 0)) and FindColorTolerance(x, y, FaceColor, 0, 338, 519, 478, 8) then
temp := true;
result := temp;
end;
function MoneyColorInv: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 0.40);
if not (FindColorsTolerance(arP, 958665, MIX1, MIY1, MIX2, MIY2, 24)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('MoneyColorInv = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('MoneyColorInv failed in finding the color.');
end;
function MoneyColorBank: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.62);
if not (FindColorsTolerance(arP, 1294063, MSX1, MSY1, MSX2, MSY2, 15)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('MoneyColorBank = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('MoneyColorBank failed in finding the color.');
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='Your Username';
Players[0].Pass :='Your Password';
End;
function RedButtonColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.11);
if not (FindColorsTolerance(arP, 1908867, MIx1, MIY1, MIx2, MIy2, 8)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('RedButtonColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('RedButtonColor failed in finding the color.');
end;
Procedure CheckRun;
var
x,y : Integer;
begin
GameTab(12);
if FindColorTolerance(x, y, RedButtonColor, 615,407, 670,458, 8) then
begin
end else
begin
MMouse(643, 433,3,3);
ClickMouse2(Mouse_Left);
end;
GameTab(4);
end;
var
x, y : Integer;
SilkDTM : Integer;
Begin
SetupSRL;
DeclarePlayers;
ActivateClient;
Wait(2000);
If (Not LoggedIn) Then
LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('n');
//SetupSRL;
while(true) do
BEGIN
Wait(750);
CheckRun;
Path;
wait(750);
While not InvFull do
Begin
Repeat
if FindVendor(x,y) then
begin
MMouse(x, y, 3, 3);
if(pos('an',GetUpText)=0) then
ClickMouse2(Mouse_left);
wait(150);
if isopenchat then
begin
break;
end
else
continue;
SetupSRL;
end;
until false;
//Wait(400);
// one
x := 307;
y := 453;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// two
x := 261;
y := 403;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// three
x := 214;
y := 453;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// four
x := 307;
y := 453;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// five
x := 258;
y := 437;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// six
x := 214;
y := 453;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
// seven
x := 307;
y := 453;
MMouse(x,y, 3,3);
Wait(400);
ClickMouse2(Mouse_left);
End;
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('n');
CheckRun;
PathReversed;
Wait(1500);
//x := 124;
//y := 234+20;
If FindColorTolerance(x, y, BankBoothColor, MSX1, MSy1, MSX2, MSY2, 3) then
begin
wait(750);
MMouse(x + 35,y, 3,3);
wait(750);
ClickMouse2(Mouse_right);
wait(750);
MMouse(x, y + 40, 3, 3);
wait(750);
ClickMouse2(Mouse_left);
end;
SilkDTM := DTMFromString('mlwAAAHicY2dgYMhjYmBIBuICIC4D4gogTgfiDCB+BpR/D8XPgfguED8B4ltAvHZRJ5BkxIr5gSQrDoxdBwRDAQDymgts');
Wait(2500);
if FindDTM(SilkDTM, x, y, 546, 200, 736, 466) then
begin
MMouse(x,y, 3,3);
ClickMouse2(Mouse_Right);
MMouse(x, y + 67, 3, 3);
ClickMouse2(Mouse_Left);
end;
FreeDTM(SilkDTM);
If FindColorTolerance(x, y, MoneyColorInv, 546, 200, 736, 466, 3) then
begin
MMouse(x,y, 3,3);
ClickMouse2(Mouse_Right);
MMouse(x, y + 66, 3, 3);
ClickMouse2(Mouse_Left);
end;
If FindColorTolerance(x, y, MoneyColorBank, 18, 27, 502, 326, 3) then
begin
MMouse(x,y, 3,3);
ClickMouse2(Mouse_Right);
MMouse(x, y + 90, 3, 3);
ClickMouse2(Mouse_Left);
wait(1500);
Typesend('84');
end;
END; // lmao
End.
Praying for the release of this silk seller
ploxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Please make a seller soon I have 30k silk i need to sell..
The script doesn't work and i have SRL-OSR installed correctly.
It gives me the error:
[Warning] C:\Simba\Scripts\silk-buyer-seller-osr.simba(157:14): Calculation always evaluates to False at line 156
[Warning] C:\Simba\Scripts\silk-buyer-seller-osr.simba(247:14): Calculation always evaluates to False at line 246
Compiled successfully in 421 ms.
SRL Compiled in 0 msec
** Smart Cannot Spawn Clients **
Successfully executed.
This script is dead isnt it?
starts smart with eoc client, if I pre-open oldschool client it just stands there doing nothing. I've tried other scripts and they work.
I get it to work fine but it does not bank at all just right clicks then selects the walk here. If I knew how to I would but this script could use some cleaning up, everything is out of order and really hard to sort through. Also there is a lot of unnecessary walking. Just my 2 cents, you did better than I could do so props![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)