SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge
SCAR, that's about it..

Other Communitys
mopar (Senior Member), here obviously, Sumilion+Lorax forums (Admin), just about every other cheating community :D

How Long have You Played Runescape
3-ish years.. lost count..

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

I have written this section many times and it is getting boring doing it.. just read some of my old apps (which I can't find because I am not an SRL member, if I search up hy71194 if never finds any of my apps :S )

ASL: 12, Male, New York..

I love scripting in my room on my free time.. I just take hour sessions reading tuts and applying it into a script..

I like this community, and most of the members here. Thanks for that.

~~~

Anyways, enough of my gibbering, here's my script. Vote and tell why you chose that please! :D

-Harry

PS: If I messed up on my standards/cases, please do not yell at me, I am working on it.. Also, this script is for SCAR 2.03 and SRL 3.60b..

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

{===================================================================]
[                    Hy71194's Chicken Killer                       ]
[                                                                   ]
[           NAME        : Hy71194's Chicken Killer - Version 0.4    ]
[           WRITER      : hy71194                                   ]
[           CATEGORY    : Fighter                                   ]
[           DESCRIPTION : Kills Chickens, can collect + burys bones ]
[           USAGE       : Start in any chicken pen                  ]
[           AUTOCOLOR   : Yes                                       ]
[           SRL Used    : 3.60b (SCAR 2.03)                         ]
[                                                                   ]
[                   More Scripts can be found at                    ]
[                        [url]www.SRL-Forums.com[/url]                         ]
[===================================================================]
[                           Instructions.                           ]
[===================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                    ]
[ 2. Set your Screen to 32 bit TRUE color.                          ]
[ 3. Setup constants                                                ]
[ 4. Start script Logged Out / Logged in                            ]
[ 5. Very simple. Even I would am able to do it! XD                 ]
[===================================================================]
[ Credits to :                                                      ]
[    SRL Team   -->   For the wonderful include!                    ]
[    Sumilion   -->   Stole this format from his SRM.  hihi         ]
[    hugolord   -->   Helping me with some problems.                ]
[    iloveit8   -->   ^^ Thanks!                                    ]
[    JAD        -->   Giving good feedback on SRL apps.             ]
[                     Not just saying  to me "Yoo Script Sawkz!" ;) ]
[  Anyone else  -->   If I forgot you, I am so sorry, tell me and   ]
[                     I will add you to the list !!! :D             ]
[===================================================================]
[ Future plans :                                                    ]
[   Anti-wander: Center your character in the chicken pen.          ]
[===================================================================}
{.include SRL/SRL.scar}

const
  TimePerPlayer=2000000; //How long to have player going. (20 Mins is 200000 I think.. I am not that great in Math :p )


Var
  PlayerBeginMark,AttMark:longint;
  chx,chy,dfDtm,hbx,hby,bones,rx,ry:integer;


procedure FightMode;
var
  FightModeInt,Training,str,att,def,ll,bfm:integer;
  tstr,tatt,tdef:boolean;
begin
  Status('Setting Fight Mode');
  Training:=Players[CurrentPlayer].integer1;
  if(Training=0) then begin
    tstr:=true;
    tatt:=true;
    tdef:=true;
  end;
  if(Training=1) then begin
    tstr:=true;
    tatt:=true;
    tdef:=false;
  end;
  if(Training=2) then begin
    tstr:=false;
    tatt:=true;
    tdef:=true;
  end;
  if(Training=3) then begin
    tstr:=true;
    tatt:=false;
    tdef:=true;
  end;
  if(Training=4) then begin
    tstr:=true;
    tatt:=false;
    tdef:=false;
  end;
  if(Training=5) then begin
    tstr:=false;
    tatt:=true;
    tdef:=false;
  end;
  if(Training=6) then begin
    tstr:=false;
    tatt:=false;
    tdef:=true;
  end;
  str:=GetSkillLevel('Strength');
  att:=GetSkillLevel('Attack');
  def:=GetSkillLevel('Defence');
  ll:=100;
  if(tstr) then begin
    if(str<ll) then begin
      ll:=str;
      bfm:=1;
    end;
  end;
  if(tatt) then begin
    if(att<ll) then begin
      ll:=att;
      bfm:=0;
    end;
  end;
  if(tdef) then begin
    if(def<ll) then begin
      ll:=def;
      bfm:=2;
    end;
  end;
  FightModeInt:=bfm;
  GameTab(1);
  if(FightModeInt=0) then Mouse(585, 262,20,10,true);
  if(FightModeInt=1) then Mouse(592, 317,20,10,true);
  if(FightModeInt=2) then Mouse(674, 316,20,10,true);
  GameTab(4);
end;

procedure SetupPlayer;
begin
  Status('Setting Up Compass');
  MakeCompass('N');
  KeyDown(VK_UP);
  wait(1400+random(200));
  KeyUp(VK_UP);
  Status('Setting Run On');
  SetRun(True);
  FightMode;
end;

function hBar:boolean;
begin
  Result:=FindColor(x,y,65280 ,MSX1, MSY1 ,MSX2, MSY2)or FindColor(x,y,255 ,MSX1, MSY1 ,MSX2, MSY2);
end;

function FindNearestRed:boolean;
begin
  rx:=MMCX;
  ry:=MMCY;
  Result:=FindColorSpiral(rx,ry,255,MSX1,MSY1,MSX2,MSY2);
end;

function DoneFight(UpdateNearestRed:boolean):boolean;
begin
  if(UpdateNearestRed) then begin
    if(not(FindNearestRed)) then Exit;
  end;
  Result:=FindDtm(dfDtm,x,y,rx-35, ry-20,rx+42, ry+20);
  if(Result) then begin
    rx:=x;
    ry:=y;
    hbx:=x;
    hby:=y;
  end;
end;

Function InFightAt(x, y: Integer):Boolean;
var
  dx, dy: Integer;
begin
 if ( FindColor(dx, dy, 65280, x - 0, y - 10, x + 0, y + 10) or
    FindColor(dx, dy, 255, x - 0, y - 10, x + 0, y + 10)   or
    FindColor(dx, dy, 16728128, x - 0, y - 10, x + 0, y + 10)   or
    FindColor(dx, dy, 192, x - 0, y - 10, x + 0, y + 10) ) then
    Result:=True;
end;

function FindChicken:boolean;
var
  ctol,i:integer;
begin
  ctol:=0;
  for i:=1 to 20 do begin
    ctol:=0;
    repeat
      chx:=MSCX;
      chy:=MSCY;
      Status('Trying to find Chicken Color Tolerance: '+inttostr(ctol));
      if(FindColorSpiralTolerance(chx,chy,858755,MSX1,MSY1,MSX2,MSY2,ctol)) then begin
        Status('Found Chicken Color Tolerance: '+inttostr(ctol));
        chy:=chy+2;
        if(not(InFightAt(chx,chy))) then begin
          Status('Found Chicken Color with no Fight');
          MMouse(chx,chy,0,0);
          Wait(10);
          if(IsUpText('ic')) then begin
            Status('Found Chicken UpText');
            Result:=true;
            Exit;
          end;
        end;
      end;
      ctol:=ctol+2;
    until(ctol>60);
    if(FindObjMultiText(chx,chy,'tta','hic','ken',15658736,20)) then Result:=true;
    if(FindNormalRandoms) then Result:=True;
  end;
end;

function FindBubble:boolean;
begin
  Result:=FindColor(x,y,192 ,MSX1, MSY1 ,MSX2, MSY2) or FindColor(x,y,16728128 ,133, 84 ,407, 256);
end;

function KillChicken:boolean;
begin
  if(not(FindChicken)) then Exit;
  Mouse(chx,chy,0,0,True);
 // Result:=True;
  MarkTime(AttMark);
  repeat
    Status('Waiting to Attack Chicken');
    wait(100);
  until(FindBubble or (TimeFromMark(AttMark)>4000));
  if(hBar) then begin
    Status('Found health bar, we are in a fight!');
    repeat
      SleepAndMoveMouse(200+random(100));
      if(FindTalk) then FindNormalRandoms;
      Status('Fighting');
    until(DoneFight(True) or not(hBar));
    if(DoneFight(True)) then begin
      Status('Chicken dead, waiting for it to fall..');
      while(DoneFight(False)) do wait(10);
      Status('Chicken has fallen!');
      if(InventoryFull) then begin
        if(Players[CurrentPlayer].boolean1=False) then Exit;
        while(FindInvDtm(x,y,bones)) do begin
          Status('Burying the Bones');
          Mouse(x+3,y+3,8,8,true);
          if(FindTalk) then FindNormalRandoms;
          wait(1100+random(200));
        end;
      end;
      Status('Taking Bones');
      MMouse(hbx+8,hby,10,7);
      Wait(100+random(50));
      GetMousePos(hbx,hby);
      Mouse(hbx,hby,0,0,false);
      Wait(10+random(5));
      if(ClickOption('ones',1)) then begin
        Flag;
        wait(300+random(100));
      end else MMouse(hbx-20,hby-20,5,5);
    end;
  end;
end;


procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindTalk;
  FindLamp('Strength');
    UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver := True
  FindMod;
  FindMime;
  FindDead;
  FindMaze;
  DwarfItem;
  FindDemon;
  SolvePinball;
  FindScapeRune;
  if InBlack then
  begin
    Players[CurrentPlayer].Active := False;
    Writeln(Players[CurrentPlayer].Name + ' is probably in a random event!');
  end;
  if FindDead then
  begin
    Players[CurrentPlayer].Active := False;
    WriteLn(Players[CurrentPlayer].Name + ' has died! So sorry for that! :(');
  end;
end;


procedure Proggy;
begin
  ClearDebug;
  WriteLn('Thank you for using:')
  WriteLn('Auto Chicken Killer!')
  WriteLn('By hy71194 AKA Harry')
  WriteLn('Your computer has worked for: ' + ScriptTime2(2) + '. ')
  WriteLn(' POST PROGGIES OR DIE :D !!! ')
end;


procedure Setup;
begin
  ClearDebug;
  SetupSRL;
  WriteLn('boolean1: To Bury Bones');
  WriteLn('integer1: Skills To Train?');
  WriteLn('0: Att Str Def, 1: Att Str');
  WriteLn('2: Att Def, 3: Str Def, 4: Str');
  WriteLn('5: Att, 6. Def');
  StartPlayers(True,'boolean1 integer1');
  dfDtm:=DTMFromString('78DA6314656460E8664001FFA134238C3622A' +
       'C060086EB0362');
  bones:= DTMFromString('78DA634C67626060616440058C0C5C6012CA2' +
       'B04AAF9CF805F4D1D500D07017372816AB8F0AB010018B90318');
  ActivateClient;
  Wait(500);
  LoginPlayer;
  SetupPlayer;
  MarkTime(PlayerBeginMark);
end;


begin  //Main Loop
  Setup;
  repeat
    MakeCompass('N')
    HighestAngle;
    KillChicken;
    repeat
      if not (loggedin) then break;
      KillChicken;
      AntiRandoms;
      Proggy;
    Until((TimeFromMark(PlayerBeginMark)>TimePerPlayer) or Not(LoggedIn));
    NextPlayer(True)
  until(False)
  Proggy;
end.

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

Hmm… I'll think about it.

The script isn't super spectacular.. But it's alright. I may have to vote no again though, not sure yet, sorry :(

errmmm half of ur procedures are just taken straight out of SRL…….was that to make it look more pro?

EDIT: ok maybe only 2 but then u also have a few other functions that are nearly the same….like JAD ur script is ok but nothing too great….also dont put a begin on the same line as an if….then statement(really annoying)

i'm not going to vote seeing as i don't know what to vote, but there's some things u can improve on….gl ;)

i saw this script before…
so i looked at my "received files" folder and i found this script…

{.include srl/srl.scar}

const
  TimePerPlayer=2147000;

var
  PlayerBeginMark,AttMark:longint;
  chx,chy,dfDtm,hbx,hby,bones,rx,ry:integer;

procedure FightMode;
var
  FightModeInt,Training,str,att,def,ll,bfm:integer;
  tstr,tatt,tdef:boolean;
begin
  Status('Setting fight mode');
  Training:=Players[CurrentPlayer].integer1;
  if(Training=1) then begin
    tstr:=true;
    tatt:=false;
    tdef:=false;
  end;
  str:=GetSkillLevel('Strength');
  att:=GetSkillLevel('Attack');
  def:=GetSkillLevel('Defence');
  ll:=100;
  if(tstr) then begin
    if(str<ll) then begin
      ll:=str;
      bfm:=1;
    end;
  end;
  if(tatt) then begin
    if(att<ll) then begin
      ll:=att;
      bfm:=0;
    end;
  end;
  if(tdef) then begin
    if(def<ll) then begin
      ll:=def;
      bfm:=2;
    end;
  end;
  FightModeInt:=bfm;
  GameTab(1);
  if(FightModeInt=0) then Mouse(585, 262,20,10,true);
  if(FightModeInt=1) then Mouse(692, 270,20,10,true);
  if(FightModeInt=2) then Mouse(674, 316,20,10,true);
  GameTab(4);
end;

procedure SetupPlayer;
begin
  MouseSpeed := 4;
  Status('Setting up compass');
  MakeCompass('N');
  KeyDown(VK_UP);
  wait(1400+random(200));
  KeyUp(VK_UP);
  Status('Setting run');
  SetRun(true);
  FightMode;

end;

function hBar:boolean;
begin
  Result:=FindColor(x,y,65280 ,MSX1, MSY1 ,MSX2, MSY2)or FindColor(x,y,255 ,MSX1, MSY1 ,MSX2, MSY2);
end;

function FindNearestRed:boolean;
begin
  rx:=MMCX;
  ry:=MMCY;
  Result:=FindColorSpiral(rx,ry,255,MSX1,MSY1,MSX2,MSY2);
end;

function DoneFight(UpdateNearestRed:boolean):boolean;
begin
wait(100+random(47));
  if(UpdateNearestRed) then begin
    if(not(FindNearestRed)) then Exit;
  end;
  Result:=FindDtm(dfDtm,x,y,rx-35, ry-20,rx+42, ry+20);
  if(Result) then begin
    rx:=x;
    ry:=y;
    hbx:=x;
    hby:=y;
  end;
end;

Function InFightAt(x, y: Integer):Boolean;
var
  dx, dy: Integer;
begin
 if ( FindColor(dx, dy, 65280, x - 0, y - 10, x + 0, y + 10) or
    FindColor(dx, dy, 255, x - 0, y - 10, x + 0, y + 10)   or
    FindColor(dx, dy, 16728128, x - 0, y - 10, x + 0, y + 10)   or
    FindColor(dx, dy, 192, x - 0, y - 10, x + 0, y + 10) ) then
    Result:=True;

end;

function FindChicken:boolean;
var
  ctol,i:integer;
begin
  ctol:=0;
  for i:=1 to 20 do begin
    ctol:=0;
    repeat
      chx:=MSCX;
      chy:=MSCY;
      Status('Trying to find chicken color tol: '+inttostr(ctol));
      if(FindColorSpiralTolerance(chx,chy,858755,MSX1,MSY1,MSX2,MSY2,ctol)) then begin
        Status('Found chicken color tol: '+inttostr(ctol));
        chy:=chy+2;
        if(not(InFightAt(chx,chy))) then begin
          Status('Found chicken color with no fight');
          MMouse(chx,chy,0,0);
          wait(10);
          if(IsUpText('uh')) then begin
            Status('Found chicken text');
            Result:=true;
            Exit;
          end;
        end;
      end;
      ctol:=ctol+2;
    until(ctol>60);
    if(FindObjMultiText(chx,chy,'ngr','fen','hn',15658736,20)) then Result:=true;
    if(FindNormalRandoms) then Result:=true;
  end;
end;

function FindBubble:boolean;
begin
  Result:=FindColor(x,y,192 ,MSX1, MSY1 ,MSX2, MSY2) or FindColor(x,y,16728128 ,133, 84 ,407, 256);
end;

function KillChicken:boolean;
begin
  if(not(FindChicken)) then Exit;
  ClickMouse(chx,chy,true);
  Result:=true;
  MarkTime(AttMark);
  repeat
    Status('Waiting to attack chicken');
    wait(100);
  until(FindBubble or (TimeFromMark(AttMark)>4000));
  if(hBar) then begin
    Status('Found health bar, we are in a fight');
    repeat
//      SleepAndMoveMouse(200+random(100));
      if(FindTalk) then FindNormalRandoms;
      Status('Fighting');
    until(DoneFight(true) or not(hBar));
    if(DoneFight(true)) then begin
      Status('Chicken dead, waiting for it to fall');
      while(DoneFight(false)) do wait(10);
      Status('Chicken has fallen');
      if(InventoryFull) then begin
        if(Players[CurrentPlayer].boolean1=false) then Exit;
        while(FindInvDtm(x,y,bones)) do begin
          Status('Burying bones');
          Mouse(x+3,y+3,8,8,true);
          if(FindTalk) then FindNormalRandoms;
          wait(1100+random(200));
        end;
      end;
      Status('Taking bones');
      MMouse(hbx+8,hby,10,7);
      wait(100+random(50));
      getmousepos(hbx,hby);
      Mouse(hbx,hby,0,0,false);
      wait(10+random(5));
      if(ClickOption('eder',1)) then begin
        Flag;
        wait(300+random(100));
      end else MMouse(hbx-20,hby-20,5,5);
    end;
  end;
end;


begin
  SetupSRL;
  WriteLn('boolean1: Train Prayer (Bury bones)');
  WriteLn('integer1: Skills To Train');
  WriteLn('0: Att Str Def  1: Att Str');
  WriteLn('2: Att Def  3: Str Def  4: Str');
  WriteLn('5: Att  6. Def');
  StartPlayers(true,'boolean1 integer1');
  dfDtm:=DTMFromString('78DA6314656460E8664001FFA134238C3622A' +
       'C060086EB0362');
  bones:= DTMFromString('78DA634C67626060616440058C0C5C6012CA2' +
       'B04AAF9CF805F4D1D500D07017372816AB8F0AB010018B90318');
  ActivateClient;
  wait(500);
  repeat
    if(Not(LoggedIn)) then LoginPlayer;
    SetupPlayer;
    MarkTime(PlayerBeginMark);
    repeat
      if(not(KillChicken)) then Logout;
      if(FindTalk) then FindNormalRandoms;
    until((TimeFromMark(PlayerBeginMark)>TimePerPlayer) or Not(LoggedIn));
    wait(11000);
    NextPlayer(LoggedIn);
  until(false);
end.

there was a guy who sent me this script, he told me i shouldn't share this one… it's called "FeathersGerman" in my folder, dunno why, don't care too, lol.
But i care that this script actually looks like yource…
Btw, i received this file at 26/03/2007, 17:18.
I'll hold my vote and wait for any further reactions.

- The Scar Noob.

"FeathersGerman"

I have release this script before to some people, with out that name though ??? idk about that..

I never copied though, that is just wrong to copy other people's work and claim it as your own..

I'm so lost..where do you setup your players? :S

Instead of many 'If' and 'Then' statements, you can use a case. I might vote yes, and might vote no. It looks pretty good to me.

Also, are the standards bad? I'm not good at standards so I'm not too sure.

please:
case blabla of

if then
begin
end;

I will hold my vote for now. If I see some good opinions I vote by them.

From: IEatJ00erBaybees
I'm so lost..where do you setup your players? :S

Run the script.. I box will pop up and you type your u/p there.

From: n3ss3s
please:
case blabla of

if then
begin
end;

I will hold my vote for now. If I see some good opinions I vote by them.

What is so important about cases? Doesn't the script run the same without them? Just makes them more professional looking, like standards?

credit properly found a few more copied functions….

From: rkroxpunk
credit properly found a few more copied functions….

May I know what is copied?

I think he just means SRL Functions/Procedures. I feel good so I'll give you a yes.

From: SantaClause
I think he just means SRL Functions/Procedures. I feel good so I'll give you a yes.

Ok, thanks..

BTW, I did credit SRL with: SRL Team –> For the wonderful include! , didn't I?

you have been learning recently like me so we're both alike now your script is ok its got the stuff COULD be better but oh well we're humans aren't we?

i know its not easy so ill give you a thumbs up (h)

Gratz!

You must credit at the top of your script, and also at the methods that are used or modified.

so like at the top you would say "Thanks to fawki for his wonderful findfastrandoms!!"

and then in your script at the method "findFastRandoms" you would write
"procedure findfastrandoms //made by fawki!"

Edit: Ahhh and semi colons!!!!!!! AHhhhh, gosh….babies…..WHERANGNGEEE!!!!!

PS: If I messed up on my standards/cases, please do not yell at me, I am working on it.

Not good enough. Standards are a requirement and you know it… It is stated where you apply.
Now, I'm not going to vote no just because of it… but you owe some baby a new face.

From: lordgreggreg
You must credit at the top of your script, and also at the methods that are used or modified.

so like at the top you would say "Thanks to fawki for his wonderful findfastrandoms!!"

I dont quite agree… although i do credit both at the top of the script and at the procedure if i even use anyone elses procedure, i dont think it matters much. Though if you would only do it in one place i would suggest at the procedures themselves.

From: lordgreggreg

Not good enough. Standards are a requirement and you know it… It is stated where you apply.

Really? I've gotten member without knowing the official standards… heck i've even gotten dev without knowing them.

Thanks for backing me up Sum :D lol

Ok, I added Fawki credit.. it is saved in my script, if I get declined (again..) it will have it in it.. anyone see anything else that you could point out for me please?

I rarely vote, let alone vote yes, but with that post count, I guess we can't call him a leecher :rolleyes:, He seems to be learning a lot , has been helpful in the forums answering questions , has a good attitude, and receptive to criticism…….I 'll give you my vote…doesn't mean you're IN, just means the poll is tied now ;)

Good Luck, and keep up the Good Work,

~RAM

EDIT: BTW, have you compiled this yet ? seems to be missing a few semi-colons ?…….A proggy to post would go along ways also…..Not to mention posting it in the free section for some feedback :)

Hy, cases are just a way to shorten the script.. The shorter you can make a script with it still functioning exactly the same the better!

Sorry though Hy, I'm going to have to vote no because the script isn't good enough. You still have a LOT to learn about scripting IMO before you become a member. Good luck!

Then ill spend my vote to make it tied again, dont let me down hy..

From: hy71194
Run the script.. I box will pop up and you type your u/p there.

Haha..I just thought about that as I read my post again.

"There actually could be the Player Form in here"

I haven't voted yet, don't worry.

EDIT:6-6. Alrighty. I guess I decide it.

-It's basic.
-You could learn more.
-You didn't screw up.
-You've got pretty much everything.
-You're a nice, helpful guy.

I say YES!

7-6!!!!!! LET'S GO HY!!

Good luck buddy..I'm pulling for you.

YAY! :D thanks everyone..

RAM: It still does work without some semi-colins suprisingly! I will run right now on my sisters nooby lvl 3 account and post up the proggy while I eat dinner..

Heres the proggy: I was watching it even after dinner, it was still running flawlessly. Just stoped it so I could post up the proggy, and play legit for a while.. next version I will add not only time running into proggy, but how many chickens it has killed (and SRL Stats maybe!)

Thank you for using:
Auto Chicken Killer!
By hy71194 AKA Harry
Your computer has worked for: 29 Minutes, and 37 Seconds.
POST PROGGIES OR DIE :D !!!
Successfully executed

ok well your ahed now your standards are pretty good, there kinda weird in places but as sum said that doesn't matter as much. i couldnt test but besides there not being cases it is pretty good so here it is….
yes.

10-8 good luck

ps. i love voting for people who have been here long.

Suree.

Clean, simple, but looks effective.

Horry! I hope an admin closes this soon..

In!