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?



Programming Knowledge
only SCAR

Other Communitys
a little runescape asylum

How Long have You Played Runescape
3 years

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

i have been part of this community and i like it a lot and i think i would be a good addition to the community because i have caught on to SCAR nicely and i think i could contribute to it. i have started scripting about 3 months ago.

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

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 –>

And may I ask you why you have two or three different applications?

Even though you have a different script now, it is still not good enough.

I'm going to quote MK here.

From: MasterKill
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 already have some points don't mind them :)


How do we judge it?

Looking at the code, standards. and we imagine if it's working yes or no.


How many lines of code do you need

I would say 300+.
Make sure you got failsafes for every possible option that could be going wrong.


well….

I hope this helped ya. good luck scripting!

From: EvilChicken!
I'm going to quote MK here.

noooooooooooooooooooooooooooooooooooooooooooo lol thanks.

Yourock, you need to wait 1 month before you can aply again. This is to simple for sure.

we reccommend walking scripts plz read tuts :)

I edited this script into your other app. Please use that one.