SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
SCAR

Other Communitys
none

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 have been in srl-forums for a while and i have just started scripting and i have gotten it a bit and i feel that i can be a member. i just started scripting like a month and a half ago and i am not too experienced but i think i would be a very good addition to the member community. please let me know what you think.

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

// rs lowest

program PowerWoodcutter;
{.include SRL/SRL.scar}

var
  x,y: Integer;                 //This is designed to power
  i: Integer;                   //no more than 1 tree can be cut only 1
  item:integer;                 //oaks, but if you want to change what tree
  OakColourTPA: TPointArray;    //to cut then go to line 58


const
  OakColour = 3634023;          //use your own tree Colour.

procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  NumberOfPlayers(1);

  Players[0].Name := 'username'; //your username between ''
  Players[0].Pass := 'password'; //you password between''
  Players[0].Nick := 'nick'; //nickname from you username between'' example 'ser'
  Players[0].Active := True;
 end;

procedure DropLogs;
begin
  for item:=1 to 28 do
  dropall;
end;


procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(80) of
  1: RandomRClick;
  2: HoverSkill('Woodcutting', False);
  3: RandomMovement;
  4: BoredHuman;
  5: SleepAndMoveMouse(1235+random(860));
  6: MMouse(random(300), random(250), 10, 10);
  7: begin
      GameTab(1 + Random(12));
      wait(1200+random(1000));
      GameTab(4);
   end;
  end;
end;
  //check all randoms: by prisoner
 function CheckForAllRandoms: boolean;
begin
    if Pos('tch sp', lowercase(GetTalkingNPCName)) > 0 then ClickContinue(true, true);
    if FindNormalRandoms then result := true;
    if FindInventoryRandoms then result := true;
    if FindNonInventoryRandoms then result := true;
    if FindTalk then result := true;
    end;
    
procedure login;
begin
  if (not(loggedin)) then loginplayer;
  wait(200);
  end;


begin
  SetUpSRL;
  DeclarePlayers;
  login;
  repeat
      FindColorsTolerance(OakColourTPA, OakColour, MSx1, MSy1, MSx2, MSy2, 2);
  for i := 0 to High(OakColourTPA) do begin
      MMouse (OakColourTPA[i].X, OakColourTPA[i].Y, 3, 3);
      wait(30 + random(70));
   if IsUpText('Oak') then begin     //<Change pink text to tree you want.
      GetMousePos(x, y);
      Mouse(x, y, 3, 3, true);
      wait(4000 + random(1000));
      AntiBan;
   if InvFull then DropLogs
   end
  else
      wait(5000 + random(3000));
  end;
until false;

end.

program yourock12345Alcher;
{.include SRL/SRL/misc/smart.scar}
{.include SRL\SRL.scar}

var
  alchs, x, y : integer;

////////////////////////////////////////////////////////////////////////////////
//                            SETUP HERE!!!                                   //
////////////////////////////////////////////////////////////////////////////////

const
  NumOfPlayers = 1;                //How Many Autoers?
  StartPlayer  = 0;                //What Player to start with?
  Alchstodo    = 490;              //How Many Alchs Before Logout.
  iname        = 'ew';              //Enter a few lower case letters of the item... 'ew' is from Yew.

procedure DeclarePlayers;
begin
  HowManyPlayers  := NumOfPlayers;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := StartPlayer;
  Players[0].Name :='';           //Username,
  Players[0].Pass :='';           //Password,
  Players[0].Nick :='';           //Nickname 3-4 letters or ur name (NO CAPS!)
  Players[0].Active:=True;        //Use this Character?
  Players[0].Loc := '';           //DO NOT TOUCH!!!!!
  Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
end;

procedure StartAlch;
begin
  GameTab(7);
  wait(1000+random(1000))
  MouseBox(566, 362, 577, 365, 1);
  wait(500+random(200))
  GetMousePos(x, y)
  Mouse(x, y, 0, 0, true);
end;

procedure AntiBan;
begin
  Case Random(8) of
    1: RandomMovement;
    2: begin
        Gametab(2);
        Wait(1000 + random(500));
        Gametab(7);
       end;
    3: begin
        Case Random(5) of
         0: begin
             Gametab(5);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         1: begin
             Gametab(2);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         2: begin
             Gametab(9);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         3: begin
             Gametab(11);
             Wait(1000 + random(500));
             Gametab(7);
            end;
         4: begin
             Gametab(13);
             Wait(1000 + random(500));
             Gametab(7);
            end;
        end;
       end;
    4: Wait(1000);
    5: Wait(1000 + Random(500));
    6: Wait(1000 + Random(500));
    7: Wait(1000 + Random(500));
    8: Wait(1000 + Random(500));
  end;
  StartAlch;
end;

procedure Report;
begin
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('| yourock12345''s Alcher Progress Report. PLZ POST!');
  Writeln('| Alched '+ IntToStr(Alchs) + ' ' + iname + 's.');
  Writeln('| Worked for ' + TImeRunning);
  Writeln('| Exp gained '+ IntToStr(alchs*65));
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('Made By yourock12345!Dont leak or... I WILL RAPE YOU.');
end;

procedure Finished;
begin
  if (alchs = alchstodo) then
  begin
    TypeSend('w000t! '+ IntToStr(AlchsToDO) + ' alchs done :D! bye');
    Logout;
    report;
  end;
end;
{
Procedure AutoRespond;
var
  MageLvl2 : integer;
begin
  if InChatLine('Hi') or InChatLine('Hey') or InChatLine('sup') or InChatLine('yo') then
  begin
    wait(1000 + Random(500));
    case Random(8) of
      0: TypeSend('Hiya');
      1:  TypeSend('Hi');
      2: TypeSend('Heyz');
      3: TypeSend('wattup :p');
      4: TypeSend('Hola');
      5: TypeSend('hai');
      6: TypeSend('ello chap :[)');
      7: TypeSend('wattup :p');
    end;
  end else
  if InChatLine('Mage') or InChatLine('mage') or InChatLine('magick l') or InChatLine('magik l') then
  begin
    MageLvl2 := GetSkillInfo('magic', true);
    begin
      case Random(4) of
        0: TypeSend('mai mage is '+ IntToStr(magelvl2) + '.');
        1: TypeSend(magelvl);
        2: TypeSend('lvl ' + IntToStr(magelvl2) + ' mage.');
        3: TypeSend('I''m ' + IntToStr(magelvl2) + '. You?');
      end;
    end;
  end;
end;
}
procedure Alch;
begin
  StartAlch;
  repeat
    if FindTalk then FindNormalRandoms;
    wait(400+random(400))
    Mouse(x, y, 0, 0, true);
    Wait(1800+random(100));
    if isUpTextMultiCustom(['Ca','st']) then
    begin
      Mouse(x, y, 0, 0, true);
      Alchs:=Alchs + 1;
      Case Random(7) of
        0:Wait(100);
        1:AntiBan;
        2:Wait(100);
        3:FindNormalRandoms;
        4:Wait(100);
        5:Wait(100);
        6:Wait(100);
      end;
    end else
    StartAlch;
    until alchs=alchstodo;
    Finished;
end;



Procedure Setup;
begin
  SMARTSetUp('world38', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
  SetTargetDC(SMARTGetDC);
  SetUpSRL;
  wait(1000)
  ActivateClient;
  wait(1000)
  declareplayers;
  if(not LoggedIn) then
  begin
    wait(100);
    loginplayer;
  end;
end;



///////////////////////////
begin
  Setup;
  wait(3000)
  wait(100)
//  AutoRespond;
  wait(10)
  Alch;
end.

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

The script is way too simple.

procedure DropLogs;
begin
  for item:=1 to 28 do
  dropall;
end;

DropAll does what it says it drops all of the items you dont need that loop.

Seriously way too simple you should add some more complex things like DDTMs or walking or something.

Its a no from me.

No for me. Script is too simple. Doesn't even look like it walks anywhere on purpose. It has very little fail-safes or extra functionality.

Maybe next month, try putting in a banker.

srry no.
too simple with no intermediate skills

please read tuts

sorry no script tooooooooooooooo simple wait till masterkill posts his uber explnation then rea that brfore re applying in a month

Waaaay to simple, read Masterkills explanation soon.
you should have like 300+ lines.

sorry, a no, not good enough yet :(

What factors do you need:

• DTMs / DDTMs
• Decent complex working script.
• FailSafes
• Use and knowledge of functions and there results
• MultiPlayer
• Break out of potential endless loops
• Standards! Required to get people read your script.
• RadialWalk / DDTM Walking

if you allready have some points don't mind them :)


How do we judge it?

looking at the code, standaards. and whe imagen if it's working yes or no.


How many lines of code do you need

I would say 300+.
Make sure you got fail saves for evry possible option that could be going wrong.


well….

I hope this helped ya. good luck scripting!

@Zytex!: I'm getting slow eh? :p

From: MasterKill
>SNIP>
@Zytex!: I'm getting slow eh? :p

Yea, i was wondering if i should post it myself :p :D

nope, too simple also, no standards. sorry.

Nava2

We love you anyways :)

Failsafes ?
Dropping procedure is wrong . -.- (explained above)
Some standards were wrong .
Sorry , try again next time .
GL!
~Eerik~

i know i wont get through with this application so could this one be closed
i am currently working on a new script which is much better than this script

From: yourock12345
i know i wont get through with this application so could this one be closed
i am currently working on a new script which is much better than this script

Done :)