SRL Archive - RS3 Outdated / Broken Scripts

function FindArrows(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.17);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 5, 5);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['ronze', 'rrow'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;   


procedure SpamMouse(var x, y: Integer; Time: Integer);
begin
  If Not LoggedIn then Exit;
  HoldMouse(x, y, mouse_left);
  Wait(Round(Time / 2));
  ReleaseMouse(x, y, mouse_left);
  Wait(Time);
end; 


procedure Competition;
var
 X, Y, C :Integer;
begin
  If Not LoggedIn then Exit;
  while not FindNPCChatText('orry', Nothing) do
  begin
    If FindNPCChatText('standard', Nothing) then
      If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

    if FireTarget(X, Y) then
      SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

    if not DidClick(True, 60) then Inc(C)
    else
      C := 0;
    if (C >= 2) then CloseWindow;
  end;
end; 


function WaitNPCText(Text :String; Time :Integer) :Boolean;
var
 T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindNPCChatText(Text, Nothing) then
    begin
      Result := True;
      Break;
    end;
  end;
end;   


function FindJudge :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  X, Y, Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 0.06);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(260, 32));
  DebugATPA(aTPA, '');
  Hi := Length(aTPA);
  for I := 0 to Hi - 1 do
  begin
    If Length(aTPA[I]) < 40 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
    begin
      ClickMouse2(False);
      If WaitOptionEx('alk', 'All', Nothing, 250) then
        begin
          If WaitOptionMulti(['Compete', 'ompete'], 250) then
            begin
              Flag;
              If WaitNPCText('Yes', 1500) then
              begin
                TypeSendEx('1', False);
                If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
              end;
            end;

          Result := True;
          Break;
        end;
    end;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;



function FireTarget(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.28);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5330874, MSX1, MSY1, MSX2, MSY2, 2);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  DebugATPA(aTPA, '');
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;


function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
var
  T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindArrows(X, Y) then
    begin
      Result := True;
      Break;
    end;
  end;
end;  

Tutorial:

1. First your player must Login into RS.
2. Align Compass to correct direction and Set mainscreen angle correctly.
3. Find Judge and start competition (You can edit code if it fails).
4. Shoot targets.
5. Mabey use Loops?



~Home

nice, this is quite a fun thing I like this.

well i am not too great at scripting whatsoever.. so can someone give me a link to their edited version of this that is done?

From: ttm nick
well i am not too great at scripting whatsoever.. so can someone give me a link to their edited version of this that is done?

That defeats the purpose! Good idea home

Guys. You have pretty much nothing to do :)

Contact me if you need help via MSN or join #SRL IRC.


~Home

Oh nice, somewhat of a competition :p Need to finish updating mine I guess.

Cool idea home!

That pretty much is the extent of my scripting, is butchering scripts to make them work the way I want them too, which you've basically just did here.

EDIT: good idea none the less.

plz i really need a ranging guild script, and i check everyday at kyle in the hope he has updated his script plz help me to get one.

From: tybkj
plz i really need a ranging guild script, and i check everyday at kyle in the hope he has updated his script plz help me to get one.

Me too.

Lol at all these dummy crying leeches. It takes literally less than 30 minutes to learn how you would assemble this, really all you have to do is assemble the mainloop and add small stuff like antiban…

Cool idea Home.

All the code is there, just have to make it yourself :)

Taking this… yoink. Spanks home :3

I suppose there could be a good range guild'er around here , hehe.

Me likey, imma give this a go, even though i don't need one ;P never hurts to get some practice in!!

From: momotron
Me likey, imma give this a go, even though i don't need one ;P never hurts to get some practice in!!

That's the spirit :) Come on guys it literally is RIGHT there for you. Just needs to be assembled and looped up properly.

I'm gonna try this tomorrow even though I have basic SRL scripting knowledge. But I'm pretty confident that if I can edit scripts then I can do this!

WEll someone got lazy and didn't wanna finish the script…
Nahhh i lied <3
I'm going to start doing this too.

So far all I got left to do is the finding targets function if anyone cares to help me pm ^^.

[Error] (9:10): Unknown identifier 'LoggedIn' at line 8
Compiling failed.
am i missing something?

[Error] (9:10): Unknown identifier 'LoggedIn' at line 8
Compiling failed.
am i missing something?
Reply With Quote

{$i SRL\SRL.scar}

so… i need to get this scar stuff? sorry i am new at this >.<

From: ttm nick
so… i need to get this scar stuff? sorry i am new at this >.<

Nope, add that code near the begining of the script. I think it should be {$i SRL\SRL.simba} though or {$i SRL\SRL.scar}

Hands it to the community near enough on a plate and people still complain? This is a good way to learn how a script is put together? Read some tutorials, ask for help and give it a go! This is what should be done with all scripts, it would most definitely get rid of the leechers.

Great idea! I'll defo have a go when I get home :)

okay, so right after beginning? i did that.. didnt work :S

From: H_N
Hands it to the community near enough on a plate and people still complain? This is a good way to learn how a script is put together? Read some tutorials, ask for help and give it a go! This is what should be done with all scripts, it would most definitely get rid of the leechers.

Great idea! I'll defo have a go when I get home :)

As far as I can tell, you're one of the leechers….

From: loser69
{$i SRL\SRL.scar}

Wrong. {$i SRL/SRL.simba}

what you guys mean with leecher. I am using ppl them script if you guys call that leech than you guys are gay and dumb i call that botting by help of other

From: wolkano
what you guys mean with leecher. I am using ppl them script if you guys call that leech than you guys are gay and dumb i call that botting by help of other

Can you at least make sense of what you just said? If you're going to insult someone, which by the way isn't tolerated here in-case you didn't know, at least do it so everyone knows what you're talking about.

Come on people : ) It's not really that hard!


~Home

I'd love it if you'd actually post the the whole version, I really need it atm >_>
I don't know how to script so that's not an option. :(

From: FearMe
I'd love it if you'd actually post the the whole version, I really need it atm >_>
I don't know how to script so that's not an option. :(

http://villavu.com/forum/forumdisplay.php?f=191

now you can learn.

From: vashanddou
http://villavu.com/forum/forumdisplay.php?f=191

now you can learn.

I don't want to learn how to.

From: FearMe
I don't want to learn how to.

Well, that sucks for you huh?

From: wolkano
what you guys mean with leecher. I am using ppl them script if you guys call that leech than you guys are gay and dumb i call that botting by help of other

LOL^^

From: XxX Toxin XxX
Can you at least make sense of what you just said? If you're going to insult someone, which by the way isn't tolerated here in-case you didn't know, at least do it so everyone knows what you're talking about.

IKR ?

and i think this is a good idea i know nothing about scripting but this will force people to learn basics good idea home

From: shadowmarkus
As far as I can tell, you're one of the leechers….

How did you work that one out?

What because I don't have as much post count as you?

Maybe I'm busy with real life? You know the place outside your front door?

Look at my posts, do you see me moaning or asking for scripts, begging for help or crying, flaming members for not updating there scripts? I thanks members and state what a good job there doing, I hardly play Runescape, I've never botted in my time when I use to play 3 years ago, I played legit, I only test the odd script here and there and try alter scripts to my own preference. I'm actually learning to script and I feel I'm doing pretty well. I don't have a lot of time, I work, I go gym and I spend the rest of my free time with my friends and girlfriend.

I'm not one of those 12 year old kids who loves pixels and wants to bot for pixel money, I couldn't give two shits…

I found these forums by accident whilst googling the bot nuke, I thought it would be a interesting challenge to learn to script but then I see posts like yours and think what's the point.

So next time you post some stupid comment to try look good think about it.

Can some1 plz help me I dont know were to start by editing this script.

From: tybkj
Can some1 plz help me I dont know were to start by editing this script.

start by adding

program RangGuild;
  {$DEFINE SRL5}
  {$DEFINE SMART}

  {$i SRL/srl.simba}
  {$i SRL/SRL/misc/paintsmart.simba} 

//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

Var
(declare variables here)

  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';
      Pass        := '';
      Pin         := '';
      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := 'Farming';
      Active      := True;
    end;
  end;  

at the very top and

begin
  SMART_Members := True;
  SMART_Signed  := True;
  SetupSRL();
  SetupSRLStats(222, SRLStatsUserName, SRLStatsPassword);
  SRLRandomsReport;
  ClearDebug();
  ActivateClient();
  DeclarePlayers();
  LoginPlayer();
  SetupScript();                                             
(finish the rest)
end.

at the very end.


then start declaring the proper variables,
learn about that here: http://villavu.com/forum/forumdisplay.php?f=191

It's not a script, it's a Build Your Own. Did you even read the first post?

ok so i picked this one and from kyle and im bit testing and its now running almost an hour no problems so far XD if mine reach 2 Hour i will probly release it :P

No, you won't release it. It's not yours to release.

From: Kyle Undefined
No, you won't release it. It's not yours to release.

From: Home

Home's GuildRanger [Build It On Your Own]



You can post your version of the builded script in this thread (SRL Members + Shuuu!)

~Home

Read the first post noob :p

From: jakeyboy29
Read the first post noob :p

If you didn't notice he said from kyle also aka: "Kyle Undefined"
and he doesn't have the premission to post Kyle's script in anyway.

From: jakeyboy29
Read the first post noob :p

Not if he uses mine as the base, which he said he did.

ok so i picked this one and from kyle

From: ghostface
ok so i picked this one and from kyle and im bit testing and its now running almost an hour no problems so far XD if mine reach 2 Hour i will probly release it :P

From: vashanddou
If you didn't notice he said from kyle also aka: "Kyle Undefined"
and he doesn't have the premission to post Kyle's script in anyway.

From: Kyle Undefined
Not if he uses mine as the base, which he said he did.

The problem here is Ghostface's absolutely terrible use of language

yay nice gunna run this after 99 fletch :)

shudda made members only for while tho ;)

Thanks for this working good for the moment ;D

Ive wanted one of these, GREAT TOOL HOMES!

Great to hear that some people are making progress, next one will be mabey Rock Crabs or Mobilising Armies. :)


~Home

OMG Home, cun u tach me 2 script cuz I cant get ut 2 werk none. I dunt want 2 larn how un my own, duz it 4 me pl0x.

E: After reading your last post, make it MA ;) I actually would LOVE a MA script.

I love how people are asking for the fully completed script. It only takes a few minutes to rearrange it all and then probably about another 5 to see what's missing. You can even see by the names of the procedures/ functions on where to put them, lol.

From: Deadly Serious
I love how people are asking for the fully completed script. It only takes a few minutes to rearrange it all and then probably about another 5 to see what's missing. You can even see by the names of the procedures/ functions on where to put them, lol.

True lol it was easy, I like this type of scripts to stop leechers. Already got me 1 range lvl up btw <3

From: Kyle Undefined
It's not a script, it's a Build Your Own. Did you even read the first post?

Beep, since tomorrow is 1 month since you closed your range guild script thread… mentioning you were "process of updating" lol When are you planning on getting into it? :P

Is there guideline for tryhards like me?

I'm working on it, and I don't have a lot of time to do it. It will get done.

Ive been giving it some minutes now, added shutt's antiban wich i think is good and created a mainloop and stuff wich i think looks pretty nice :)
however i get this error

[Error] (61:3): Unknown identifier 'DebugATPA' at line 60
Compiling failed.

from

DebugATPA(aTPA, '');

some small tips would be osom!

I think this is very clever from Home, giving us non-SRL members, yet not leechers a chance to use a useful script!

From: Erke
Ive been giving it some minutes now, added shutt's antiban wich i think is good and created a mainloop and stuff wich i think looks pretty nice :)
however i get this error

[Error] (61:3): Unknown identifier 'DebugATPA' at line 60
Compiling failed.

from

DebugATPA(aTPA, '');

some small tips would be osom!

I think this is very clever from Home, giving us non-SRL members, yet not leechers a chance to use a useful script!

Just delete the line ;p

Very interesting Home! Once I find out what the Range Guild has/does, I'll check this out :) I think you should put a brief description on what each function does :p Although, the name of each function does sort of spell it out.

From: -daazndagger-
Very interesting Home! Once I find out what the Range Guild has/does, I'll check this out :) I think you should put a brief description on what each function does :p Although, the name of each function does sort of spell it out.

Basicly what you do in range guild is Compete with the Judge and shoot at targets and again and again for range xp and tickets ;p

From: Deadly Serious
I love how people are asking for the fully completed script. It only takes a few minutes to rearrange it all and then probably about another 5 to see what's missing. You can even see by the names of the procedures/ functions on where to put them, lol.

its not so easy right off the bat. i have read every single tutorial and still have no fucking clue on what to do..
can someone please give me a step-by-step tutorial on how to do this? it will definitely come in handy for other scripts like this.
this is so frustrating >.<

From: vashanddou
start by adding

program RangGuild;
  {$DEFINE SRL5}
  {$DEFINE SMART}

  {$i SRL/srl.simba}
  {$i SRL/SRL/misc/paintsmart.simba} 

//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

Var
(declare variables here)

  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';
      Pass        := '';
      Pin         := '';
      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := 'Farming';
      Active      := True;
    end;
  end;  

at the very top and

begin
  SMART_Members := True;
  SMART_Signed  := True;
  SetupSRL();
  SetupSRLStats(222, SRLStatsUserName, SRLStatsPassword);
  SRLRandomsReport;
  ClearDebug();
  ActivateClient();
  DeclarePlayers();
  LoginPlayer();
  SetupScript();                                             
(finish the rest)
end.

at the very end.


then start declaring the proper variables,
learn about that here: http://villavu.com/forum/forumdisplay.php?f=191

thanks to this i actually made SOME progress.. i think because idk tbh what all that is. however i have 2 errors
the first one is this
[Error] (10:3): 'BEGIN' expected at line 9
Compiling failed.
So then i just deleted the logging in part and decided i could stop the script and log myself in.. (does that work?)
anyhow, i deleted that and tried to run it again and then it said the something about the variables..? wha??? please explain that part to me please? :D

From: ttm nick
its not so easy right off the bat. i have read every single tutorial and still have no fucking clue on what to do..
can someone please give me a step-by-step tutorial on how to do this? it will definitely come in handy for other scripts like this.
this is so frustrating >.<

I doubt you've even fully completed one tutorial, you need to start off with the basics and the best way to do that is by watching:
http://villavu.com/forum/showthread.php?t=67691
http://villavu.com/forum/showthread.php?t=69179

If you watch those 2 videos completely you should understand how to complete most of it. Then just flip through a few other tutorials by reputable people and you should be fine.
If you don't know how to do something, you can always use the search button up the top. It will usually lead you to a very helpful thread.

From: ttm nick
thanks to this i actually made SOME progress.. i think because idk tbh what all that is. however i have 2 errors
the first one is this
[Error] (10:3): 'BEGIN' expected at line 9
Compiling failed.
So then i just deleted the logging in part and decided i could stop the script and log myself in.. (does that work?)
anyhow, i deleted that and tried to run it again and then it said the something about the variables..? wha??? please explain that part to me please? :D

This should tell you how to fix the common problems you're having:
http://villavu.com/forum/showthread.php?t=6413&highlight=annoying+errors
In the videos I linked to you, it tells you about the main loop and explains why you need different functions and what their capabilities are.

What's the point of releasing a script if you have to build it. Many people here doesn't know how to script or anything about it. They want to bot and they will just wait for someone to release a good version of it

From: fearlesskiller
What's the point of releasing a script if you have to build it. Many people here doesn't know how to script or anything about it. They want to bot and they will just wait for someone to release a good version of it

The whole sole purpose of this community is to learn. If you don't want to learn, then simply leave. It's not rocket science to build it / assemble it piece by piece and adding a log in procedure.

A completed version of this will not be released, as I doubt Home would give his permission.

If you don't want to put the effort in to making it work, then you won't use it.

From: fearlesskiller
What's the point of releasing a script if you have to build it. Many people here doesn't know how to script or anything about it. They want to bot and they will just wait for someone to release a good version of it

this community is about learning, not botting. if you dont like it leave. thats the point of this script. it forces people to attempt to learn. i personally like the way this is done, and think all scripts should be like this.

I would love to make a script using this and help everyone else that needs it except I am not a member (F2P only) so I do not know what the script requires. Great idea though and I wish everyone luck

Call down, I'm learning scripting. But I still can't solve this script.

From: fearlesskiller
Call down, I'm learning scripting. But I still can't solve this script.

Then you aren't at enough experience yet. Keep working.

Yeah I know that, but i've read all sticky beginner tutorial and watched 2 vids. Does this scripts requires beginner skill to finish or intermediate, because i would just continue to intermediate. But i think there's no official intermiate tutorial…

More like intermediate logic(not an insult, logic in scripting is the order in which you script for the code to follow) and beginner knowledge if that makes sense to you. Also, read more than the stickies, many of the non-stickied ones are just as helpful to beginners.

From: PatDuffy
A completed version of this will not be released, as I doubt Home would give his permission.

If you don't want to put the effort in to making it work, then you won't use it.

You can post your version of the builded script in this thread (SRL Members + Shuuu!)

as long as an SRL Member doesnt post it, then it is fine to post it by a registered member in this thread.

From: PatDuffy
More like intermediate logic(not an insult, logic in scripting is the order in which you script for the code to follow) and beginner knowledge if that makes sense to you. Also, read more than the stickies, many of the non-stickied ones are just as helpful to beginners.

Alright ill read maximum guides i can. Thanks for those advices i appreciate it

From: vashanddou
You can post your version of the builded script in this thread (SRL Members + Shuuu!)

as long as an SRL Member doesnt post it, then it is fine to post it by a registered member in this thread.

That doesn't even make sense….

Fearless, I appreciate you actually taking the time to look at tutorials, you will find your reward in time when you can get this to work and others can't.

Lol if only I had a members account, got it to compile :P
Haha, I just wanted to see how fast I could do it!

E: In all honesty I have no idea what the range guild is, I have heard of it multiple times never bothered to check it out :P

This is an excellent idea honestly. Whoever's got it to work ought not to release the assembled version :D

Thanks for the script but im undeniably brain dead when it comes to these things unfortunately:/.

Eh only 2.3mill to 99 range anyways might as well just legit it:D.

So how many people have done with Scripting it :)

I will add some comments later today into script (It will help you out even more)


~Home

speaking for most of leachers,

Home we need your help with this,
currently I'm lost at "build your own" part.

any suggestions?

with all jokes aside, thanks for the up. although i already have 99 ranged, I will try and fail miserably, but great learning tool.

thanks
thanks

How i build my script ( Simple tutorial for people learning to build scripts)

Objective : Powermine ores in this instance iron ores.

How the script would do this

Load Smart
Login
Check Inventory for Pickaxe
Find Iron Ores
Mine Iron Ores
Check if Inventory full
Drop Ores if Inventory full
Repeat

how it would be scripted in simba

program New;
{$i srl/srl.simba} 

procedure LoadSmart; //Loads Smart
begin
{ 

Code that i cant remember frm the top of my head 
}end;

function findPickAxe :boolean;
begin
{ cant remember code but its meant to checkpickaxe , if it finds it returns true}

end;


function findOre (x,y : integer ) :boolean;
begin
{ cant remember code but its meant to find ores, if it finds it returns true and x,y,  position of the ore}

end;

procedure Mine;
begin
{ mines the ore }
end;
// This bottom bit  is the main loop ( where the magic happens )
begin

LoadSmart;
LoginPlayer; // Logs in the player
if findPickAxe then
begin
  repeat           // starts to repeat here , because isnt that what you want to do?mine
   if findOre then   // if it finds the ore then mine simple as that
    Mine;
  if invFull then // if inventory is full then it drops the ores 
  DropOres;

  until false ( repeats for ever )

end;

end.

This code above will not work because it is not coded properly , just an idea of how to build

oh gawd it was compiling 2times after ive completed it but then I get this error
[Error] (222:12): Invalid number of parameters at line 221
Its in my main loop, ive seen a thread about compiling problems but I cant find it again…

I have spend alot of time in it. I have done another powermining script it is done, this is just 2 hard for me. If someone makes a tutorial for this script I can finally make this script done. Please help me I can only make the beginning.

its build your own Its pretty easy Even mine fails one or two times but mine atleast work Pls stop pming me abou tthe script my tip is use Kyle undefiend script to make urs work a bit better and tweak it yourself ;) always use stuff there already is as u can learn :D

Tries to click other npc's that looks like judge :(

Added little tutorial :)


~Home

Not working properly. Lot of missclicks etc. :(

From: hunt3rx3
Not working properly. Lot of missclicks etc. :(

Works for me : )


~Home

Ok, apparently I need to learn more lol.

I know the steps, when I compare it to kyles script and change some things and put on my own things it doesn't seem to work.

From: Erke
oh gawd it was compiling 2times after ive completed it but then I get this error
[Error] (222:12): Invalid number of parameters at line 221
Its in my main loop, ive seen a thread about compiling problems but I cant find it again…

still have same problem, help plz? :/

From: hunt3rx3
Not working properly. Lot of missclicks etc. :(

Yup thats true. I'm gonna try to fix it more stable.

Okey I got it working and I even managed to get 1k tokens before it missclicked and got me killed :p

I made a dtm for the targets and it seems to find them. But another problem is getting your account to stand in right position. If you ain't standing in range of the target your account will run away when trying to shot the target…

From: Rally
I made a dtm for the targets and it seems to find them. But another problem is getting your account to stand in right position. If you ain't standing in range of the target your account will run away when trying to shot the target…

I hope you guys have added Wait times in declare player ;)


~Home

Does this support getting arrows from the judge?

Also can someone explain what each function does? Never played Range Guild before.

if some one done the script that guy wil share it with me please:)>?

From: wolkano
if some one done the script that guy wil share it with me please:)>?

Dude what don't you understand about the whole 'DIY' method. Do it yourself. It's literally put there for you to grasp a simple understanding of how things work and build/assemble your first little script :)

From: XxX Toxin XxX
Dude what don't you understand about the whole 'DIY' method. Do it yourself. It's literally put there for you to grasp a simple understanding of how things work and build/assemble your first little script :)

What does the spammouse procedure do?

From: Heya69
What does the spammouse procedure do?

It does the spam clickings to shoot at targets. The main FireTarget function uses it.

damm man realy dont undertand it

where can i find tuts?

in the tutorial sections ;)

[Error] (73:10): Unknown identifier 'WaitArrow' at line 72
Compiling failed.

I don't read english well either. :(

From: Heya69
[Error] (73:10): Unknown identifier 'WaitArrow' at line 72
Compiling failed.

Post more of the code. Simply means you have to identify the WaitArrow. Simple as that. I would tell you what to fix if more code was given

Tested for an hour:

========================================================
Time Running: 1 Hours, 7 Seconds
Shooted: 1040 Arrows
Loads: 104
Thats: 103 Trades in an hour
Thats: 1037 Arrow shot in an hour
Fails: 111
========================================================

Seems like it failed atleast 1 time with the popup interface each load :o.
Btw does anyone know how many arrows you can shoot average each hour if you do it legit?

Very exited to work on this tonight! Brilliant idea Home

From: H_N
How did you work that one out?

What because I don't have as much post count as you?

Maybe I'm busy with real life? You know the place outside your front door?

Look at my posts, do you see me moaning or asking for scripts, begging for help or crying, flaming members for not updating there scripts? I thanks members and state what a good job there doing, I hardly play Runescape, I've never botted in my time when I use to play 3 years ago, I played legit, I only test the odd script here and there and try alter scripts to my own preference. I'm actually learning to script and I feel I'm doing pretty well. I don't have a lot of time, I work, I go gym and I spend the rest of my free time with my friends and girlfriend.

I'm not one of those 12 year old kids who loves pixels and wants to bot for pixel money, I couldn't give two shits…

I found these forums by accident whilst googling the bot nuke, I thought it would be a interesting challenge to learn to script but then I see posts like yours and think what's the point.

So next time you post some stupid comment to try look good think about it.

You reply like a 12 year old kid though. Offending me by insinuating that scripters don't have real lives is just shallow and dumb.

I have a real life too, but I do my best to contribute. I was not judging you by your posts. You were just making a comment about leechers, so thought I would inform you that as you're standing, you're one of them.

Good luck with your scripting :)

A small procedure for asnwering "bot?" questions. Will help alot at range guild. :)

procedure ChatResponder;
begin
  if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['Bot?','U bot?','Bot','Botting?'], SmallChars, Nothing) then
  begin
    TypeSend('no');
    Wait(RandomRange(1000,3000));
  end;

end;  

From: hunt3rx3
A small procedure for asnwering "bot?" questions. Will help alot at range guild. :)

procedure ChatResponder;
begin
  if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['Bot?','U bot?','Bot','Botting?'], SmallChars, Nothing) then
  begin
    TypeSend('no');
    Wait(RandomRange(1000,3000));
  end;

end;  

I wouldn't use that, that's very bot like.

From: Kyle Undefined
I wouldn't use that, that's very bot like.

Then what? No answers is more likely u bot.

Not really, when I legit, I'm always in CC. I rarely respond to anyone. A lot of people play that way.

From: shadowmarkus
You reply like a 12 year old kid though. Offending me by insinuating that scripters don't have real lives is just shallow and dumb.

I have a real life too, but I do my best to contribute. I was not judging you by your posts. You were just making a comment about leechers, so thought I would inform you that as you're standing, you're one of them.

Good luck with your scripting :)

No I just told you how it is. I'm sure scripters have life's, didn't say they didn't.

Out of all the people you could have called a leecher you picked me? It's not like I posted something bad or asking someone to pm me the finished script. I'm actually trying to contribute as much as time allows me, give people a chance, I didn't come here to leech or beg for scripts.

Anyway sorry Home for going off topic on your thread.

From: Kyle Undefined
Not really, when I legit, I'm always in CC. I rarely respond to anyone. A lot of people play that way.

Well this is ok, but not at range guilds. Since reflection bots gone, range guild is empty in like every world. U just bot alone there, and a guy comes and u not answering…auto report….

From: hunt3rx3
Then what? No answers is more likely u bot.

No it's not, lol. You're going to reply every time, instantly every time they ask. They will catch on, ask other questions, etc. Best to not reply as if your public chat is turned off/in friends chat/account muted etc.

From: H_N
No I just told you how it is. I'm sure scripters have life's, didn't say they didn't.

Out of all the people you could have called a leecher you picked me? It's not like I posted something bad or asking someone to pm me the finished script. I'm actually trying to contribute as much as time allows me, give people a chance, I didn't come here to leech or beg for scripts.

Anyway sorry Home for going off topic on your thread.

I wasn't looking to point leechers out. You just made a remark that deserved it :) I'm not hating on you though, I consider myself a leecher too. I don't think we have the same impression of the word leecher. In my eyes, a leecher don't have to be annoying, beg, ask for help, or anything like that. A leecher just need to take stuff, without giving something back.

From: Kyle Undefined
Not really, when I legit, I'm always in CC. I rarely respond to anyone. A lot of people play that way.

Update your range guild script plox :)

From: lolcat
Update your range guild script plox :)

Just assemble this script >.<

I have now checked couple scripts. And people doesn't have wait times in their DeclarePlayers..

Please look more carefully into code.


~Home

Got it working, thanks for this.

From: I am new
Got it working, thanks for this.

post it here for proofs?

[Error] (80:10): Unknown identifier 'WaitArrow' at line 79
Compiling failed.


If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);


function WaitArrow (var X, Y :Integer; 1500: Integer) :Boolean;
var
T :Integer;
begin
If Not LoggedIn then Exit;
MarkTime(T);
while (TimeFromMark(T) < Time) do
begin
If Not LoggedIn then Exit;
Wait(RandomRange(10, 25));
if FindArrows(X, Y) then
begin
Result := True;
Break;
end;
end;
end;


Any advice?

You have to call the waitarrow function before you use it in the script. The name has to be called before it can be named again in the script

From: shadowmarkus
I wasn't looking to point leechers out. You just made a remark that deserved it :) I'm not hating on you though, I consider myself a leecher too. I don't think we have the same impression of the word leecher. In my eyes, a leecher don't have to be annoying, beg, ask for help, or anything like that. A leecher just need to take stuff, without giving something back.

Fair enough, didn't mean to come across rude or anything, I got a bit defensive :P Maybe one day I can give something back.

Sorry if any offence was caused :)

From: fearlesskiller
post it here for proofs?

Might aswel, Couldn't find command to make compass northeast so I didn't add command to change angle, which means you have to login and set angle by yourself.

Also attacks guards quite often so better baby sit it while running. Also If you really want to use it change some of the antibans so it will have inventory on so it may equip arrows given by judge.

Oh and antiban was leeched from someone's script.

program RangingGuild;

{$DEFINE SRL5}
{$DEFINE SMART}

{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
const
RandAmount = 200;
SWorld = 138;



function FindArrows(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.17);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 5, 5);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['ronze', 'rrow'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
var
  T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindArrows(X, Y) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function WaitNPCText(Text :String; Time :Integer) :Boolean;
var
 T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindNPCChatText(Text, Nothing) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function FindJudge :Boolean;
var
  TPA: TPointArray;
  aTPA: T2DPointArray;
  MiddlePoint :TPoint;
  X, Y, Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 0.06);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(260, 32));
  Hi := Length(aTPA);
  for I := 0 to Hi - 1 do
  begin
    If Length(aTPA[I]) < 40 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
    begin
      ClickMouse2(False);
      If WaitOptionEx('alk', 'All', Nothing, 250) then
        begin
          If WaitOptionMulti(['Compete', 'ompete'], 250) then
            begin
              Flag;
              If WaitNPCText('Yes', 1500) then
              begin
                TypeSendEx('1', False);
                If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
              end;
            end;

          Result := True;
          Break;
        end;
    end;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FireTarget(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.28);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4672674, MSX1, MSY1, MSX2, MSY2, 2);    //5330874
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;



procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  End;

End;

procedure SetupChar;
begin
  LoginPlayer;
  //MakeCompass('e');
  setAngle(SRL_ANGLE_LOW);
  ToggleXPBar(True);

end;

procedure SpamMouse(var x, y: Integer; Time: Integer);
begin
  If Not LoggedIn then Exit;
  HoldMouse(x, y, mouse_left);
  Wait(Round(Time / 1.2));
  ReleaseMouse(x, y, mouse_left);
  Wait(Time);
end;

procedure AntiBan;
  begin
  writeln('Choosing random antiban');
  case random(11) of
    0 : begin
        writeln('Random click selected');
        RandomRClick;
        end;
    1 : begin
        writeln('Random movement selected');
        RandomMovement;
        end;
    2 : begin
        writeln('Hover skill strength');
        HoverSkill(skill_strength,false);
        end;
    3 : begin
        writeln('Prayer tab selected');
        GameTab(27);
        Wait(randomrange(400,800));
        end;
    4 : begin
        writeln('Random Fkey selected');
        HoverSkill(skill_hitpoints,false);
        end;
    5 : begin
        writeln('Hover Skill (HP) selected');
        HoverSkill(skill_hitpoints,false);
        Wait(randomrange(300,600));
        end;
    6 : begin
        writeln('Game Tab stats selected');
        GameTab(23);
        end;
    7 : begin
        writeln('Pickup Mouse selected');
        PickUpMouse;
        end;
    8 : begin
        writeln('Random wait selected');
        Wait(randomrange(1000,2000));
        end;
    9 : begin
        writeln('Hover Skill attack selected');
        HoverSkill('attack',false);
        end;
  end;
Wait(randomrange(500,1000));
end;

Procedure RAntiBan;
begin
  Wait(randomrange(200,400));
  case random(RandAmount) of
    0 : begin
          writeln('Random Wait AntiBan');
          Wait(randomrange(1100,2500));
        end;
    1 : begin
          AntiBan;
        end;
  end;
end;

procedure Competition;
var
 X, Y, C :Integer;
begin
  If Not LoggedIn then Exit;
  while not FindNPCChatText('orry', Nothing) do
  begin
  FindJudge;
    If FindNPCChatText('standard', Nothing) then
      If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

    if FireTarget(X, Y) then
      SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

    if not DidClick(True, 30) then Inc(C)
    else
      C := 0;
    if (C >= 2) then CloseWindow;
    RAntiBan;
  end;
end;

procedure Startup;
begin
  Smart_Server := SWorld;
  Smart_Members:= true;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;

  MouseSpeed := 15;
  wait(100+random(100));
end;


begin
  Startup;
  SetupChar;

  repeat
    if not LoggedIn then
    begin
      LoginPlayer;
      ClickNorth(SRL_ANGLE_HIGH);
    end;
   competition;
  until(AllPlayersInactive)
end.

From: I am new
Might aswel, Couldn't find command to make compass northeast so I didn't add command to change angle, which means you have to login and set angle by yourself.

Also attacks guards quite often so better baby sit it while running. Also If you really want to use it change some of the antibans so it will have inventory on so it may equip arrows given by judge.

Oh and antiban was leeched from someone's script.

program RangingGuild;

{$DEFINE SRL5}
{$DEFINE SMART}

{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
const
RandAmount = 200;
SWorld = 138;



function FindArrows(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.17);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 5, 5);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['ronze', 'rrow'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
var
  T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindArrows(X, Y) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function WaitNPCText(Text :String; Time :Integer) :Boolean;
var
 T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindNPCChatText(Text, Nothing) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function FindJudge :Boolean;
var
  TPA: TPointArray;
  aTPA: T2DPointArray;
  MiddlePoint :TPoint;
  X, Y, Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 0.06);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(260, 32));
  Hi := Length(aTPA);
  for I := 0 to Hi - 1 do
  begin
    If Length(aTPA[I]) < 40 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
    begin
      ClickMouse2(False);
      If WaitOptionEx('alk', 'All', Nothing, 250) then
        begin
          If WaitOptionMulti(['Compete', 'ompete'], 250) then
            begin
              Flag;
              If WaitNPCText('Yes', 1500) then
              begin
                TypeSendEx('1', False);
                If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
              end;
            end;

          Result := True;
          Break;
        end;
    end;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FireTarget(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.28);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4672674, MSX1, MSY1, MSX2, MSY2, 2);    //5330874
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;



procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  End;

End;

procedure SetupChar;
begin
  LoginPlayer;
  //MakeCompass('e');
  setAngle(SRL_ANGLE_LOW);
  ToggleXPBar(True);

end;

procedure SpamMouse(var x, y: Integer; Time: Integer);
begin
  If Not LoggedIn then Exit;
  HoldMouse(x, y, mouse_left);
  Wait(Round(Time / 1.2));
  ReleaseMouse(x, y, mouse_left);
  Wait(Time);
end;

procedure AntiBan;
  begin
  writeln('Choosing random antiban');
  case random(11) of
    0 : begin
        writeln('Random click selected');
        RandomRClick;
        end;
    1 : begin
        writeln('Random movement selected');
        RandomMovement;
        end;
    2 : begin
        writeln('Hover skill strength');
        HoverSkill(skill_strength,false);
        end;
    3 : begin
        writeln('Prayer tab selected');
        GameTab(27);
        Wait(randomrange(400,800));
        end;
    4 : begin
        writeln('Random Fkey selected');
        HoverSkill(skill_hitpoints,false);
        end;
    5 : begin
        writeln('Hover Skill (HP) selected');
        HoverSkill(skill_hitpoints,false);
        Wait(randomrange(300,600));
        end;
    6 : begin
        writeln('Game Tab stats selected');
        GameTab(23);
        end;
    7 : begin
        writeln('Pickup Mouse selected');
        PickUpMouse;
        end;
    8 : begin
        writeln('Random wait selected');
        Wait(randomrange(1000,2000));
        end;
    9 : begin
        writeln('Hover Skill attack selected');
        HoverSkill('attack',false);
        end;
  end;
Wait(randomrange(500,1000));
end;

Procedure RAntiBan;
begin
  Wait(randomrange(200,400));
  case random(RandAmount) of
    0 : begin
          writeln('Random Wait AntiBan');
          Wait(randomrange(1100,2500));
        end;
    1 : begin
          AntiBan;
        end;
  end;
end;

procedure Competition;
var
 X, Y, C :Integer;
begin
  If Not LoggedIn then Exit;
  while not FindNPCChatText('orry', Nothing) do
  begin
  FindJudge;
    If FindNPCChatText('standard', Nothing) then
      If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

    if FireTarget(X, Y) then
      SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

    if not DidClick(True, 30) then Inc(C)
    else
      C := 0;
    if (C >= 2) then CloseWindow;
    RAntiBan;
  end;
end;

procedure Startup;
begin
  Smart_Server := SWorld;
  Smart_Members:= true;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;

  MouseSpeed := 15;
  wait(100+random(100));
end;


begin
  Startup;
  SetupChar;

  repeat
    if not LoggedIn then
    begin
      LoginPlayer;
      ClickNorth(SRL_ANGLE_HIGH);
    end;
   competition;
  until(AllPlayersInactive)
end.

You need something here

 SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

;)

Ohh and Some more uptext checking is not bad either if it attacks Guards very often :)

~Home

Home, I sent you a pm but just noticed I can figure out where to read my pms.

hello all I am rather new too scripting did a little bit of my own self editing/tweaking on scripts when power bot was up and running awhile back but that was C++ and that is a little different so tomorrow I'm going to read up on the script writing tuts and i will use this as my first self teaching projects although if anyone would like to offer some helpful advice on the coding of the anti-ban and the loops through PM it would be much appricated Thanks and Happy Hunting ;)

RSBot is in java

program RangingGuild;

{$DEFINE SRL5}
{$DEFINE SMART}

{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
const
RandAmount = 200;
SWorld = 138;



function FindArrows(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.17);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 5, 5);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['ronze', 'rrow'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
var
  T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindArrows(X, Y) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function WaitNPCText(Text :String; Time :Integer) :Boolean;
var
 T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindNPCChatText(Text, Nothing) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function FindJudge :Boolean;
var
  TPA: TPointArray;
  aTPA: T2DPointArray;
  MiddlePoint :TPoint;
  X, Y, Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 0.06);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(260, 32));
  Hi := Length(aTPA);
  for I := 0 to Hi - 1 do
  begin
    If Length(aTPA[I]) < 40 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
    begin
      ClickMouse2(False);
      If WaitOptionEx('alk', 'All', Nothing, 250) then
        begin
          If WaitOptionMulti(['Compete', 'ompete'], 250) then
            begin
              Flag;
              If WaitNPCText('Yes', 1500) then
              begin
                TypeSendEx('1', False);
                If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
              end;
            end;

          Result := True;
          Break;
        end;
    end;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FireTarget(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.28);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4672674, MSX1, MSY1, MSX2, MSY2, 2);    //5330874
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;



procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  End;

End;

procedure SetupChar;
begin
  LoginPlayer;
  //MakeCompass('e');
  setAngle(SRL_ANGLE_LOW);
  ToggleXPBar(True);

end;

procedure SpamMouse(var x, y: Integer; Time: Integer);
begin
  If Not LoggedIn then Exit;
  HoldMouse(x, y, mouse_left);
  Wait(Round(Time / 1.2));
  ReleaseMouse(x, y, mouse_left);
  Wait(Time);
end;

procedure AntiBan;
  begin
  writeln('Choosing random antiban');
  case random(11) of
    0 : begin
        writeln('Random click selected');
        RandomRClick;
        end;
    1 : begin
        writeln('Random movement selected');
        RandomMovement;
        end;
    2 : begin
        writeln('Hover skill strength');
        HoverSkill(skill_strength,false);
        end;
    3 : begin
        writeln('Prayer tab selected');
        GameTab(27);
        Wait(randomrange(400,800));
        end;
    4 : begin
        writeln('Random Fkey selected');
        HoverSkill(skill_hitpoints,false);
        end;
    5 : begin
        writeln('Hover Skill (HP) selected');
        HoverSkill(skill_hitpoints,false);
        Wait(randomrange(300,600));
        end;
    6 : begin
        writeln('Game Tab stats selected');
        GameTab(23);
        end;
    7 : begin
        writeln('Pickup Mouse selected');
        PickUpMouse;
        end;
    8 : begin
        writeln('Random wait selected');
        Wait(randomrange(1000,2000));
        end;
    9 : begin
        writeln('Hover Skill attack selected');
        HoverSkill('attack',false);
        end;
  end;
Wait(randomrange(500,1000));
end;

Procedure RAntiBan;
begin
  Wait(randomrange(200,400));
  case random(RandAmount) of
    0 : begin
          writeln('Random Wait AntiBan');
          Wait(randomrange(1100,2500));
        end;
    1 : begin
          AntiBan;
        end;
  end;
end;

procedure Competition;
var
 X, Y, C :Integer;
begin
  If Not LoggedIn then Exit;
  while not FindNPCChatText('orry', Nothing) do
  begin
  FindJudge;
    If FindNPCChatText('standard', Nothing) then
      If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

    if FireTarget(X, Y) then
      SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

    if not DidClick(True, 30) then Inc(C)
    else
      C := 0;
    if (C >= 2) then CloseWindow;
    RAntiBan;
  end;
end;

procedure Startup;
begin
  Smart_Server := SWorld;
  Smart_Members:= true;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;

  MouseSpeed := 15;
  wait(100+random(100));
end;


begin
  Startup;
  SetupChar;

  repeat
    if not LoggedIn then
    begin
      LoginPlayer;
      ClickNorth(SRL_ANGLE_HIGH);
    end;
   competition;
  until(AllPlayersInactive)
end.

i cant figure out how to let him click on the fire range he after he get the 10 bronze arrows he is trying to get it again i already changet the collour of the fire range but still nothing can some one help me?:f:

From: I am new
Might aswel, Couldn't find command to make compass northeast so I didn't add command to change angle, which means you have to login and set angle by yourself.

Also attacks guards quite often so better baby sit it while running. Also If you really want to use it change some of the antibans so it will have inventory on so it may equip arrows given by judge.

Oh and antiban was leeched from someone's script.

program RangingGuild;

{$DEFINE SRL5}
{$DEFINE SMART}

{$i SRL/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
const
RandAmount = 200;
SWorld = 138;



function FindArrows(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.17);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1781567, MIX1, MIY1, MIX2, MIY2, 8);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 5, 5);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['ronze', 'rrow'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function WaitArrow(var X, Y :Integer; Time :Integer) :Boolean;
var
  T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindArrows(X, Y) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function WaitNPCText(Text :String; Time :Integer) :Boolean;
var
 T :Integer;
begin
  If Not LoggedIn then Exit;
  MarkTime(T);
  while (TimeFromMark(T) < Time) do
  begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if FindNPCChatText(Text, Nothing) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function FindJudge :Boolean;
var
  TPA: TPointArray;
  aTPA: T2DPointArray;
  MiddlePoint :TPoint;
  X, Y, Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.40, 0.06);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6512479, MSX1, MSY1, MSX2, MSY2, 14);
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(260, 32));
  Hi := Length(aTPA);
  for I := 0 to Hi - 1 do
  begin
    If Length(aTPA[I]) < 40 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Competition', 'ompeti', 'Judge', 'udge'], 250) then
    begin
      ClickMouse2(False);
      If WaitOptionEx('alk', 'All', Nothing, 250) then
        begin
          If WaitOptionMulti(['Compete', 'ompete'], 250) then
            begin
              Flag;
              If WaitNPCText('Yes', 1500) then
              begin
                TypeSendEx('1', False);
                If WaitArrow(X, Y, 3500) then Mouse(X, Y, 2, 2, True);
              end;
            end;

          Result := True;
          Break;
        end;
    end;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FireTarget(var X, Y: Integer) :Boolean;
var
  TPA: TPointArray;
  aTPA : T2DPointArray;
  MiddlePoint :TPoint;
  Hi, I, TempCTS :Integer;
begin
  If Not LoggedIn then Exit;
  TempCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 1.28);

  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4672674, MSX1, MSY1, MSX2, MSY2, 2);    //5330874
  If Length(TPA) = 0 Then Exit;
  aTPA := TPAToATPAEx(TPA, 20, 20);
  SortATPAFromFirstPoint(aTPA, Point(0, 0));
  MiddlePoint := MiddleTPA(aTPA[0]);
  MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
  If WaitUpTextMulti(['Fire', 'Target', 'arget'], 250) then
  begin
    GetMousePos(X, Y);
    Result := True;
  end;
  ColorToleranceSpeed(TempCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;



procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Active      := True;
  End;

End;

procedure SetupChar;
begin
  LoginPlayer;
  //MakeCompass('e');
  setAngle(SRL_ANGLE_LOW);
  ToggleXPBar(True);

end;

procedure SpamMouse(var x, y: Integer; Time: Integer);
begin
  If Not LoggedIn then Exit;
  HoldMouse(x, y, mouse_left);
  Wait(Round(Time / 1.2));
  ReleaseMouse(x, y, mouse_left);
  Wait(Time);
end;

procedure AntiBan;
  begin
  writeln('Choosing random antiban');
  case random(11) of
    0 : begin
        writeln('Random click selected');
        RandomRClick;
        end;
    1 : begin
        writeln('Random movement selected');
        RandomMovement;
        end;
    2 : begin
        writeln('Hover skill strength');
        HoverSkill(skill_strength,false);
        end;
    3 : begin
        writeln('Prayer tab selected');
        GameTab(27);
        Wait(randomrange(400,800));
        end;
    4 : begin
        writeln('Random Fkey selected');
        HoverSkill(skill_hitpoints,false);
        end;
    5 : begin
        writeln('Hover Skill (HP) selected');
        HoverSkill(skill_hitpoints,false);
        Wait(randomrange(300,600));
        end;
    6 : begin
        writeln('Game Tab stats selected');
        GameTab(23);
        end;
    7 : begin
        writeln('Pickup Mouse selected');
        PickUpMouse;
        end;
    8 : begin
        writeln('Random wait selected');
        Wait(randomrange(1000,2000));
        end;
    9 : begin
        writeln('Hover Skill attack selected');
        HoverSkill('attack',false);
        end;
  end;
Wait(randomrange(500,1000));
end;

Procedure RAntiBan;
begin
  Wait(randomrange(200,400));
  case random(RandAmount) of
    0 : begin
          writeln('Random Wait AntiBan');
          Wait(randomrange(1100,2500));
        end;
    1 : begin
          AntiBan;
        end;
  end;
end;

procedure Competition;
var
 X, Y, C :Integer;
begin
  If Not LoggedIn then Exit;
  while not FindNPCChatText('orry', Nothing) do
  begin
  FindJudge;
    If FindNPCChatText('standard', Nothing) then
      If WaitArrow(X, Y, 1500) then Mouse(X, Y, 2, 2, True);

    if FireTarget(X, Y) then
      SpamMouse(x, y, RandomRange(Players[CurrentPlayer].Integers[1], Players[CurrentPlayer].Integers[2]));

    if not DidClick(True, 30) then Inc(C)
    else
      C := 0;
    if (C >= 2) then CloseWindow;
    RAntiBan;
  end;
end;

procedure Startup;
begin
  Smart_Server := SWorld;
  Smart_Members:= true;
  Smart_Signed := true;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;

  MouseSpeed := 15;
  wait(100+random(100));
end;


begin
  Startup;
  SetupChar;

  repeat
    if not LoggedIn then
    begin
      LoginPlayer;
      ClickNorth(SRL_ANGLE_HIGH);
    end;
   competition;
  until(AllPlayersInactive)
end.

just trying to compete the match thats it.

LOl im an idiot, i found out what i was missing.

As above stated

From: Surfing
As above stated

There's no need to Double post,there is a EDIT button for a reason.

you know you gotta admit this is better than things like powerbot or rsbuddy even if it isnt as failsafe as. those things were leechable. here everyone gets sort of a setup but you do have to pull their own weight in some areas.

wow just giv us a script without hassle…

From: Kosova
There's no need to Double post,there is a EDIT button for a reason.

Yeah i know, that's why i used the edit button ;).

Got it. Not telling of course. Thank you btw. But thats the great part about this community. No leechers well not really and no gold miners(that i know of). I don't post much and I'm quite new but thats what i've seen so far. I'm hoping maybe in a couple of weeks I'll have uploaded a few of my scripts :P

Well, I suck at Scripting, and I managed to get this to work fairly well within a half hour or so. This should be easy to work out for everyone! Great Job Home! :D

From: jomomma257
wow just giv us a script without hassle…

Hahahaha, that made my day. Thank you.

From: vashanddou
http://villavu.com/forum/forumdisplay.php?f=191

now you can learn.

better of learning, ive offered 200m rs cash for this script complete, no takers!? fuck ya, learning time.

From: ixonexus
better of learning, ive offered 200m rs cash for this script complete, no takers!? Fuck ya, learning time.

lololol

From: Surfing
lololol

lolol fuck u gimme the script n i mite just consider paying u now..

Can any1 please make a toturial on how to set up this script?

That would be completely missing the point of why Home has done it this way.

It's a script kit - with the key / main functions (with some less difficult ones for you to fill in). You have to put them together yourself . :) After that - you can post your completed script for critique. But who said that learning was easy. :)

i wont learn how to make this script done because this sucks

everyone go learn your schoolwork or go to work dont learn bull shit l0l

just fking release the script.. why you dont want that ppl get 99 range or that they get banned just release

From: wolkano
i wont learn how to make this script done because this sucks

everyone go learn your schoolwork or go to work dont learn bull shit l0l

just fking release the script.. why you dont want that ppl get 99 range or that they get banned just release

Angry leech is angry.

Seriously, scripting isn't hard.

From: GeZe
Can any1 please make a toturial on how to set up this script?

made me lawl

hey home , great idea but you should really help the newbies out here!
You should either make more of these ''make yourself scripts'' with ranges of easier to intermidate or type actually everything that has to be in there. Because no matter how many video's i watch or guides i create , i still don't understand what im missing most of the time and i know this is too stop leechers but i see it as a way to learn how to script so help out a little if you can:p

Write everything that has to be in there and il try making it myself.

thanks , il speak to you on msn sometime.

Yours awsomely ,,,.

Sable

OH P.S. if anyone has time now and wants to help me , please send me a private message
thhnxxx

From: Kyle Undefined
Angry leech is angry.

Seriously, scripting isn't hard.

lol ofcourse a master scripter would say scripting isnt easy but hey maybe its not but you got to remember not everyone has time to learn i go to school well am about to start school and work 2 part time jobs and they both suck lol i just been watching tuts its harder to learn this then all you guys say

Hey this is sortv'e like when you buy those half made cakes from the supermarket, you jsut gotta add water maybe an egg or so and a bit of butter. I really like it, the idea that is, never again will I add Antiban to my script, leeches can do that part.

From: Harry
Lol at all these dummy crying leeches. It takes literally less than 30 minutes to learn how you would assemble this, really all you have to do is assemble the mainloop and add small stuff like antiban…

Cool idea Home.

Then please show us "dummies" how to assemble this?

I love the idea! I'll give a shot tomorrow at school since I wont need any color grabbers or nothing

I'm finally back from a 2 month break! I love this idea of you making them build/finish it themselves, helps/makes them learn! Thank you for this by the way.

Reading all these comments and seeing retards make it work made me realise this crap cant be too hard, im off to learn.

can som1 please send me the link to this im honestly new to this stuff and idk wat im doin or if som1 can atleaste help me with assembling the script together pm me thx

im also new to this, everyone is like oh stp crying its so easy, well for me this is like being asked to fly a 747 ( basically im fucked ) so if someone could give me some help would help me allot :)

Dont ask for help with 1 post count.
Read through some tutorials and at least look at some code first.
=)

It keeps attacking the guards, if some1 can help me send me a pm.

From: tybkj
It keeps attacking the guards, if some1 can help me send me a pm.

I can help you, just sent you a PM :).

how to download it how to use it??

You have to make it yourself, Home just provides the basic functions :)

anyone wanna point me too a good tutorial on putting in variables?

I like this :)

Even though I am a maxed pure, I will do this just to test my knowledge :P

plz some1 help me, i have been trying this for weeks now. Today 1 hour of my life spent on this shit. Add me on skype kj.fijma Bwuk could't help me.

I may be considered a leecher, but I think this is a wonderful idea. I might even give it a try, but I have almost no knowledge of SRL, or scripting in general. I think that the top-rated script should be posted for sure though, as this is one kind of script that the SRL community needs. Might I suggest a good Antiban though, as I recall that Range-Guild bots had a very high banrate. (I was banned for the first and only time using a bot like this)

I got problem with the SpamMouse function aint spamming fast enough :/

Really fun idea!

Gonna try this on the weekend :)

From: Erke
I got problem with the SpamMouse function aint spamming fast enough :/

I haven't looked at the code or anything and I will be looking into this pretty soon on building it myself. try setting the ms between clicks lower?

Just took a quick glance at this and it looks really easy, although I am new to scripting but building anti-ban is easy and just rearranging the procedure and functions to work is easy. Main loop is easy enough as well.

Erke, try setting the SpamMouse function of (RoundTime / 2) to like 3 or 4 or higher depending on how fast you want it. I think that'll fix the SpamMouse function. not entirely sure though. just play around with a little, hope I'm some sort of assistance.

EDIT: Just spent like 5 minutes on this code. I'm pretty sure everything is in the right order. Time to add some anti-ban and add the main loop :)

From: TwoClover
I haven't looked at the code or anything and I will be looking into this pretty soon on building it myself. try setting the ms between clicks lower?

Just took a quick glance at this and it looks really easy, although I am new to scripting but building anti-ban is easy and just rearranging the procedure and functions to work is easy. Main loop is easy enough as well.

Erke, try setting the SpamMouse function of (RoundTime / 2) to like 3 or 4 or higher depending on how fast you want it. I think that'll fix the SpamMouse function. not entirely sure though. just play around with a little, hope I'm some sort of assistance.

EDIT: Just spent like 5 minutes on this code. I'm pretty sure everything is in the right order. Time to add some anti-ban and add the main loop :)

Will test to do that, it worked with 2 before so its really odd :/ My mainloop look like this and works very nice :D:D

 
begin
  Smart_Server := 117;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  repeat
    FindJudge;
  repeat
    Competition;
    FindNormalRandoms;
  until FindNPCChatText('orry', Nothing);
  until(false);
end.

From: Erke
I got problem with the SpamMouse function aint spamming fast enough :/

Try changing the wait() times. Don't forget it's in milliseconds =)

Can someone Please upload a finished version of this :(

ill give it a go, may need help tho!

How about sharing what you have done. I don't think he intended that you take the template and keep it to yourself.

I'm new to this community and I really think that this project will help me grasp scripting in Simba better. Thanks Home!

i ma tackle this soon!

can someone help me please!?

From: Deadly Serious
I love how people are asking for the fully completed script. It only takes a few minutes to rearrange it all and then probably about another 5 to see what's missing. You can even see by the names of the procedures/ functions on where to put them, lol.

Hey bro. Its easy for you to say cause you know how to script. I wish i had the patience to learn how to script. If i did this would definitely be the first thing on my to do list. Hang on, i might actually give it a go for shits and gigs.

Honestly, the only thing that I've ever scripted was for a game of Pong. I looked the code over and it literally tells you where things go if you've ever done Range Guild before.

how do i add anti ban anti random and such?

From: chelmid
Me too.

me threee

Nice project ^^
As soon as I have done my PHP exercises for school i'll give it a go ^^

i need a working copy please stop trolling you guys. Please if i dont have a working copy i will die of brain cancer. please dont let this happen :c

pleaseee! Dont be a tr0lllzzzlollolzlzozozl

From: vmike
i need a working copy please stop trolling you guys. Please if i dont have a working copy i will die of brain cancer. please dont let this happen :c

From: vmike
pleaseee! Dont be a tr0lllzzzlollolzlzozozl

I can't tell if serious or just very stupid…

From: PatDuffy
I can't tell if serious or just very stupid…

im serious man i need a good copy for this script and please dont send me a virus again man u hacker

From: vmike
im serious man i need a good copy for this script and please dont send me a virus again man u hacker

work it out by yourself! I have been scripting for only a week and believe me… This is incredibly easy… He did all the work for you.

send me it plz