SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Scars message of the day box :D

Programming Knowledge
I know some actionscripting 2.0 (for flash)

Other Communitys
Everquest 2 forums and such (not related).

How Long have You Played Runescape
4 years on and off mainly. (its worse than a crack addiction :(

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

I have been cheating in runescape since scar came out. The first script I used was a simple power miner that got my main account banned after I repeatedly used it 24/7 for over a week. It got me to rune though :D. After toying around with some scripts I began writing some of my own, not for Runescape though. I began writing scripts for a game called Everquest 2 in which botting was unheard of. My first script for that was a very simple tradeskilling program that made stuff while I was sleeping and got me lots of cash. Later I made an auto attacker which got me to the highest level in a week. I am now back playing runescape (sorta, cheating mainly) and have been trying out my knowledge in scripting some nice runescape bots with SRL now since it gets 50% of the hard stuff out of the way and lets the coder accomplish his/her goals much quicker and safer.

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

Note: This script is for everquest2 not Runescape, so you might see the lack of randomness in mouse movements and such. I took and modified a couple of Squigs procedures in this script for time logging and such.

program Autoattacker;
/////////////////Variables//////////////////
var i, bb, ST, x, y: integer;
smooth: Boolean;

/////////////////////////////mouse procedures///////////////////////////////
Procedure MMouse(mousex,mousey,ranx,rany:integer);
var  randx, randy:integer;
begin
     randx:=mousex+random(ranx); randy:=mousey+random(rany);
     if(smooth)then MoveMouseSmoothEx(randx+1,randy, 2, 4, 20, 20, 10)
     else MoveMouse(randx,randy);
end;

Procedure Mouse(mousex,mousey,ranx,rany:integer; left:boolean);
var a,b,c:integer;
begin
     if(smooth)then
     begin
          MMouse(mousex,mousey,ranx,rany);
          GetMousePos(b,c);
          HoldMouse(b+1,c,left);
          repeat
                wait(10+random(40));
          until(a>4);
          GetMousePos(b,c);
          ReleaseMouse(b,c,left);
     end;
     if(not smooth)then
     begin
          MMouse(mousex,mousey,ranx,rany);
          GetMousePos(b,c);
          clickmouse(b,c,left);
     end;
end;
////////////////////////////functions//////////////////////////////////////////
function PetAlive: Boolean;                // finds white by pet name
begin
  result := FindColorTolerance(x, y, 16777215, 1177, 785, 1180, 788, 5)
end;

function cantsee: Boolean;
begin
  result := FindColorTolerance(x, y, 16777060, 870, 770, 890, 790, 15)
end;

function Healthy: Boolean;
begin
  result := FindColorTolerance(x, y, 42752, 130, 61, 132, 63, 5)
end;

function PetHealthy: Boolean;
begin
  result := FindColorTolerance(x, y, 47360, 1200, 805, 1240, 809, 5)
end;

function PetPowered: Boolean;
begin
  result := FindColorTolerance(x, y, 10650185, 1158, 820, 1162, 824,5)
end;

function Powered: Boolean;
begin
  result := FindColorTolerance(x, y, 10715978, 131, 94, 135, 98, 5)
end;

function Incombat: Boolean;            //finds red x
begin
  result := FindColorTolerance(x, y, 1051821, 745, 847, 753, 856, 5)
   bb:=0
end;

function Ready: Boolean;
begin
if (Healthy and Powered and PetHealthy and PetPowered and PetAlive)
then result := True
else result := False
end;

//green  4125246
//blue   16760320
//white  16777215
//yellow 4059633

function pettargeted: Boolean;
begin
  if FindColorTolerance(x, y, 3131328, 614, 122, 753, 140, 3) or
     FindColorTolerance(x, y, 11085909, 614, 122, 753, 140, 3) or
     FindColorTolerance(x, y, 3489937, 614, 122, 753, 140, 3) then
     result := True
     else
     result := False
end;

function heroic: Boolean;
begin
if (FindColorTolerance(x, y, 4125246, 721, 49, 758, 60,10))
or (FindColorTolerance(x, y, 16760320, 721, 49, 758, 60,10))
or (FindColorTolerance(x, y, 16777215, 721, 49, 758, 60,10))
or (FindColorTolerance(x, y, 4059633, 721, 49, 758, 60,10))
then
result := true
else
result := false
end;

function Targetfound: Boolean;
begin
if (FindColorTolerance(x, y, 4125246, 639, 49, 689, 60,6))
or (FindColorTolerance(x, y, 16760320, 639, 49, 689, 60,6))
or (FindColorTolerance(x, y, 16777215, 639, 49, 689, 60,6))
or (FindColorTolerance(x, y, 4059633, 639, 49, 689, 60,5))
then
result := true
else
result := false
end;

function TimeRunning:string;
var
  RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
  Time:string;
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  if Minutes<>0 then
  begin
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
    RMinutes:=Minutes Mod (RHours*60);
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+
    ' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  Result:=Time;
end;

function Goodtarget: Boolean;
begin
if (Targetfound and not heroic and not pettargeted)
then
result := true
else
result := false
end;
////////////////////////////procedures//////////////////////////////////////////
procedure abort;
begin
  writeln('Script has been aborted after: '+inttostr((GetTimeRunning div 60000))+' minute(s)!');
  SaveScreenShot(+timerunning+'.bmp');
  mouse(1670, 17,3,3,true);
  sleep(random(300))
  mouse(1670, 17,3,3,true);
  TerminateScript;
end;

procedure DetectTell;
begin
  if FindColorTolerance(x, y, 16759125, 6, 878, 530, 1002, 8) then
  abort;
end;

procedure DetectZoning;
begin
  if FindColorTolerance(x, y, 7471032, 770, 463, 775, 468, 3) then
  abort;
  DetectTell;
end;

procedure callbackpet;
begin
mouse(1170, 845,1,1,true);
sleep(300);
mouse(1170, 845,1,1,true);
sleep(5000+random(300));
mouse(1148, 844,1,1,true);
sleep(300);
mouse(1148, 844,1,1,true);
sleep(400);
mmouse(10, 1011,1,1);
sleep(1000);
end;

procedure toofaraway;
begin
if (cantsee) then
callbackpet;
end;

procedure regaintarget;
begin
if (incombat) then
  if (not Goodtarget) then
sendkeys('=');
end;

procedure waitforrepop;
begin
if (bb >= 10 + random(3)) then
repeat
writeln('waiting for repops');
sendkeys('-');
sleep(12000 + random(8000));
bb:= 0
until(bb = 0);
end;

procedure Findmob;
begin
writeln('Finding mob');
i:=0
SendKeysVb('{TAB}', False);
SendArrowWait(1, 100+random(300));
bb:=bb+1
end;



Procedure Setup;
begin
ST:=GetSystemTime;
end;

procedure adjusttime;
begin
disguise(Timerunning);
end;

procedure Attackit;         //if out of combat r =0 +1, if in combat r = random number
var
  r: Integer;
begin
bb:=0
if (Incombat) then
r := random(8);
sendkeys(IntToStr(r+1));
sleep(random(800));
i:=i+1
if (Incombat) then i:=0;
if (i >= 20) and (not incombat) then
Findmob;
end;

procedure attack;
begin
if (ready) then
if (PetAlive) then
 if (not incombat) then
  if (not Goodtarget) then
   repeat
   Findmob;
   waitforrepop;
   until(Goodtarget);
   if (Goodtarget) then
   repeat
   Attackit;
   regaintarget;
   toofaraway;
   until(not Incombat);     //old was not good target and not incombat
end;

//////////////////////////////Main Loop//////////////////////////////////////
begin
Setup;
repeat
adjusttime;
attack;
DetectZoning;
until(false);
end.

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

No. I don't see an SRL script.

The most advanced procedures are copied out of library, an old include file.

No. Read some tutorials on what is needed to become a SRL member.

From: Iron man
No. Read some tutorials on what is needed to become a SRL member.

Lol, you posted straight after me. Like 5 seconds difference.

lol, maybe he used one on scar-scripts.com?

i vote no

Your script is not an SRL script, the less one that fills the requirements of your script to get in. See the requirements here.

yeah i dont like it too… its simple/short and idk if thats even SRL

Please read some tutorials before applying.
You may try again in one month, good luck.
Closed.