SRL Archive - Archive

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

What is the meaning to life?
the MEANING of life is JUST LIKE A GAME to me really there are obstacles such as financial problems and much MORE. I am really serious about my career and i want to become a computer programmer or something related like that . TO be successful in life you must be educated and have fun dont stay on computer all day long how about go play some b-ball and sports.There is much more out there =). please dont make fun of me i know i sound corny and shit but hey im serious here thanks

-P1NKY

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


Programming Knowledge
may learn JAVA soon

Other Communitys
sythe

How Long have You Played Runescape
3 years

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

HI SRL

well this my story:

MY pure got banned permed it was 94 mage 92 range 52 pray =/70 cb.
RS said i was Real World Trading which i wasn't but hey no comment there, RS tries there best to take out those narbs who scam and stuff.
WELL i said im getting bored of RS so i came back to this community instead of LEECHING i said i want to start learning now this time. THIS is like a hobby to me =) even in school i come up here and check out stuff.

I have made a DRAYNORcutterBANKER:
cuts oakz<banks
cuts willows<banks
kills wizard
picks bones up<banks
cuts trees<banks!!!

but i just made a MAPLE woodcutter banker and not show yall the draynor one because i had quite alot of help on that and while they helped me i learned and learned =) now this is a SIMPLE SCRIPT
THIS SCRIPT PROGGIE ISNT DONE YET
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program P1NKYSEERSWCER;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

//MORE SPOTS WILL BE COMING SOON!!!
//set LINES 10-13 AND 25-40 THANKS
//FOR MORE SCRIPTS GO TO [url]WWW.SRL-FUROMS.COM/FUROMS/[/url]


const
MapleColor   =8780;  //CHOOSE MAPLE color please
MapleColor1  =17007;  //ANOTHER 1
MapleColor2  =27283;  //YET another 1
LoadsPerPlayer   = 2; // # LOADS for each PLAYER


//===================================================

var
 x, y : integer;

procedure DeclarePlayers;
begin
  SetupPlayers;

  Players[0].Name :='SRL';
  Players[0].Pass :='ACCEPT';
  Players[0].Nick :='ME';//3-4 Letters Of Username ( No Capitals! )
  Players[0].Active :=True;
  

Players[1].Name :='lala';
  Players[1].Pass :='kaka';
  Players[1].Nick :='lal';
  Players[1].Active :=True;


  Players[2].Name :='Username';
  Players[2].Pass :='Password';
  Players[2].Nick :='rna';
  Players[2].Active :=True;

  LoadPlayerArray;
  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 Report;
begin
  writeln('||========================||');
  writeln('||P1nkysWillowCutterBanker||');
  Writeln('||========================||');
  writeln('||Worked For '+ TimeRunning +'||');
  writeln('||========================||');
  SRLRandomsReport;
end;






procedure MyAntiBan;
var
 DBanMe : Integer;
begin
   DBanMe:= Random(5);
   case DBanMe of
     0: PickUpMouse;
     1: DragItem(1, 1 + Random(45));
     2: GameTab(1 + Random(33));
     3: DoEmote(1 + Random(75));
   end;
end;


function FindEntA(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, tcts: Integer;
begin
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
    MMouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    MyAntiBan;
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(Result)then
  begin
    WriteLn('Ent Found!!');
    if(AvoidWhenFound)then
    begin
      Writeln('Waiting for it to go away.');
      wait(600+random(250));
      EntsAvoided := EntsAvoided + 1;
    end;
  end;
end;




function ToBank : boolean;
begin
  Mouse(650,40,2,2,true);
  writeln('GOING TO BANK');
  Wait(10000);
  Flag;
  if (FindSymbol(x, y, 'bank')) then
  begin
    MouseFlag(x,y,2,2);
    Result := True;
  writeln('FOUND BANK')
  end;
end;








procedure MAPLEWoodCutter;
begin
  Writeln('Cutting MAPLE...');
  if(Findcolor(x,y,MapleColor,MSX1,MSY1,MSX2,MSY2))or
  (Findcolor(x,y,MapleColor1,MSX1,MSY1,MSX2,MSY2))or
  (Findcolor(x,y,MapleColor2,MSX1,MSY1,MSX2,MSY2))then
  begin
    FindEntA(x,y,true);
    MMouse(x, y, 2, 2);
    Mouse(x, y, 1, 1, true);
    if(IsUpText('hop'))then
    begin
     GetMousePos(x, y);
     Mouse(x, y, 2, 2, true);
     Wait(8000+random(1000));
     FindEntA(x,y,true);
     FindFastRandoms;
     FindNormalRandoms;
     MyAntiBan;
    end;
  end;
end;

procedure MAPLEToBank;
begin
  tobank;
  MakeCompass('N');
    if(Findcolor(x,y,BankColor,MSX1,MSY1,MSX2,MSY2))or
  (Findcolor(x,y,BankColor1,MSX1,MSY1,MSX2,MSY2))or

  Mouse(770,291,10,10,true);
  MakeCompass('N')
  wait(5000)
  OpenBank3;
  WriteLn('bank opened');
  wait(3000);
  deposit (2, 28 , 2 );
  WriteLn('deposited');
  WriteLn('BANKED MAPLE');
  closebank;
 inc(Players[currentplayer].banked);
end;

procedure BankToMAPLE;
begin
  MakeCompass('N');
  Mouse(761,221,10,10,true);
end;


procedure Banking;
begin
  MakeCompass('N')
  wait(5000)
  OpenBank3;
  WriteLn('bank opened');
  wait(3000);
  deposit (2, 28 , 2 );
  WriteLn('deposited');
  closebank;
 inc(Players[currentplayer].banked);

end;



 procedure Sig;
begin
  ClearDebug;
  Writeln(' ');
  Wait(500);
  Writeln('DONT ABUSE SCRIPTS ! SRL FTW!!!!')
  Wait(500);
  Writeln('P1nky''s MAPLE Cutter And Banker');
  Wait(500);
  Writeln('==========================================================');
  Wait(500);
  Writeln('P1NKY FIRST SCRIPT!!!!')
  Wait(500);
  Writeln('AUTO WITH RESPONSIBILTY');
  Wait(500);
  Writeln('PLEASE DONT STEAL THIS SCRIPT THAN POST ON OTHER SITE WITHOUT PERMISSION');
  Wait(500);
  Writeln('ENJOY');
  wait(500);
  Writeln('==========================================================');
  Wait(500);
  Writeln('P1nky''s MAPLE Cutter And Banker');
  Wait(1000);
  Writeln(' ');
  ClearDebug;
  writeln('_____________________________________________________________');
  Wait(1000);
  writeln('===========================================================');
  Wait(500);
  writeln('__________                                                 ');
  Wait(500);
  writeln('|<><><><>|   1=1     |=\        |=|    1     //\\         // ');
  Wait(500);
  writeln('|<><><><>|   1-1     |  \       |=|    1    //  \\       // ') ;
  Wait(500);
  writeln('|<><><><>|   1-1     |   \      |=|    1   //    \\     //   ');
  Wait(500);
  writeln('|<><><><>|   1-1     |    \     |=|    1  //      \\   //   ' );
  Wait(500);
  writeln('|<><><><>|   1-1     |     \    |=|    1 //        \\_//   ' );
  Wait(500);
  writeln('|=|------|   1-1     |      \   |=|    1=\\         1=1     ');
  Wait(500);
  writeln('|=|          1-1     |       \  |=|    1  \\        1=1    ' );
  Wait(500);
  writeln('|=|          1-1     |        \ |=|    1   \\       1=1    ');
  Wait(500);
  writeln('|=|          1-1     |         \ =|    1    \\      1=1   ') ;
  Wait(500);
  writeln('====         1=1     |          \=|    1     \\     1=1    ');
  Wait(500);
  writeln('===========================================================');
  Wait(500);
  writeln('___________________________________________________________ ');
end;


begin
  Sig;
  ActivateClient;
  SetupSRL;
  DeclarePlayers;
  if LoggedIn then LogOut;
  LoginPlayer;
  ChatsOff;
  LowestAngle;
  SetRun(True);
  MakeCompass('N');
  HighestAngle;
  report;
   repeat
   MAPLEWoodCutter
   if(InvFull)then
    begin
     MakeCompass('N')
     MAPLEToBank;
     tobank;
     banking;
     begin
       if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
      if LoggedIn then
      begin
        NextPlayer(False);
        LowestAngle;
        SetRun(True);
        MakeCompass('N');
        MakeCompass('W');
        HighestAngle;
      end;
    end;
   end;
    if Not LoggedIn then
      begin
      NextPlayer(False);
      LowestAngle;
      SetRun(True);
      MakeCompass('N');
      MakeCompass('W');
      HighestAngle;
    end;
  until(false);
end.
//SRL ACCEPT ME PL0X lol =)

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

Sorry, no from me, you use a lot of co-ord clicking for walking to bank/maples. Next time, try to use less coord clicking, and it will maybe be a yes from me.

ok np i was about to use DTM but i gtg go for a while so i just gave this script a chance BTW i may buy your VYC =p

Ya shouldn't discuss that VYC secret business here ;) but, that is cool. But it is also not 'mine' :p It is Sumilion and Lorax'es. Even though I still have most of the same powers as them ;) ;)

Hey, sry p1nk. p1nky was one of my friends on Rs. we both have very good pures (his was much better than mine) and he pm-ed me for help. Lately, I havent had much time to be on msn and help him. anyways i'm not going to vote. I think he needs to learn a bit more about walking. Maybe you can delete this app and SRL will cut you some slack by not making you wait a month? (and if not, thats what you get :P)

k np ill work abit more and np yeah i hadnt seen you for a bit k ima get back to tuts lol =)

Closed.
You Got You FeedBack.
Good try not bad at all, you just need to read around more and make your functions more complex.
Also, credit all code that inst yours =)