New Updates: MouseSpeed+ added in more Anti Randoms. :)
Printable View
New Updates: MouseSpeed+ added in more Anti Randoms. :)
Cool its even better now with MORE anti randoms and anti ban
Thanks please post how it runs/if it dies :) i wanna make this as best as i can!
the more feedback the more ill update
Need a good yew /banker for edgville and lumby flax spinner if you can help PM me or send me the Script :f: TY
Bugs: Keeps right clicking on Raw chicken after icking up feathers...FIXED!
put this into SCAR i fixed the chicken colors+ mouse speed is slower (was to fast before)
SCAR Code:{ [-----------------------] o o o o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [-----------------------] o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e L L SSSSSSSSSSS ')
writeln(' [ ] o o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SS')
writeln(' [------------] o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SSSSSSSSSSS SCRIPTS (c) (jOELSTER134)')}
{ [------------]') }
{Start in LUMBRIDGE NORTH CHICKEN COUPE Select window hit run! /\
/\ /\
/\ Version number:6 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
/\ /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! + feather pickup! /\
/\ /\
/\ Run:Setup lines 39-56 select window hit run! /\
/\ /\
/\ /\
/\ /\
/\ NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT! /\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}
program Chicken_Raper;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
const
ChickenColor1 = 857704; // change if you need to
ChickenColor2 = 3430256; //change if you need to
ChickenColor3 = 4897230;//change if you need to
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //current player
Players[0].Name := '***********'; //username!
Players[0].Pass := '**************'; //password
Players[0].Nick := 'equ'; //Nick (3-4 letters of ur name
Players[0].Active := True; //is the player active?
{Players[1].Name := 'Username'; //username!
Players[1].Pass := 'password'; //password
Players[1].Nick := ''; //Nick (3-4 letters of ur name
Players[1].Active := True; //is the player active?
Players[2].Name := 'Username'; //username!
Players[2].Pass := 'password'; //password
Players[2].Nick := ''; //Nick (3-4 letters of ur name
Players[2].Active := True; //is the player active? }
Mousespeed:= 10;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms //
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
5: HoverSkill('Smithing', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure KillChicken;
var
X, Y, Mark: Integer;
begin
FindObjCustom(x, y, ['tta', 'ack', 'chi', 'ken'], [4300721, 989558, 9812173, 3627895, 2047829], 3);
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
if not ChooseOption('ttack') then
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
if HPPercent < 25 then RunTo('N', true);
Wait(300);
AntiRandoms;
end;
//---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\
function PickupFeathers: boolean;
var
x, y, FeatherDTM: integer;
begin
FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C401' +
'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A433B' +
'77A0A80100CAC20B42');
if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('eather') then
AntiRandoms;
begin
Flag;
Result := True;
AntiRandoms;
end;
end;
end;
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
AntiRandoms;
AntiBan;
until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
end.
IT RAN FOR A HOUR NO PROBLEMS :) (was at a school meeting and tested :p)
nice script;)
Wow suspended..waht for if i may ask? also In2it if you want a Yew chopper/bank ask me on msn and i will discuss making one with you.
The way you changed the mouse speed, I believe you made it move slower.
Try moving it to a higher number.
15 is SRL's default, try 20.
It doesn't really matter what mouse speed you use >.<
kk when it was on 20 it seemed really fast so i changed it and it slowed down.
Oh. Well, 15 is SRL's default. So, just completely take MouseSpeed out of your script, if you want to use 15.
KK to add a proggy to this (i wanna see how long it can run) wuld i add in under chicken colors
CHickensToKill = 100;
then like if(chickenKilled +1))
progressreport?
Yes.
Well, you could do something like
SCAR Code:if (ChickensKilled >= (ChickensToKill/2)) then
ProgressReport;
But you would have to run that everytime it clicks a chicken.
And you would also have to make sure that ChickensKilled gets increased by 1 everytime you click a chicken.
Small proggie
ran for: 1 hour :P
got 2800 feathers.
and had bout 3 mysterious box
btw: mouse speed just makes it move faster not really click faster...
willie, he never said it did make it click faster. Lol.
Nice proggie, btw.
But for some reason I highly doubt that in an hour you got 2800 feathers.
I'm going to run this tonight and see how long it can run without something bad happening. I might try it on a solo account, and then multiple. Though if I do multiple I'll have to wait till I get a 24 hour shot at a computer.
problem after it got about 2000 feathers it stopped picking them up any idea??
Might be thisSCAR Code:until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
might wanna make it run longer.. will add in a actual progress report but what you can do so i WILL update is this : Open NotePad type in Xp ATM:= //the exp u have started it at one which skill
Xp After testing/running: how much exp u got (subtract ur current from th total when stopped)
Divide by 12)
Thats amount of chickens killed...
count feathers...
post SRL Randoms Report :)
it can run for a long amount of time :) add me to buddies /pm me for questions/suggestions!
That will confuse you or him to death.
At the beginning of each login, call
StartXP := GetSkillAmount('attack');
or whatever the GetSkillAmount variables are.
and then, before the proggy report, call TotalXP := GetSkillAmount('attack') - StartXP;
Then, do TotalXP := TotalXP / 12;
That will tell you how many chickens you've killed.
Thank voice....i will add in a proggy report after SRL is up and running again....are ALL scripts down? or isi it just SMART, i think its the login procedure personally but im not sure....i wanna know if Non-SMART/non-reflection scripts will work stil..
Login.scar is broken.
Zephyr posted a fix.
Non-SMART and Non-Reflection scripts will work still, as long as they use the client at http://runescape.com/
Theres an error in my Gametab.scar...the new one by Zephfurys dosnt compile?
Only problem i found is that it occasionally clicked off the actual play screen, maybe a problem on my end though, who knows lol
Well if it works be happy :) new rs update ruined it me thinks
Rofl, there was a chicken nugget ad on the top of the web page when I opened this xD - well I'm going to download this and start a new maul pure... :D
This is a very good script for defence pures, i will definatly use if you dont mind, and hopefully i will get 40 deffence soon.
Feel free to use it, just post how it ran for you and if there was any bugs/errors...also if you have questions/need help add me on msn joelster134@hotmail.com, or on Runescape: aimf0rhead (the 0 is the number :p)Quote:
Originally Posted by th3ko
Hi im new to SCAR, i loaded your script input my use credentials, have silent mouse off, and clicked run and i got this error:
Line 33: [Error] (33:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script C:\DOCUME~1\Owner\LOCALS~1\Temp\CHICKEN RAPER V6!.scar
I have no idea whats wrong, any help please?
http://www.villavu.com/forum/showthread.php?t=25985 go here that should helpQuote:
Originally Posted by thebluefiend
Check wat type of SRL version you have also check what Rev version you have..add me on msn joelster134@hotmail.com for more help if u need it or just add me to buddies list...
Ah i had an older version of SCAR, thats why. Ok man thanks.
How long does this script run for? I'm thinking of starting a new account for PvP updates- This could start me off quite nicely.
Also is there a setting for.. say... End Script After 2:30
AtQuote:
Originally Posted by Fromaaz
SCAR Code:Line:160 until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
edit that it will make it run longer/shorter..
Quote:
Originally Posted by thebluefiend
ADD ME TO BUDDIES/MSN IF YOU NEED MORE HELP! Joelster134@hotmail.com or Add me on RUnescape (Aimf0rhead)
No problem glad to help :D
Nice first script. Few bugs but works :)
It shuouldn't be working? lol,....all SRL scripts are broken atm, + what are the bugs? be more specific in your posts please
FIXED IT UP NOW IT RUNS :p
SCAR Code:{ [-----------------------] o o o o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [-----------------------] o o o e eeeeeeeeeeeeee L L SSSSSSSSSSSS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e eeeeeeeeeeeeee L L SS ')
writeln(' [ ] o o o e L L SSSSSSSSSSS ')
writeln(' [ ] o o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SS')
writeln(' [------------] o o o o o e eeeeeeeeeeeeee LLLLLLLLLLLL SSSSSSSSSSS SCRIPTS (c) (jOELSTER134)')}
{ [------------]') }
{Start in LUMBRIDGE NORTH CHICKEN COUPE Select window hit run! /\
/\ /\
/\ Version number:6 /\
/\ /\
/\ Credits: Joelster134, TheVoiceInYourHead,in2it(feather idea)/\
/\ /\
/\ /\
/\ Features: Anti-randoms+Anti-Ban! + feather pickup! /\
/\ /\
/\ Run:Setup lines 39-56 select window hit run! /\
/\ /\
/\ /\
/\ /\
/\ NUMBER ONE RULE TO THIS SCRIPT! : ENJOY IT! /\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}
program Chicken_Raper;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
const
ChickenColor1 = 857704; // change if you need to
ChickenColor2 = 3430256; //change if you need to
ChickenColor3 = 4897230;//change if you need to
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms //
procedure AntiRandoms;
begin
FindNormalRandoms;
end;
procedure AntiBan;
begin
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
5: HoverSkill('Smithing', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure KillChicken;
var
X, Y, Mark: Integer;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
Wait(300);
AntiRandoms;
end;
//---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\
function PickupFeathers: boolean;
var
x, y, FeatherDTM: integer;
begin
FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C401' +
'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A433B' +
'77A0A80100CAC20B42');
if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('eather') then
AntiRandoms;
begin
Flag;
Result := True;
AntiRandoms;
end;
end;
end;
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
KillChicken;
PickupFeathers;
AntiRandoms;
AntiBan;
until((TimeFromMark(Mark) / 10000 * 600) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
MainLoop;
end.
Joelster, you don't compile any of the SRL includes.
You just compile your scripts.
tried this last night its pretty decent =]
lolkill you nub u didn't even try it.... how u know if its decent.:google:
Voice anti randoms dont work anymore?
also dont download the one above...download from first page in here :)
Imma try this later.
'chicken raper' isnt a real good name..
Neither is Darando.Quote:
Originally Posted by Darando
Quote:
Originally Posted by Darando
Yea what would you prefer? at least you prolly leeched this script and wont post on here again :p so stfu. go make ur own scripts then you can complain bout my names.