Scaper
2007-11-04 18:30:36
======================================================================================================
+~+ SCAR 3.12~DIVI,SRL4 +~+
======================================================================================================
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{How to use: setup right below, that explains most of it please rember its my 1st script ever,
note that this Basicautocuter won't work most area surronded by lots of trees i prefer to chop willows that are bulked together
+~+~+~+~+~+~+~+~+~drops every 27 ore normaly! [WATCH TO LOADS]!!+~+~+~+~+~+~+~+~+
You can have Axe equipped/unequiped as it auto clicks jus have the right wcin lvl for the axe,don't wear any valuable items!!
follow guied lines click play and enjoy remember to post progs bugs and anything else related
I TAKE NO RESPONSIBILTY IF U GET BANNED USE AT YOUR OWN RISK NO ANTI/BAN/RANDOM AT PRESENT.
IF U WANT TO FLAME ME ON ANYTHING PLZ REMBER THIS IS MY 1ST SCRIPT AND OPEN TO SUGGESTIONS ALL WILL BE CREDITED WHEN IM COMFORTABLE ABOUT IT
I STRONGLY ADVISE TO AUTO PROBLY I MEEN WITH: CHAR CB LVL ABOVE 10 NOT DEFAULT CLOTHES:}
Program myfirsteverscript;
Const
startupwait = 9000;//how long before script starts after compiling
treecolor1 = 5933691;// set 3 tree colors ~CTRL+ALT+P
treecolor2 = 2192739;// set 3 tree colors ~CTRL+ALT+P
treecolor3 = 3768947;// set 3 tree colors ~CTRL+ALT+P =colorpicker for those of u who dont no.
choppinginterval = 9000;// time before chopping each log
drop = true; // do you wanna drop? if false set logs to chop to 28
logstochop = 27;//how many Logs to cut,//Watch the first 1or2 loads before changing this//
{.include SRL/SRL.scar}
Function FindFastRandoms: Boolean;// credits to Wt-Fakawi
var
i: Integer;
begin
for i:=0 to 9 do
begin
case I of
0: If FindTalk then
begin
FindNormalRandoms;
end;
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
9: RC;
end;
FindFight;
FindFightEx;
end;
end;
Procedure NoRandoms;
begin
FindTalk;
FindNormalRandoms;
FindFastRandoms;
SolvePinball;
if (FindFight = true) then
begin
RunAwayDirection('n');
wait(10000+Random(5000));
RunBack;
end;
end;
Procedure _1stbasicautocutter_;
var
i, x, y: integer;
Begin
cleardebug;
writeln('1st basic autocutter will begin soon,post comments bugs and ')
writeln('All comments on the site were u got this')
writeln('_1st basic autocutter_ has no futer updates as yet. Procced to site for futer updates')
writeln('thanx for tresting and posting proggies')
wait(startupwait+random(1000))
Repeat
NoRandoms;
i:= i + 1
if (drop = true) then
Dropall;
Cleardebug;
//======================================================== //
writeln('~+~You sucessfully chopped~+~= ' + inttostr(i))
writeln('~+~You sucessfully dropped~+~= ' + inttostr(i))
writeln('Hopefully this script has been working for ' + timerunning)
//==========================================================//
If (FindColor(x, y, treecolor1, 0, 0, 517, 337)) or
(FindColor(x, y, treecolor2, 0, 0, 517, 337)) and
(FindColor(x, y, treecolor3, 0, 0, 517, 337))then
mmouse(x,y,2,2)
mouse(x,y,1,1,true)
wait(choppinginterval+random(15000))
Until i = logstochop
Writeln('script has worked for ' + timerunning)
Writeln('logs chopped ' + inttostr(i))
Writeln('logs dropped ' +inttostr(i))
End;
Begin
setupsrl
_1stbasicautocutter_
End.