SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
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
Sythe

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.

I made alot of scripts for runescape way before SRL came out. I then formated my comptuer and lost all my scripts. I just got back into scripting and now made a script of SRL. I am very good at scripts and make very difficult scripts.. Well used to but now just getting the hang of SRL so look at my first script.. Not done yet

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

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 –>

You need to wait a mont hbefore re-applying. You have waited like 10 minutes. We have this rule so you will have tiem to improve and there won't be a huge backup of appliances. What did you really change anyways?

umm lol i lost the post and i accidently put my username and pw in last post and now my account got hacked :( please help

Oh yikes. You should have edited your post really quickly. There is an edit option on the bottom left of your post. Is that why you made this new app or what?

Sorry we cant help with that.
For now, we will make you FIRST app the teal one