I have the fighting perfected, yet i need something more for it! so i decided to make a feather picker to add onto it! I made one, and it doesn't work, any suggestions please?
I have the fighting perfected, yet i need something more for it! so i decided to make a feather picker to add onto it! I made one, and it doesn't work, any suggestions please?
What isnt working?
Edit: where it says that it isnt working, send that procedure/function and the mainloop and i think i can help u
Ouch, banned.... anyway, its that it isn't accurate, not that its not working...
Post the script here, i will easly help you with feather picking.
Woot woot.
Ok, here it is (YAY 200 LINES lol)
Thanks guys! Happy New Years!SCAR Code:////////////////////////////////////////////////////////
//////////Thank You For Using Wade007s ChickenKiller////
//////To use it just go to the chickens and press play!/
//////It is in beta, So don't be harsh!/////////////////
//////To stop it, just press F2/////////////////////////
////////////////////////////////////////////////////////
program ChickenKiller;
{.include srl/srl.scar}
var x,y: integer;
Feather:boolean;
Const
ChickenColor = 1055613;
FeatherColor = 11053236;
Procedure CheckIfLoggedIn;
begin
Writeln('You are running ChickenKiller by wade007')
wait(1000)
If(Not(loggedin)) then
begin
Writeln('Please login before running script')
end;
end;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '*******';
Players[0].Pass := '******';
Players[0].Nick := '****'; //3 - 4 letters of YOUR username,example: "sern"
Players[0].Active :=True; //Do not use capital letters or numbers.
end;
Procedure Startup;
begin
If(Not(LoggedIn)) then LoginPlayer;
end;
Procedure AttackChicken;
begin
If (FindColorTolerance(x,y, ChickenColor , 3, 11 , 331, 478,30)) then
begin
MMouse(x,y,1,1)
If IsUptextMulti('cken','hicken','chic')
then
begin
Mouse(x,y,1,1, false)
chooseoption('tack')
FindNormalRandoms
if InBlackChat('omeone') then exit;
end;
end;
end;
Procedure Pickupfeather;
begin
If (FindColorTolerance(x,y, featherColor , 3,11,331 , 478, 10)) then
begin
MMouse(x,y,1,1)
if (isuptextmulti('eath','ther','eather')) then
begin
MMouse(x,y,1,1)
Mouse(x,y,1,1, false)
Chooseoption('eather')
end;
end;
end;
Procedure Responder;
begin
if inchatmulti('yo','hi','hey') then typesend('what''s up?')
wait(250+random(250))
if inchatmulti('nm','uch','othing') then typesend('Cool, im just getting bored training!')
wait(250+random(250))
if inchatmulti('same','i bet','yeah') then typesend('totally...')
end;
procedure PPickUpMouse;
var
cx, cy, XX, YY: Integer;
begin
GetMousePos(cx, cy);
XX := cx;
YY := cy;
case Random(2) of
0: MMouse(cx - 3 - Random(5), cy - 8 - Random(17), 0, 0);
1: MMouse(cx + 3 + Random(5), cy - 8 - Random(17), 0, 0);
end;
Wait(1131 + Random(358));
case Random(2) of
0: MMouse(XX + 3 + Random(5), YY + 8 + Random(9), 0, 0);
1: MMouse(XX - 3 - Random(5), YY + 8 + Random(9), 0, 0);
end;
end;
procedure AAlmostLogout;
var
e, f, TempMouseSpeed: Integer;
begin
GameTab(10);
TempMouseSpeed := MouseSpeed;
MouseSpeed := MouseSpeed + 20;
e := 5 + Random(6);
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(583 + Random(120), 361 + Random(20), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
MouseSpeed := TempMouseSpeed;
GameTab(4);
end;
procedure Debug;
begin
Writeln('______________________________________|')
writeln('| Thank you for using my ChickenKiller|')
wait(400+random(100))
Writeln('| It is still in beta, so don''t be too harsh|')
wait(200+random(200))
Writeln('|I have added a responder and Anti-Randoms in this release! i hope it runs better!|')
wait(300+random(100))
writeln('|Wade007s chickenkiller has run for '+timerunning)
Writeln('|Thank you for using')
Writeln('m')
wait(50)
writeln('my')
wait(50)
writeln('my c')
wait(50)
writeln('my ch')
wait(50)
writeln('my chi')
wait(50)
writeln('my chic')
wait(50)
writeln('my chick')
wait(50)
writeln('my chicke')
wait(50)
writeln('my chicken')
wait(50)
writeln('my chicken k')
wait(50)
writeln('my chicken ki')
wait(50)
writeln('my chicken kil')
wait(50)
writeln('my chicken kill')
wait(50)
writeln('my chicken kille')
wait(50)
writeln('my chicken killer!')
wait(50)
writeln('Please post how well it worked, how long it worked, and ONLY CONSTRUCTIVE CRITICISM')
wait(50)
writeln('I hope you enjoyed my script, it will be updated soon!')
wait(50)
writeln('oh, just so you know, it is no longer in beta! W00000T!!!')
Writeln('-----------------------------------------------------------------------------------')
end;
begin
SetupSrl;
declarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
activateClient
MakeCompass('N')
repeat
StartUp
HighestAngle;
AttackChicken
AttackChicken
AttackChicken
responder
AttackChicken
PPickUpMouse
PickupFeather
BoredHuman;
gametab(2)
Until(isfkeydown(2))
debug
Exit;
end.
SCAR Code:Function Findfeather(var fex, fey : integer) : boolean;
var FeatherPoints : TPointArray;
var FeatherMid : TPoint;
begin
if FindColorSpiralTolerance(fex, fey, 403717, MSX1, MSY1, MSX2, MSY2, 5) then
FindColorsSpiralTolerance(mscx,mscy,FeatherPoints,403717 ,fex - 15,fey-15,fex+15,fey+15,6);
if length(featherPoints)>20 then exit;
if length(featherPoints)>0 then
begin
FeatherMid:=MiddleTPA(FeatherPoints);
fex := FeatherMid.x;
fey := FeatherMid.y;
Result := True;
end;
end;
procedure PickFeather;
var fx, fy : integer;
begin
fx := MMCX;
fy := MMCY
if Findfeather(fx ,fy) then
begin
MMouse(fx ,fy ,3 ,3 );
wait(100 + random(50));
if IsUpText('eather') then
begin
Mouse(fx, fy, 0,0, true)
else
begin
Mouse(fx, fy, 0,0, false)
ChooseOption('eather')
end;
end;
ftwait(1);
FindNormalRandomsTime;
flag;
end;
end;
Took from my chickenkiller
EDIT: It may be nooby because I'm not good with TPoints...but it works good
I made procedures seperated because i needed to make loop break if not findfeather(x,y);
EDIT: Sorry dude, your script is terrible
[CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]
I lol'ed. Still laughing actually. Maybe its just funny since its 5:30 am and I haven't gone yet.
Everyone starts somewhere. And you're better than 90% of the 30,000 at SRL for even trying to script. I started out making a pathetic dummy killer and bam a month and a half later: SRL Member.
Ok, ill go test it(Thanks Neegal ill give you credits) Yeah mick, this is my first script basically i know its terrible lol.
EDIT: when i try to run it it says Identifier expected in script Ill go try and fix
EDIT2: SHIT my account got hacked.....I lost about a mill or two on there!!!!!
There are currently 1 users browsing this thread. (0 members and 1 guests)