SRL Archive - First Scripts

JESUS45 (SRL) Chicken Massacre!

Current Features:
Multi Players
Anti Ban
Anti Randoms
Progress Report
Feather Picking.

Use script in SCAR3.11 with SRL 4.0 beta.

If you try to compile the script and you get error line 37 duplicate identifier 'x' in script, you don't have the newest SRL 4.0 beta correctly installed.

Verson 3 released!!:
things i fixed:
Errors
Added a progress report.
Fixed a bug.

Next Version Will Include:
Better feather picking!
More Stable Script
More failsafes.


Please remember to post progress reports and any bugs that you encountered during the use of this script. Thanks

Post all progress reports and have fun autoing !!

           ***********************************
*****Jesus45s Chicken Killer*****
****Killed 5 Chickens!****
****Worked For 3 Minutes and 25 Seconds****
****Gained About 60 Exp!****
***********************************

if it says everything you say it does itl be good but i cant try it right now, i will later maybe

why is that…? i see that your at 10 posts and that is all must mean you just posted this to get a post count up to 10 for the other scripts….hhhmmmm…noob or leecher w/e you want to be called

uhhm no i said ill try it later, im gonna try it right now… -.-

only 10 posts cuz i just got here on the 29th of august

edit wont compile
Line 211: [Error] (12442:5): Unknown identifier 'InFight' in script

I believe this was posted somewhere else on the forums.

//Edit.

Posted here.. http://www.villavu.com/forum/showthread.php?t=16763?t=18389&highlight=Chicken+Massacre

No need for 2 topics on same thing.

nice script

I got same error as music guy did :S

Line 211: [Error] (12442:5): Unknown identifier 'InFight' in script

Sorry i'll try to fix the 'InFight'. I think it might be the SRL but i'm not sure. As for the two posts on the same thing, this is my first release of a script so yes it would be alright to post two.

jesus45 to use infight you need to include:
{.include srl/srl/skill/Fighting.scar}
nice script for a first one ;)

Is this working with 4.0 beta??

From: coollukehand
Is this working with 4.0 beta??

leecher. anyway, yes. when you at {.include srl/srl/skill/Fighting.scar} to the icludes.

Getting same error as all scripts i have tried,

Mouse speed error

well, once again i'll say this. There are lots of threads on this. I don't think SRL 4.0 beta is very stable right now. That's the main reason why no one is autoing at the moment. Plus it's not scripted in SRL 4.0 beta

program Jesus45Chickenmassacre;
{.include SRL\SRL.scar}
{.include srl/srl/skill/Fighting.scar}

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

//specail thanks to drnewheart, for help :)

{========================================================
[                   Jesus45 ChickenMassacre              ]
[                                                        ]
[        Description: This is V.1 of Jesus45's chicken   ]
[                    Massacre.  Drag the CrossHairs      ]
[                    Over the Runescape client, setup    ]
[                    Users below and options then hit    ]
[                    play button.  Happy Autoing :)      ]
==========================================================}

              {FILL OUT OPTIONS HERE}  {PLAYER SETUP BELOW}


const
FightingStyle = 2;   // 1 = attack     2 = strength     3,4 = defense
PickUpfeathers = True;    // true to pick up feathers false to not.(May lag)
ChickenKills = 566546;   //how many chickens you want to kill.



Var////////////////////////////////////////////////////////
ChickensKilled: integer;//     DONT CHANGE !!           //
x,y,Mark1: integer;    //      DONT CHANGE !!          //
Feather: integer;     //       DONT CHANGE !!         //
///////////////////////////////////////////////////////

{*************************************************************}
 procedure DeclarePlayers;                                   //
 begin                                                       //
   HowManyPlayers := 6; //Number of PLAYERS. active or not.  //
  NumberOfPlayers(HowManyPlayers);                           //
  CurrentPlayer := 0; //Player to start on.                  //
{*************************************************************}


    {SET ALL USERS CORRECTLY}

  Players[0].Name := 'Jadseven';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'dsev';      // 3 letters of your username
  Players[0].Active := True;

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;

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

{************************************************************************}
{              Sets the color brightness to highest                      }
{************************************************************************}

Procedure ReallyBrightColor;
Begin
  begin
    GameTab(11);
    Wait(500+random(12));
  end;
  If GetColor(712, 226) <> 16777215 Then
  Begin
    Mouse(712, 226, 2, 2, True);
    Wait(300+random(50));
  End;
end;

{************************************************************************}
{                     Anti ban & Anti random                             }
{************************************************************************}
Procedure JesusNoBanPlz;   // Took alot of advice from JAD on
begin
  if(not(LoggedIn))then      // the anti ban (thanks).
    ReallyBrightColor;
  begin
    case random(3) of

      1: PickUpMouse;

      2: begin
           TypeSend('wow im almost up a str lvl');
            Wait(1000+random(500));
            GameTab(4)
         end;

      3: begin
          HoverSkill('Strength',false);
          Wait(1000+random(200));
          GameTab(4)
         end;
       end;
     end;
  end;


{************************************************************************}
{                          Anti Randoms                                  }
{************************************************************************}
Procedure Randoms;
Begin
  FindNormalRandoms;
end;

{************************************************************************}
{                           FightStyle                                   }
{************************************************************************}
 Procedure FightStyle(Style:string);
begin
  case Style of
   '1': SetFightMode(1);
   '2': SetFightMode(2);
   '3': SetFightMode(3);
   '4': SetFightMode(4);
  end;
end;


Procedure AttackChicken;
Begin
  FightNPC(5796737,5928324,3627637,3627637,5928324,7904432,15,15);
end;
{*********************************************************************}
{                         Picks Up Feathers.                          }
{*********************************************************************}

procedure LoadBmps;
begin

Feather := BitmapFromString2(False, 'aE4B0678DA6D90410E0421' +
       '0804BFC48C34304740FDFF93567492DDC3AAA9904ED1078988662' +
       'E905F0B2252242EC21611E33B8F4D2B075AF36D6502D580B977EF' +
       '2A63DF73A0A8D5ACB13B77C3C9F529F5D2566C9296B4EE0FAB9E2' +
       '8DCA78F80AFA35D20FCB09ACA1F533D3D0ECD95A46B4347642467' +
       '3B7C4DF3E15D81897168439BDE189C1CF5228EA9171C8F3088A7C' +
       'EF53D38C99B1377EEC784B1B08039AE971F38F');

end;

procedure ClickingOnBitMap;
begin
  if(FindBitmapIn(Feather,x,y,0,0,100,100)) then
  begin
    MMouse(20,40,45,25);
    Wait(1000+random(100));
    Mouse(x,y,2,2,False);
    Wait(100+random(50));
    ClickOption('fea', 1);
  end;
end;

procedure FreeBmps;
begin
  FreeBitmap(Feather);
end;
{*********************************************************************}
{                          Progress Report.                           }
{*********************************************************************}
Procedure Report;  //Specail thanks to drnewheart for the report.
begin
  Writeln('***********************************');
  Writeln('*****Jesus45''s Chicken Killer*****');
  Writeln('****Killed '+(IntToStr(ChickensKilled))+' Chickens!****');
  Writeln('****Worked For '+ TimeRunning+'****');
  Writeln('****Gained About '+IntToStr(ChickensKilled*3*4)+' Exp!****');
  Writeln('***********************************');
end;

{*****************************************************************}
{                           Main Loop                             }
{*****************************************************************}

begin
  SetupSrl;
  ActivateCLient;
  DeclarePlayers;
  LoginPlayer;
  JesusNoBanPlz;
  FightStyle(IntTOStr(FightingStyle));
  LoadBmps;
  ClickingOnBitMap;
  FreeBmps;
  repeat
    AttackChicken;
    OutFight;
    Randoms;
    LoadBmps;
    JesusNoBanPlz;
    ClickingOnBitMap;
    FreeBmps;
  until (ChickensKilled) = (ChickenKills);
  Report;
end.

Successfully compiled

this works for me.

Thank you for helping me. The odd thing tho, is that it doesn't compile for me. I've made three scripts and none of them have ever compiled for me, that's the reason i haven't released them.

Line 37: [Hint] (12681:1): Variable 'MARK1' never used in script
SRL Compiled in 187 msec

wierd that it doenst compil for you. where you from? if your dutch (that would be nice :p)
anyway add me: [email]rik_ldekikker@hotmail.com[/email] .
iam bored lol.

I'm getting this message everytime I try and run the script.
Failed when compiling
Line 37: [Error] (14890:1): Duplicate identifier 'x' in script C:\Documents and Settings\Desktop\Runescape\chicken fighter.scar
I am confused since there is only one var x in the script?
oh yeah woo hoo first post….lol

Lol i like the name

You haven't downloaded SRL 4.0 beta yet. If you have downloaded the newest SRL correctly you wont have this error.

I have beta 4 installed correct ( i hope) and i get this error unkonown identifire infight line 211

From: rikjess
leecher. anyway, yes. when you at {.include srl/srl/skill/Fighting.scar} to the icludes.

I am trying to learn here not be insulted

Try getting the new version of my script cause i fixed alot of stuff.

It's alright if you are leechers for right now. You need to get SCAR3.11 installed on your computer, then go and download SRL 4.0 beta.

thx bambam…lol and jesus thanks for that it works now, however, it doesn't want to pick up the feathers :confused:

Yeah i know, it's a really lame pick up feathers procedure. I'm going to work on that right now. Thanks for posting. I'm also working on the report.

Thanks for adding credit to me now i fell special :) lol well I guess it was needed though because I fixed ALOT of errors.

Nice post, I"m getting kind of tired of the chicken killing scripts though -.0

i tried the script in one of the posts, it started to work but later the guy started to attack farmers…is this best used @ some dif chicken farm?

Yeah i tried to fix that. I'm still working on the script. It's just that one of the colors is really close to the color of the farmers hat. Plus the fighting procedure i used doesn't have a name txt check. SO i'll work on it thanks :)

I think i am getting close, I am receiving an out of range error when it comes to one of the logins line 62 or 67 depending how many players I have specified
but i did get a successfully compiled.

I am such anoob at this but hopfully Ill learn

Thank you for the script.

From: coollukehand
I think i am getting close, I am receiving an out of range error when it comes to one of the logins line 62 or 67 depending how many players I have specified
but i did get a successfully compiled.

I am such anoob at this but hopfully Ill learn

Thank you for the script.

I also get a [Hint] 'MARK1' never used in script:

Yeah the Mark 1 thing you can ignore, it's not going to effect the script.

very nice first script!
I'd wish i were as good as you :(

WOO HOO I got it going finally, it killed good, but tried to kill more before one was dead, was tough on the farmer, the wheat sacks are close in color too. It did not pick up a single feather.

Thanks for the opportiunity to try it out

Yeah i'm working on it lol, i've updated this script like 5 times in the last 2 days. I'm working on it tho so i might release the next version today. With actual feather picking and better multi player functions and stuff.

how good is the script, is it worth downloading?

Its great if you just want to kill chickens but if you want it to pick the feathers I think we should give Jesus some more time to work his magic. IMHO.

P.S. Jesus try to slow the time down that it takes to click on another chicken.

Its working great but like lunartech says it need to pick up feathers and bury the bones :)

And i get hint from SCAR:
'[Hint] 'MARK1' never used in script…'

Would be amazing if it could pick up feathers.

Thanks,
I will try it and post mine results later

Yeah i know i worked on the feather picking procedure for like an hour and a half, and it still doesn't work :D. I'm still working on it.

it works well
took me all day cuse just found out what to do to make scar work :P

Cool, well after your done using please post progress reports and tell me bugs.

Not too good, it wandered off, I was watching, I actually saw it go to the bank and pull out some crap, Lol. But I guess it worked out, I couldn't post the results SRRY. 8/10

this is a great script i really like it, the only problem i found was that it didnt pick up feathers very well.other than that great job

This sounds pretty cool
I'm going to try it out and give you a progress report
but first I need to build myself an army of noobs
lol

rikjes i tryed using ur chiken killing script but it came up with:

Line 37: [Error] (14890:1): Duplicate identifier 'x' in script

what do i do to fix thix problem??

cheers

bev

Do you plan on expanding your Randoms procedure?
If not, you could just call FindNormalRandoms instead of calling Randoms…

Think you could have it wait until the health bars go away before it clicks another chicken? Thats what I would do. Feather picking up… didn't happen, don't think your bitmap is easily found… Maybe you could use FindObjCustom to look for colors then check if it says feather? Same could be done for bones if you wanted to do that.

Still liked to click on farmers, even without the hat checking for some letters of chicken or attack would be good.

If you get this working I'll use it for my army of woodcutters/miners to get their combats up.

cool! :)
it works well:D