SRL Archive - Archive

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

What is the meaning to life?

For me? Well, I think it is to succeed in whatever you do.

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



Programming Knowledge
No I do not.

Other Communitys
I have posted a few messages on Spork-Eh,and Gamefaqs.

How Long have You Played Runescape
Since augest of 2005.

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well, last year i registered and for some reason I quit (I don't know why) But i decided that i should try it again. I did and here I am!

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

////////////////////////////////////////////////////////
//////////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/////////////////////////
//// thanks to cnr sport for editing it/////////////////
////////////////////////////////////////////////////////
program ChickenKiller;

{.include srl/srl.scar}

 var
  x,y: integer;

 Feather:boolean;

Const

 ChickenColor = 9606046;
 FeatherColor = 11053236;
 Loads    = 500;   //per char


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 := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'blindwizerd3';
  Players[0].Pass := 'joejackfrost1';
  Players[0].Nick := 'ess'; //3 - 4 letters of YOUR username, example: "sern"
  Players[0].Active :=True; //Do not use capital letters or numbers.

  Players[1].Name := 'jessprint442';
  Players[1].Pass := 'footballfan101';
  Players[1].Nick := 'ess'; //3 - 4 letters of YOUR username, example: "sern"
  Players[1].Active :=True; //Do not use capital letters or numbers.

  Players[2].Name := 'j2int442';
  Players[2].Pass := '222222222101';
  Players[2].Nick := 'ess'; //3 - 4 letters of YOUR username, example: "sern"
  Players[2].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('hicken','icken','hick')
   then
    begin
    Mouse(x,y,1,1, false)
    chooseoption('tack')
    FindNormalRandoms;
    wait(2500+random(1250))
    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 antiban;
begin
 case Random(25) of
 1: AAlmostlogout;
 5: PPickupmouse;
 15: RandomRClick;
 22: BoredHuman;
  end;
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;

var
Loadstodo,LoadsDone:integer;

begin
SetupSrl;
declarePlayers;
activateClient;
MakeCompass('N')
Highestangle;
  repeat
  StartUp;
  AttackChicken;
  Antiban;
  responder;
  Pickupfeather;
  Loadsdone:=Loadstodo + 1;
  Until(isfkeydown(2)) or (loadstodo=loads)
  If (Loadstodo=Loads) then
  begin
  writeln ('Done with the amount of loads, switching players')
  NextPlayer(false)
  end;
  debug
  Exit;
end.

I know that this may not be very good, but it was my first script in almost a year!

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

wow sorry to simple….. no from me…

~ you should have just added chicken baking or eating option ~


and wtf is this?

  If IsUptextMulti('oblin','goblin','lin')
   then

its not a goblin killer its a chicken killer and this makes you look like you just copied someone code…. well keep trying

and your debug is like half of the script…

Oh, i'm sorry!i was just killing goblins with it, ill edit!

If those are working passwords you may want to take em out. If they're not then disregard this post.

Oh, thanks! And even though it is simple, if it works, then why does it matter?

EDIT: I am taking your advice, and making it cook chickens!

Procedure AttackChicken;
 begin
 
  If (FindColorTolerance(x,y, ChickenColor , 3, 11 , 331, 478,30)) then
   begin
   MMouse(x,y,1,1)
   If IsUptextMulti('hicken','icken','hick')
   then
    begin
    Mouse(x,y,1,1, false)
    chooseoption('tack')
    FindNormalRandoms;
    wait(2500+random(1250))
    if InBlackChat('omeone') then exit;
    end;
   end;
end;

What is the point in

    if InBlackChat('omeone') then exit; 

Seeing as it's just about the leave the procedure anyway? I'm confused. There isn't a loop to quit from either, which would be an indication of why you used that line…

For me, at the moment, it's too simple. You have alot of good stuff there, and you're clearly on the path to becoming an srl member, but your knowledge of srl at the moment, for me, isn't up to scratch (from what I can see in your scripting).

I advise you add some more things to your script, add some failsafes, etc.

I want to see some walking! :p

For the moment, It's a no, But, I'm holding my vote for now.

Ok, thanks Sporky, as you may have noticed, i am trying to make a chicken cooker to add in!

From: Wade007
Ok, thanks Sporky, as you may have noticed, i am trying to make a chicken cooker to add in!

Haha, well, I advise you show us you can use bitmaps, dtms, maybe some radial walking? And a few more failsafes.

Ok, i will try my best, BTW, my computer doesn't display the entire bitmap to string window, do you know how to fix?

no, like sp0rk said needs more things…i dont think its possible to get it up to par in time and actually understand it well enough…so no from me…and also your fairly new…

how does it not fit on screen the bitmaps are small windows, dtm is bigger

Oh, its not that it doesn't fit it on the screen, it just cuts off the window for some reason, ill try it on my Virtual Machine, BRB

Unfortunately, I have to agree with hyper secret, that it's probably impossible to learn what is required in the short time you have until this poll is closed, but until then, I'm still holding my vote. You may pull it out the hat, who knows.

No vote here either. I'll wait till it's close to close to vote. Fix your standards, that would help you get a few yeses.

Holding my vote…. If you apply again , if you don't get in read this TUT!

Sorry, no DTMs used, no walking, quite simple, object finding should be more complex.

You need to read more tutorials, go here.

Remember to apply atleast one month between applying.

Closed.

Closed.

Amen.