SRL Archive - Archive

bagofelix - SRL Member Application Form
bagofelix

What is the meaning to life?


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

Programming Knowledge
Java, HTML

Other Communitys
Retired Rs-resources Admin, Ex LegionGamerZ admin. Admin on DannyDuckz Forum(Non-RS-Cheating). Official RSR MiddleMan.

How Long have You Played Runescape
6 Years

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

I've only just started making my own SCAR scripts. But they are so much fun to make that I wish I'd started sooner. I didn't really understand the tutorials, so I've sort of been winging it. But my friend Iamadam has taught me a lot about it. He is one of the four devs of ARGA. Very good scripter as well. He and ChArMz have both taught me quite a bit. This is my second application. I've learned TONS about scripting since I last submitted an application. One thing I learned about was the freaking SRL manual which I now have printed out and neatly in a spiral bound notebook. Makes scripting much easier. I've added multiplayer to this as well as some more effective methods and functions.

As far as the script goes,
Successfully compiled
Line 170: [Hint] (187:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar

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

{.Script Info:
# ScriptName  = High and Low Alcher
# Author      = Bagofelix. Small snippits of code from ChArMz and MartinW.
# Description = High Alchs
# Version     = Beta
# Date        = 12/5/2006
# Comments    = [url]www.villu-reborn.com[/url]
/Script Info}

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

Const
  GoldPer = 768;                           //Gold per Alch
  Item = 'Yew Longs';                     //Item Name(This is only for the report so it aint important)
  AntiBann = True;                       //AntiRandoms? Recommended HIGHLY if alching outside bank. If not, just watch the script. I do NOT recommend alching in a random prone area.
  InvNumber = 8;                       //Inventory number of Item you would like to alch
  ModOption = True;                    //Set to true if you want to look for moderators. If not, set false.
  StartPlayer = 0;                   //Determines which player you start with.
var
   TotalNeeded : Integer;
   ItemsRemaining : Integer;



Procedure DeclarePlayers;
begin
     HowManyPlayers:=6;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;
     
     Players[0].Name     :='test';
     Players[0].Pass     :='test';
     Players[0].Nick     :='est';
     Players[0].Active   := True;

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

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

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

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

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

end;
Procedure ChangeReport;
begin
    cleardebug;
    Writeln('You have ' +inttostr(HowManyPlayers)+' players set to run.');
    Writeln('The starting player is '+ players[currentplayer].name);
    Writeln(' Alched ' + inttostr(TotalNeeded - ItemsRemaining + 1) + ' ' + (Item));
    Writeln('Made ' + inttostr((TotalNeeded - ItemsRemaining)*GoldPer + GoldPer) + '');
    Writeln(inttostr(ItemsRemaining - 1) + ' times left');
end;

procedure NoBan;
begin
    Writeln('Antiban procedure in progress');
    AntiBan;
    if(ModOption=true)then FindMod;
     BoredHuman;
     RandomMovement;
     FindNormalRandoms;
end;

procedure Alch;
begin
  castspell(31);
  CountInvSlot(ItemsRemaining,4,4)
  Mouse(707, 330, 0, 0, True);
  Wait(random(200)+2800);
end;

Procedure Alching;
begin
repeat
      if(random(15)=1)and(AntiBann=true)then NoBan;
      ChangeReport;
      Alch;
      until(ItemsRemaining=1)
      Writeln('Switching users');
      Wait(random(50)+50);
      logout;
if(not(Loggedin)) then NextPlayer(false);
end;

Procedure LoggingIn;
begin
     DeclarePlayers;
     LoginPlayer;
end;

begin
     setupsrl;
     LoggingIn;
     CountInvSlot(TotalNeeded,4,4);
     Alching;
end.

——————————————————

I'm going to have to say no due to the sheer simplicity of the script, the script isn't a script that shows enough knowledge of SRL. If you do know more about SRL then try and write a different script, sorry.

Alchers don't need multiple players really, and though you do switch players you don't loop back around to start the process over again.

Oh okay. Thanks for the CC.