SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
By a thread on moparisthebest.com

Programming Knowledge
HTML, and C++

Other Communitys
Moparisthebest.com, srl-forums

How Long have You Played Runescape
5 Years

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

I've been using SCAR and (to a lesser extent) SRL for quite some time. I've been a Runescape member for a long while, and I played 'legitimately' until I learned about SCAR. I immediately loved it, and used it to some exceptional excess with woodcutting, writing several scripts of my own (though not dealing with woodcutting). After SCAR become less effective, I kind of stopped botting. Eventually, I picked it back up, using some of the SRL free scripts out there. Now, though, I want to get into seriously using SRL, and to do that, I need to be a member. I can contribute in a meaningful manner to the SRL team, and can help in debugging scripts, etc.

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

program RandoMiner;
{.Script Info:
# ScriptName  = RandoMiner
# Author      = Tough to say...?
# Description = Mines And Banks In East Varrock  
# Version     = Alpha V.08
# Date        = 29/04/06
# Comments    = Start anywhere in east varrock bank..
#Commnets     = Wield or have store  in Inventory
/Script Info}

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

{developers version}

var
MT,PrevCount:integer;
Lost_:boolean;

//Color Setup\\

const
RoadCColor  = 5987170;
RockColor = 8421770;//at tin at the moment


//Mining Setup\\
const
Powermine = false; //if you dont want to bank the ores
WieldPick = true; //Recommended


//Ignore This\\
const
VersionNumber = 'Beta V.1 =)';
Improvements = 'Standards, Sorry Everyone =(';
  S1 = 5;
  S2 = 5;
  S3 = 515;
  S4 = 340;
  M1 = 565;
  M2 = 5;
  M3 = 725;
  M4 = 160;
  I1 = 560;
  I2 = 210;
  I3 = 740;
  I4 = 460;
  c1 = 1;
  c2 = 340;
  c3 = 495;
  c4 = 455;


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

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='kos';
     Players[0].Loc  :='Veb';
     Players[0].Skill:='Mining';
     Players[0].Active:=True;
     Players[0].Ore:='Random';
     
     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='kos';
     Players[1].Loc  :='Veb';
     Players[1].Skill:='Varrock';
     Players[1].Active:=True;
     Players[1].Ore:='Random';
     
     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='kos';
     Players[2].Loc  :='Veb';
     Players[2].Skill:='Mining';
     Players[2].Active:=True;
     Players[2].Ore:='Random';
     
     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='kos';
     Players[3].Loc  :='Veb';
     Players[3].Skill:='Mining';
     Players[3].Active:=True;
     Players[3].Ore:='Random';
     
end;

procedure PrinceMouse(A,b:integer);
begin
  Mouse(A,b,10,10,true);
end;

{function GetCurrentTab : integer;
description: returns what tab is open
by: devils elbow}
function GetCurrentTab : Integer;
begin
  if GetColor(559, 180) = 2566003 then
    Result := 1;
  if GetColor(585, 172) = 2434414 then
    Result := 2;
  if GetColor(612, 172) = 2434414 then
    Result := 3;
  if GetColor(630, 175) = 2829182 then
    Result := 4;
  if GetColor(683, 173) = 2434414 then
    Result := 5;
  if GetColor(706, 174) = 2763390 then
    Result := 6;
  if GetColor(731, 177) = 2829182 then
    Result := 7;
  if GetColor(584, 497) = 2434414 then
    Result := 8;
  if GetColor(617, 497) = 2763390 then
    Result := 9;
  if GetColor(631, 492) = 2829182 then
    Result := 10;
  if GetColor(678, 476) = 1908053 then
    Result := 11;
  if GetColor(711, 499) = 2434414 then
    Result := 12;
  if GetColor(731, 495) = 2829182 then
    Result := 13;
end;

procedure SetUp;
var x,y:integer;
begin
WriteLn('|--|  |---| |-     | |---)  |---|  |----|');
WriteLn('|--|  |---| | -    | |-   ) |---|  |  ----|');
WriteLn('|-|   |   | |   -  | |-   ) |---|  |   _--|');
WriteLn('|---| |   | |     -| |---)  |---|  |    _-|');
WriteLn('Random Miner'+VersionNumber);
WriteLn(VersionNumber);
WriteLn('Some problems are  '+improvements);
WriteLn('For Kane');
SetUpSrl;
SetUpSrlMining;
SetUpDemon;
if not LoggedIn then RandomNextPlayer(True)
    begin
      Face('N');
      PerfectNorth;
       if FindSymbol(X,y,'bank') then begin
          WriteLn('Have found bank symbol');
          PrinceMouse(X,y);
      end else
        Writeln('Your not in the bank -.- OR too many peeps are on the symbol =(');
      end;
      begin
        If not GetCurrentTab = 4 then
        GameTab(4);
          begin
          FindPickHeadColor;
        end;
    end;
end;

function ReturnWherePickIs:integer;
begin
if WieldPick = false then  begin
  Result:=2;
end else
Result:=1;
end;


function OreCColor:integer;
begin
  Result:=RockColor;
end;

{---------------^^Not My Proccy^^-----------------------------------}

function ChickenObj(var SSI, Squig: Integer; ObjText: string; ColoringInPencils, Tollipop:Longint):Boolean;
begin
  if(FindObj(SSI, Squig, ObjText, ColoringInPencils, Tollipop))then
    begin
      Result:= True;
      Mouse(SSI, Squig, 5+  Random(5), 5 + Random(5), True);
      Flag;
    end else
  if(FindObj(SSI, Squig, ObjText, ColoringInPencils, tollipop + Random(6)))then
    begin
      Result:= True;
      Mouse(SSI, Squig, 5+Random(5), 5+Random(5), True);
      flag;
    end else
    begin
      begin
      Result:= False;
    end;
  end;
end;



procedure DropOre;
var i:integer;
begin
benmouse:=false;
  if Powermine=true then
  for i:=ReturnWherePickIs to 28 do DropItem(i);
  benmouse:=true;
end;


procedure Progress_;
begin
  WriteLn(' ');
  WriteLn(' ');
  WriteLn(' ');
  WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
  WriteLn('<================= Problems are '+Improvements+':================>');
  writeln('Worked for '+ TimeRunning);
  WriteLn('Banked '+IntToStr(banks)+' loads[s].');
  WriteLn('Mined '+IntToStr(MT)+' Ores.');

  WriteLn('Random Event Report:');
  if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' Time[s].');
  if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
  if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' Time[s].');
  if(doctors>0)then WriteLn('  Solved '+IntToStr(doctors)+' Fords[s].');
  if(frogs>0)then WriteLn('  Solved '+IntToStr(frogs)+' Frog[s].');
  if(Attaches>0)then WriteLn('  Attached '+IntToStr(Attaches)+' Pickaxe[s].');
  if(Demons>0)then WriteLn('  Solved '+IntToStr(Demons)+' Demon[s].');
  if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' Time[s].');
  WriteLn('<=====================================================>');
end;

function FindMMPixelArea(x, y, color: integer): boolean;//Made By XxKanexX  Tweaked by me\\
var
  a, b: integer;
begin
if(findcolortolerance(a, b, color, x-4, y-4, x+4, y+4, 2))then
   result:= true;
   RandomChat;
end;

function RDirection:string;
begin
Case random(7) of
  1 : Result:='N';
  2 : Result:='E';
  3 : Result:='W';
  4 : Result:='NW';
  5 : Result:='NE';
  6 : Result:='SE';
  7 : Result:='SW';
  end;
end;
  

procedure Randoms_;
Var X,y:integer;
begin
CloseWindow;
Wait(1);            // maybe avoid the access violation with Wait(1)....
FindLamp('mining');
Wait(1);
FindDead;
Wait(1);
FindMod;
Wait(1);
FindMime;
Wait(1);
FindMaze;
Wait(1);
FindQuiz;
Wait(1);
FindFrog;
Wait(1);
FindDoctor;
Wait(1);
FindDemon;
Wait(1);
if(FindFight)then RunTo(RDirection,false);
Wait(1);
  GambleNewBox;
Wait(1);
FindPick;
if not(Loggedin) then begin RandomNextPlayer(false);
Wait(1);
if FindGas(X,y) then
RunTo(Rdirection,false);
  end;
end;


procedure MineOre_;
var X,y,Timesll:integer;
begin
Prevcount:=InvCount;
if ChickenObj(X,y,'Mine',OreCcolor,10) then
  begin
  repeat
  wait(500+Random(250));
    Timesll:=Timesll+1;
      if TimesLL+1< 2 then break;
    Until(Prevcount < InvCount)
    MT:=MT+1;
     end;
end;


function KRoadColor(BaseC: integer): integer;//Made By XxKanexX Tweaked By
var                                          //Me
  x, y, bcol: integer;
begin
if(BaseC <= 0)then
   bcol:= 7369081
  else
   bcol:= BaseC;
   if(findcolortolerance(x, y, bcol, 573, 7, 722, 162, 5))then
   if(FindMMPixelArea(x, y, bcol))then
    result:= getcolor(x, y);
if(result = 0)then
  result:= -1;
end;

function IfIAmLostICry:boolean;
var X,y:integer;
begin
if not FindColor(X,y,OreCcolor,S1,S2,S3,S4)then
  Result:=True;
end;

procedure  WalkToSomeMine;
var _,__:integer;
var Lost:boolean;
begin
    RoadWalk(KRoadColor(RoadCColor),'E');
    Flag;
    Randoms_;
    RoadWalk(KRoadColor(RoadCColor),'E');
    Flag;
    Randoms_;
    RoadWalk(KRoadColor(RoadCColor),'SE');
    Flag;
    begin
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'S');
      Flag;
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'S');
      Flag;
        begin
        Randoms_;
        RoadWalk(KRoadColor(RoadCColor),'S');
        Flag;
        Randoms_;
    begin
    if FindSymbol(_,__,'mining spot')then
      begin
       PrinceMouse(_,__);
        Flag;
        Randoms_;
       end else
         Lost:=true;
         Writeln('Im lost');
         Randoms_;
       end;
    end;
  end;
end;

Procedure bank;
begin
if(BankScreen)then
  begin
    Wait(Random(1000)+2000);
    FixBank;
    DepositAll;
    Wait(Random(1000)+2000);
    CloseWindow;
    Banks:=Banks+1;
    end;
end;

Procedure BankForThrills;
var X,y:integer;
begin
if FindSymbol(X,y,'Mining spot') then
  begin
    PrinceMouse(X,y);
    Flag;
      end else
      Lost_:=true;
      begin
      RoadWalk(KRoadColor(RoadCColor),'NE');
      Flag;
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'N');
      Flag;
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'N');
      Flag;
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'NW');
      Flag;
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'E');
      Randoms_;
      RoadWalk(KRoadColor(RoadCColor),'E');
      Flag;
        begin
          if FindBank('VEB') then
          Flag;
            Randoms_
            Bank;
        end;
    end;
end;

procedure MineOreForThrills;
begin
  repeat
  MineOre_;
  Randoms_;
  until(InvFull);
end;

      
begin
DeclarePlayers;
SetUp;
WalkToSomeMine;
    repeat
    MineOreforThrills;
    if PowerMine = false then
    begin
      BankForThrills;
      Progress_;
      WalkToSomeMine;
    end else
      DropOre;
      until(False);
end.

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

No scar targs, no standards, very basic/banable.
Sorry, i think you need to learn a lot more

EDIT:
SILLY GOOSE
http://forum.msgshit.com/lofiversion/index.php/t5907.html

Now everyone is mad at you for copying scripts.
That wasnt a very smart choice.
You think were stupid!

\/\/3 R n@wt t3h S70ope3d!

I edited your post put scar tags on your, i mean THE script, so people wouldnt have to scroll down as much. Hope you don't mind!:bart:

After SCAR become less effective

Whens that, never?

ROFL!
You hear one word about SRL member,
http://www.villavu.com/forum/showthread.php?t=?t=2543
and you apply with a copied script.

Thats so criminal!
Think were stupid!?

Note:
THIS I MUST SAY, IS MY FAVORITE BUST!

He comes to srl.
1st post:
Where can i get sumilions willow banker
Answer:
SRL Member Section
2nd post:
Oh no, that scuks
Time Passes…….
3rd Post
Member App with copied script

I ROFLED! (really)

And is it just me or does this say BANED???

WriteLn('|--|  |---| |-     | |---)  |---|  |----|');
WriteLn('|--|  |---| | -    | |-   ) |---|  |  ----|');
WriteLn('|-|   |   | |   -  | |-   ) |---|  |   _--|');
WriteLn('|---| |   | |     -| |---)  |---|  |    _-|');

no your just being physco.
It says
R-A-N-D-O-(Something)

>.< I see baned lol. But I can barely read my own writting so your probably right.

Next time you apply for members, read Boreas Guid "How to become a SRL - Member"

HAHAHAHAHAHAH!

Yoho…why must you beat me to all the busts…