SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
C

Other Communitys
Zybez

How Long have You Played Runescape
2 years

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

Currently Learning Scar, still need to polish up my standards.
I hope to be a expert scripter by the end of the year.
I will not be on that often, but will try to go on when I can.
I took a year of C in high school. ( still in high school)

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

const
colo= 2909016;// color of tree
Waitt= 4000;//the time between cutting

var
x,y,m1,m2:integer;
li,lo,ow:integer;
anti:integer;


procedure comp;
begin
LoadNPCArray;
lo:=0
ActivateClient;
cleardebug;
wait(10)
writeln('color is set at: '+ inttostr(colo))
ActivateClient;
end;


procedure chop;
begin
if FindColorSpiralTolerance(x,y,colo,52,26,468,260,3) then
Mouse(x,y,1,1,true);
li:=li+1
wait(waitt + random(200))
Getmousepos(x,y)
if getcolor(x,y)=colo then
chop;
end;

procedure drop; //Original
begin
m2:=224;
m1:=621;
ow:=1;
li:=1;
if invfull then
   begin
   repeat
   li:=li+1;
   ow:=ow+1;
   mouse(m1,m2,0,0,false)
   mouse(m1-45,m2+45,0,0,true)
   if ow=4 then
   m2:=m2+34;
   if ow=4 then
   ow:=0;
   m1:=m1+43;
   if m1=750 then
   m1:=578;
   until(li=24)
m2:=445;
m1:=578;
repeat
li:=li+1;
Mouse(m1,m2,0,0,false)
Mouse(m1-52,m2+16,0,0,true)
m1:=43+m1;
until(li=28)
   end;
end;

Procedure mouseit;
begin
Anti:= random(5);
case Anti of
1:movemousesplineex(51,57,1,1,10,35,65);
2:movemousesplineex(80,80,1,1,10,35,65);
3:movemousesplineex(127,75,1,1,10,35,65);
4:movemousesplineex(100,59,1,1,10,35,65);
5:movemousesplineex(110,10,1,1,10,35,65);
end;
end;

Procedure Talkk;
begin
Anti:= Random(5);
case Anti of
1:typesend('wc lvls?'); //type in what you want to 
2:typesend('Yawn ');//say to deter detection
3:typesend('Woodcutting gets boring);
4:typesend('So.... how you all doing?');
5:typesend(booooring');
end;
end;

procedure antiban;
begin
if lo=5 then
begin
wait(100)
lo:=0
Anti:= Random(5);
case Anti of
1:HoverSkill('woodcutting',false);
2:pickupmouse;
3:Talkk;
4:mouseit;
5:RandomMovement;
end;
end;
end;

Procedure Randoms;
begin
SolveChatRandom;
if (FindFight) then
begin
RunTo('N',false)
Wait(8500 + random(3500));
RunTo('S',false)
end;
end;

begin
li:=0
SetupSRL;
comp;
repeat
lo:= lo+1
wait(100 + random(50))
chop;
wait(100 + random(50))
Randoms;
wait(100 + random(50))
drop;
wait(100 + random(50))
antiban;
until(false)
end.

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

No, sorry. Your script won't even compile, because it lacks the program header information and probably has quite a few other errors. You also show very little, if any, knowledge of SRL. Please read up on the tutorials and try again in a month or few.

^^

wow rly bad standards i cant even read it

no sorry

First things first, it seems like you just made this script in like 10 seconds… you dont even have {.Include SRL/SRL.Scar} at the begining, read some tutorials about getting SRL membership, and then read some tutorials about the things you need help with… Its a No from me

const
  colo = 2909016;
  Waitt = 4000;

var
  x, y, m1, m2: integer;
  li, lo, ow: integer;
  anti: integer;

procedure comp;
begin
  LoadNPCArray;
  lo := 0;
  ActivateClient;
  cleardebug;
  wait(10);
  writeln('color is set at: ' + inttostr(colo));
  ActivateClient;
end;

procedure chop;
begin
  if FindColorSpiralTolerance(x, y, colo, 52, 26, 468, 260, 3) then
    Mouse(x, y, 1, 1, true);
  li := li + 1;
  wait(waitt + random(200));
  Getmousepos(x, y);
  if getcolor(x, y) = colo then
    chop;
end;

procedure drop;
begin
  m2 := 224;
  m1 := 621;
  ow := 1;
  li := 1;
  if invfull then
  begin
    repeat
      li := li + 1;
      ow := ow + 1;
      mouse(m1, m2, 0, 0, false);
      mouse(m1 - 45, m2 + 45, 0, 0, true);
      if ow = 4 then
        m2 := m2 + 34;
      if ow = 4 then
        ow := 0;
      m1 := m1 + 43;
      if m1 = 750 then
        m1 := 578;
    until (li = 24) m2 := 445;
    m1 := 578;
    repeat
      li := li + 1;
      Mouse(m1, m2, 0, 0, false) Mouse(m1 - 52, m2 + 16, 0, 0, true) m1 := 43 + m1;
    until (li = 28);
  end;
end;

procedure mouseit;
begin
  Anti := random(5);
  case Anti of
    1: movemousesplineex(51, 57, 1, 1, 10, 35, 65);
    2: movemousesplineex(80, 80, 1, 1, 10, 35, 65);
    3: movemousesplineex(127, 75, 1, 1, 10, 35, 65);
    4: movemousesplineex(100, 59, 1, 1, 10, 35, 65);
    5: movemousesplineex(110, 10, 1, 1, 10, 35, 65);
  end;
end;

procedure Talkk;
begin
  Anti := Random(5);
  case Anti of
    1: typesend('wc lvls?');
    2: typesend('Yawn ');
    3: typesend('Woodcutting gets boring');
    4: typesend('So.... how you all doing?');
    5: typesend('booooring');
  end;
end;

procedure antiban;
begin
  if lo = 5 then
  begin
    wait(100);
    lo := 0;
    Anti := Random(5);
    case Anti of
      1: HoverSkill('woodcutting', false);
      2: pickupmouse;
      3: Talkk;
      4: mouseit;
      5: RandomMovement;
    end;
  end;
end;

procedure Randoms;
begin
  SolveChatRandom;
  if (FindFight) then
  begin
    RunTo('N', false) Wait(8500 + random(3500));
    RunTo('S', false)
  end;
end;

begin
  li := 0 SetupSRL;
  comp;
  repeat
    lo := lo + 1;
    wait(100 + random(50));
    chop;
    wait(100 + random(50));
    Randoms;
    wait(100 + random(50));
    drop;
    wait(100 + random(50));
    antiban;
  until (false);
end.

I'll have to say no, sorry!

MoveMouseSplineEx? :s

You can also use

MMouse(x, y, rx, ry: integer); {or}
Mouse(mousex, mousey, ranx, rany: Integer; left: Boolean);

everywhere.

Oh, and:

procedure comp;
begin
  LoadNPCArray;
  lo := 0;
  ActivateClient;
  cleardebug;
  wait(10);
  writeln('color is set at: ' + inttostr(colo));
  ActivateClient;
end;

You only have to activate it once :)
And you forgot to {.include SRL/SRL.scar}..

Sorry, no from me. Wait for MasterKill's famous list for advice :)

Nope.

It seems like you're not getting in this time, sorry.
You may try again one month.
Closed.