Printable View
Alright, uhherrm
waitfunc(@notfindthelogs, 10, 5000);
what would take the place of notfindthelogs?
a function that would come up false when no logs are found?
sooo uhhhh
Simba Code:function NotFindLogs: Boolean;
begin
if not FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2) then
Result := false
end;
is that a valid function? I know what I need to make it do I just can't seem to find how to write it :(
Maybe you can just do.
Simba Code:function NotFindLogs: Boolean;
begin
Result := not FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2);
end;
I'll try both. Yours makes sense though :p
waitfunc(@notfindthelogs, 10, 5000);
while find logs in inventory do
begin
antiban;
waitfunc(@notfindthelogs, 10, 5000);
end;
end;
So does this mean, while it's finding logs in the inventory, it's constantly repeating antiban and waitfunc?
Is the waitfunc (even the notfindlogs function) needed? Couldn't I just have it so while logs are detected in the inventory it just repeats the antiban?
I have so much to test when I get home, using my cousins shit laptop at the moment -_-
Simba Code:program RoflmeFletcher;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
// Thank you for using my script.
// Read thread for instructions and details.
// Also post any issues on the thread.
// THIS SCRIPT IS STILL BEING TESTED
// NOT ALL LOGS WORK
// ALL LOGS WILL WORK SHORTLY
const
BowType = 'Longbow'; // 'Longbow' or 'Shortbow' for now, will
// be adding others shortly
var
x, y, Knife, Logs, LogsCut: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := true;
end;
end;
Procedure AntiBan;
begin
Case Random(800) of
1: RandomRClick;
2: RandomMovement;
3..10: BoredHuman;
11..20: PickUpMouse;
21..800: Wait(500);
end;
SetAngle(SRL_ANGLE_HIGH);
Wait(350+Random(200));
end;
Procedure setDTMs;
begin
Logs := DTMFromString('mlwAAAHicY2dgYOAHYjEgFgdiaSDmZIAAJiDmhbK5gFgYiCWhalmB2NeIG6oKE/8HkrgwIx4MBQD5PQhe');
Knife := DTMFromString('mWAAAAHicY2GAAGYg5gRiISCWB2JpIBaGyvl4eDC463GBcWt9PQM/UAwZM6JhEAAAuQcEDQ==');
end;
procedure FreeDTMZ;
begin
FreeDTM(Knife);
FreeDTM(Logs);
end;
Procedure Bank;
begin
begin
repeat
SetAngle(SRL_ANGLE_HIGH);
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Wait(520+random(209));
DepositAll;
Wait(305+random(107));
Withdraw(0, 0, 28);
Wait(503+random(212));
Closebank;
end;
end;
Function Options: Boolean;
begin
Result := CountColorTolerance(2070783, MCX1, MCY1, MCX2, MCY2, 10) > 200;
end;
Function NoLogs: Boolean;
begin
Result := not FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2);
end;
Procedure CutLog;
var
t: Integer;
begin
MarkTime(t)
repeat
if FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MouseItem(RandomRange(1,28), mouse_left);
WaitFunc(@Options, 10, 2000);
end;
until (Options) or (TimeFromMark(t) > 30000);
end;
Procedure FletchBow;
begin
case BowType of
'longbow':
begin
if FindText(x, y, 'ongbo', StatChars, MCX1, MCY1, MCX2, MCY2) then
Mouse(x, y, 5, 5, mouse_left)
else
begin
writeln('Can''t find option, terminating');
terminatescript;
end;
end;
'shortbow':
begin
if FindText(x, y, 'ortbo', StatChars, MCX1, MCY1, MCX2, MCY2) then
Mouse(x, y, 5, 5, mouse_left)
else
begin
writeln('Can''t find option, terminating');
terminatescript;
end;
end;
end;
while FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2) do
begin
AntiBan;
waitfunc(@NoLogs, 10, 2000);
end;
end;
procedure Report;
begin
ClearDebug;
Writeln('Roflme''s Fletcher');
Writeln('Logs Cut:' + IntToStr(LogsCut));
Writeln('Script has run for ' + TimeRunning);
end;
procedure MainLoop;
begin
Bank;
CutLog;
FletchBow;
end;
begin
Cleardebug;
DeclarePlayers;
Smart_Server := 1;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SmartSetRefresh(70);
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
SetDTMs;
repeat
MainLoop;
until(false);
FreeDTMZ;
end.
Well the script sure got larger. I'll work in where to put the piece that clicks on the knife DTM later.
It will click on the log, and then sit there. :( So close
You didn't have a procedure that finds the knife text after option is found. Or maybe option function not working properly :p
Simba Code:Procedure testing;
var
x, y: Integer;
begin
if FindText(x, y, 'ongbo', StatChars, MCX1, MCY1, MCX2, MCY2) then
writeln('Found')
else
writeln('not found');
end;
Tested that for each Font, none of them came back as 'Found'.
/Rage
You could make a DTM of the text... just make a DTM of loads of points on the text (like actually loads of them) should work wellQuote:
Originally Posted by Roflme
Just made a ton of points, can get a matching DTM. Will test if I can get it to work :pQuote:
Originally Posted by putonajonny
I am interested in trying to get the script to find the text as well. :( just for any future scripts I might create :(
Simba Code:program RoflmeFletcher;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
// Thank you for using my script.
// Read thread for instructions and details.
// Also post any issues on the thread.
// THIS SCRIPT IS STILL BEING TESTED
// NOT ALL LOGS WORK
// ALL LOGS WILL WORK SHORTLY
const
BowType = 'Longbow'; // 'Longbow' or 'Shortbow' for now, will
// be adding others shortly
var
x, y, Knife, Log, Longbow, LogsCut: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := true;
end;
end;
Procedure AntiBan;
begin
Case Random(800) of
1: RandomRClick;
2: RandomMovement;
3..10: BoredHuman;
11..20: PickUpMouse;
21..800: Wait(500);
end;
SetAngle(SRL_ANGLE_HIGH);
Wait(350+Random(200));
end;
Procedure setDTMs;
begin
Longbow := DTMFromString('m/AEAAHictc5xB4AwEAXwm3VLREQasUR9575tvfHiiv6842f2tjfLIjLAATtsVGCBGTJMNFLt9NRRggaivEeZt7wTuVdmtpPMe8/Zt1vXYPLrXF0p/+olOPubG76KK8g=');
Knife := DTMFromString('mWAAAAHicY2GAAGYg5gRiISCWB2JpIBaGyvl4eDC463GBcWt9PQM/UAwZM6JhEAAAuQcEDQ==');
Log := DTMFromString('mlwAAAHicY2dgYOAHYjEgFgdiaSDmZIAAJiDmhbK5gFgYiCWhalmB2NeIG6oKE/8HkrgwIx4MBQD5PQhe');
end;
procedure FreeDTMZ;
begin
FreeDTM(Knife);
FreeDTM(Longbow);
FreeDTM(Log);
end;
Procedure Bank;
begin
begin
repeat
SetAngle(SRL_ANGLE_HIGH);
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Wait(520+random(209));
DepositAll;
Wait(305+random(107));
Withdraw(0, 0, 28);
Wait(503+random(212));
Closebank;
end;
end;
Function NoLogs: Boolean;
begin
Result := not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2);
end;
Procedure Cut;
var
t: Integer;
begin
MarkTime(t);
repeat
if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MouseItem(RandomRange(1,28), mouse_left);
Wait(5000);
end;
until (FindDTM(knife, x, y, MCX1, MCY1, MCX2, MCY2)) or FindDTM(Longbow, x, y, MCX1, MCY1, MCX2, MCY2) or (TimeFromMark(t) > 30000)
FindDTM(knife, x, y, MCX1, MCY1, MCX2, MCY2);
Mouse(x, y, 5, 5, mouse_left);
Case BowType of
'longbow':
if FindDTM(Longbow, x, y, MCX1, MCY1, MCX2, MCY2) then
begin
Mouse(x, y, 5, 5, mouse_left);
repeat
Antiban;
Wait(500+random(300));
until waitfunc(@NoLogs, 10, 2000)
end;
end;
end;
procedure Report;
begin
ClearDebug;
Writeln('Roflme''s Fletcher');
Writeln('Logs Cut:' + IntToStr(LogsCut));
Writeln('Script has run for ' + TimeRunning);
end;
procedure MainLoop;
begin
Bank;
Cut;
Report;
end;
begin
Cleardebug;
DeclarePlayers;
Smart_Server := 1;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SmartSetRefresh(70);
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
SetDTMs;
repeat
MainLoop;
until(false);
FreeDTMZ;
end.
I don't know why I'm having so much trouble with this :\...
So the script will click the log, find the knife DTM, wait the 5 seconds inSimba Code:repeat
if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MouseItem(RandomRange(1,28), mouse_left);
Wait(5000);
end;
until (FindDTM(knife, x, y, MCX1, MCY1, MCX2, MCY2)) or FindDTM(Longbow, x, y, MCX1, MCY1, MCX2, MCY2) or (TimeFromMark(t) > 30000)
And then successfully click on longbow DTM text...
But as soon as it clicks to fletch longbows, it will begin to bank. I'm guessing the problem is with my Log DTM or NoLog function. I can't check if the DTM will detect what items are logs and which aren't due to the fact that whenever I click to show DTMs, simba crashes :\
I just tested, it returns Found for me.Quote:
Originally Posted by Roflme
EDIT: Your log DTM is wrong. ALL your points had 255 tolerance.
EDIT: Fixed, and works for me. I tested 300+ logs, thats all I have in bank lol.
Simba Code:program RoflmeFletcher;
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
// Thank you for using my script.
// Read thread for instructions and details.
// Also post any issues on the thread.
// THIS SCRIPT IS STILL BEING TESTED
// NOT ALL LOGS WORK
// ALL LOGS WILL WORK SHORTLY
const
BowType = 'longbow'; // 'Longbow' or 'Shortbow' for now, will
// be adding others shortly
var
x, y, Log, LogsCut: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := true;
end;
end;
Procedure AntiBan;
begin
Case Random(800) of
1: RandomRClick;
2: RandomMovement;
3..10: BoredHuman;
11..20: PickUpMouse;
21..800: Wait(500);
end;
SetAngle(SRL_ANGLE_HIGH);
Wait(350+Random(200));
end;
Procedure setDTMs;
begin
//Longbow := DTMFromString('m/AEAAHictc5xB4AwEAXwm3VLREQasUR9575tvfHiiv6842f2tjfLIjLAATtsVGCBGTJMNFLt9NRRggaivEeZt7wTuVdmtpPMe8/Zt1vXYPLrXF0p/+olOPubG76KK8g=');
//Knife := DTMFromString('mWAAAAHicY2GAAGYg5gRiISCWB2JpIBaGyvl4eDC463GBcWt9PQM/UAwZM6JhEAAAuQcEDQ==');
Log := DTMFromString('mlwAAAHicY2dgYJjBxMAwAYinA/FCIF4KxLOAeDIQPwXK3wHi21D6BRC/A+IPQGykww8kmbDi/wy4ASMeDAUARmYMBQ==');
//New log DTM
end;
procedure FreeDTMZ;
begin
//FreeDTM(Knife);
//FreeDTM(Longbow);
FreeDTM(Log);
end;
Procedure Bank;
begin
begin
repeat
//SetAngle(SRL_ANGLE_HIGH);
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
DepositAll;
Withdraw(0, 0, 28);
Closebank;
repeat
wait(10);
until InvCount > 0; //prevent error from lag
end;
end;
//Taken out from one of my script, shorten function :p
Function GetDaText(var cx, cy: Integer; TextHere: String): Boolean;
begin
Result := FindText(cx, cy, TextHere, StatChars, MCX1, MCY1, MCX2, MCY2);
end;
Function NoLogs: Boolean;
begin
Result := not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2);
end;
Function OptionsAppeared: Boolean;
begin
Result := CountColorTolerance(2038544, MCX1, MCY1, MCX2, MCY2, 10) > 2000;
end;
Function Cut: Boolean;
var
t: Integer;
begin
MarkTime(t);
if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
LogsCut := LogsCut + InvCount; //Should be like that? for report
MouseItem(RandomRange(1,28), mouse_left);
//Wait(5000); //This waits total 5 seconds, which will makes script slow
repeat
wait(100);
if TimeFromMark(t) > 10000 then //if wait more than 10 secs
begin
writeln('Wait too long');
TerminateScript; //Or maybe you want to reclick logs
end;
until (OptionsAppeared);
writeln('Option list found');
Result := True;
end else //what if log not found?
begin
writeln('Cant find logs');
TerminateScript;
end;
end;
Procedure FletchBow;
begin
if GetDaText(x, y, 'nife') then
begin
writeln('Clicking knife');
Mouse(x, y, 5, 5, mouse_Left);
repeat
wait(100);
until GetDaText(x, y, 'bow');
end;
//case types not in capital, constant should not be capital too
//changed constant above to lower capital
Case BowType of
'longbow':
begin
if GetDaText(x, y, 'ongb') then
begin
Mouse(x, y, 5, 5, mouse_left);
writeln('Making longbow');
end;
end;
'shortbow':
begin
if GetDaText(x, y, 'ortb') then
begin
Mouse(x, y, 5, 5, mouse_Left);
writeln('Making shortbow');
end;
end;
end;
repeat
AntiBan;
WaitFunc(@NoLogs, 10, 5000);
until NoLogs;
writeln('Finished fletching '+BowType);
end;
procedure Report;
begin
ClearDebug;
Writeln('Roflme''s Fletcher');
Writeln('Logs Cut:' + IntToStr(LogsCut));
Writeln('Script has run for ' + TimeRunning);
end;
procedure MainLoop;
begin
Bank;
if Cut then
FletchBow;
Report;
end;
procedure testing;
begin
if OptionsAppeared then
writeln('Found')
else
writeln('Not found');
end;
begin
Cleardebug;
DeclarePlayers;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SmartSetRefresh(70);
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
SetDTMs;
AddOnTerminate('FreeDTMZ'); //Free DTM on termination
repeat
MainLoop;
until not LoggedIn; //Until not logged in
end.
If your simba crshes when trying to search for a DTM it means there are too many matches and it finds alot or everything on your screen, remake the DTM with tolerance only on the coloured points and keep the tolerance a bit lower and it shouldn't crash.
Should only some of my points have been 255 tolerance?Quote:
Originally Posted by CephaXz
I would suggest none of your points be 255 tolerance, that means they can be absolutely any colour imaginable.
-Go to the GE, buy a log of each type.
-Make a DTM with one central point (on a colour) then all of your other points around the black outline.
-Increase the tolerance (slowly) until it matches all of the logs in your inventory but don't increase it so high that it recognises other items (or in your case the whole screen).
-Keep a 0 tolerance for all your points along the black outline of the object. These should all be the same colour and remain constant as they do not change no matter how many times the client is refreshed.
Only the main point has 255 tolerance for me. As it has color. Other points are all the black outline, which must be 0 tolerance. Do not take points on the left of the logs, there is a bug that will make items disappear a little on the left side.Quote:
Originally Posted by Roflme
Since my DTM is for a log. And colored point has 255 tolerance. That means it will work on any logs, because they have the same shape, and my DTM works regardless of the color of a log.
Ahh the black outline, makes sense :) thank you!Quote:
Originally Posted by p1ng
Will have to try script out when I get home
Can't test until tomorrow :( :( :( :(
I guess my FindText should have had tolerance :p (seeing the changes you implemented)
I'm still so confused why it came back as 'not found'. STILL haven't been able to implement any changes, but I believe you've got it working. Thank you so much for your help CephaXz :D going to see how text works out for other fletching items.
If the text is in the chatbox, it should return as found. Try playing around with the script I edited :p
I posted a copy of the script on my thread (shout out to you :p), going to test it myself when I'm done with my slayer task tomorrow (Black Demons -_-). I'll have to try the test procedure again and see if I can find success. I'll also test the script to see if it works for me :p since I always have bad luck with running things :(
EDIT: Read your note on the capital casetypes, trying again :duh:
EDIT2: MUCH BETTER! Lol, I didn't even know that the cases were case sensitive. Working now, :D