View Full Version : My First Power Chopper
destroyface
07-19-2007, 09:34 PM
Ya as the title says this is my first script so please comment on how to make it better. I know I know i need a anti-random part and anti-ban features...lol those will be in v2 of MegaChopShop lol...chops any tree you put the color for curenttly im working on a auto dropper for oak..chris__lowe_5@hotmail.com is my email
credit to me and whocares357 for his tutorial
destroyface
07-20-2007, 03:50 AM
ok done all those here is my beta version tell me if it works
////////////////////////MEGA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////CHOP SHOP V1.1\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////BY Destroyface\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////Release Date of V1.5 beta test 07/31/07\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////Release Date of V2.0 08/10/07\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//V2 to include Draynor banker, got it now auto log,anti random and anti ban\\\\\\\
{Instructions
1. log in and place yourself near the tree to cut
2. drag crosshair over Runescape client
3. press play }
//CREDIT TIME
//JAD for his tutorial
//WhoCare357 for his tutorial
//me for some of the scripting
//and the ppl at srl for there ultimate help
program PowerCutter;
{.include SRL\SRL.scar}
{.include SRL/SRL/misc/PlayerForm.scar}
const
Treecolor = 4425848;
Treecolor2 = 4624512;
var
Clicks: Integer;
Loads: Integer;
Procedure SetUp;
begin
SetupSRL;
SetUpPlayers;
LoginPlayer;
end;
//My sig if erased from script i will take action as the lvl 3 megasickmaniman
procedure Signature;
begin
ClearDebug;
writeln(' Destroyfaces oak chopper by Destroyface');
writeln(' |------\ ');
writeln(' | |--| \ ');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | | | |');
writeln(' | |__| /');
writeln(' |______/ ');
wait(3000 + random(750));
end;
//My proggy thing thanks to JAD
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Wood Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads=27' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('to find out ur logs(loads x 27 ) ok ');
Writeln('[]========================================[]');
end;
//fixed it with help from JAD's tut
procedure FindCut;
begin
repeat
if(FindColor(x,y,TreeColor,0,0,700,700))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;
//yet again thanks to jad's tut
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;
//thanks to my friend Dylan
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
// my loop dont touch or wont work....maybe
begin
Signature;
wait(2000)
SetUp;
repeat
if(not(LoggedIn))then
Exit;
FindCut;
drop;
until(false)
end.
passiondrive
07-20-2007, 02:33 PM
Try using FindObj rather than FindColor as it is more undetectable (in your cutting procedure)
destroyface
07-20-2007, 10:22 PM
ok thanks for the opinion and i will try that
picklemansus
09-12-2007, 11:35 AM
Do I backspace the Username 0 and put my user???
and what do i put for skill
Im pritty sure im doing it wrong beccause he dosnt move
Ok here is what it says
Username 0
Password 0
Nick 0
Location 0 (of your charecter or the wood???????)
Skill 0 (What skill woodcutting)
Then I erase all of that and put
Picklemansus
7787884
sus
The location of the wood im standing next to
Woodcutting
Please help me
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.