SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Ilikepie1995 - SRL Member Application Form
Ilikepie1995

What is the meaning to life?
You live to be happy, to learn and have kids and to make more people by that way.


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


Programming Knowledge
I know a bit of Java.

Other Communitys
Sythe.org,moparscape.org/smf.

How Long have You Played Runescape
3 Years.

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

I love learning those programming languages like java or scar coding. I sometimes look at other people's scripts and i learn from that alot. I had made about 4-6 scripts already all work properly i uptade them too. I made those 4-6 scripts in only 3 days.

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

My PieChestThiever.

program PieChestThiever;
{.include SRL/SRL.scar}
//Instructions.
//Start at the ardougne house close to the ardougne centre.
//The house is the south one.
//I dont recomend wearing anything on you
const
ChestColor = 4808832;//Just leave this alone, its the chest's color it works grat for me.
TimesToTake = 1000;//How many times you want to steal from the chest?

Procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

    //Set all user names, passwords and nicks correctly please.

  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser';
  Players[0].Active := True;
  
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 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: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

Procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;


Procedure FindGas;
begin
if FindColor(x,y,2573640,333,671,344,681)then
WriteLn('Omfg we found gas!');
Wait(1000);
Mouse(701,79,4,4,true);
WriteLn('Omfg we coulda die but i think we got away');
end;

Procedure LetsDebug;
begin
ClearDebug;
WriteLn('Thank you for using PieThiever');
WriteLn('This is Version 0.1');
WriteLn('Running Time:' + (TimeRunning) + '');
end;

Procedure FindChestAndSearchForTraps;
begin
if FindColor(x,y,ChestColor,0,0,500,500)then
Wait(1000);
  MMouse(x,y,2,2);
  Wait(1000);
  if(IsUpText('est'))then
  Mouse(x,y,3,3,false);
  Wait(1000);
  ChooseOption(x,y,'aps');
  Wait(4000);
  end;

begin
SetupSRL;
DeclarePlayers;
repeat
FindChestAndSearchForTraps;
FindGas;
FindRandoms;
until(TimesToTake)
end.

My PieShafter.

program PieShafter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
//Start at a place with some trees.
//Axe 1st inv.Spot.
//Knife 2nd inv.Spot.
//Nothing at 3rd inv.Spot.
//Some shafts (15+) at 4th inv.Spot.

const
LogsToCut = 1;//Number of logs you want to be made into shafts.
TreeColor = 4425848;//The tree color, no need to change, only change if doesnt find tree AT ALL.

Procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of PLAYERS.Active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

    //Set all user names, passwords and nicks correctly please.

  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser';
  Players[0].Active := True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

Procedure LetsDebug;
begin
ClearDebug;
WriteLn('Thank you for using PieShafter.');
WriteLn('This is version 0.2!');
WriteLn('Running Time: ' + (TimeRunning) + '');
WriteLn('Have fun!');
end;

Function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 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: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

Procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

Procedure FindTreeAndCut;
begin
if FindColor(x,y,TreeColor,0,0,500,500)then
Wait(1000);
MMouse(x,y,2,2);
Wait(1000);
if(IsUpText('ree'))then
Mouse(x,y,3,3,false);
Wait(1000);
ChooseOption(x,y,'hop');
Wait(5000);
end;

Procedure MakeShafts;
begin
Mouse(667,228,3,3,true);
Wait(1000);
Mouse(626,229,3,3,true);
Wait(1000);
MMouse(81,407,3,3);
Wait(1000);
if(IsUpText('ake'))then
Mouse(81,407,3,3,true);
Wait(3000)
end;

begin
SetupSRL;
DeclarePlayers;
repeat
FindTreeAndCut;
FindRandoms;
MakeShafts;
LetsDebug;
until(LogsToCut)
end.

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

I think they are a little too simple. Your not using SRL's full capabilities. Show failsafes,maybe a long script. Without the premade randoms the script would probably be around 70-100 lines long. Script length isnt important though, its about whats in it and their isnt much in yours. Your also not using Multiplayer, without that jagex would ban all your accounts. For now I will vote No.

Learn some more srl and re apple later on.

Yep to simple, you need failsafes and a longer script. No.

Scripts are way too simple.
They only support 1 player.
Need Antibban
Failsafes
Learn Standards
Make it work with more palyers.
if FindColor(x,y,2573640,333,671,344,681)then ( Gas isn't always the same color)

Overall, you still have tons to learn.
Its a good basic start and these scripts can grow.
I say learn more things like DTMs Bitmaps and better finding techniques and then try again.
Remember you must wait one month before applying again.
If you need any help, look though the tutorial island section or post something in the scripting help section.

Good Luck Next Time