SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
COBOL

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.

What is the meaning to life? dont no i wil tell you if i find out.



I have made a few good scripts for rs useing srl that have made leachers
pleased. if i download a script i try to reply with my proggies and general
comments about. I have learnt from experiance that if you have somthing from some one else's script it is rude not to give credit to the person who made the procedure.

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

this is my wc script:

program VarrokCastleYewCutter;
{.include srl/srl.scar}

Var
 x,y,ZX,ZY,LoadsDone, logschopped : integer;


 Const
LoadsToChop = 100;            //How many loads do u want to do until logout.//


Procedure DeclarePlayers;
begin
     HowManyPlayers  :=1;  // Set Number of Players here.                   //
     NumberOfPlayers(1);   // Sets the Players Array Length;                //
     CurrentPlayer:=0;     // CurrentPlayer = Array Index                   //

     Players[0].Name :='user'; // Your scaperune account name                   //
     Players[0].Pass :='pass'; // Your password(only if starting not logged in) //
     Players[0].Nick :='ser'; // 3 Middel letters of your scaperune name       //
     Players[0].Loc  :='bank';
     Players[0].Active:=True;

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

procedure Setup;
begin
SetupSRL;
declarePlayers;
ClearDebug;
if not LoggedIn then
LoginPlayer;
Wait(194+random(87));
HighestAngle;
end;



Procedure RandomlyChosenSkill;
Begin
  Case Random(11) Of

0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore',  False);
10: HoverSkill('Fishing', False);

  End;
End;




Procedure EntFinder;    //marrie
begin
begin
      If FindObjCustom(x, y, ['Ye', 'ew'], [5675407, 2782309], 7) then// thanks marrie for ent finder
      begin
      MMouse(x,y,0,0);
                     if FindColorTolerance(ZX,ZY,51657,MSX1,MMY1,130,20,8) then
                      begin
                      WriteLn('Ent Found!!!!!');
                      WriteLn('Waiting For Normal Yew.');
                      Mouse(643, 83, 1, 1, True);
                      repeat
                      MMouse(x,y,0,0);
                      Wait(1000+random(100));
                      until not FindColorTolerance(ZX,ZY,51657,MSX1,MMY1,130,20,8);
                      ClearDebug;

                      end else
                      Wait(1);

      end else
      Wait(1);
      end;
end;



Procedure Randoms;
Begin
EntFinder;
FindTalk;
entfinder;
FindNormalRandoms;
entfinder;
SolveChatRandom;
entfinder;
FindLamp('Woodcutting');
entfinder;
SolvePinball;
entfinder;
DwarfItem;
entfinder;
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;



procedure antiban;
var
  randomm: integer;
begin
 randomm := Random(12)
  case randomm of

  0:                begin
                    entfinder;
                    Wait(3591+(random(287)));
                    RandomRClick;
                    entfinder;
                    Wait(3591+(random(287)));
                    HighestAngle;
                    entfinder;
                    RandomlyChosenSkill;
                    Randoms
                    entfinder;
                    end;

  1:     begin
         Wait(3694+(random(791)));
         entfinder;
         GameTab(random(13)+1);
         Randoms;
         entfinder;
         Wait(3694+(random(791)));
         GameTab(4);
         entfinder;
         end;

  2:                begin
                    Wait(3294+(random(873)));
                    entfinder;
                    Randoms;
                    HoverSkill('Woodcutting' ,false);
                    entfinder;
                    Wait(3294+(random(873)));
                    entfinder;
                    end;

  3:     begin
          Wait(3694+(random(791)));
          entfinder;
          GameTab(random(13)+1);
          entfinder;
          Randoms;
          entfinder;
          Wait(3694+(random(791)));
          entfinder;
          GameTab(4);
          entfinder;
          end;

  4:                 begin
                     Wait(3973+(random(547)));
                     entfinder;
                     GameTab(random(13)+1);
                     Randoms;
                     entfinder;
                     PickUpMouse;
                     Wait(3973+(random(547)));
                     entfinder;
                     GameTab(4);
                     entfinder;
                     HighestAngle;
                     entfinder;
                     FTWait(10);
                     RandomlyChosenSkill;
                     entfinder;
                     end;

  5:      begin
          Wait(3694+(random(791)));
          entfinder;
          GameTab(random(13)+1);
          entfinder;
          Randoms;
          Wait(3694+(random(791)));
          entfinder;
          GameTab(4);
          entfinder;
          end;

  6:                 begin
                     Wait(3573+(random(379)));
                     entfinder;
                     Randoms;
                     entfinder;
                     Mouse(random(760),random(500),1,1,False);
                     Wait(3573+(random(379)));
                     entfinder;
                     end;

  7:       begin
           Wait(3694+(random(791)));
           entfinder;
           GameTab(random(13)+1);
           entfinder;
           Randoms;
           Wait(3694+(random(791)));
           entfinder;
           GameTab(4);
           entfinder;
           end;

  8:                 begin
                     Wait(3379+(random(482)));
                     entfinder;
                     GameTab(random(13)+1);
                     entfinder;
                     Randoms;
                     RandomMovement;
                     entfinder;
                     HighestAngle;
                     entfinder;
                     Wait(3379+(random(482)));
                     entfinder;
                     GameTab(4);
                     end;

  9:      begin
           Wait(3694+(random(791)));
           entfinder;
           GameTab(random(13)+1);
           entfinder;
           Randoms;
           Wait(3694+(random(791)));
           entfinder;
           GameTab(4);
           entfinder;
           FTWait(10);
           entfinder;
           RandomlyChosenSkill;
           end;

  10:                 begin
                      Wait2(8197, True);
                      entfinder;
                      Randoms;
                      HighestAngle;
                      end;

  11:       begin
            Wait(3294+(random(873)));
            entfinder;
            Randoms;
            entfinder;
            HoverSkill('Random' ,false);
            entfinder;
            Wait(3294+(random(873)));
            entfinder;
            end;
end;
end;



procedure walk2tree;
begin
 SetRun(True);
 MakeCompass('S');
 FTWait(1);
 MakeCompass('N');
 FTWait(8);

  MoveMouseSmoothEx(669,30,  20,40,45,25,20);
  FTWait(8);
  clickmouse(669,30,True);
  FTWait(50);

    MoveMouseSmoothEx(705,56,  20,40,45,25,20);
    FTWait(8);
    clickmouse(705,56,True);
    FTWait(50);

      if FindObjCustom(x, y, ['Spi', 'rit'], [3231050, 2051909], 7) then
      begin

        MoveMouseSmoothEx(x,y,  20,40,45,25,20);
        FTWait(8);
        Clickmouse(x,y,false);
        FTWait(8);

          ChooseOption('Talk-to')
          FTWait(20);

            MoveMouseSmoothEx(703,108,  20,40,45,25,20);
            FTWait(8);
            clickmouse(703,108,True);
            FTWait(120);

              MoveMouseSmoothEx(467,174,  20,40,45,25,20);
              FTWait(8);
              clickmouse(703,180,True);
              FTWait(20);

                end else
                writeln('didnt walk to tree');
                end;



Procedure Chopyew;
begin

  if not LoggedIn then
  Exit;

    repeat
    if FindObjCustom(x, y, ['Ye', 'ew'], [5675407, 2782309], 7) then
    begin

      MoveMouseSmoothEx(x,y,  20,40,45,25,20);
      FTWait(1);
      clickmouse(x,y,false);
      Wait(500+(random(150)));

        ChooseOption('Chop')
        randoms
        antiban;
        writeln('found yew');

          end else
          writeln('couldnt find yew trying again');
          randoms;
          antiban;

            until( InvFull )
            logschopped:=logschopped+1;
            end;



procedure walkback;

begin
  SetRun(True);
  makecompass('S');
  FTWait(1);
  MakeCompass('N');
  FTWait(8);

    MoveMouseSmoothEx(574,70,  20,40,45,25,20);
    FTWait(1);
    clickmouse(574,70,true);
    FTWait(130);


      if FindObjCustom(x, y, ['Spi', 'rit'], [3231050, 2051909], 7) then
      begin

        MoveMouseSmoothEx(x,y,  20,40,45,25,20);
        FTWait(1);
        Clickmouse(x,y,false);
        FTWait(8);

          ChooseOption('Talk-to')
          FTWait(20);
          end else

            writeln('faled');
            end;


procedure bank;
begin
    MoveMouseSmoothEx(600,121,  20,40,45,25,20);
    FTWait(1);
    clickmouse(600,121,true);
    FTWait(50);

      MoveMouseSmoothEx(625,133,  20,40,45,25,20);
      FTWait(1);
      clickmouse(625,133,true);
      FTWait(50);

        if FindObjCustom(x, y, ['Ban', 'ker'], [470584, 403505], 7) then
        begin

          MoveMouseSmoothEx(x,y,  20,40,45,25,20);
          FTWait(1);
          clickmouse(x,y,false);
          FTWait(8);

            ChooseOption('Bank')
            FTWait(20);
            Deposit(2, 28, 2);
            Wait(600+random(50));
            CloseWindow;

              FTWait(20);
              end else
              writeln('banking faled');
              end;



procedure Progress;
begin
writeln('@@@@@@  @@        @@  @@@@@@  @@   ');
writeln('@@       @@      @@   @@      @@   ');
writeln('@@@@@     @@    @@    @@@@@   @@   ');
writeln('@@         @@  @@     @@      @@   ');
writeln('@@@@@@      @@@       @@@@@@  @@@@@');
writeln('****choth... is da best...choth****');
Writeln('<========evels yew cutter=========>');
Writeln('<========Progress Report==========>');
Writeln('<--------------------------------->');
Writeln('your pixalated player has choped: ' + IntToStr(logschopped) +' full invtorys what an achevement!>');
Writeln('ma mo fukin exilant script has been runin 4 : '+ (TimeRunning) +' wowwee ');
Writeln('<==      ==      ==      ==      ==>');
writeln('<  ==  ==  ==  ==  ==  ==  ==  ==> ');
writeln('<    ==      ==      ==      ==>   ');
writeln('PLEASE POST PROGGEY TO "poolikemax"');
writeln('**********THANKS 4 USEING**********');
end;



procedure holething;
begin

  randoms;

    antiban;

      walk2tree;

        Chopyew;

          walkback;

            bank;

              end;

begin

  setup;

    logschopped:=0;

      LoadsDone:=0;

        repeat

          holething;

            progress;

              until(LoadsDone>=LoadsToChop) or (IsFKeyDown(3));



                end.

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

Woo dude standards m8 these are well off.
Looks good. Dont try to space it out more to make it look bigger. As people say:
"Qualitys better than Quantity".
Also i do not see a 'mouse' in here this isn't coded that much in srl learn to use procedures/functions from the srl manual :).
Clickmouse will get you banned.
You haven't used Radial Walk and the other list..
I'm sure n3ss3s can show you that.
AnyWay GJ!
good luck on ure next apply :)

->{Nauman}<-

Awesome script. No.

as unclear as nauman might be i agree with him :p
standards are extremely off, using ClickMouse and MoveMouseSmooth would make me guess you never posted a script on these forums before.

those two procedures are detectable, so we use Mouse(x, y, RandomX, RandomY:integer, LeftClick:Boolean); instead of ClickMouse and MMouse(x, y, RandX,RandY) instead of MoveMouseSmooth. i suggest you go read some tutorials, and re-apply at a later stage with an improved script. (either this one or a different one). I also suggest you check the many "How to get SRL Member Status" guides out there.

~RM

This part is getting me a little suspicious:

writeln('@@@@@@  @@        @@  @@@@@@  @@   ');
writeln('@@       @@      @@   @@      @@   ');
writeln('@@@@@     @@    @@    @@@@@   @@   ');
writeln('@@         @@  @@     @@      @@   ');
writeln('@@@@@@      @@@       @@@@@@  @@@@@');
writeln('****choth... is da best...choth****');
Writeln('<========evels yew cutter=========>');
Writeln('<========Progress Report==========>');
Writeln('<--------------------------------->');
Writeln('your pixalated player has choped: ' + IntToStr(logschopped) +' full invtorys what an achevement!>');
Writeln('ma mo fukin exilant script has been runin 4 : '+ (TimeRunning) +' wowwee ');
Writeln('<==      ==      ==      ==      ==>');
writeln('<  ==  ==  ==  ==  ==  ==  ==  ==> ');
writeln('<    ==      ==      ==      ==>   ');
writeln('PLEASE POST PROGGEY TO "poolikemax"');
writeln('**********THANKS 4 USEING**********');

I will hold my vote.

-Knives

Lol @ Santa i'm going to put that im my siggy. Ohh the irony :)

P.S Love you Santa XD

Too bad I never notice these things. If the script is too short, I automatically vote no :p In this case, it was too short…

Oh, I love you too Nauman :)

Just wondering, how long does it take for you people to look through the script? It always takes me about 10 seconds ;)

I'm not going to vote. I'm kinda suspicious about this script.

1…2… Psychor's coming for you.
3…4… Read tutorials more.
5…6… Abandon your tricks.
7…8… A month you'll wait.
9…10… Never copy again.

Did you get most of your inspiration here http://www.villavu.com/forum/showthread.php?t=22166 even used it as a model for your standards.
So????? Where did you get the other parts????

Edit: i only see you crediting marrie, maybe i'm overlooking all the other ones. 90% has to be your own work, and that doesn't mean copying a procedure and changing a few lines.

i just noticed his intro:

From: poolikemax
I have learnt from experiance that if you have somthing from some one else's script it is rude not to give credit to the person who made the procedure.

getting some more experience?

btw: although DeclarePlayers is in there, there is no multiplayer.

~ RM

What does choth mean?

Anyway, don't use MoveMouseSmooth or ClickMouse…

Psychor, I don't think he copied anything except the decoration and progress report. And yes, the progress report was copied because he never added to integers…

According the dictionary: some one who dress's like a goth and a charva
Now wth is a charva???

Or maybe the Ghanesh Choth Festival?

From: Psychor
According the dictionary: some one who dress's like a goth and a charva
Now wth is a charva???

Or maybe the Ghanesh Choth Festival?

I was thinking he was a witchdoctor of some sort.

Lol whats with that insane rhyme!!
You should be a pro copybust0r!

You don't use correct SCAR Scripting Standards,
half of the script is antiban,
no usage of DTMs,
no usage of BitMaps,
no walking,
no failsafes,
no multiplayer,
very simple.

Read the requirements in the sticky in the FAQ, I won't link you.

Good luck next time.

Remember to wait atleast a month before re-applying!


Pseudoclosed.

A clear no from me.

Way too short and too simple.

The most "advanced" procedure in the script was the EntFinder, and it wasn't even yours.

Aaaand. Heard of MMouse, Mouse, and FindNormalRandoms?

3..4..Read tutorials more doesn't seem to match. Got an extra syllable, I think.

A simple no

From: n3ss3s
You don't use correct SCAR Scripting Standards,
half of the script is antiban,
no usage of DTMs,
no usage of BitMaps,
no walking,
no failsafes,
no multiplayer,
very simple.

Read the requirements in the sticky in the FAQ, I won't link you.

Good luck next time.

Remember to wait atleast a month before re-applying!


Pseudoclosed.

sums it up.

You also dont seem to use all SRL mouse functions

  MoveMouseSmoothEx(669,30,  20,40,45,25,20);
  FTWait(8);
  clickmouse(669,30,True);

clickmouse and MoveMouseSmoothEx are very un-humanlike and will get you banned on runescape.
Instead use

Mouse(669,30,10,10,True)

And even then, you are still clicking co-ordiantes, it would be better to use a findcolor/bitmap/dtm

If FindDTM(X,y,poop,1,1,120,120) then
Mouse(x,y,4,4,True)

Would look better.

Its a good start, but overall you need to learn to use SRL better, learn all the things stated by n3ss3, and also fix you standards (indents)

Good Luck Next Time