SRL Archive - Archive

martijntjuh - SRL Member Application Form
martijntjuh

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
i wanna go learn Delphi or C

Other Communitys
Sythe.org

How Long have You Played Runescape
2 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

As you know i'm martijntjuh
I love making scar scripts:D
I made a willow chopper an oak chopper and a normal tree chopper
they worked very very good i dont know if they still do i only use yew choppers now lol.
i was member on Moparisthebest but i got banned because some one posted starblasters ess miner
and i downloaded it…
i never used it again i gonna buy it from him soon though.
on Mopar i got 1 Rep because of my willow cutter the only thing i posted there
I learned scar scripting in like 1 week.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

here is it the willow cutter it's realy good it helped me realy good i needed logs for my main to train firemaking
so here we go:


Martijntjuh proudly presents Martijntjuhs Willow Cutter 2.5!

//////MARTIJNTJUHS first script!!!!/////
//////its an willow cutter banker.../////
//////very special thanx to Cheeshunk and whiteshadow!!!!!!/////
/////////star logged out otherwise the scrip does'nt work//////
///importenst thing!!!!!have fun!!!with doing nothing!!!////
///send errors to [email]marta_sparta_martin_air@hotmail.com[/email]////

{.include srl\srl.scar}
{.include srl\srl\skill\woodcutting.scar}
{.include SRL/SRL/Extended/xMapWalk.scar}

const
BankSymCol= 4641504;//color of banksymbol
willowcolor= 4886656;//color of willow
LoadstoDo=10;//how many loads to do before switching player.

var
   Loads, Willows, Exp : Integer;

Procedure DeclarePlayers;
begin
HowManyPlayers :=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

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

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Skill:='woodcutting';
Players[1].Active:=True;
end;

procedure FindWcRandoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
FindWcRandoms;
if not loggedin then RandomNextPlayer(true);
end;

procedure FFight;
begin
  if (FindFight) then
  begin
    Writeln('Found Fight');
    RunAwayDirection('N');
    Writeln('running away!');
    Wait(8000 + random(3000));
    RunBack;
  end;
  FindEnt(2633768);
  FindHead;
end;

procedure towillows;
begin;
mouse(590,60,1,2,true)
FFlag(20);
mouse(581,58,1,2,true);
FFlag(60);
wait(8000)
end;

procedure cutwillows;
var x,y,prevcount,a:integer;
begin
prevcount:=invcount;
if FindObj(X,y,'hop ',willowcolor,10) then
begin
if not(FindEnt(willowcolor))then
Mouse(x,y,10,5,true);
FFight;
a:=0;
repeat
wait(3500);
FindEnt(willowcolor)
FFight;
a:=a+1;
if a=3 then break;
until(invcount>prevcount)
if(invfull=true)then
Loads := Loads + 1;
if(invfull=true)then
Willows := Willows + 27;
if(invfull=true)then
Exp := Exp + 1890;
end;
end;

procedure tobank;
begin
SetRun(true);
mouse(707,114,1,2,true)
FFlag(60);
wait(8000)
mouse(683,110,1,2,true)
FFlag(20);
if(findcolorspiral(x,y,BankSymCol,566,20,752,166))Then
wait(500+random(200));
clickmouse(x,y,true)
FFlag(20);
end;

procedure bankit;
begin
repeat
OpenBank;
until(BankScreen)
wait(700+random(600))
Deposit(2,28,2);
end;

procedure ProgressReport;
begin
writeln('\\heey thanks for using my Willow Cutter With Banker//');
writeln('\\                                                  //');
writeln('\\We have Chopped ' + IntToStr(Loads) + ' Loads Yay //');
writeln('\\                                                  //');
writeln('\\We Chop Around the' + IntToStr(Willows) + 'Willows//');
writeln('\\                                                  //');
writeln('\\we Gain Around the' + IntToStr(Exp) + ' Willows    //');
end;

procedure banktrip;
begin
SetRun(true)
PerfectNorth;
tobank;
bankit;
towillows;
ProgressReport;
end;

begin
Setupsrl;
declareplayers;
LoginPlayer;
NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
FindAxeHeadColor;
SetRun(true);
PerfectNorth;
towillows;
repeat
FindNormalRandoms;
FFight;
RotateEvery(1)
RandomChatEvery(1)
RandomRClickEvery(2)
cutwillows;
if(invFull)then banktrip;
if(LoadsToDo=Loads)then
NextPlayer(true);
until (false)
end.

that's it i hope you like it :f: :D

——————————————————

I'm going to say no for the folowing 2 reasons;
1) Only 6 posts
2) The script isn't very good, i mean you are using corrds to go to the bank when you could just use a SRL procedure liek FindSymbol(Rx, Ry, 'Bank')

sorry,
-Arr0w