ok dont dis me just cause i cant script for shat
as the title says its a VERY VERY simple woodcutter
if any1 has any probs with it plz tell me
im open to any tips anyone has for me
EDIT: ok i uploaded the updated script, when i hav more time ill add some other stuff to it like a progress report and some anti-ban stuff, ill probably hav to wait till the weekend to do that though
EDIT: ive updated it a fare bit this afternoon to v1.2
just tested v1.2, lol it needs major tweaking so im takin it off until i get it right
i was bored at skewl so i downloaded my script and went to work on it and added quite a bit, though im gonna add some more when i can, like anti-randoms, anti-bans, failsafes and such before i upload the file
oh yeh, if any1 finds a prob wid it plz tell me cause i cant see if it works at skewl since i need to be logged in as an adminastrator to install scar 
SCAR Code:
program FirstScript;
{.include SRL/SRL.scar}
var
i,x,y:Integer;
Loads = Integer;
Dropped = Integer;
Prog = Integer;
const
TreeColor = put-color-here;//the first color of the tree
TreeColor2 = put-2nd-color-here;//the 2nd color of the tree
LoadMax = 10;//put the number of loads u wanna do in here
procedure CutTree; //Cuts the Trees, obviously
begin
i:= 0;
repeat
i:=i + 1;
if(FindColor(x,y,TreeColor,0,0,700,700)) or
(FindColor(x,y,TreeColor2,0,0,700,700)) and
IsTextUp('Cut') then
begin
Wait(1000 +random(500))
Mouse(x, y, 3, 3, True);
Wait(5000 +random(500));
end;
if not(FindColor(x,y,TreeColor,0,0,700,700)) or
(FindColor(x,y,TreeColor,0,0,700,700)) then
Wait(700);
until(InvFull);
end;
procedure Drop; //Drops logs when inventory is full
begin
DropAll;
Loads:=Loads+1;
Dropped:=Dropped+28;
end;
procedure Sig;
clearDebug;
Writeln('/-----\ |---\ ----- |\ /| \ / ');
Writeln('| | | | | | \ / | \ / ');
Writeln('| |---/ | | \/ | \ / ');
Writeln('| -\ | \ | | | | ');
Writeln('| | | \ | | | | ');
Writeln('\-----/ | \ ----- | | | ');
Writeln('Grimy89098s PowerCutter');
Writeln('Enjoy! and please post ur proggies on my thread! :]');
procedure Proggy;
Writeln('Proggy ' +IntToStr(prog));
Writeln('/------------');
Writeln('|Did ' +IntToStr(Loads) + 'Loads');
Writeln('|Dropped ' +IntToStr(Dropped) + 'Logs');
Writeln('\------------');
begin
SetupSRl;
Sig;
repeat
CutTree;
Drop;
prog:=prog+1;
Proggy;
until(Loads:=LoadsMax);
end.