SRL Archive - RS3 Outdated / Broken Scripts

PieChoper!!


Ilikepie1995

2007-06-29 12:17:00

PieChoper

Current Version Is = 0.2.

What script does is cuts a full inventory of logs then drops them.
Post bugs here, and if you can help fixing them add me on msn [email]i_like_pie1995@hotmail.com[/email].

PieChoper 0.1
FEATURES.
- Anti-Randoms
- Cuts And Drops Logs
- Ent Finding
BUGS.
- Script Does Not Find Axe Head - Need Help With This.
- Script Has Bad Report - Fixed In Version 0.2.
- Script Sometimes Does Not Find Ent - Need Help With This.
- Script Hasnt Got Good Anti-Ban - Need Help With This.
- Bad Standards - Fixed In Version 0.2.

PieChoper 0.2
FEATURES.
- Anti-Randoms
- Cuts And Drops Logs
- Good Report
- Ent Finding
- Good Standards
BUGS.
- Script Does Not Find Axe Head - Need Help With This.
- Script Sometimes Does Not Find Ent - Need Help With This.
- Script Hasnt Got Good Anti-Ban - Need Help With This.

Harry

2007-06-29 12:18:27

STANDARDS PLEASE!

Btw, I don't think he is making all these scripts he is releasing.. [email]vit1995@hotmail.com[/email] doesn't look like his real MSN..

LordGregGreg

2007-06-29 12:25:34

you missed a semi colion after wait.
and another aftewr login player

program PieTreeChoper;

{.include SRL/SRL.scar}
//Stand near some trees.
//Have your axe first inventory spot.
//Sorry but script does not pick up axe head
//If you can help me with that add me on msn
//vit1995@hotmail.com
const
TreeColor = 2252880;//The tree color.
TreeName = 'ree';//3 letters of the tree's name.
Times = 1; //How many times you want to cut and drop logs?
RunAwayDir = 'S';//The direction to run away incase of a fight;
var
Times1: integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := ''; //Fill in your username
Players[0].Pass := ''; //Fill in your password
Players[0].Nick := ''; //2-3 letters of your username
Players[0].Active := True; //Set true if you want to use this player

NickNameBmp := CreateBitMapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000 + random(2000));
RunBack;
end;

procedure Randoms;
begin
FindTalk;
wait(10);
FindNormalRandoms;
if (FindFight) then
RunAway;
end;

procedure QuickRands;
begin
CloseWindow;
Wait(10);
FindTalk;
Wait(10);
FindDead;
Wait(10);
FindMime;
Wait(10);
FindMaze;
Wait(10);
FindQuiz;
Wait(10);
FindScapeRune;
Wait(10);
ClickToContinue;
Wait(10);
FindTalk;
Wait(10 + Random(50));
end;

procedure Inventory;
begin
Mouse(649, 185, 2, 2, True);
end;

procedure Report;
begin
ClearDebug;
WriteLn('Pie Choper');
WriteLn('Worked for ' + TimeRunning);
WriteLn('Chopped And Droped' + IntToStr(Times) + ' Loads');
end;

procedure CutTree;
begin
repeat
if FindColor(x, y, TreeColor, 0, 0, 450, 450) then
MMouse(x, y, 3, 3);
Wait(1000 + random(200));
until (IsUpText(TreeName));
if (IsUpText(TreeName)) then
Mouse(x, y, 5, 5, False);
Wait(500 + random(1000));
ChooseOption(x, y, 'own');
Wait(5000 + random(2000));
end;

procedure WieldAxe;
begin
Mouse(585, 223, 2, 2, True);
end;

procedure Drop;
begin
DropAll;
end;

procedure AntiBan;
begin
Mouse(585, 188, 3, 3, True);
Wait(600 + random(400));
MMouse(716, 373, 4, 4);
Wait(3000 + random(2000));
Inventory;
TypeSend('lalalalalla');
Wait(1000 + random(500));
TypeSend('wc...');
end;

begin
SetupSRL;
DeclarePlayers;
if not LoggedIn then
LoginPlayer;
Inventory;
WieldAxe;
repeat
CutTree;
Randoms;
CutTree;
QuickRands;
CutTree;
AntiBan;
Drop;
until (Times = Times1);
if (Times = Times1) then
Report;
Exit;
TerminateScript;
end.

Harry

2007-06-29 12:29:40

Does anyone think he is not making these scripts, just leeching them from another site???

LordGregGreg

2007-06-29 12:31:23

i realy dont care until he tries to apply for membership with them. He did miss a semi colon on the same place now…

Harry

2007-06-29 12:40:19

Yeah, he's just putting them up, even though he leeched em..

Ilikepie1995

2007-06-29 13:42:13

I did not leech them i make them my self u retard.And iam gonna add standarts i just gotta learn bout them.

I do not leech scripts i like scripting and learning it.Iam making them my self.
[email]vit-1995@hotmail.com[/email] is my MSN i use to talk to my friends, iam goin to make another hotmail account.

Harry

2007-06-29 13:47:51

It just looks that way because I ahve seen the same stuff in other scripts.

Ilikepie1995

2007-06-29 13:52:43

Yah ok prove it?What in my script i use Mouse and in other scripts people use it too?lmfao, show me at least 1 code that looks just like mine and tell me the name of the script u took it from

LordGregGreg

2007-06-29 13:59:10

Pie, please, you should watch your atitude. There realy is no reason to get upset. Everyone is entitled to their opinion.
I think we still are iniocent till guilty, so relax, and foruc more on coding (standards :P lol) and youll be fine