PDA

View Full Version : JESUS45 (SRL) Chicken Massacre!



TheSantaMan
09-04-2007, 05:57 AM
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!****
***********************************

musicguy
09-04-2007, 07:00 PM
if it says everything you say it does itl be good but i cant try it right now, i will later maybe

HyperSecret
09-04-2007, 07:11 PM
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

musicguy
09-04-2007, 07:27 PM
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

rogeruk
09-04-2007, 10:58 PM
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.

jonni67
09-04-2007, 11:43 PM
nice script

silentguy630
09-05-2007, 01:12 AM
I got same error as music guy did :S

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

TheSantaMan
09-05-2007, 05:40 PM
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.

Rikje
09-05-2007, 05:54 PM
jesus45 to use infight you need to include:
{.include srl/srl/skill/Fighting.scar}
nice script for a first one ;)

coollukehand
09-05-2007, 06:00 PM
Is this working with 4.0 beta??

Rikje
09-05-2007, 06:05 PM
Is this working with 4.0 beta??

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

coollukehand
09-05-2007, 06:06 PM
Getting same error as all scripts i have tried,

Mouse speed error

TheSantaMan
09-05-2007, 06:08 PM
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

Rikje
09-05-2007, 06:21 PM
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,7 904432,15,15);
end;
{************************************************* ********************}
{ Picks Up Feathers. }
{************************************************* ********************}

procedure LoadBmps;
begin

Feather := BitmapFromString2(False, 'aE4B0678DA6D90410E0421' +
'0804BFC48C34304740FDFF93567492DDC3AAA9904ED107898 8662' +
'E905F0B2252242EC21611E33B8F4D2B075AF36D6502D580B9 77EF' +
'2A63DF73A0A8D5ACB13B77C3C9F529F5D2566C9296B4EE0FA B9E2' +
'8DCA78F80AFA35D20FCB09ACA1F533D3D0ECD95A46B434764 2467' +
'3B7C4DF3E15D81897168439BDE189C1CF5228EA9171C8F308 8A7C' +
'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.

TheSantaMan
09-05-2007, 06:30 PM
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.

Rikje
09-05-2007, 06:34 PM
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: rik_ldekikker@hotmail.com .
iam bored lol.

lunartech
09-05-2007, 09:52 PM
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

bambam922
09-05-2007, 10:23 PM
Lol i like the name

TheSantaMan
09-05-2007, 10:38 PM
You haven't downloaded SRL 4.0 beta yet. If you have downloaded the newest SRL correctly you wont have this error.

coollukehand
09-05-2007, 11:17 PM
I have beta 4 installed correct ( i hope) and i get this error unkonown identifire infight line 211

coollukehand
09-05-2007, 11:20 PM
leecher. anyway, yes. when you at {.include srl/srl/skill/Fighting.scar} to the icludes.

I am trying to learn here not be insulted

TheSantaMan
09-05-2007, 11:40 PM
Try getting the new version of my script cause i fixed alot of stuff.

TheSantaMan
09-05-2007, 11:44 PM
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.

lunartech
09-05-2007, 11:53 PM
thx bambam...lol and jesus thanks for that it works now, however, it doesn't want to pick up the feathers :confused:

TheSantaMan
09-05-2007, 11:59 PM
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.

drnewheart
09-06-2007, 12:17 AM
Thanks for adding credit to me now i fell special :) lol well I guess it was needed though because I fixed ALOT of errors.

Derkel
09-06-2007, 12:49 AM
Nice post, I"m getting kind of tired of the chicken killing scripts though -.0

silentguy630
09-06-2007, 02:42 AM
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?

TheSantaMan
09-06-2007, 04:56 AM
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 :)

coollukehand
09-06-2007, 01:00 PM
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.

coollukehand
09-06-2007, 01:03 PM
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:

TheSantaMan
09-06-2007, 03:34 PM
Yeah the Mark 1 thing you can ignore, it's not going to effect the script.

Nuclear898
09-06-2007, 03:38 PM
very nice first script!
I'd wish i were as good as you :(

coollukehand
09-06-2007, 06:20 PM
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

TheSantaMan
09-06-2007, 06:22 PM
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.

dillvill92
09-06-2007, 08:46 PM
how good is the script, is it worth downloading?

lunartech
09-07-2007, 02:56 AM
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.

dyles
09-07-2007, 07:01 PM
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...'

Genesis
09-07-2007, 09:34 PM
Would be amazing if it could pick up feathers.

Yami Tim
09-07-2007, 10:10 PM
Thanks,
I will try it and post mine results later

TheSantaMan
09-07-2007, 11:55 PM
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.

killerb935
09-08-2007, 12:27 AM
it works well
took me all day cuse just found out what to do to make scar work :P

TheSantaMan
09-08-2007, 05:58 PM
Cool, well after your done using please post progress reports and tell me bugs.

Lg Solidat
09-08-2007, 06:18 PM
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

legolas98
09-08-2007, 06:27 PM
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

ultima2007
09-09-2007, 12:24 AM
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

bevbev11
09-09-2007, 01:48 AM
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

mickaliscious
09-09-2007, 03:18 AM
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.

asdffff
09-09-2007, 04:48 AM
cool! :)
it works well:D