View Full Version : So many Anti-Randoms...
Jason2gs
02-22-2007, 11:51 PM
So many Anti-Randoms... I'm not sure which ones to include in my script :P
Please help? Which ones work best, and which ones aren't really needed?
botmaster
02-23-2007, 12:03 AM
FindNormalRandoms should get you covered :P.
Jason2gs
02-23-2007, 12:07 AM
What about SRLRandomsReport;? Does that (and only that) turn the report box on?
Avaphi
02-23-2007, 12:38 AM
That makes all randoms you have encountered be reported into the debug box.(bottom right of scar)
Jason2gs
02-23-2007, 12:45 AM
Thanks =)
One more thing.
How do I put more than one tree color in the FindEnt; function?
omgh4x0rz
02-23-2007, 01:08 AM
I don't think you need multiple tree colors. If you look at the code, there is nothing in it that relies on the TreeColor argument, so you could probably enter any number and have it still work.
Jason2gs
02-23-2007, 01:13 AM
Kk.
So just putting in "FindEnt;" will work?
omgh4x0rz
02-23-2007, 01:43 AM
No, you still need to put a color or else you get an error, but I looked at the code in SRL and it doesn't look like it even uses the color that you give for the actual procedure. It looks for yellow text or something.
Jason2gs
02-23-2007, 01:44 AM
Hmm... Alright, thanks :)
omgh4x0rz
02-23-2007, 02:01 AM
Yea, one of the SRL peeps please correct me on that if I'm wrong.
you could also use the FindTalk. that will do all talking randoms, I don't know if the FindNormalRandoms does talking randoms though, I'm pretty sure it doesen't though.
Jason2gs
02-24-2007, 04:33 PM
Is it uncommon to have more than one FindTalk in your AntiRandoms section?
Smartzkid
02-24-2007, 05:33 PM
Just take a look at a good wc'er script like four's or lorax's...
Thats how I learned to script...It's not always easy, but it's very practical
:p whatever that means ;)
Jason2gs
02-24-2007, 05:37 PM
I just feel like whenever I do that, I'm stealing someone else's script :p
It is good to learn with, though.
I'm currently making an OakChopper. It's coming along nicely. I just need to find a way check if my axe is broken or not.
Smartzkid
02-24-2007, 06:00 PM
Just wondering, but are you still working on that AutoResponder? If you're not, could I finish it?
Jason2gs
02-24-2007, 06:06 PM
I just gotta work on ignoring your own posts, which I'll probably be able to have done by tonight. I can just look at other people's script, right? I saw a couple of them today that had AutoResponds on em. I'll just rip 'em apart :p
Infact... I'll go do that right now.
YoHoJo
02-24-2007, 07:13 PM
For the entfidning do
Procedure FindEnts;
Begin
For i:=1 to 5 Do
Begin
Case i Of
1: FindEnt(Treecolor1);
2: FindEnt(Treecolor2);
3: FindEnt(Treecolor3);
4: FindEnt(Treecolor4);
5: FindEnt(Treecolor5);
end;
end;
end;
That will search for an ent 5 times with 5 different colors =).
Jason2gs
02-24-2007, 09:34 PM
I have this set up:
procedure AntiBanEnt;
begin
if(FindEnt(1597528 or 3442808 or 2132088 or 1724488 or 3295304))then
begin
RunAwayDirection('S');
Wait(3000 + Random(2000));
RunBack;
end;
AntiBan;
FindHead;
end;
Ejjman
02-24-2007, 09:57 PM
procedure DoEnt(Color : integer);
begin
if (FindEnt(Color))then
begin
Blahblah; //Put your running away procedure stuff here
end;
end;
Procedure FindEnts;
Begin
For i:=1 to 5 Do
Begin
Case i Of
1: DoEnt(Treecolor1);
2: DoEnt(Treecolor2);
3: DoEnt(Treecolor3);
4: DoEnt(Treecolor4);
5: DoEnt(Treecolor5);
end;
end;
end;
Hm..?
Jason2gs
02-24-2007, 10:11 PM
What's the difference with that one? It looks like they do the same thing.
madmoon
02-24-2007, 10:17 PM
For the entfidning do
Procedure FindEnts;
Begin
For i:=1 to 5 Do
Begin
Case i Of
1: FindEnt(Treecolor1);
2: FindEnt(Treecolor2);
3: FindEnt(Treecolor3);
4: FindEnt(Treecolor4);
5: FindEnt(Treecolor5);
end;
end;
end;
That will search for an ent 5 times with 5 different colors =).
No need, because the FindEnt function doesn't even use the Color, someone else has already pointed this out, but here is the function.
function FindEnt(TreeColor: Integer): Boolean;
var
i: Integer;
begin
if (Option2('Chop')) then
begin
if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
(FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
begin
GetMousePos(x, y);
Mouse(x, y, 5, 5, False);
if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50))
then
begin
if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
begin
for i := 1 to 2 do
begin
Mouse(648, 83, 1, 1, True)
Flag;
end;
WriteLn('Found ent! Waiting for it to go away');
Wait(30000 + Random(5000));
Result := True;
EntsAvoided := EntsAvoided + 1;
end;
end else
ChooseOption(x, y, 'Cancel');
end;
end;
end;
omgh4x0rz
02-25-2007, 02:16 AM
yea, thats what I thought madmoon. I'm glad I'm not going crazy.
Smartzkid
02-26-2007, 10:12 PM
So does that mean I could put in FindEnt(0), and it'd work?
ronny.m.p
02-27-2007, 08:26 PM
they do but the other one looks neater...personaly id use your tactic because im not a very organized scripter...the way i figure it is if it works then no one will complain.
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.