omg wow this helped alot i finshed my script i owe u so much this is such the best now and i get how to script much better now good work keep it up!!!!
omg wow this helped alot i finshed my script i owe u so much this is such the best now and i get how to script much better now good work keep it up!!!!
Thank you for including so much detailed information about the function of every thing
hmm, great tut. i got a problem tho, i get this error: Line 15: [Error] (12847:71): 'THEN' expected in script . that line looks like this: if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7)) then
help? :P
^LOL^
nice tut learned few things from it that i didnt know![]()
read it and it looks great gona try make it later, nice amount of detail gj
Nice tutorial, should get me started learning scripting, thanks alot!
lol thanks even i learned something:
loads for each player (i use to do it wrong lol).
Rep+
Great tut, man! I just have 1 question.
In the Choptree procedure, there is this line here:
if FindObjCustom(x, y, ['Yew'], [2060900, 1793357, 3305062], 7) then
I understand everything except for the tolerence.(the 7) Could anyone explain that?
(I swiched around the wil,low and the colours, but that shouldnt change my question)
i get THEN expected if i use if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7)) then. maybe i have the wrong srl rev?
^LOL^
I have one more question. Does the line until(InvFull) still work? Whenever I try it to work with one of my scripts, I get the error identifier expected in script. (I have my repeat and everything)
asdasd
Last edited by shrubie1; 10-20-2010 at 05:33 AM.
when i try to run it, it says this:
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763],7))then
Line 72: [Error] (12904:70): 'THEN' expected in script
help???
![]()
Hey thank you for the help! This tut explains a great deal and best yet, I love how it points me to locations to that will go more in depth on topics and lines used in this script.
Thanks for taking time to write this up for us beginners!
Very clean tutorial. I made one for meI seem to be catching up to this very fast.
YES!
a good tutorial on how to script better... it also seems really in depth so that will also help me
nice
Line 58: [Error] (12837:71): 'THEN' expected in script C:\Program Files\SCAR 3.15 2\Scripts\Runescape\Woodcutter.scar
Any reason why?
Line 58 =
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7))then
Fixed remove 1 ")" at the end, But now i have more errors, I forgot a semicolon and it doesn't say which line
EDIT :
Script works fine except for the fact it won't do anything, no mouse movements
SCAR Code:program Woodcutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
Loads = 10;
YourSRLId = '';
YourSRLPassword ='';
YourPin = '';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
var x, y, LoadsNum, LoadsNum2: integer;
Procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Woodcutting');
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 +Random(90));
end;
end;
procedure ChopTree;
var CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('S');
repeat
if FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
begin
Mouse(x,y,0,0,false);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('hop')
AntiBan;
if (not (FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('Willow Logs not found. Switching Players..');
Logout;
NextPlayer(False);
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
procedure WalkToBank;
begin
if (not(LoggedIn)) then
Exit;
SymbolAccuracy:= 0.2;
MakeCompass('N');
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to bank');
end;
end;
procedure Banking;
begin
if (InvFull) then
begin
MakeCompass('W')
Wait (300 + random(160));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if(FindColorSpiral(x, y, 4155248, 547, 206, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
begin
LoadsNum := LoadsNum + 1;
LoadsNum2 := LoadsNum2 + 1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
CloseBank;
Wait(150 + random (278));
MakeCompass('S');
end;
end;
procedure WalkToWillow;
begin
if (FindSymbol(x, y, 'fish')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to Willows');
end;
end;
procedure SetupScript;
begin
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
SetupSRL;
ScriptID:= '687';
DeclarePlayers;
end;
begin
SetupScript;
repeat
WalkToWillow;
ChopTree;
AntiBan;
WalkToBank;
Banking;
if (LoadsNum2=Loads) then
begin
NextPlayer(True);
LoadsNum2 := 0;
MakeCompass('S')
Writeln('Players Switched successfully')
end;
until (false)
end.
http://www.fenjer.com/adnan/SRLStats/1035.png
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly!
Nicely done thanks helped alot
how do I view intermediate tutorials????
I believe iits as simple as left clicking on the link with your mouse. Or Just make and co ordinate auto xD
Mouse(x, y, 0, 0, True); Replace the x and y with your co ordinates. LOL.
I dont know, but you might have to be a Srl Junior member? :S That would be weird though.
^LOL^
hmm well i get this message--Line 64: [Error] (16262:4): Unknown identifier 'AlmostLogout' in script
for this line--
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 +Random(90));
end;
end;
Tut is outdated, sorry.
I dont script amymore, so my tutorial is not up to date.
Jus' Lurkin'
That explains a LOT! The script goes haywire when it comes time to bank. I'd fix it myself but I'll be buggered if I can figure out how to fix it. I was hoping to learn from this.![]()
Excellent tut regardless. I actually understood most of it. Would love to see an updated version of this. nudge nudge wink wink
This is a long slow process getting up to speed on scripting lol.
I'm gonna start from scratch based on this tut and see if I can come up with a simple script that will cut the oak next to draynor and bank it. (That should a riot)
Now if I could just figure out what colors I'm supposed to use...
Can someone point me a tut that actually works, because I'm just starting and I need a script as my base but I want to make it.
There are currently 1 users browsing this thread. (0 members and 1 guests)