SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java, Php, Scar, VB, flash actionscripting.

Other Communitys
Moparisthebest

How Long have You Played Runescape
It was in october 2001. almost when runescape were released. But of course I havent played all the time.

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

Well, my name is Marius, and I'm very into the programming world.
I learn fast and I learnt Scar & Srl scripting much by looking at completed scripts.
I think Scar is a nice and fun type of language to work with.
My plans is to continue with scripting, and I'm still going to learn this language.
I'm a bit proud of how fast I've learnt scar scripting, and I bet it will learn double as fast now when I'm done with all my exams.
Last year I weren't much active, and I don't know why, because this is the best community I've ever been apart of.

I've currently made one script I'm proud of. When I saw there were no up to dated Prayer scripts, I decided to make one for both me and the community.

I hope my application will be accepted.

Thanks,
Mariuswbz.

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

program BuryMyBones;
{----------------------------------------------------------------------------}
{              __  __            _                    _                      }
{             |  \/  |          (_)                  | |                     }
{             | \  / | __ _ _ __ _ _   _ _____      _| |__ ____              }
{             | |\/| |/ _` | '__| | | | / __\ \ /\ / / '_ \_  /              }
{             | |  | | (_| | |  | | |_| \__ \\ V  V /| |_) / /               }
{             |_|  |_|\__,_|_|  |_|\__,_|___/ \_/\_/ |_.__/___|              }
{  ____  __  __  ____  _  _    __  __  _  _    ____  _____  _  _  ____  ___  }
{ (  _ \(  )(  )(  _ \( \/ )  (  \/  )( \/ )  (  _ \(  _  )( \( )( ___)/ __) }
{  ) _ < )(__)(  )   / \  /    )    (  \  /    ) _ < )(_)(  )  (  )__) \__ \ }
{ (____/(______)(_)\_) (__)   (_/\/\_) (__)   (____/(_____)(_)\_)(____)(___/ }
{                                                                            }
{----------------------------------------------------------------------------}
{                                Version 1.0!                                }
{                        Scar Divi 3.15b   SRL Rev 20                        }
{----------------------------------------------------------------------------}
{                                   SETUP:                                   }
{                                                                            }
{                             Setup lines: 41-64                             }
{                Start in any of the banks in the setup lines                }
{                              START LOGGED OFF                              }
{                      Don't have anything in inventory                      }
{                          Let SMART do the rest :)                          }
{----------------------------------------------------------------------------}
{                                 Version  1                                 }
{                                                                            }
{                             Made the script :P                             }
{----------------------------------------------------------------------------}


{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
var
  x,y,FB,LoadsDone:Integer;
  Bones, BigBones,BonesBuried, BBonesBuried:Integer;
  PlayerStartL, PlayerStopL:Integer;
  NoBones, NoBBones, NoMore:Boolean;
  MoreBones, MoreBBones,FoundIt:Boolean;
  
Const
  YourSRLID = '';   //Your SRL id
  YourSRLPW = '';   //Your SRL password
  World = 10;       //World in SMART
  Loads = 0;        //Leave 0 to bury all bones
  BoneType = 'All'; //What do you want to bury?
                    //All = All bones     B = Regular Bones     BB = Big bones
  BankLoc = 'veb';  //List of banks:
                    //feb = Falador east bank        fwb = Falador west bank
                    //veb = Varrock east bank        vwb = Varrock west bank
                    //akb = al kharid bank           db = draynor bank
                    //eb = edgeville bank
  
Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name  := '';
  Players[0].Pass  := '';
  Players[0].Nick  := '';
  Players[0].Active:= True;
End;
//----------------
//--END OF SETUP--
//----------------

//-////\\\\////\\\\-\\
//-\\\\////\\\\////-\\

//-----------------------------
//--DONT TOUCH ANYTHING BELOW--
//-----------------------------

Procedure LoadDTMs;
begin
  Bones := DTMFromString('78DA63CC6260609062644006F56565601A26C' +
       'A580424A451D5345694A3AAC90512A2A86A96CC9C81AA26054848' +
       'A2AAB97BE306AA9A3420A180AA66567F1F8A1A00E8890B9A');
  BigBones := DTMFromString('78DA63B46360609066644006D1A121601A26C' +
       'AE80A242451D52C9C3A15558D31A639186A5C808422AA9AC68A72' +
       '54355640420255CDB3478F50D400004A700A80');
end;

Procedure CheckRandoms;
Var i:integer;
Begin
   if not LoggedIn then exit;
   for i:=1 to 2 do
      Begin
      Case i of
      1: if FindMod then
         begin
           writeln('Found Moderator.');
           Logout;
         end;
      2: FindNormalRandoms;
      end;
   end;
end;

Procedure Antiban;
begin
  if not LoggedIn then Exit;
  case 6+random(12) of //  1/3 chance to do anything below
    0: HoverSkill('Prayer', false);
    1: PickUpMouse;
    2: RandomRClick;
    3: begin
         GameTab(1 + Random(12));
         Wait(500 + Random(500));
         GameTab(4);
       end;
    4: begin
         MakeCompass('N');
         wait(10+random(5));
         MakeCompass('S');
         wait(10+random(5));
         MakeCompass('N');
       end;
    5: HoverSkill('random', False);
  end;
  wait(30+random(30));
  ReportVars[2] := ReportVars[2] + 1;
end;

Procedure PickRandomBones;
begin
  case random(2) of
    0: if (FindDTM(Bones,x,y,MSX1, MSY1, MSX2, MSY2) and (FoundIt = false)) then
       begin
         mouse(x,y,2,2,false);
         ChooseOption('ll');
         FoundIt := true;
       end;

    1: if (FindDTM(BigBones,x,y,MSX1, MSY1, MSX2, MSY2) and (FoundIt = false)) then
       begin
         mouse(x,y,2,2,false);
         ChooseOption('ll');
         FoundIt := true;
       end;
  end;
end;

Procedure BankForBones;

var
  i:Integer;
  b:String;

begin
  if not LoggedIn then exit;
  b := BankLoc;
  OpenBank(b,true,true);
  Wait(200+random(150));
  if bankscreen then
  begin
    for i:= 1 to 3 do
    begin
      fixbank;
      wait(1000+random(250));

      if(BoneType = 'All') then
      begin
        PickRandomBones;
        if (FindDTM(Bones,x,y,MSX1, MSY1, MSX2, MSY2) and (FoundIt = false)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('ll');
          FoundIt := true;
        end;

        if (FindDTM(BigBones,x,y,MSX1, MSY1, MSX2, MSY2) and (FoundIt = false)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('ll');
          FoundIt := true;
        end;
      end;
        
      if(BoneType = 'B') then
      begin
        if (FindDTM(Bones,x,y,MSX1, MSY1, MSX2, MSY2)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('ll');
        end;
      end;
        
      if(BoneType = 'BB') then
      begin
        if (FindDTM(BigBones,x,y,MSX1, MSY1, MSX2, MSY2)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('ll');
        end;
      end;
      
      if (i=3) and (FoundIt = false) and (not FindDTM(BigBones,x,y,MSX1, MSY1, MSX2, MSY2) or not FindDTM(Bones,x,y,MSX1, MSY1, MSX2, MSY2)) then
      Begin
        CloseBank;
        writeln('No more bones found in bank.');
        NoMore := true;
      end;
    end;
    
    if bankscreen then
    begin
      CloseBank;
      CheckRandoms;
      Antiban;
    end;
  end;
end;

Procedure BuryTheBones;
var
  i:Integer;
  TB:TBox;
begin
  if not LoggedIn then Exit;
  Gametab(4);
  FoundIt := False;
  for i:= 1 to 28 do
  begin
    if Not LoggedIn then break;
    TB := InvBox(i);
    if FindDTM(Bones,x,y,TB.x1,TB.y1,TB.x2,TB.y2) then
    begin
      BonesBuried := BonesBuried + 1;
      ReportVars[0] := ReportVars[0] + 1;
      MouseItem(i,true);
      wait(600+random(200));
    end;
    if FindDTM(BigBones,x,y,TB.x1,TB.y1,TB.x2,TB.y2) then
    begin
      BBonesBuried := BBonesBuried + 1;
      ReportVars[1] := ReportVars[1] + 1;
      MouseItem(i,true);
      wait(600+random(200));
    end;
    Antiban;
    CheckRandoms;
  end;
if not(BoneType = 'All') then LoadsDone := LoadsDone + 1;
end;

Procedure SGB; //Say GoodBye
begin
  ReportVars[3] := ReportVars[3] + 1;
  writeln('Please register to recieve your id and password');
  wait(2000);
  OpenWebPage('http://stats.srl-forums.com/?action=register');
  Terminatescript;
end;

Procedure SetupSmart;

var
  w :integer;

begin
  w := World;
  writeln('Loading SMART client at world ' +IntToStr(w)+'.');
  SmartSetupEx(w, true, true, false);
  SetTargetDc(SmartGetDc);
  If Not (LoggedIn) Then
    While Not (SmartGetColor(360, 172) = 13158) Do Wait(100);
  writeln('Loaded SMART on world ' +IntToStr(w)+'.');
end;

Procedure WMessage;
begin
  writeln('  ____  __  __  ____  _  _    __  __  _  _    ____  _____  _  _  ____  ___  ');
  wait(500);
  writeln(' (  _ \(  )(  )(  _ \( \/ )  (  \/  )( \/ )  (  _ \(  _  )( \( )( ___)/ __) ');
  wait(500);
  writeln('  ) _ < )(__)(  )   / \  /    )    (  \  /    ) _ < )(_)(  )  (  )__) \__ \ ');
  wait(500);
  writeln(' (____/(______)(_)\_) (__)   (_/\/\_) (__)   (____/(_____)(_)\_)(____)(___/ ');
  wait(500);
  writeln('');
  wait(500);
  writeln('                             Made by Mariuswbz!                             ');
  wait(500);
  writeln('');
  wait(100);
end;

Procedure Misc;
begin
  if not LoggedIn then Exit;
  PlayerStartL := GetSkillLevel('Prayer');
  GameTab(4);
  SetChat('On',1);
  SetChat('Off',2);
  SetChat('Off',3);
  SetChat('Off',4);
  SetChat('Off', 5);

  MakeCompass('n');
  SetAngle(True);
end;

Procedure SetupScript;
begin
  ClearDebug;
  if((YourSRLID = '') or (YourSRLPW = '')) then SGB;
  WMessage;
  SetupSmart;
  ScriptID    := '961';
  SrlID       := YourSRLID;
  SrlPassword := YourSRLPW;
  LoadDTMs;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
end;

procedure ProgressReport;
begin
  writeln('...............................................');
  writeln('..               Bury My Bones               ..');
  writeln('..             Made By Mariuswbz             ..');
  writeln('...............................................');
  writeln('Worked for:      ' + TimeRunning);
  writeln('Bones Buried:    ' + IntToStr(BonesBuried));
  writeln('Big Bones Buried ' + IntToStr(BBonesBuried));
  writeln('Leveled from level ' + IntToStr(PlayerStartL) + ' to level ' + IntToStr(PlayerStopL));
  writeln('');
  writeln('Thanks for using Bury My Bones');
end;

begin
  SetupSrl;
  SetupScript;
  Misc;
  if(Loads = 0) then
  begin
    repeat
      BankForBones;
      BuryTheBones;
    until(NoMore)
  end;
  if(Loads >= 1) then
  begin
    repeat
      BankForBones;
      BuryTheBones;
    until(LoadsDone >= Loads) or (NoMore)
  end;
  PlayerStopL := GetSkillLevel('Prayer');
  ProgressReport;
  Logout;
end.

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

sorry no from me. sorry script to simple we like things with rrw etc in waitt ill MasterKill posts his uber eplanation

Yea. You are maybe right. I'll make one now! :)

leave that one in too if ya gunna add anothr script

I might edit the current script, but I add something.
If it don't find bank, it use home tele and walk to lumby bank and bury there :P

well, i voted no. cause no walking

btw if u gonna edit a script leave old 1 and put the new 1 below it.

Walking is not needed in a script >_<
You do not need everything MasterKill will post. It is just optimal to have what he posts.

I vote yes because it is just 'okay', just keep at it and become more active here. Good luck, and I bet an admin will say for you to apply again in 2 weeks because you are so close to perfection, but it is just not there yet 100%.

omfg! Masterkill is so slow.

Now ontopic: Sorry.. No for me, its too simple.

I'm glad there are some no votes.
I feel that makes me want to learn more and make it even more perfect.

IF I'm fast I can maybe make a new script. I hope I get time tomorrow too and still have this application thread.

nice attitude seriously ppl get mad ur happy

really neat

keep it up
IN A GOOD WAY!

Looks like I will have to step into MasterKill's role again.

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!

To comment something myself, I would say that I vote no only because you script is slightly below average. BUT, I simply love your attitude, especially the (ATM) last post you posted about the no votes.

I got lots of time to do more scar scripting, so if I get a no from any of the Administrator, I at least hope for one more chance to proof that I can be a SRL Member.

It was a very bad example I posted. No walking, but only banking and burying.
I'm currently making an Example of what I can do of RRW'ing.

Could I make an script which only walk from one place to another?
The script I posted already got the other steps like DTM, failsafes, blablabla.

From: EvilChicken!
Looks like I will have to step into MasterKill's role again.

I have a life you know! :mad:
keep on quoting me I love it :)



lol anyway, good luck improving the script kid, you made a very good start :)

Thanks, MK. I'll do my best :)

I'll start scripting a new one tomorrow.
I hope it will be better, and with some walking too. :)

Ill say yes, but it is close. You script has some bugs in it that almost made me say no. Your anti-ban doesn't work at all, here's why.

You put
case 6+random(12) of // 1/3 chance to do anything below

This is wrong for so many reasons. For one, the options only go to 5. You add six onto some random number. The random function doesn't return negitive numbers so it will never preform any anti-ban function

to have a 1/3 chance of performing one of the functions you simply need
case random(15) of // 1/3 chance to do anything below
Note the 15, 12 will give you closer to a 1/2 probability (not quite…)

Oh yea I see.
I'm currently making a new script, so I hope that one will get accepted.

From: Mariuswbz
Oh yea I see.
I'm currently making a new script, so I hope that one will get accepted.

You can't post a new script in a pending application, sorry.
Or you get in with this script, or your application will get denied and than you'll have to wait another month (2 weeks?) before you can apply with another script;)

Btw, imo, the script is very simple, so it's a no fro mme, sorry:(

But I like your attitide! Keep 'em up;)

-Tsn.

Procedure CheckRandoms;
Var i:integer;
Begin
   if not LoggedIn then exit;
   for i:=1 to 2 do
      Begin
      Case i of
      1: if FindMod then
         begin
           writeln('Found Moderator.');
           Logout;
         end;
      2: FindNormalRandoms;
      end;
   end;
end;

You can do this with FindFastRandoms too. You don't have to logout, if SRL detects a mod it will log you out for 20 minutes only, so the script doesn't terminate completely ;) Anyways, it's a bit simple indeed ;)

From: the scar noob
You can't post a new script in a pending application, sorry.
Or you get in with this script, or your application will get denied and than you'll have to wait another month (2 weeks?) before you can apply with another script;)

Btw, imo, the script is very simple, so it's a no fro mme, sorry:(

But I like your attitide! Keep 'em up;)

-Tsn.

Oh thanks for the information.
But I can update the current script, right? :p

You could post the new script just dont leave the old one there and clearly state that the second script was posted after the poll had started.

eg

script 1 here

this was the script i origiinally posted.

this script was added after the first script and has improvements
it was posted at date/time

script 2

Oh I see.
Thanks for the information. :)

No, simplicity is not always key ;)

Needs to be walking for my vote. Sorry.

Better luck next time.

3 Yes
8 No

Please take all the suggestions and tips you have received here and improve on your script and reapply in one month(s). Stick around and read some tutorials too. Don't give up yet.

Cheers,
Hobbit.