Jump to content
Amberleaf

OSRS07 - Wood Cutter v0.1

Recommended Posts

OSRS07 - Wood Cutter & fletcher v0.5

 

Cuts normal trees & makes them into either arrow shafts, short bows or long bows anywhere, equip a hatchet of choice and have a fletching knife in your bag (as shown below) & start the script in an area that's populated with a lot of trees, eg. west of barbarian village at the evergreen trees.

 

Now uses OSI, MSSL & SMART, download or update these includes from the includes manager which can be found by going to File>>Includes manager.

 

knifesetup.jpg

 

From line 71 to 76 you'll find...

 

[sCAR]Mouse(Arrowx, Arrowy, 3, 3, false); //make shafts

//Mouse(Lbowx, Lbowy, 3, 3, false); //make long bows

//Mouse(Sbowx, Sbowy, 3, 3, false); //make short bows

//Mouse(Cbowx, Cbowy, 3, 3, false); //make cross bows

Wait(250);

Mouse(Arrowx, 475, 1, 1, True); //custom ammount 99

//Mouse(Lbowx, 475, 1, 1, True); //custom ammount 99

//Mouse(Sbowx, 475, 1, 1, True); //custom ammount 99

//Mouse(Cbowx, 475, 1, 1, True); //custom ammount 99[/sCAR]

 

Adjust the comment marks // to make the script fletch either arrow shafts, long bows, short bows or cross bows.

 

[sCAR]//OSRS07 - Wood Cutter & fletcher v0.5

//Amberleaf

//Instructions & more scripts can be found at http://www.scar-divi.com

 

{$DEFINE RS07} // V - Bright Settings

{$DEFINE SMART} // Comment out to use normal browser

{$DEFINE OSI_RS07_Color_Anti_Randoms}

 

{$I OSI\OSI.scar}

{$I MSSL\MSSL.scar}

 

const

tree = 2317649;

tree1 = 2910814;

tree2 = 2447955;

tree3 = 3632738;

tree4 = 4094833;

 

//what to make? replace the constants on line 221 and 223 with the x & y of your choice.

Arrowx = 78;

Arrowy = 405;

 

Sbowx = 200;

Sbowy = 405;

 

Lbowx = 327;

Lbowy = 405;

 

Cbowx = 442;

Cbowy = 405;

 

 

procedure DeclarePlayers;

begin

RS07_LogIn('username', 'password');

end;

 

procedure ScriptTerminate;

begin

MSSL_Unsetup;

FreeOSI;

end;

 

procedure SpinCam;

begin

PressVKeyEx(VK_LEFT or VK_RIGHT, 25 + Random(1000));

end;

 

function RCDrop: Integer;

begin

if InvFull(true) then

begin

DropAllExclude([0, 1], True);

end;

end;

 

function GetFletching: Integer;

var x, y: Integer;

begin

if InvFull(true) then

begin

Wait(50);

Mouse(579, 229, 0, 0, True);

Wait(350);

If FindColorTol(x, y, 3568276, 556, 209, 732, 462, 32) then

begin

MMouse(x, y, 0, 0); //mouse over log

Wait(100);

Mouse(x, y, 1, 1, True); //left click

Wait(150);

//Mouse(Arrowx, Arrowy, 3, 3, false); //make shafts

Mouse(Lbowx, Lbowy, 3, 3, false); //make long bows

//Mouse(Sbowx, Sbowy, 3, 3, false); //make short bows

Wait(550);

//Mouse(Arrowx, 475, 1, 1, True); //custom ammount 99

Mouse(Lbowx, 475, 1, 1, True); //custom ammount 99

//Mouse(Sbowx, 475, 1, 1, True); //custom ammount 99

Wait(1250);

TypeText('99');

Wait(1250);

PressVKey(VK_RETURN);

Wait(RandomRange(10000, 12000));

MMouse(258, 173, 40, 40);

Wait(RandomRange(10000, 12000));

MMouse(258, 173, 40, 40);

Wait(RandomRange(10000, 12000));

MMouse(258, 173, 40, 40);

Wait(RandomRange(18000, 23500));

end;

end;

end;

 

procedure GetChopping;

var x, y, x1, y1: Integer;

c: TPoint;

begin

c := BoxCenter(RS07_GameActionBx);

If MSSL_FindColorSpiralTolCS(227, 159, x, y, 5808532, 1, 1, 510, 334, 3, MSSL_ColorSettings(2, 0, 0.11, 1.06)) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found a tree...');

GetMousePos(x1, y1);

MMouse(x, y, 10, 5);

If FindColorTol(x, y, 14474496, 12, 12, 90, 19, 99) then

begin

Mouse(x1, y1, 0, 0, True);

repeat

Wait(50+ Random(100));

GetMousePos(x, y);

Wait(50+ Random(100));

MMouse(x, y, 145, 145);

GetFletching; //disable this if you don't want to fletch the logs

RCDrop; //disable this if you're making arrow shafts or don't want to drop

WaitRR(990, 2999);

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

//search for randoms here would be awesome. WIP

until (FindColorTol(x, y, 14474496, 12, 12, 90, 19, 99) = False);

//MMouse(x + Random(100), y - Random(100), 0, 0);

//Wait(RandomRange(MINWAITTIME, MAXWAITTIME)); // adjust this time for faster/slower switching speed between trees.

FindColorsSpiralTol(227, 159, x, y, [tree, tree1, tree2, tree3, tree4], 1, 1, 510, 334, 14);

end else ;

If FindColorTol(x, y, 14474496, 12, 12, 90, 19, 99) = False then

begin

GetMousePos(x, y);

MMouse(x, y, 45, 90);

Wait(50 + Random(100));

MMouse(x, y, 90, 45);

Wait(50 + Random(100));

MMouse(x, y, 30, 30);

Wait(50 + Random(100));

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

end;

end;

 

 

begin

SetUpOSI;

MSSL_Setup;

DeclarePlayers;

Login;

SetCompassAngleAndHeight(Dir_North, True);

RS07_SetMoveSpeed(1);

repeat

GetChopping;

If Random(30) = 1 then

begin

SpinCam; //remove comment marks to enable random camera spins.

end;

until GetKeyState(VK_F12);

end.

[/sCAR]

 

older versions below.

 

OSRS07 - Wood Cutter v0.3.scar

 

OSRS07 - Wood Cutter v0.2.scar

Edited by Amberleaf
big update, version 0.5
Link to comment
Share on other sites

how do i download SMART? its not under includes manager :/

 

found the problem, it was in the codeing - now i have a new problem

its says

 

type line file message

Compiler Hint 68 Variable 'Result' never used

Compiler Hint 76 Variable 'Result' never used

 

It opens the SMARTv7.2 but wont load anything - any help?

Link to comment
Share on other sites

Those aren't really problems (the message tab lines).. They are just hints that result wasn't used in some functions.

 

Remember, loading the SMART can take a few minutes, so be patient with it.

 

There seems to be some weird login problems though "Unknown login error!", is this the error you get (I get that one)? Maybe login stuff should be replaced with MSSL commands? O_o

Link to comment
Share on other sites

Hey guys,

i just downloaded this and when i tried to compile it i get an error saying 'Include not found: MSSL\MSSL.scar"

i have done the file>includes manager> installed MSSL

i have tried reinstalling the MSSL and it still doesnt work, any clues?

 

Thanks :)

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...