PDA

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