SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Scar

Other Communitys
www.golivewire.com

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've been a member here for a year or so. I stopped playing runescape quite some time ago though as it became boring. I finally got around to finding some free time and read some tuts on how to program with scar. I didn&#8217;t really get it but a couple weeks ago I tried again and it just sorta clicked. I opened up runescape again and started testing out procedures and different ways of walking. Eventually I decide that a chicken killer would be a good start.

There I was, trying to make my first script and after many trial and errors I have it working. It&#8217;s not the most 1337 script by any means but it gets the job done. S0 far I&#8217;ve collected 50k feathers without a ban. I have added anti randoms and anti ban to my script and tried to demonstrate basic knowledge of scar. For some reason I find myself addicted to scripting. Its amazing how you can write something so simple and make it do work for you. I hope to further my knowledge and learn to use scar for more useful things than runescape with the help of this great community.

Thanks you for taking the time to read this and for letting me be part of this great network of scripter&#8217;s. I hope to become well trained in scar and help to better this already wonderful community.

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

////////////////////////////////////////////////////////////////////////////////
//                            Chicken killer by Crackkilzu                    //
////////////////////////////////////////////////////////////////////////////////
//  >pwn d4 chickens                                                          //
//  > pick up those wonderful feathers                                        //
//  > Bury bones                                                              //
//                                                                            //
//  Instructions:                                                             //
//    1. Drag crosshairs to client                                            //
//    2. Pick the color of the chicken                                        //
//    3. Put in player info                                                   //
////////////////////////////////////////////////////////////////////////////////

program ChickenFighter;

// SRL Includes
{.include SRL/SRL.scar}

const
  ChickenColor = 6326692;         // Chicken Color
  FeatherColor = 9737378;         // Color of Feather
  BoneColor = 12435142;           // Bone color make sure not to where anything white
  KillsPerPlayer = 75;            // How many chickens to pwn
  WaitTime = 3500;                // How long before attacking next chicken

var
  BoneDTM : Integer;


// Set up the players
procedure DeclarePlayers;
begin
  NumberOfPlayers(2);
  CurrentPlayer := 0;

  Players[0].Name := 'zezima'; // name of account being used
  Players[0].Pass := 'macro123'; // password, don't worry no hacking here ;)
  Players[0].Nick := 'zim'; // 3-4 letters from the account name
  Players[0].Active := True; // use this player?

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

/////////////////////////////////////////////////////////////////
// DON'T EDIT AFTER THIS POINT UNLESS YOU KNOW WHAT YOU'RE DOING/
/////////////////////////////////////////////////////////////////
//Find Feathers

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

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

procedure FindFeathers;
var
  x, y : Integer;
begin
  Flag;
  repeat
    if not FindObj(x, y, 'eather', FeatherColor, 0) then Exit;
    Mouse(x, y, 0, 0, True);
    Flag;
  until (False);
end;

// Find bones and bury
procedure FindBones;
var
  x, y : Integer;
  FoundAllBones : Boolean;
begin
  Flag;
  FoundAllBones := False;
  repeat
    if not FindObj(x, y, 'ones', BoneColor, 0) then FoundAllBones := True;
    if not FoundAllBones then Mouse(x, y, 0, 0, True);
    Flag;
  until (FoundAllBones);
  repeat
    if not FindDTM(BoneDTM, x, y, 540, 180, 750, 480) then Exit;
    Mouse(x, y, 3, 3, True);
    Wait(2000);
  until (False);
end;

// Da chicken killa!!!!
procedure KillChicken;
var
  x, y : Integer;
begin
  repeat
    Wait(100);
  until FindObj(x, y, 'hicken', ChickenColor, 0);
  Mouse(x, y, 1, 1, True);
  Wait(WaitTime);
end;

// Main program
begin
  SetupSRL;
  DeclarePlayers;
  if LoggedIn then Logout;
  LoginPlayer;
  BoneDTM := DTMFromString('78DA63CC616260E0606440067B366F626005D' +
       '23051C62CA01A465435CB66CD4455930E54C389AA664E5F1FAA9A' +
       '12A01A2E54352BE7CD4555538EE91E137D7D5435A94035CCA86A4' +
       '0B2286AF2806AD850D594E764A3AAC904AA11C46DCE7F20000065' +
       '0B1167');
  // Main Loop
  repeat
    KillChicken;
    FindFeathers;
    FindBones;
    Inc(Players[CurrentPlayer].Banked);
    if Players[CurrentPlayer].Banked mod KillsPerPlayer = 0 then
    begin
      NextPlayer(True);
    end;
    if not LoggedIn then NextPlayer(False);
  until False;
end.

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


Soz guy, I uploaded this at school and apparently it doesn't compile for some reason.

I think one thread is more than enough..

Don't all scripts have to compile? xD

too simple, multiple apps

  until False;
end.

uh oh, u-in-twu-bul

lol dont use until false.
Sorry man but the script is too simple, try addidng more things to it like antirandoms and such.

no sorry=p keep trying though ull get there

Ok guys, Fixed the problem and added anti randoms, where should i go from here?

You should've test if it compiles, since when making the application it says above the script box that it should compile.

Also, you have about no failsafes.

You should go read the sticky in the FAQ about SRL Membership, and then more tuts and things about it.

Don't worry, thats a good start and next time you will propably get in if you study hard.

Remember to wait atleast one month, and make sure your script is ready, we don't like that somebody says "This isn't kinda ready" because you should apply when you are ready.

Thank you and good luck next time.

From: Macrosoft

  until False;
end.

uh oh, u-in-twu-bul

lol dont use until false.
Sorry man but the script is too simple, try addidng more things to it like antirandoms and such.

no offence but whats wrong with until false…he breaks out all loops…exept this

procedure KillChicken;
var
  x, y : Integer;
begin
  repeat
    Wait(100);
  until FindObj(x, y, 'hicken', ChickenColor, 0);
  Mouse(x, y, 1, 1, True);
  Wait(WaitTime);
end;

Many l33t scripters use until false, and add

if blabla then break

betwwen repeat and until :)

Sorry crackkilzu, but it's too simple, no, gl next time

Closed