SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>

Lol thanks for posts and lol all nos :P

Umm my account was stolen from a SRL Memeber, I got proof! BAN HIM
steth1010 - SRL Member Application Form
steth1010

What is the meaning to life?


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


Programming Knowledge
PHP, Delphi(a bit)

Other Communitys


How Long have You Played Runescape
2-3 years

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

Umm i am kinda new to SRL but i've been scripting for a long time. I had plenty of awesome working scripts until i reformated my computer thats when SRL came out. I am getting the hang of SRL and I go on this website and try to help as many people and fix scripts and make scripts as much as possible. I dont just say i want a script. I see if there is one if not, i make it. I dont just take from SRL i also give by making scripts of my own that i test and if work for more then 2 hrs, I post up.

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

This is my very first script i made into SRL. Havnt used for awhile dunno if works good still

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Dropper
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Watch no tree ent Random Yet

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////

const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)

var
 Clicks, Loads:Integer;


 procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';//Your Name
  Players[0].Pass :='';//Your Password
  Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Integer1 := 2;//Loads For Player
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Integer1 := 2;
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Integer1 := 5;
  Players[2].Active:=True;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Integer1 := 5;
  Players[3].Active:=True;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
 begin
    Writeln('[]========================================[]');
    Writeln('---------------->Willow Proggy<----------------');
    Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + '   ');
    Writeln('[]========================================[]');
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7:  If NoGameTab then
           Result := True;
     8:  If InBlack then
            Result := True;
     9: If FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

procedure Chop;
 begin
  writeln('Found Willow Color, Now chopping');
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(1000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  FastRandoms;
  findtalk;
  findnormalrandoms;
end;

Procedure Ban;
 Begin
  MakeCompass('E');
  wait(500+Random(200));
  MakeCompass('S');
  wait(500+Random(200));
  MakeCompass('N');
  AntiBan;
  findtalk;
  findnormalrandoms;
  FindFastRandoms;
  If (FindFight) then
 begin
   RunawayDirection('w');
   Wait(3000+random(750));
   RunBack;
  end;
end;

procedure Chop2;
 begin
 repeat
  MakeCompass('N')
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  RotateEvery(4+random(3));
  wait(500+Random(200));
  MakeCompass('N');
  RandomRClickEvery(2+random(3));
  FindBirdsNest;
  EnglishWords;
  Ban;
  AntiBan;
  Clicks:=Clicks+1;
 until(InvFull);
end;

procedure Drop;
 begin
 if(InvFull)then
  DropTo(2,28);
  Loads:=Loads+1;
end;

procedure Login;
 begin
  loginplayer;
end;

procedure Angle;
 begin
  HighestAngle;
  MakeCompass('N');
end;

procedure LogsOut;
 begin
  If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
 begin
  Logout;
end;
end;

procedure Report;
 begin
   SRLRandomsReport;
end;

begin
  SetupSRL;
 repeat
  DeclarePlayers;
  Login;
  Angle;
  Chop;
  Ban;
  Chop2;
  Drop;
  ProgressReport;
  Report;
  LogsOut;
 until(false);
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Overall its just way too simple.

This is repetative and could be done better.

  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(1000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  FastRandoms;

It doesnt even check for tree text.
I might hover over something else green and keep clicking it.

 DropTo(2,28);

That drops everything in inventory.
What if user has extra axes?
Money/Gems from randoms?
That will drop it =(

Its a good start and all, but very basic.
It doesnt even handle multiple players.

Keep trying Good Luck.


Might i suggest use a DTM for your drop log procedure?
Hers a link to my tutorial
http://www.srl-forums.com/forum/showthread.php?t=663&highlight=yohojo

what yoho said. It's just to simple. I think that if you familiarize yourself with all the SRL procedure you can make a great script. But no for now.

It is a great start. A little more learning and you will make it. It is too simple right now though because all it is is find color. You should add some failsefes and more complex procedures. It is still a really good start and you will be a member soon enough if you keep up the work.

Ya lol first script in a long time. If you read well, next script is Nature Rune Crafter :D From Zanaris and I know that is a simple script as if you read said first SRL for a beginner thing. I Have plenty more made ones that was just my first SRL Power Chopper

Geez take it easy :D

EDIT: Thanks for all the suggestions, taking note and hope to be able to make better so you approve of that script

I agree with YoHoJo

I edited the script made better like you guys said, wanna see it? Just askk ill post

EDIT: I also got my account back and i know who did it. His username is sjdjdjdjdjdj if he is a SRL Member he should be banned for not helping ppl but stealing from them!