Smart doesn't even show up for you?
Well if you were to READ the top of the script it looks like this:
Simba Code://Remove // for smart
//{.Include SRL\SRL\Misc\SMART.SCAR}
Change it to
Simba Code://Remove // for smart
{.Include SRL\SRL\Misc\SMART.SCAR}
And then SMART will come up.
Im new to tbis forum, got everything set up and this script only couldnt find the bank symbol and therefore cant find the bank and keeps running east until the failsafe
Ive edited it and it works great using roadwalk back to the bank
I dont know if this is allowed since no one else codes the script, but I could show you my edited version of this script
Chris. We are open source and most scriptures love suggestions and fixes. Post whatever fixes you wish remember to put Simba tags around them please.
Deja, show copy and paste the top few lines of your script please. Show from the line that starts 'program' and all of thr include lines I'd like to see.
YoHoJo, thanks
Etherfreak, when I tried to run it, it couldnt find the bank symbol. I have used the staircase trick something like 30 times, couldnt find it..
I even changed the SymbolAccuracy to 0.2, it still couldnt find it
So Ive made it to use roadwalk back to the bank if the bank symbol wasnt found, and it works
You might want to add something like this to your script, there have been more people saying: "It cant find the bank symbol", something like this could fix it.
I was about to post everything I have here, but I have found a bug in my code
I am quite new to scripting, so Im trying to solve them myself to learn from it.
I will post it later
Edit:
Fixed the bug I had
I dont know if this works when it CAN find the bank, because my pc cant find it..
Here's the script:
Simba Code:// script by EtherFreak
program LogBurner;
//Remove // for smart
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}
Const
// ----------------SETUP-----------------------------
// Start in Verock East Bank. Setup log location.
loadcount= 36 ; //how many cycles you need (27 logs per cycle)
BankCol=1 ; //log col in bank
BankRow= 1 ; //log row in bank
colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
threelet='ohn' ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
BankLoc='veb';
// ---------------END SETUP----------------------------------------
var
x, y: integer;
counter, count, InventsDone, kill, this: Integer;
killed, UseBankSymbol, UseRoadwalk: boolean;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
// ----------------SETUP-----------------------------
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
end;
// ---------------END SETUP----------------------------------------
Procedure initrun;
begin
Smart_Members := False;
Smart_Server := 1;
Smart_Signed := True;
Smart_SuperDetail := False;
killed := True;
this := 0;
UseBankSymbol := False;
UseRoadwalk := True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
counter:=2;
count:=0;
InventsDone:=0;
kill:=0;
SymbolAccuracy:=0.6; //Ajust as needed for bank symbol
wait(3000);
findnormalrandoms;
roadcolor:=colorroad;
RoadColorChecker;
if findsymbol(x,y,'bank') then
begin
writeln('Banksymbol found!');
UseBankSymbol := True;
UseRoadwalk := False;
end;
if UseRoadwalk then begin
writeln('Cant find banksymbol, using roadwalk.')
end;
// if UseBankSymbol then begin end;
setangle(true);
end;
Procedure Burn;
Var
I,K:integer;
Begin
K:=0;
For I:= 1 to 28 do
Begin
findnormalrandoms;
if ExistsItem(I) then
begin
//if I=11 then
//GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
invmouse(I,2); //clicking log
wait(RandomRange(100,100));
WaitOptionMulti(['ight','ght','ancel'], 1500);
writeln('Burning log #'+IntToStr(I)+'.');
Wait(RandomRange(1800,1000)); // versneld
end;
if ExistsItem(I) then
begin
invmouse(I,2); //clicking log
wait(RandomRange(100,100));
WaitOptionMulti(['ight','ght','ancel'], 1500);
writeln('Burning log #'+IntToStr(I)+'. (second try)');
Wait(RandomRange(1700,1000));
end;
if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
begin
inc(k);
RadialRoadWalk(RoadColor,350,360,14,-2,0);
Wait(RandomRange(2850,1000));
dec(I);
writeln('Wss vast door een hek, proberen te ontsnappen.. ');
Wait(RandomRange(2850,1000));
//TerminateScript;
if k=4 then
begin
Writeln('Issue making fire, logging out...');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if IsChatBoxTextAnyLine (threelet,clBlue) then //name detection
begin
writeln('Someone said your name, logging out to be safe');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if invcount=0 then
writeln('Burned correctly') else
Burn;
End;
Procedure Bank;
Begin
writeln('Banking kill is:'+inttostr(kill)+'.');
mousespeed:=(8+random(3));
inc(kill);
findnormalrandoms;
//Wait(RandomRange(450,700));
openbankfast(BankLoc);
Wait(RandomRange(400,450));
withdraw(BankCol,BankRow,0);
Wait(RandomRange(1300,1500)); // killed = waar, c = waar.
if kill=4 then begin
inc(this);
if killed then
begin
writeln('Waiting 5 seconds, than trying to find the bank..');
Wait(RandomRange(4172,5928));
RadialRoadWalk(RoadColor,145,205,50,-2,0);
killed := False;
kill :=0;
Bank;
end;
if this=2 then
begin // if killed := False then begin
closewindow;
writeln('Banking failed, logging out...');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if invcount=28 then begin
writeln('Banked correctly');
if killed=False then begin
this:=0;
killed:=True;
end;
end;
if invcount=0 then begin
bank;
kill:=0;
end;
kill:=0;
End;
Procedure toburn;
Begin
findnormalrandoms;
writeln('Walking to burn.');
wait(RandomRange(100,100));
RadialRoadWalk(RoadColor,0,75,60,-2,0);
//Wait(RandomRange(1000,1200));
End;
Procedure tobank;
Begin
//GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
writeln('Inventorys done:');
inc(InventsDone);
writeln(InventsDone);
//repeat
findnormalrandoms;
wait(RandomRange(1000,1200));
if UseRoadwalk then begin
RadialRoadWalk(RoadColor,80,110,70,-2,0);
writeln('Walking to the bank.');
RadialRoadWalk(RoadColor,165,195,50,-2,0);
writeln('Walking to bank done.');
writeln('Lets start again');
end;
if UseBankSymbol then begin
repeat
findnormalrandoms;
RadialRoadWalk(RoadColor,80,110,70,-2,0);
until findsymbol(x,y,'bank')
kill:=0;
mouse(x,y,5,5,true);
wait(RandomRange(8000,9000));
end;
inc(kill);
End;
begin
initrun;
repeat
Bank;
toburn;
burn;
tobank;
inc(count);
until (count=loadcount)
writeln('Completed without error!');
end.
Last edited by Chris; 12-22-2011 at 05:03 PM. Reason: fixed the bug :D
Chris J, are you sure your srl is up to date? It sounds like you are having issues with your bank bitmap in srl not being up to date. It also could be an issue of not having the client set up in safe mode. As I showed in a previous post, the two different cases where a bank symbol would show up, and one where a bank symbol would not show up.
It would seem that your road walk method would work, but I still need to figure out on my end how to make it failsafe. One of the issues I first had when I made it was it would not check for the bank symbol, so it would run one time, then never make it back to the bank. I just would like to know why so many cients seem to be having an issue with the bank symbol...
P.S. Thank you for your more detailed feedback, at least I have something to work with to try and fix the issue at hand.
Of all the things I have lost, I miss my mind the most.
Current Projects:
Addy bar miner and superheater
I am using SMART in software mode with lowest settings and highest brightness, everything else works fine, but this could be the problem when it searches for the bank symbol
I will try it in safe mode later today
My SRL is up to date
Edit: It also can't find the bank symbol in safe mode
Second Edit: I have a proggie with loadcount= 36:
http://pastebin.com/h6rcsRUs
(used my own version of the script):
Simba Code:// script by EtherFreak
program LogBurner;
//Remove // for smart
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}
Const
// ----------------SETUP-----------------------------
// Start in Verock East Bank. Setup log location.
loadcount= 36 ; //how many cycles you need (27 logs per cycle)
BankCol=1 ; //log col in bank
BankRow= 1 ; //log row in bank
colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
threelet='ohn' ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
BankLoc='veb';
// ---------------END SETUP----------------------------------------
var
x, y: integer;
counter, count, InventsDone, kill, this: Integer;
killed, UseBankSymbol, UseRoadwalk: boolean;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
// ----------------SETUP-----------------------------
Name := '';
Pass := '';
Nick := '';
Active := True;
end;
end;
// ---------------END SETUP----------------------------------------
Procedure initrun;
begin
Smart_Members := False;
Smart_Server := 1;
Smart_Signed := True;
Smart_SuperDetail := False;
killed := True;
this := 0;
UseBankSymbol := False;
UseRoadwalk := True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
counter:=2;
count:=0;
InventsDone:=0;
kill:=0;
SymbolAccuracy:=0.6; //Ajust as needed for bank symbol
wait(3000);
findnormalrandoms;
roadcolor:=colorroad;
RoadColorChecker;
if findsymbol(x,y,'bank') then
begin
writeln('Banksymbol found!');
UseBankSymbol := True;
UseRoadwalk := False;
end;
if UseRoadwalk then begin
writeln('Cant find banksymbol, using roadwalk.')
end;
// if UseBankSymbol then begin end;
setangle(true);
end;
Procedure Burn;
Var
I,K:integer;
Begin
K:=0;
For I:= 1 to 28 do
Begin
findnormalrandoms;
if ExistsItem(I) then
begin
//if I=11 then
//GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
invmouse(I,2); //clicking log
wait(RandomRange(100,100));
WaitOptionMulti(['ight','ght','ancel'], 1500);
writeln('Burning log #'+IntToStr(I)+'.');
Wait(RandomRange(1800,1000)); // versneld
end;
if ExistsItem(I) then
begin
invmouse(I,2); //clicking log
wait(RandomRange(100,100));
WaitOptionMulti(['ight','ght','ancel'], 1500);
writeln('Burning log #'+IntToStr(I)+'. (second try)');
Wait(RandomRange(1700,1000));
end;
if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
begin
mouse(260,156,5,5,true);
inc(k);
RadialRoadWalk(RoadColor,350,360,14,-2,0);
Wait(RandomRange(2850,1000));
dec(I);
writeln('Wss vast door een hek, proberen te ontsnappen.. ');
Wait(RandomRange(2850,1000));
//TerminateScript;
if k=4 then
begin
Writeln('Issue making fire, logging out...');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if IsChatBoxTextAnyLine (threelet,clBlue) then //name detection
begin
writeln('Someone said your name, logging out to be safe');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if invcount=0 then
writeln('Burned correctly') else
Burn;
End;
Procedure Bank;
Begin
writeln('Banking kill is:'+inttostr(kill)+'.');
mousespeed:=(8+random(3));
inc(kill);
findnormalrandoms;
//Wait(RandomRange(450,700));
openbankfast(BankLoc);
Wait(RandomRange(400,450));
withdraw(BankCol,BankRow,0);
Wait(RandomRange(1300,1500)); // killed = waar, c = waar.
if kill=4 then begin
inc(this);
if killed then
begin
writeln('Waiting 5 seconds, than trying to find the bank..');
Wait(RandomRange(4172,5928));
RadialRoadWalk(RoadColor,145,205,50,-2,0);
killed := False;
kill :=0;
Bank;
end;
if this=2 then
begin
writeln('Still couldnt find bank.. trying last trick in 3 seconds');
Wait(RandomRange(2834,4602));
RadialRoadWalk(RoadColor,80,260,50,-2,0);
killed := False;
kill :=0;
Bank;
end;
if this=3 then
begin // if killed := False then begin
closewindow;
writeln('Banking failed, logging out...');
writeln('Inventorys done:');
writeln(InventsDone);
logout;
TerminateScript;
end;
end;
if invcount=28 then begin
writeln('Banked correctly');
if killed=False then begin
this:=0;
killed:=True;
end;
end;
if invcount=0 then begin
bank;
kill:=0;
end;
kill:=0;
End;
Procedure toburn;
Begin
findnormalrandoms;
writeln('Walking to burn.');
wait(RandomRange(100,100));
// mouse(674,51,5,5,true);
// wait(RandomRange(2800,3650));
RadialRoadWalk(RoadColor,0,75,60,-2,0);
//Wait(RandomRange(1000,1200));
End;
Procedure tobank;
Begin
//GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
writeln('Inventorys done:');
inc(InventsDone);
writeln(InventsDone);
//repeat
findnormalrandoms;
wait(RandomRange(1000,1200));
if UseRoadwalk then begin
RadialRoadWalk(RoadColor,80,110,70,-2,0);
writeln('Walking to the bank.');
wait(RandomRange(1600,1900));
RadialRoadWalk(RoadColor,165,195,50,-2,0);
writeln('Walking to bank done.');
writeln('Lets start again');
end;
if UseBankSymbol then begin
repeat
findnormalrandoms;
RadialRoadWalk(RoadColor,80,110,70,-2,0);
until findsymbol(x,y,'bank')
kill:=0;
mouse(x,y,5,5,true);
wait(RandomRange(8000,9000));
end;
inc(kill);
End;
begin
initrun;
repeat
Bank;
toburn;
burn;
tobank;
inc(count);
until (count=loadcount)
writeln('Completed without error!');
end.
Last edited by Chris; 12-23-2011 at 05:36 PM. Reason: tried safe mode
Simba Code:program new;
{.include SRL/SRL.scar}
Var
x, y: integer;
begin
wait(2000);
if findsymbol(x,y,'bank') then
writeln('found bank symbol');
if findsymbol(x,y,'water') then
writeln('found water symbol');
if findsymbol(x,y,'anvil') then
writeln('found anvil');
end.
If you run the following script (not using smart, but the regular client) near a bank, water, and the anvil, you should normally have each object return true. If this does not happen, then there is some kind of issue with the symbol finding on your client. if it does work, then there is some kind of issue within my script.
I am also going to add a banking fail safe that is independent of the bank symbol, to remove the issue when the bank symbol is not visible. It will look at the number of yellow dots on the minimap, which is primarily bankers, if it can see the bank symbol as well, this will just help improve the fact that the user is in the bank, but will not be required to run the script.
Of all the things I have lost, I miss my mind the most.
Current Projects:
Addy bar miner and superheater
I will try it tomorrow, never used the regular client to bot yet and I got to go right now.
It gave this the first time:
Simba Code:New window: 917960
Compiled successfully in 2016 ms.
found anvil
Successfully executed.
Tried it multiple times, still could only find the anvil..
It gave this later:
Simba Code:Compiled successfully in 2031 ms.
Exception: Range check error at line 644
The following bitmaps were not freed: [0]
And the symbol function comes up, with line 644 marked:
Simba Code:FindDeformedBitmapToleranceIn(SymbolBitmap, x, y, xs, ys, xe, ye, 70, 0, True, acc);
I keep getting this, no matter what I do...
Simba Code:Compiled successfully in 1216 ms.
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
cant tell if your at the bank. try a different world?
EDIT:
This worked for me:
Last edited by wipe me down; 12-24-2011 at 07:59 PM.
UPDATE V 1.4 is now released.
Banking symbol issue should be no longer. Added easy adjustment for the burn wait time, for those that were leaving logs on the ground unlit. If you do have an issue please give me enough info so I can try and help fix it.
PS:
I would like it if you could tell me if the script primarily uses the banking symbol, or the alternative method. I want to see this from more then one person who downloads the script. I saw 200 downloads on the last version, and very little feedback for the amount of downloads.
Last edited by EtherFreak; 12-24-2011 at 09:53 PM.
Of all the things I have lost, I miss my mind the most.
Current Projects:
Addy bar miner and superheater
Ive tried v1.4, this was the first result:
It found 10 yellow dots so i've changed this:Simba Code:Compiled successfully in 2141 ms.
SRL Compiled in 31 msec
SMART Initialized.
Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
cant tell if your at the bank. trying alternite method
not at bank?
if CountDots('yellow')>11 then
to this:
if CountDots('yellow')>9 then
Tried it again:
And it stood right here:Simba Code:Compiled successfully in 2359 ms.
SRL Compiled in 31 msec
SMART Initialized.
Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
cant tell if your at the bank. trying alternite method
yellow dot count indicates at bank
10
Banking kill is:0.
Banked corectly
Walking to burn. The roadcolor is:8818320.
Burning #1 log.
Burning #2 log.
Burning #3 log.
Burning #4 log.
Burning #5 log.
Burning #6 log.
Burning #7 log.
Burning #8 log.
Burning #9 log.
Burning #10 log.
Burning #11 log.
Burning #12 log.
Burning #13 log.
Burning #14 log.
Burning #15 log.
Burning #16 log.
Burning #17 log.
Burning #18 log.
Burning #19 log.
Burning #20 log.
Burning #21 log.
Burning #22 log.
Burning #23 log.
Burning #24 log.
Burning #25 log.
Burning #26 log.
Burning #27 log.
Burning #28 log.
Burned correctly
Walking to bank. The roadcolor is:8818320.
15
using alternate method
There are 99 loads to go.
Banking kill is:0.
Banked corectly
Walking to burn. The roadcolor is:8818320.
Burning #1 log.
Burning #2 log.
Burning #3 log.
Burning #4 log.
Burning #5 log.
Burning #6 log.
Burning #7 log.
Burning #8 log.
Burning #9 log.
Burning #10 log.
Burning #11 log.
Burning #12 log.
Burning #13 log.
Burning #14 log.
Burning #14 log.
Burning #15 log.
Burning #16 log.
Burning #16 log.
Burning #17 log.
Burning #18 log.
Burning #19 log.
Burning #20 log.
Burning #21 log.
Burning #22 log.
Burning #23 log.
Burning #24 log.
Burning #24 log.
Burning #25 log.
Burning #25 log.
Burning #26 log.
Burning #27 log.
Burning #27 log.
Burning #28 log.
Burned correctly
Walking to bank. The roadcolor is:8818320.
14
using alternate method
There are 98 loads to go.
Banking kill is:0.
Banking kill is:1.
Banking kill is:2.
Banking kill is:3.
Banking failed, logging out...
![]()
banking was working yesterday and now it isnt
Script is not banking![]()
Last edited by squillyum; 12-26-2011 at 07:25 PM.
Doesn't bank correctly at the moment...
Upping V1.5 which HOPEFULLY will fix banking issues...
Of all the things I have lost, I miss my mind the most.
Current Projects:
Addy bar miner and superheater
Great script man keep them coming![]()
Last edited by cityreppin; 12-28-2011 at 02:20 AM.
hey it will work for me for like 2 runs and then it will just shut down i tried to change the road color and it made it worse
i have smart enabled to
There are currently 1 users browsing this thread. (0 members and 1 guests)