SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP, html (lool), CSS, javascript, Flash actionscript

Other Communitys


How Long have You Played Runescape
2 years :(

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

I started using computers since i was around 8, and become addicted to coding, and graphics related things.

Through the years my ability to 'script' has improved, and i have learnt a lot over the few years that i have been on the computer, and obviously i have matured through continually use. Some may call it an addiction, i merely call it a Hobbie.

I find that scripting is fun, why? it's like some people find crosswords challenging, i find scripting challenging, as in. Best way of doing this, maybe this way is faster? Mhmm, it isn't working, perhaps i should create my own function for this.

I started learning HTML (which is no real relevence to this website, other than it was the main structure for me learning PHP + css)
Most of my experiance is from web based applications.

I then moved onto the obvious choice of Flash, thenslow broadening my horizons by learning scar!!


Please note this is my first scar script, so it mightn't be THE BEST in the world, but it shows my potential.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Unforunatly, my cute little .. box container thing, doesn't work too well with the forums. Although, could be considered as spam if this didn't happen.

{
###############################################################################
###############################################################################
                       _____________________________________________
                       ////////////////////////////////////////////.|
                      ////////////////////////////////////////////..|
                     ////////////////////////////////////////////...|
                   //#### Auto Mager on Zammy monk       ####//...#.|
                  //####      Made by Boxcrop           ####//...##.|
                 //#### Leave account logged off  at   ####//...###.|
                //#### varock castle zamorak monk and ####//...####.|
               //#### press play. Edit lines 29-60   ####//...#####.|
              //####  Set colours V. bright, 32bit  ####//...######.|
             //####        Version 0.5             ####//...#######.|
            ////////////////////////////////////////////...########.|
           ////////////////////////////////////////////...#########.|
           |__________________________________________|..##########.|
           | 3 + mage level required, if 3 mage, just |.###########.|
           | change the spell = 'confuse'  Good luck, |.###########.|
           | don't get banned!!                       |.###########.|
           |__________________________________________|.............|
                       ^ Don't ask what this is ^
###############################################################################
###############################################################################
}


program AutoCurser;
// Includes
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\magic.scar}

var
i: Integer;
x,y: Integer;
Casted: Integer;
t: Integer;
xpt: integer;    // experiance total

{----------------------------------------------
||               The constants               ||
||                  Edit this                ||
----------------------------------------------}
Const
     YourSRLStatsID  =   '';
     YourSRLStatsPass =  '';
     progname  = 'School work'; // Useless function, change this if you want to have Scar 'disguised'
     ZMonkColour1= 2172254; // Three colours of zamorak monk
     ZMonkColour2= 3488915;
     ZMonkColour3= 4212913;
     monstername = 'onk';  // part of name to match during procedure
     spell = 'curse';         // Confuse, Weaken, Curse. All names of spells work.
     Times  = 0; // Amount of times to curse, or whatever   (0 = inlimited, because it will never equal 0 when adding +1)
     xp = 29; // Curse = 29, weaken = 21,Confuse = 13  -- Place change yourself manually for now
// HighestAngle;

{----------------------------------------------
||         Declaration of players            ||
||                Edit this                  ||
----------------------------------------------}

  procedure declareplayers;
  begin
   HowManyPlayers :=2;
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer:=0;

   Players[0].Name :=''; // name
   Players[0].Pass :=''; // passwrod
   Players[0].Nick :=''; // 2-3 letters
   Players[0].Skill:='Magic';// we are doing magic
   players[0].loc:='castle';// location
   Players[0].Active:=True;

   Players[1].Name :=''; //name
   Players[1].Pass :=''; // passwrod
   Players[1].Nick :=''; // we are doing magic
   players[0].loc:='castle'; // location - remains constant
   Players[1].Active:=false;  // This is obvious.
  end;
  
  
  
// -----------  Do not edit past here unless experianced // Not really much to change anyway... ------------




{----------------------------------------------
||            Find fast randoms              ||
||               By WT-Fakawi.               ||
----------------------------------------------}
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: //Respond;  :)
    end;
    wait(1);
  end;
end;

{----------------------------------------------
||                 Anti ban                  ||
||                                           ||
----------------------------------------------}


procedure antiban;
 begin
  if (LoggedIn)then
  begin
    writeln ('Starting Antiban');
      case Random(5) of
        0: RandomMovement;
        1: wait(500+random(10000));
        2: PickUpMouse;
        3: gametab(4);
        4: RandomMovement;
        5: AlmostLogout;
      end;
    writeln('AntiBan End');
    HighestAngle;
  end;
 end;


procedure Curse;
Begin
     Cast(spell);
end;
{----------------------------------------------
||                 Find monk                 ||
||                                           ||
----------------------------------------------}
procedure FindMonk;
// Find the damn monk

begin
     if (FindObj(x,y,monstername,ZMonkColour1,10))
      or (FindObj(x,y,monstername,ZMonkColour2,10))
      or (FindObj(x,y,monstername,ZMonkColour3,10)) then
      begin
        Curse();
        Writeln('Found monk');
        MMouse( x,y,5,2);
        Mouse(x,y,1,1,true);
        Casted:= Casted +1;
      end else
        // If not found
        if (Not(FindObj(x,y,monstername,ZMonkColour1,10)))
            or (Not(FindObj(x,y,monstername,ZMonkColour2,10)))
            or (Not(FindObj(x,y,monstername,ZMonkColour3,10))) then
        begin
        i:= 0;
        repeat
        i:= i +1;

         Case random (3) Of
             0: Makecompass ('s')
             1: Makecompass ('n')
             2: Makecompass ('w')
             3: Makecompass ('e')
          end;
               // proud of this! :)
         until(i = 15)
            writeln('Monk was not found.');
            Logout;
end;


end;

{----------------------------------------------
||                 Report                    ||
||                                           ||
-----------------------------------------------}
procedure Report;
begin
    Cleardebug;
    begin
         xpt:= xp * Casted;
    end;

    Writeln('--------------------------------------------');
    Writeln('Auto curser -- boxcrop version 0.5');
    Writeln('--------------------------------------------');
    Writeln('Time ran for:' + (timerunning) + '');
    Writeln('curses casted:' + inttostr(Casted) +'');
    Writeln('Total experiane gained:' + inttostr(xpt) +'');
    Writeln('--------------------------------------------');
end;





{----------------------------------------------
||                 Main loop                 ||
||                                           ||
----------------------------------------------}
begin
{
Not really sure if this is needed, i'm not sure that there's SRL stats for mage etc :/
But just for fun!!
}
    SetupSRL;
    SRLID := YourSRLStatsID;
    SRLPassword:= YourSRLStatsPass;

    SetupSRL;
    SetupMagic;
    Disguise(progname);
    DeclarePlayers;
   if (not (Loggedin)) then
  begin
    Loginplayer;
    HighestAngle;
    Makecompass ('w')
  end;
  begin
   T:= 0;
  repeat
    T:= T + 1;
    wait(50+random(200));
    FindFastRandoms;
    Curse;
    wait(900+random(200));
    FindMonk;

  begin;
    Report;
  end;
    until(T = Times)
    writeln('All spells casted! Enjoy maging.');
     Logout;
    end;
  end.

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

Please Put It In Scar Tags

No This Script is Way To Simple, and there are no standards or failsafes.

No Need For

FindFastRandoms;

,

FindNormalRandoms;

Does It All

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

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 fail safes for every possible option what could be going wrong

No,but Hope To See You In One Month :D

From: Timer150
Please Put It In Scar Tags

You beat me, by the time i realised i edited it, if you notice the time it was edited at : 1 min after this XDD Probs like 10 secs max. :)

—-

Also, i notice in the script my antiban is VERY poor. I am still learning how to use the scarwiki :)

Thanks for reading, good luck to me.

—

re-edited it 10 mins later, because i noticed i placed it in qoute.

Changed your password and PM'ed you so nobody can steal it *cough* hey321 *cough*

From: bullzeye95
Changed your password and PM'ed you so nobody can steal it *cough* hey321 *cough*

I Didn't even notice his Username or Password, lol :p

Wish You Luck boxcrop :)

Timer you sure like to use that paragraph of writing awfully alot in applications :D

I beleive there is only one failsafe, if it can't find the monk surely?

Okay, i shall remake a script, what would you suggest for someone like me to learn, for their second script?

Function FindFastRandoms: Boolean; //Not needed anymore, use FindNormalRandoms
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: //Respond;  :)
    end;
    wait(1);
  end;
end;

procedure antiban;
 begin
  if (LoggedIn)then
  begin
    writeln ('Starting Antiban');
      case Random(5) of
        0: RandomMovement;
        1: wait(500+random(10000));
        2: PickUpMouse;
        3: gametab(4);
        4: RandomMovement;
        5: AlmostLogout; //Will never be called, read last note
      end;
    writeln('AntiBan End');
    HighestAngle;
  end;
 end;

if (FindObj(x,y,monstername,ZMonkColour1,10)) //Learn arrays
or (FindObj(x,y,monstername,ZMonkColour2,10))
or (FindObj(x,y,monstername,ZMonkColour3,10)) then

Case random (3) Of
  0: Makecompass ('s')
  1: Makecompass ('n')
  2: Makecompass ('w')
  3: Makecompass ('e') //Will never be called; to fix, change random(3) to random(4)
end;

Keep trying, for now it's a no, but in a month or two, I wouldn't be surprised if you're a member.

As other members have said. Voted no

Didn't notice this:

procedure antiban;
 begin
  if (LoggedIn)then
  begin
    writeln ('Starting Antiban');
      case Random(5) of
        0: RandomMovement;
        1: wait(500+random(10000));
        2: PickUpMouse;
        3: gametab(4);
        4: RandomMovement;
        5: AlmostLogout; //Will never be called, read last note
      end;
    writeln('AntiBan End');
    HighestAngle;
  end;
end;

Taken right from my scripts with no credits given.

So no, plus to simple. I know this is 3 days old, but I had to mention that last bit.

Some parts look a bit like copied :S I mean that kinda sudden jumps in standards… Like you took some part from another script and in that script there was more indenting at that part. BUT it could just be me being paranoid.. Or you just might have a bit weird standards :D

Well.. I think I'll vote no though.. The script could be a bit more complex as you don't use walking at all in this script you could make the object finding a bit more advanced, or maybe add some nice extra feature kind of stuff? Or put more thought in the standards, although they aren't really that important.. Everyone has their style :p

Still gj so far ;)

Poll Expired
0-yes
7-no
Closed.
Read all the feedback you received, make the changes, and try again later.
GOOD LUCK