hey everyone. yeah i know i ask alot of questions but i am learning alot. so here is another one for you guys. ok right now my power cutter uses colors. wich is fine but...it clicks on every tree not the one you want. so can someone tell me how i use the isuptext command so that when it finds the color it checks if it is a oak or whatever other tree?
thanks alot here is my script.
SCAR Code:{.Script Info:
# ScriptName = TREEKILLER V1.4
# Author = havoc928
# Description = Chops trees until full inventory then drops
# Version = v1.4
# Date =
# Comments = Start anywhere where there are trees, with an axe weilded
# Autocolor = no
# Release Comments
// version 1.0 = very simple woodcutter\\
// version 1.1 = added autotalker worked-removed\\
// version 1.2 = added antirandoms untested-removed\\
// version 1.3 = added anti ban working on-removed\\
// version 1.4 = added log droping\\
// version 1.5 = added anti-randoms\\
// version 1.6 = added simple auto respond\\
program simplewc;
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
var
c: integer;
var
d: integer;
var
e: integer;
// THE SETUP\\
const tree=5402997; // SET THE TREE COLOR\\// YOU MAY NOT HAVE TO\\
const tree2=5402997; // SET TREE COLOR AGAIN - BAD FAILSAFE\\
const tol=5; // SET THE COLOR FINDING TOLERANCE\\// 5-10 IS GOOD\\
const waiting=5000; // SET TIME TO WAIT BEFORE NEXT CLICK. 1000MS = 1SEC
const offset=5000; // SET THE RANDOM TIME OFFEST FOR CLICKS - RANDOMNESS
// END SETUP\\
procedure treekiller;
begin
if (findcolortolerance(x,y,tree,3,3,861, 376,tol))then
begin
if (findcolortolerance(x,y,tree2,3,3,861, 376,tol))then
writeln('FOUND COLOR');
end;
// DO NOT TOUCH BELOW\\
mouse(x,y,0,0,true)
c:=c+1;
wait(waiting+random(offset))
end;
procedure respond;
begin
if (InChat('bot'))Then
TypeSend('im not a bot');
if (InChat('macro'))Then
TypeSend('im not a bot');
end;
procedure PrintProgressReport;
begin
WriteLn('havoc928 TREEKILLER');
WriteLn('Cut ' + inttostr(c) + ' Logs.');
WriteLn('Dropped ' + inttostr(d) + ' Loads.');
WriteLn('Checked for ' + inttostr(e) + ' Randoms.');
end;
procedure credits;
begin
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\')
writeln(' VERSION 1.4 ')
writeln('CREDIT GOES TO ME HAVOC928 ...FEEL FREE TO DISTRIBUTE')
writeln('I THANK KIKWIT, Pancakes, AND n3ss3s FOR ALL THE HELP')
writeln('SRL FORUMS OWNS ALL THE OTHERS!!!')
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\')
end;
procedure drop;
begin
typesend('WOOT WOOT FINALLY A FULL LOAD')
writeln('DROPING LOGS')
Dropto(2,28)
d:=d+1
end;
procedure randoms;
begin
findnormalrandoms;
e:=e+1;
end;
begin
setupsrl;
DisguiseScar('iTunes');
credits;
activateclient;
repeat
repeat
respond;
treekiller;
wait(100)
randoms;
wait(100)
printprogressreport;
until(InvCount = 28);
drop;
until(false)
end.


Reply With Quote




