PDA

View Full Version : my powa chopper



apg1992
06-12-2007, 12:36 PM
{_________ ___________ ___________
| \ | _____ \ / ______ \
| \ | | \ \ / / | \
| \ | | | | | | | |
| |\ \ | | | | | | | |
| | \ \ | |___/ / \ \_______| |
| | \ \ | ____/ \_________ |
| _____ \ | | | |
| ______ \ | | | |
| | \ \ | | / |
_|_____|______\____\_|______|_______________/ /
| / 1992's tree
|_______________________________________________/ power chopper
--------------------------------------------------------------------------------------------
_______
|_______|
| | __ _______ ___
| | | \ | | ___| / \
| | | \| | |_ | | |
| | | | | _| | | |
__|_|___ | |\ | | | | |
|________||__| \|_| \___/

SET UP ANY WHERE THERE IS WILLOWS AND START MACRO THIS IS MY
FIRST SCRIPT AND I AM VERY SATASFIED WITH IT I HOPE U WILL BE TO

SET UP USERNAME INFO IN LINES 65-83
__________________________________________________ __________________________________________}


{.Script Info:
# ScriptName = apgs tree master
# Author = apg1992
# Description = simple woodcutter
# Version = 1.0
# Date = 4/20/2007
# Comments = my first script
/Script Info}

{program apg1992 willow master;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/woodcutting.Scar}
var
loads: integer;
i: integer;
logschopped: integer;

//////////////SetUp-SetUp-SetUp/////////////////////////////////
const //
TreeColor = 396042;//the tree color //
HowManyLoads = 2500000000000000; //how many loads you wnat to do//
Cutlevl = 5000; //the time in millisec for you to cut tree //
Axes = 0; //how many axes you have make sure there unequiped //
NOban = 12; //how much anti ban you want the less is better 10-17 //
////////////////////////////////////////////////////////////////


Procedure DeclarePlayers;
begin

HowManyPlayers := 4;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;

Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := true;

Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := true;

Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := true;
end;

procedure antirandoms;
begin
if(NoGameTab= true)then
Exit;
FindNormalRandoms;
if(FindCerter = True)then
StupidSolveCerter;
Solvepinball;
end;

procedure FindTreeAndCut;
begin
if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2 ,msy2,5))then
MMouse(x,y,0,0);
if(FindEnt(treecolor))then
Wait(10000);
Wait(10);
if (IsUpText('hop'))or
(IsUpText('h op')) or
(IsUpText('ho p')) then
Mouse(x,y,0,0,true);
FindNormalRandoms;

Wait(cutlevl+(300));
end;

procedure Report;
begin
Writeln('[]I love runescape[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('choped '+ IntToStr(logschopped) + ' Logs');
Writeln('droped '+ IntToStr(loads)+'loads');
Writeln('[]baker 4 life[]');
end;

begin
SetupSRL;
DeclarePlayers;
repeat
if(not(loggedin))then
begin
Loginplayer;
Fixchat;
SetRun(true);
end;
case Random(Noban) of
1: PickUpMouse;
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('woodcutting', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
9: BoredHuman;
8:Almostlogout;
end;
HighestAngle;
MakeCompass('N');
AntiRandoms
FindTreeAndCut;
LogsChopped:= LogsChopped + 1;
Antirandoms;
Cleardebug;
if(Invfull)then
begin
i:=i+1;
loads:=loads+1;
report;
FindNormalRandoms;
Dropto(axes,28)
end;
if(i>=howmanyloads)then
Nextplayer(true);
I:=0;
until(false);
end.

:f: plz dont copy my script thx ;)

kemico2
06-14-2007, 09:23 AM
Some of the waits in your script dont have random wait times added to them so this can almost be an automatic ban.
You need to change this
procedure FindTreeAndCut;
begin
if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2 ,msy2,5))then
MMouse(x,y,0,0);
if(FindEnt(treecolor))then
Wait(10000);
Wait(10);
if (IsUpText('hop'))or
(IsUpText('h op')) or
(IsUpText('ho p')) then
Mouse(x,y,0,0,true);
FindNormalRandoms;

Wait(cutlevl+(300));
end;
to this
procedure FindTreeAndCut;
begin
if(FindColortolerance(x,y,treecolor,msx1,msy1,msx2 ,msy2,5))then
MMouse(x,y,2,2);
if(FindEnt(treecolor))then
Wait(10000+random(3000));
Wait(10+random(5);
if (IsUpText('hop'))or
(IsUpText('h op')) or
(IsUpText('ho p')) then
Mouse(x,y,2,2,true);
FindNormalRandoms;
Wait(cutlevl+random(300));
end;
Its a great fist script though alot like mine except mine was a power miner.