SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
By a friend of mine.

Programming Knowledge
Just a bit of SCAR

Other Communitys
Thegrandexchange.com, Sythe.org

How Long have You Played Runescape
About 3 years on and off

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

I'm 15, In high school, and up until now, I haven't had any time to learn how to script. I've always wanted to learn, as soon as I became a member of Srl-forums. Recently I've started to script, and I look forward to working with members of the community to build scripts, and then releasing them back into the community.

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

program AlansAlcher;
{.include SRL/SRL.scar}
{.include srl/srl/skill/magic.scar}

Procedure DeclarePlayers;
begin

     HowManyPlayers := 2;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:= 0


  Players[0].Name :='';    // Your runescape username here
  Players[0].Pass :='';   // Your runescape password here
  Players[0].Nick :='';            // Enter three letters of your characters name. Example: 'Zezima' would be 'ezi'
  Players[0].Active := True;       // Is this player active? True= Yes False= No

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

end;

procedure FindRandoms;
begin
  LampSkill := 'magic';
    FindNormalRandoms;
  if FindFight then RunAway('N',True,1,15000);
end;

procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(85) of
    1: RandomRClick;
    2: HoverSkill('Magic', False);
    3: RandomMovement;
    4: BoredHuman;
    6: DoEmote(400 +Random(90));
    7: DoEmote(200 +Random(120));
    8: HoverSkill('Woodcutting', False);
    9: PickUpMouse;
    10: MakeCompass('S');
    11: Setrun(true);
    12: SetAngle(true);
    13: wait(500+random(7000));
    14: HoverSkill('random', false);

  end;
end;

  Procedure FindFireStaff;
  var x, y :integer;
  begin
    wait(500+random(750));
    GameTab(5);
    wait(500+random(500));
   if FindColor(x, y, 1913582, 570, 287, 612, 317) then
   begin
   GameTab(4);

   end else
   begin
   GameTab(5);
   if FindColor(x, y, 1913582, 570, 287, 612, 317) =false then
    begin
     disguise('Make sure you have a fire staff equipt. Script terminated');
      TerminateScript;

        end;
      end;
   end;


   Procedure FindNatureRunes;
   var x, y :integer;
   begin
     wait(500+random(500));
     if FindColor(x, y, 1411601,548, 206, 734, 459) then
       begin
     AntiBan;
   end else
   
   begin
   if FindColor(x, y, 1411601,548, 206, 734, 459) =false then
     begin
       disguise('No nature runes. Script terminated');
        TerminateScript;

        end;
      end;
   end;

   Procedure Alch;
   var x, y : integer;
   Note : integer;
   
   begin
   Note := DTMFromString('78DA637462626028656440058C0C131841240' +
    '3C37F2060F407AA29C254832081B43D504D236E35606C0A54538C' +
    '5F0D0000560788');
     disguise('alching');
    wait(500+random(250));
    cast('high level alchemy');
    wait(500+random(250));
    if (FindDTM(Note, x, y, 552, 207, 734, 463)) then
      begin
      Mouse(x, y, 5, 5, true);
      AntiBan;
      wait(3000+random(750));
       end else
          begin
          if(FindDTM(Note, x, y, 552, 207, 734, 463)) =false then
           begin
           disguise('Script Terminated');
           Terminatescript;
       end;
    end;
  end;
  
  Procedure Proggy;
  begin
    cleardebug;
    Writeln('~~~~~~~~~~Progress Report~~~~~~~~~~');
    Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    Writeln('~Ran for '  +TimeRunning+ '~');
    Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  end;

  


Procedure Mainloop;
begin
SetupSrl;
DeclarePlayers;
if Loggedin then Logout;
  LoginPlayer;
  SetAutoingDefaults;
  SetAudioOff;
  FindFireStaff;
  FindNatureRunes;
  repeat
    Alch;
    FindRandoms;
    Proggy;
     until(false);
    end;


begin
MainLoop;
end.

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

Sorry, no. Does not have: TPAs, DDTMs, RadialWalking, etc. which are required to be an SRL Member.

FindFireStaff; and most of your procedures use FindColor which is stupid because a lot of other items could have that color. You should have it search for a DTM in your inventory.

Read some tutorials and good luck on your next app!
-Travis V10

i agree with BC. Also, its just too simple of a script, you need walking, dtms, ddtms, tpas ect.

sorry a no from me

From: born2code
Sorry, no. Does not have: TPAs, DDTMs, RadialWalking, etc. which are required to be an SRL Member.

FindFireStaff; and most of your procedures use FindColor which is stupid because a lot of other items could have that color. You should have it search for a DTM in your inventory.

Read some tutorials and good luck on your next app!
-Travis V10

What he said.

What they said, im glad you are taking the initiative and learning to script, i hope to see your next app, and i hope to vote yes :D

sorry no, read tuts.

Glad you're trying. Keep going, yes from me.

Lil' bit better + standards:

program AlansAlcher;
{.include SRL/SRL.scar}
{.include srl/srl/skill/magic.scar}

var Alchs:integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0 
  
  Players[0].Name := 'Zezima'; // Your runescape username here
  Players[0].Pass := 'iBot'; // Your runescape password here
  Players[0].Nick := ''; // Enter three letters of your characters name. Example: 'ezim' 
  Players[0].Active := True;  // Is this player active? True= Yes False= No

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
end;

procedure FindRandoms;
begin
  LampSkill := 'magic';
  FindNormalRandoms;
  if FindFight then
    RunAway('N', True, 1, 15000);
end;

procedure AntiBan;
begin
  if not LoggedIn then
    Exit;
  case Random(85) of
    1: RandomRClick;
    2: HoverSkill('Magic', False);
    3: RandomMovement;
    4: BoredHuman;
    6: DoEmote(400 + Random(90));
    7: DoEmote(200 + Random(120));
    8: HoverSkill('Woodcutting', False);
    9: PickUpMouse;
    10: MakeCompass('S');
    11: Setrun(true);
    12: SetAngle(true);
    13: wait(500 + random(7000));
    14: HoverSkill('random', false);
  end;
end;

procedure FindFireStaff;
var
  x, y: integer;
begin
  wait(500 + random(750));
  GameTab(5);
  wait(500 + random(500));
  if FindColor(x, y, 1913582, 570, 287, 612, 317) then //Dtms.
  begin
    GameTab(4);
  end
  else
  begin
    GameTab(5);
    if not FindColor(x, y, 1913582, 570, 287, 612, 317) then //Dtms.
    begin
      disguise('Make sure you have a fire staff equipt. Script terminated');
      TerminateScript;
    end;
  end;
end;

procedure FindNatureRunes;
var
  x, y: integer;
begin
  wait(500 + random(500));
  if FindColor(x, y, 1411601, 548, 206, 734, 459) then //Dtms.
  begin
    AntiBan;
  end
  else
  begin
    if not FindColor(x, y, 1411601, 548, 206, 734, 459) then //Dtms.
    begin
      disguise('No nature runes. Script terminated');
      TerminateScript;
    end;
  end;
end;

procedure Alch;
var
  x, y: integer;
  Note: integer;
begin
  Note := DTMFromString('78DA637462626028656440058C0C131841240' + '3C37F2060F407AA29C254832081B43D504D236E35606C0A54538C' + '5F0D0000560788'); // This is better ;)
  disguise('alching');
  wait(500 + random(250));
  cast('high level alchemy');
  inc(Alchs); //Alchs counter.
  wait(500 + random(250));
  if (FindDTM(Note, x, y, 552, 207, 734, 463)) then
  begin
    Mouse(x, y, 5, 5, true);
    AntiBan;
    wait(3000 + random(750));
  end
  else
  begin
    if not (FindDTM(Note, x, y, 552, 207, 734, 463)) then //Yay, dtms!
    begin
      disguise('Script Terminated');
      Terminatescript;
    end;
  end;
end;

procedure Proggy;
begin
  cleardebug;
  Writeln('~~~~~~~~~~Progress Report~~~~~~~~~~');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('~Ran for ' + TimeRunning + '~');
  Writeln('~Alched: '+inttostr(alchs)+'times.');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

procedure Mainloop;
begin
  SetupSrl;
  DeclarePlayers;
  if Loggedin then
    Logout;
  LoginPlayer;
  SetAutoingDefaults;
  SetAudioOff;
  FindFireStaff;
  FindNatureRunes;
  repeat
    Alch;
    FindRandoms;
    Proggy;
  until (false);
end;

begin
  MainLoop;
end.

I've always wanted to learn, as soon as I became a member of Srl-forums. Recently I've started to script, and I look forward to working with members of the community to build scripts, and then releasing them back into the community.

I like that attitude.
Because of your attitude: yes!

^^ im with them

ps some1 post masterkills l33t explanition of what is expected

No, sorry, too simple, messy.

I like your attitude though, keep it up! :)

Hey, i'm not going to vote, but heres some suggestions:

1. add sleeping
2. world switching
3. instead of terminating the script inside the procedure when you dont find the staff or nats, try turning them into functions and using an if statement, tends to keep things more flexible.

edit: some more suggestions:
4. Try adding a option to logoff after so many casts and end script or go to next player.
5. Add a function that returns false if you are out of runes :) and then next player when ur out.
6. Add a bit of antiban, doesn't have to be ALOT, just enough so that every 5 minutes maybe u do something, like move your mouse around, or change your camera.

[By MasterKill]

sorry, a no, not good enough yet :( Plz try to use proper standards, and we like to see a complete script from you with the following stuff:

What factors do you need:

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* 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!

i voted no for reasons stated but your on the right track :)

It seems like you're not getting in, sorry.
You may try again in one month.
Closed.