SRL Archive - Archive

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

What is the meaning to life?


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

Member: Moosildinho

Programming Knowledge
C

Other Communitys


How Long have You Played Runescape
9 years

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

I have been playing rs2 for quite a long time, so I know alot about the game system and how it works. I have been using SCAR for quite a while now, and I want to get in with all the good scripters to share in ideas and help this community grow. I have tested and given feedback to a variety of scripts in Junior members, and posted some of my scripts in there too.

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

program SuperHeater;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/magic.scar}

//Bug: Doesnt solve Freaky Forrester
//Bug: Cant do Drill Demon correctly

var rounds:integer;
const
  StartPlayer = 0;             // Determines who will play first

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

  Players[0].Name := '';            //username
  Players[0].Pass := '';            //password
  Players[0].Nick := '';            //3-4 consecutive letters of your user name(NOT First letter)
  Players[0].Active := True;            //are you going to use this player
end;


procedure CheckOresAndNats;
begin
  MMouse(579, 229,2,2);
    Wait(200+random(300));
  if (not IsUpText('ature')) then OpenBankFast('feb');
    Wait(200+random(300));
  MMouse(621, 228,2,2);
    Wait(200+random(300));
  if (not IsUpText('ith')) then OpenBankFast('feb');
    Wait(200+random(300));
  MMouse(663, 264,2,2);
    Wait(200+random(300));
  if (not IsUpText('oal')) then OpenBankFast('feb');
    Wait(200+random(300));
  MMouse(577, 367,2,2);
    Wait(200+random(300));
  if (not IsUpText('oal')) then OpenBankFast('feb');
    Wait(300+random(200));
end;

procedure SkillErrorCheck;  //when checking xp, sometimes it clicks... this fixes it
var x,y,cross:integer;
begin
  if (Bankscreen) then exit;
  Cross := DTMFromString('78DA63FCCCC8C020CA80021EECA802D38C503' +
       'EE36B204B1A55CDD25A7B5435BF802C1954353B2706A3AA790564' +
       'F112610E3F01359F802C010634C088A2060001790E0C');
  if FindDTM(cross,x,y,484,7,516,36) then
  begin
  Mouse(x,y,1,1,true);
  end
  else exit
end;

procedure GetOres;
begin
  if (not bankscreen) then exit
  else begin
  Withdraw(2,1,5);
  Wait(1000+random(600));
  Withdraw(1,1,10);
  Wait(200);
  Withdraw(1,1,10);
  Wait(1000+random(600));
  Writeln('Ores withdrawn');
  CloseBank;
  end;
end;

procedure AntiBan;
var smith,mage:integer;
begin
  if (Bankscreen) then exit;
  case Random(10) of
  0: begin
     Smith:=XpTillNextLevel('smithing');
     Writeln('Smithing= +'+inttostr(smith)+' XP Left');
     Wait(500);
     SkillErrorCheck;
     end;
  1:begin
    BoredHuman;
    end;
  2:begin
   Mage:=XpTillNextLevel('magic');
   Writeln('Magic= +'+inttostr(mage)+' XP Left');
   Wait(500);
   SkillErrorCheck;
   end;
end;
end;

procedure AntiRandoms;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  FindNonInventoryRandoms;
  if FindFight then RunTo('N',True);
case Random(100) of
        0: RandomRClick;
        1: PickupMouse;
        2: randommovement;
        end;
end;

procedure SuperHeat;
var mith,mx,my,casts:integer;
begin
  if (bankscreen) then Closebank;
    if (not loggedin) then exit;
  mith := DTMFromString('78DA63CC676260E0646440063E3E05601A26C' +
       'A980A54C385AAA63EDD03554D21500D23AA1A37F70C14350008A6' +
       '0494');
  Gametab(4);
  CheckOresAndNats;
  Gametab(7);
  repeat
  Wait(500+random(300));
  AntiBan;
  CastSpell(26);
  Wait(1000+random(1000));
  FindDTM(mith,mx,my,550, 208,731, 462);
  Mouse(mx,my,2,2,true);
  Casts:= Casts+1;
  AntiRandoms;
  until Casts=6
  Casts:=0;
end;
  

procedure GetNats;
begin
  if (not Bankscreen) then exit;
  DepositAll;
  Fixbank;
  MMouse(187,79,2,2);
  Wait(100);
  If (not Isuptext('ature')) then
  begin
  Writeln('Error: No Nats')
  Logout;
  TerminateScript;
  end;
  Mouse(187,79,2,2,false);
  Wait(100);
  ChooseOption('Withdraw 5');
  Wait(1000+random(600));
  GetOres;
end;

procedure Setup;
begin
  SetupSrl;
  ActivateClient;
  DeclarePlayers;
  ClearDebug;
end;

begin
  Setup;
  repeat
  LoginPlayer;
  if IsUpText('Cast') then Mouse(randomrange(150,250),randomrange(100,200),2,2,true);
  OpenBankFast('veb');
  GetNats;
  AntiRandoms;
  SuperHeat;
  AntiRandoms;
  Rounds:=Rounds+1;
  Disguise('You have done '+inttostr(rounds)+' rounds.');
  until Rounds=80;
end.

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

I vote a no. Reason being is because there are no fail-safes, improper use of standards, using co-ord clicking/moving, can't understand some uses of procedures.

Sorry.

You have plyer RS for nine years? Niice.


No.

no.

it looks like you understand the basics, but you aren't SRL Member material yet I don't think.

Your account details are in the script, changed the password and to be honestly, I had a look:)

364k
8k+ fire runes
2k+ airs
3.8kfeathers
kinda full rune?
arrows etc

Yes, yes, that could be a quick pick for me..

Dude, plz don't forget to edit your username and password out in the future.

There wont be always someone like me, who doesn't steals the items from your character, you're lucky I could save your account, before I was too late:p

I'll PM you the new details:p

-Tsn.

No, reason is because you only know the basics, read a couple tutorials on what is needed.

Thanks everyone
…it was worth a shot….

I fixed up the script alot since then, it works pretty smoothly now

Am i allowed to edit that script i put in?

From: the scar noob
I had a look:)

-Tsn.

You have a look in everyones account :p

No, too short, not complicated enough. And why are you applying after having 26 posts, you should get to know the community more before you apply, so people know what you are like.

From: IP-Drowner
You have a look in everyones account :p

Yes I do, but I don't steal anything as you know;)

Saved a lot of people their accounts, including dev's accounts:)

Now the scripting part, like stated above, too basic.

-Tsn.

Sorry, you're not getting in this time.
You may try again in one month, good luck.
Closed.