Hello,My oakcutter.
Smart version and non smart version.
Post bugs proggys what you'd think of it..
i'll be glad to hear them
Hello,My oakcutter.
Smart version and non smart version.
Post bugs proggys what you'd think of it..
i'll be glad to hear them
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
Ok sounds good but give us some information.
Does it have antirandoms/antiban.
where does it cut or is it a powerchopper?
powerchopper full antirandoms and ent avoider and detects fights i prefer to start in draynor near the oak
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
Excellent ill give you a proggie soon.
EDIT1: Doesnt actually chop oaks just examines them then does all the antiban moving mouse around hover over skills(which it does far too much you need to tone that down a bit)
So really ive got nothing to say since it doesnt actually do anything.
EDIT2: Ok I edited the colours to 1518376 and it works great ill give you a proggie later im busy atm.
ok glad to hear it
My new proggy:Killing oakZZ! for:2 Hours, 24 Minutes and 7 Seconds
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
got a proggy?
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
ok, well im looking at it right now and it seems like you havnt payed too much attention to it, when it finds the tree color it waits 20 seconds before seeing if its the right one and clicking it if it is, it says 20000 thats 20 seconds, so i changed it to 2000, also maybee have the user specify the color of the oak, i always dought you wrote much of this by yourself because one procedure is drop ores? isnt this a power chopper lol, also srl has some pretty good procedures, so maybee next time just use ''findent;'' its great. Now, in your talking procedure, do you really think people are going to say those exact words? no i didnt think so so maybee change them to something more general, i just took them out because iof you want to make a usefull one it ill have to be more complex, also isuptext isnt going to do jack if there isnt the right text , so you have to have if isuptext(.whateve.) then. i also decided not to fix your standards they need a little workalso, in the isuptext you have to have the script move the moouse to were it found the color first
, i finda editied it and put in a new tree finding procedure wich may be better may be worse i dunno, it may not be the greatest but here it is.
SCAR Code://Hello,This is My OakZZ! script.
//Start
//Yeah, this Script is dedicated to all the Scripters that told me
//I'd never amount to nothin', to all the people that lived above the
//buildings that I was hustlin' in front of that called the police on
//me when I was just tryin' to make some money to feed my daughters,
//and all the niggaz in the struggle, you know what I'm sayin'?
//Haha its all good...
//Credits:Pvh The best!, NaumanAkhlaQ
Program OakZZ;
{.include SRL/SRL.scar}
{.include srl/srl/skill/woodcutting.scar}
const
OakColor = 3234387;//Oak Color
OakColor1 = 1851705; // oak Color Again
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'nto';
Players[0].Active := True;//Player active or not??
{ Players[1].Name := 'username';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;//Player active or not??
Players[2].Name := 'username';
Players[2].Pass := '';
Players[2].Nick := 'Nickname';
Players[2].Active := True;//Player active or not??
Players[3].Name := 'username';
Players[3].Pass := '';
Players[3].Nick := 'Nickname';
Players[3].Active := True;//Player active or not??
Players[4].Name := 'username';
Players[4].Pass := '';
Players[4].Nick := 'Nickname';
Players[4].Active := True;//Player active or not??}
//add more players if u need them...
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
solveChatRandom;
FindLamp ('Mining') //Uses lamp on that skill
DwarfItem;
If (FindFight)Then
Begin
MakeCompass ('N')
RunTo('E', True)
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure AntiBan;
begin
case random(15) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Woodcutting', False);
3: AlmostLogout;
end;
end;
Procedure Oakzz;
var
X,y: integer;
begin
repeat
if FindObjCustom(x, y, ['Oak'], [OakColor1, OakColor], 1) then
begin
wait(1000)
Writeln('found oak cutting')
MMouse(x, y, 0, 0)
if Isuptext('Oak') then
begin
Mouse(x,y,7,7,true);
exit;
end;
end else
if FindObjCustom(cx, cy, ['Oak'], [OakColor1, OakColor], 1) then
begin
wait(1000)
MMouse(x, y, 0, 0)
if Isuptext('Oak') then
begin
Mouse(x,y,7,7,true);
exit;
end;
End;
until(invfull)
END;
Procedure Drop;
Var
logdtm, x, y: integer;
Begin
if InvFull then
begin
If Not (LoggedIn) Then exit;
logdtm := DTMFromString('78DA63CC63626078C880029A536D18FE03694' +
'620FE0F048C054035EF18D000231209A463816A9E135093015473' +
'87809A3222D45413B60B0046720E26');
gametab(4);
Repeat
If finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Mouse(x, y, 3, 3, false);
Begin
wait(random(200) + 100);
chooseoption('rop');
wait(800 + random(400));
End;
End;
Until (Not (finddtm(logdtm, x, y, MIX1, MIY1, MIX2, MIY2)));
freedtm(logdtm);
Begin
findNormalRandoms;
end;
end;
End;
procedure CheckEnt;//THANKS TO Hy71195
var
eex, eey, cx, cy : integer;
begin
if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
begin
WriteLn('Ent Found! ~Advoiding~');
DoEmote(4);
wait(12000+Random(1000));
Inc(EntsAvoided);
Entsavoided:=entsavoided+1
SrlRandomsReport;
findEnt(cx,cy,false)
end;
end;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
repeat
Repeat
writeln( 'Killing oakZZ! for:' + TimeRunning );
Oakzz;
Randoms;
AntiBan;
Drop;
Checkent;
Until(Not(LoggedIn)) or (FindDead)
If Not LoggedIn or FindDead then
Begin
NextPlayer(False);
Writeln('Thanx PVH for all the help!!!!!!!!!')
end;
Until(False);
End.
YoHoJo Is My Daddy
We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
WT-Fakawi
um belgin? Do you see something wrong in the edited script you posted?
EDIT: Nevermind, you fixed.
EDIT EDIT: And for the script, when finding the obj, either keep it or use TPA's(TPA better), and up the tolerance to about 15-18. Not 1...
And use better standards.
Please, I need money, and you don't lose anything, except get money! Join BUX.TO with http://bux.to/?r=twistedvip50
Erm... see anything wrong with this line? I know it's not yours but -
SCAR Code:procedure CheckEnt;//THANKS TO Hy71195
var
eex, eey, cx, cy : integer;
begin
if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
begin
WriteLn('Ent Found! ~Advoiding~');
DoEmote(4);
wait(12000+Random(1000));
Inc(EntsAvoided);
Entsavoided:=entsavoided+1
SrlRandomsReport;
findEnt(cx,cy,false)
end;
end;
It does "Inc(EntsAvoided);" Then does "Entsavoided:=entsavoided+1" I'm guessing (from sort of knowing hy's scripting) That "Inc(EntsAvoided);" is from Hy and I'm guessing that you didn't know what that meant so you added "entsavoided:=entsavoided+1" based on how none of it is capitalized and seems kinda nubish. Just so you know, they both do the same thing. Inc(EntsAvoided); adds one to the Variable "EntsAvoided" while the other one also does that. So basically you make it say it has dodged 2 ents each time it finds one.
EDIT:::
One more thing - Belgin, Why did you bump this? It was like 3 months old when you replied.
Originally Posted by Napolean
Originally Posted by Unknown
ure script isnt very good... all it does is examine trees...
sorry lol, i didnt realise, i just saw it near the top of the script page![]()
YoHoJo Is My Daddy
We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
WT-Fakawi
There are currently 1 users browsing this thread. (0 members and 1 guests)