PDA

View Full Version : [SRL] Seers Maple Cutter Testing Needed



markuska815
04-05-2007, 06:31 AM
I would like it if some people could test it.

It is not complete
I am going to add:
forms
axe head finding and fixing
and a progress report

Thanks for your help.

The:real_JuKuG
04-05-2007, 10:13 AM
Not working.

markuska815
04-05-2007, 07:41 PM
Could you expand on that? That really doesn't tell me anything.

The:real_JuKuG
04-06-2007, 09:14 AM
Could you expand on that? That really doesn't tell me anything.
I start at bank, it walks to wrong place, dousent even starting to find maple trees, then walking some other place, also wrong.
Not working.

markuska815
04-06-2007, 09:56 AM
Thanks for that. I will change the walking procedure to radialwalk and see if that makes it work better.

Edit:Change to radialwalk. I tested it and it worked for me. This is the script without any randoms just for testing purposes.
Try the attached

The:real_JuKuG
04-08-2007, 11:38 AM
Not working, only clicks to inventory and stands just around.
Second time i started the script it didnt do nothing at all.
Messed up script.

markuska815
04-08-2007, 09:54 PM
ok try the new attachment

xiar1515
04-09-2007, 04:19 AM
I'll test it for ya bro...keep up the good work.

gr1m
04-09-2007, 08:57 AM
i tested it and the mouse started freeking out in the right side of the page goin up and down. i was scared cuz i kept pushin Ctrl+Alt+S and nothing was working. but after a while it stoped?

The:real_JuKuG
04-09-2007, 11:23 AM
Still not working.
It clicked to inventori then turned on the run and just standed there.

Second time i run same think like gr1m had.

ducels
04-09-2007, 01:28 PM
procedure ChopTree;
begin
repeat
if (findcolorspiraltolerance(xyx,yxy,TreeColor1,0,0,5 18,342,7))
or (findcolorspiraltolerance(xyx,yxy,TreeColor2,0,0,5 18,342,7)) then
begin //added
mouse(xyx+10,yxy,1,1,true);
wait(6000+random(2300));
Leveled;
wait(100+random(20));
Randoms;
wait(100+random(20));
end; //added
until (invfull = true)
if (invfull = true) then
end;
end;
The above is assuming you want that block of code to be used if its true and not regardless.

Not too big a deal, but if it doesnt find the tree you dont want it clicking all over the screen for no reason.

markuska815
04-09-2007, 09:15 PM
Ok thank you. The thing where the mouse moves to the side and doesnt allow you to stop the script has happened to me several times. I cant figure out why it does that. Maybe ducels suggestion will fix it. If its not that, its either the leveling procedure or the randoms. I updated the attachment try it now.

Edit:
Ok I changed the movements from radialwalk to DTMs
the firstmove clicks the outline dtm of the tree symbol and the second find a rotated dtm of the yellow dots (the 19... number)
anyways Ive tested it and it works for me

Also the problem with the mouse moving to side is definately the randoms or leveling procedure.

Try the new att.

gr1m
04-09-2007, 10:09 PM
i have taken sky shadows edgevill yew choper and made it chop maples, it kinda works, ill post it. some times it dosnt bank right cuz its made for edgevill thats why i had to make the compus face west. it would be better if it always went north of the bank to chop more. so if u wana se if u can fix it up better than me, (cuz im a noob at scripting).

p.s. it still has skys writing on it, lol im 2 lazy to change it.



{
~~~~~~~~~~Skys~~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~~Shadow~~~~~~~~~
~~~~~~~~~~~§§~~~~~~~~~~~
~~~~~~~~Presents~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~

~ The Skys Shadow Edgeville Yew Cutter!
~ Made by me, Skys Shadow.
~ Credits to all the SRL team for the wonderful SRL include.
~ Setup line 44,45 and 50-95


Instructions:
Setup Account
Stand in Edgeville bank in the southmost booth
Watch it once to make sure that all is well
Enjoy!

Update Info:
Alpha: Just cut and bank
Beta: Added Login
V 1.0: Added Antirandoms, Antiban, and fixed bugs
V 1.1: Took away WelcomeScreen include
V 1.2: Added Progress Report, changed some procedures
V 1.3: Fixed Login bug
V 1.4: Added Multiple players
}


program Skys_Shadow_Edgeville_Yew_Cutter;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
{.include SRL\SRL\extended\xAntiBan.scar}

var
Trips:integer;


///////Set Wieldaxe! Don't Touch Version #//////
const //
WieldAxe = 1; //1 for wielding, 2 for no //
Tripstodo = 0; // # of trips for each player //
VersionNumber = ' 1.3'; //Don't Touch! //
/////////////////////////////
Procedure DeclarePlayers; //
begin //
HowManyPlayers :=6 // Set Number of Players here. //
NumberOfPlayers(HowManyPlayers); // Leave alone //
CurrentPlayer:=0; // The blue # of the player wanted //
//
Players[0].Name :=''; // Your RS Name //
Players[0].Pass :=''; // Your RS Password //
Players[0].Nick :=''; // The first 3 lowercase letters of your name //
// eg. If your name is Zezima, put in ezi. //
Players[0].Loc :='Loc1'; //Not needed //
Players[0].Skill:=''; //Not needed //
Players[0].Active:=True; //Leave at true //
//
Players[1].Name :=''; //
Players[1].Pass :=''; //
Players[1].Nick :=''; //
Players[1].Loc :='Loc1'; //
Players[1].Skill:=''; //
Players[1].Active:=True; //
//
Players[2].Name :=''; //
Players[2].Pass :=''; //
Players[2].Nick :=''; //
Players[2].Loc :='Loc1'; //
Players[2].Skill:=''; //
Players[2].Active:=True; //
//
Players[3].Name :=''; //
Players[3].Pass :=''; //
Players[3].Nick :=''; //
Players[3].Loc :='Loc1'; //
Players[3].Skill:=''; //
Players[3].Active:=True; //
//
Players[4].Name :=''; //
Players[4].Pass :=''; //
Players[4].Nick :=''; //
Players[4].Loc :='Loc1'; //
Players[4].Skill:=''; //
Players[4].Active:=True; //
//
Players[5].Name :=''; //
Players[5].Pass :=''; //
Players[5].Nick :=''; //
Players[5].Loc :='Loc1'; //
Players[5].Skill:=''; //
Players[5].Active:=True; //
//
//
//
writeln(inttostr(HowManyPlayers)+' Players'); //
///////////////////////////////////////////////////////////////////////////
end;

function IsWelcomeScreen: Boolean;
begin
if(GetColor(271, 292) = 8356779)and
(GetColor(499, 292) = 8356779)and
(GetColor(271, 381) = 8356779)then
Result := True;
end;

procedure WelcomeScreen;
begin
if(not(IsWelcomeScreen))then Exit;
MouseBox(275, 296, 495, 377, 1);
end;
//-----------------------------------------------//

Procedure Setup;
begin
SetupSRL;
ActivateClient;
ChatsOff;
If (LoggedIn) then
begin
HighestAngle;
MakeCompass('n');
end;
If (not(LoggedIn)) then
LoginPlayer;
WelcomeScreen;
HighestAngle;
MakeCompass('n');
end;
//-----------------------------------------------//

Procedure ProgReport;
begin
ClearReport;
Writeln('===============================')
Writeln('= You Are Using =');
Writeln('= =');
Writeln('= The Skys Shadow Edgeville =');
Writeln('= =');
Writeln('= YEW CUTTER! =');
Writeln('= =');
WriteLn('= Version ' + VersionNumber + ' =');
Writeln('= =');
Writeln('= ' + inttostr(Trips) + ' Trips done =');
Writeln('= =');
Writeln('= Happy Cutting =');
Writeln('===============================');
end;
//-----------------------------------------------//

Procedure WalktoTrees;
begin
If (FindSymbol(x,y, 'rare trees')) then
begin
SetRun(true)
Mouse(x,y,1,1,true)
wait(10000)
end
If (not(FindSymbol(x,y, 'rare trees')))then
begin
SetRun(true)
Mouse(747,280,1,1,true)
wait(5000)
If (FindSymbol(x,y, 'rare trees')) then
begin
Mouse(x,y,1,1,true)
wait(10000)
end;
end;
end;

//-----------------------------------------------//

Procedure ChoptheTrees;
begin
repeat
if (FindMSColor(x,y,16504))or
(FindMSColor(x,y,10336))or
(FindMSColor(x,y,32936))then
MMouse(x,y,1,1)
If IsUpText('Chop') then
Mouse(x,y,1,1,true)
wait(5000+Random(5000)+Random(5000)+Random(5000))
until (invfull = true)
if (invfull = true) then
Trips := Trips + 1;
end;
//-----------------------------------------------//

Procedure WalktoBank;
begin
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
If (not(FindSymbol(x,y,'bank')))then
begin
Mouse(789,173,1,1,true)
wait(10000);
If (FindSymbol(x,y,'bank'))then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1,true)
end
end
end;
//-----------------------------------------------//

Procedure BanktheLogs;
begin
OpenBank;
If WieldAxe = 1 then
begin
DepositAll;
end
If WieldAxe = 2 then
begin
Deposit(2,28,2);
end
end;
//-----------------------------------------------//

Procedure AntiRandomsandAntiBan;
begin
SRLRandomsReport;
FindNormalRandoms;
FindAxeHeadColor;
AttachHead;
DontBanMe(2);
If (FindEnt (3438704)) then
begin
Logout;
Wait(30000)
LoginPlayer;
end
end;
//-----------------------------------------------//

begin
DeclarePlayers;
Setup;
repeat
repeat
ProgReport;
WalktoTrees;
ChoptheTrees;
WalktoBank;
BanktheLogs;
AntiRandomsandAntiBan;
until (trips = Tripstodo);
If (trips = Tripstodo) then
Logout;
Nextplayer(true);
until (false);
end.

markuska815
04-09-2007, 10:27 PM
K Ill try it.
Can you try the new att? I changed the walking procedure and it works for me.

gr1m
04-09-2007, 11:07 PM
idk what happend but my accounts not workin, i accidently put my name on here but then i noticed it right away and i took it off. it says too many logins and then it says (You have been blocked from logging in because too many requests have been made from your ip in a short space of time.
Please try again in a few minutes.) i think some one chnaged my pass cuz its not working!!!!!!!!!!!!!!!>=(

markuska815
04-09-2007, 11:26 PM
Wow yeah I did that and changed it really quick too. That sucks. Im sorry but it wasn't me.

gr1m
04-10-2007, 03:20 PM
haha the noob didnt take any thing, cuz they iddnt know how to go on 2 accounts at once. and u can tell it was a noob cuz it took blue wizard clothes. when i went on it had alot of my good stuff bank noted. im makin a bank pin and good account recovery questions. Fuckin noob. ahhaha

marvv
04-10-2007, 06:19 PM
lol.. alot of ppl post scripts with their names/pass still in it..

lucky u got ur acc and items back

gr1m
04-10-2007, 11:10 PM
ok i tested it and its not working at all. this is what it dose for me. i turn it on the cursor gose right next to the left side of the mini map. then it makes the cumpus spin twice around. then stops freezes the screen for about 5 seconds. then affter that gose all the way down to the left clicks my start button and the gose back to the left of the mini map...

other times it gose to the top left corner of the rs screan and stays there, some other scripts do that for me 2 tho... sometimes

markuska815
04-11-2007, 06:46 AM
did you start logged out?

gr1m
04-11-2007, 07:12 PM
i tryed that 2 and it still didnt work, and i have a problem now cuz i just set a bank pin and its not gana go away intill like 5 days

ronny.m.p
04-11-2007, 08:32 PM
gr1m it goes to the top corner and stays sometimes because it is an error with bitmap finding.

gr1m
04-12-2007, 01:31 AM
yeh dosnt work

markuska815
04-12-2007, 01:59 AM
k can you read the script and see if its is a problem with my dtms or my scripting or whatever? Your help is really aprreciated. Thanks

gr1m
04-15-2007, 07:23 AM
i havent retested it yet, ill try tomarrow.