SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge
VB ( Basic)

Other Communitys
Kaits (until clossed)

How Long have You Played Runescape
4 yr

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

I have always showed an interest into scar since Kait had here forums but I never had time to learn any scripting as I was always in school. Recently I have dabbled a bit into scar and VB. The results being outstanding, well to me anyway.

Over the last few weeks I have learned mostly all the tutorials in the "TUT" section. I have also made a working agility script using DTM's, Fail safes, Multiplayer log-in, Anti-Random’, Anti-Banning, Find color and probably a bit more. The scripts i have made were both unique and had not been made before the first was a dancer that accepted money off tippers and the second an agility script which i will be showing later on.

I also have a GNVQ in ICT and an ECDL qualification. I know this does not mean i can code but am sure you will notice that it show i am a very confident person and i know when i put my mind into something i can do it.

Soon i will be joining a college to learn programming language and would love to be able to show them a file full of scar scripts. This would help them notice that i can code but i just need some recourses to learn from.

I would be extremely happy if i was accepted into the SRL members :D
If not then I will keep trying by making more scripts :P

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

/////////////////////////////////////////////////////////////////////////////////////
///!!!!!!.......!!!!!!!!!!!!..!!!............!!!..!!!..!!!.......!!!..!!!!!!!!!!!!///
///!!!...!!!....!!!............!!!...........!!!.......!!!!!!....!!!..!!!.........///
///!!!......!!!.!!!..............!!!........!!!...!!!..!!!.!!!...!!!..!!!.........///
///!!!......!!!.!!!!!!............!!!.....!!!.....!!!..!!!..!!!..!!!..!!!!!!!!!...///
///!!!...!!!....!!!...............!!!.....!!!.....!!!..!!!...!!!.!!!..!!!.........///
///!!!!!!.......!!!...............!!!.....!!!.....!!!..!!!....!!!!!!..!!!.........///
///!!!..........!!!!!!!!!!!!........!!!!!!!.......!!!..!!!.......!!!..!!!!!!!!!!!!///
/////////////////////////////////////////////////////////////////////////////////////
///1.To use this you WILL NEED a toy mouse.                                         ///
///2.I suggest using it in a building upstairs ina small room that not many         ///
///  people use                                                                     ///
///3.Watch out for people with cats because they can use there cats to eat          ///
///  your mouse!!!
///4.You need to set the color of the mouse when it on the main screen!!!                                                                 ///
/////////////////////////////////////////////////////////////////////////////////////
program New;
{.include SRL/SRL.Scar}

///FindNormalRandoms; (this is how to use find randoms

var Mousey: Integer;
    originv: Integer;
    i: Integer;
    Tries: Integer;



const

  MouseMS  = 12763862;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;


procedure Mousebag;
begin
  Mousey := DTMFromString('78DA633CC7C4C050C9C80002CC0C10F0F3E74' +
       'F0639200D12FD0F048CA7816ACA51D57CFAF811AE060418CF02D5' +
       '14A1AAB9724C12534D0101359730DD7374C53254356730CD39B84' +
       '51C450D00BF9A1931');

  if(FindDTM(mousey,x,y,566, 214,728, 452))then
    begin
      MouseSpeed :=12
      FindNormalRandoms;
      Mouse(x,y,2,2,false);
      Wait(1000+random(500))
      ClickOption('Wind', 2);
      Wait(1000+random(500))
      Mouse(x,y,2,2,false);
      Wait(1000+random(500))
      ClickOption('Release', 2);
      FindNormalRandoms;
      if(Tries = 10)then
        begin
          Writeln('Tried to find the color 10 times.. unsuccessfully though :( Terminating script..');
          TerminateScript;
        end;
    end;
end;

procedure pickitup;
 var I: Integer;

begin
  for I := 1 to 7 do
    begin
      repeat
        if (FindColorTolerance(x, y, MouseMS, MCX1, MCX1, MCX2, MCX2,I)) then
        originv := InvCount;
        MouseSpeed :=1
        Mouse(x, y, 1, 1, true);
        FindNormalRandoms;
        wait(500 + random(1000));
        if(Tries = 50)then
      begin
        Writeln('Tried to find the color 20 times.. unsuccessfully though :( Terminating script..');
        TerminateScript;
      end;
    until(not(originv = InvCount));
  end;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
begin
  for i := 1 to 8 do
   MouseSpeed :=13
  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;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure AntiBanage;
begin
  MouseSpeed :=13
  if(not(LoggedIn))then
  Exit;
  case Random(5) of



    0: begin
         HoverSkill('Agility', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

   1: begin
         HoverSkill('Attack', false);
         wait(2000+random(1000));
         GameTab(4);
       end;



    2: PickUpMouse;



    3: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;

    4: MouseBox(MSX1,MMY1,MMX2,MMY2,3);



    5: SleepAndMoveMouse(600000+random(300000));

  end;
end;


begin
  SetUpSRL;
  begin
    repeat
    WriteLn('AB');
      AntiBanage;
    WriteLn('MB');
      Mousebag;
    WriteLn('PU');
      pickitup;
    WriteLn('FFR');
      FindFastRandoms;
    until(false)
  end;
end.

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

Script is a little to simple, and doesn't demonstrate much scripting ability. "/

I cant test the script and dont understand what it does really. But in terms of your script you use a dtm thats great but there isnt anything else great in their. Maybe you should implement walking into somehow? maybe make it a banker that can withdraw and continue playing.

Just say yes, lul.

The script can get your agility up from 1-50 in 1-2days if only you knew about runescape lol.

What he means is that when you have a toy mouse (you make these in your house) you can earn agility xp by picking it up off the floor. This script works very well i have tested and ran for about 20 minutes only found one bug.

the bug is when your man stand on the mouse he carnt find it.

+ He is a very good mate of mine :D

We are not looking at how the script raises your stats we are looking at how much they know and this script displays that they don't know very all the things they need for SRL Member.

not anywhere near enough things in the script

no banking, no walking,no failsafes

Thx pwnd…

It has dtms,antirandoms,antiban but it hasnt got MultiPlayer which is quite important and the script is quite simpel…

by the way it has got failsafes

if(Tries = 10)then
begin
Writeln('Tried to find the color 10 times.. unsuccessfully though :( Terminating script..');
TerminateScript;

it also has multi player you just have to add a few
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;

but i wouldnt say this proggy need multiplayer but owell ill let him down for you's :)

Hm.. This is very simple.. And you should get to know the community more.

If you dont get this time in, make a few scripts , reapply in a month and you definetly get in :)

by the way it has got failsafes

if(Tries = 10)then
begin
Writeln('Tried to find the color 10 times.. unsuccessfully though Terminating script..');
TerminateScript;

oh im sorry…3 failsafes

From: Pwnd
by the way it has got failsafes

if(Tries = 10)then
begin
Writeln('Tried to find the color 10 times.. unsuccessfully though :( Terminating script..');
TerminateScript;

it also has multi player you just have to add a few
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;

but i wouldnt say this proggy need multiplayer but owell ill let him down for you's :)

it may have the DeclarePlayers; procedure, but it does not have multplayer. (no LoginPlayer; or NextPlayer(True) of False.)

it's also to simple, and some code will still be ran that shouldn't, because no begin ends after some of the if statements.

Dan, i wouldn't talk about fail safes if i were you, your script had almost none :p

From: YoHoJo
Dan, i wouldn't talk about fail safes if i were you, your script had almost none :p

Lol.. I was just going to say the exact same thing :p

mine had more than 3 and i was learning him from my mistakes

you mean teaching right? Dont tell me english is your first language :p

Whoever is teaching the scripters this stuff…

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

…Needs to edit their tutorial, or learn they don't have to put that!!! >.<

From: Ejjman1
Whoever is teaching the scripters this stuff…

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

…Needs to edit their tutorial, or learn they don't have to put that!!! >.<

uhhhmm. It's in my tutorial.

Notice how he does not have LoginPlayer, a Nick name mask will never be produced… hence, the line you have pointed out.

From: WhiteShadow
uhhhmm. It's in my tutorial.

Notice how he does not have LoginPlayer, a Nick name mask will never be produced… hence, the line you have pointed out.

Exactly.

If people start logged in, their first player is going to get totally OWNED by randoms if you don't have that there..

So you only need it in the declare players procedure because then it would only call it once.

So everybody stop ragging on us tutorial writers about the NickNameBMP thing!