SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
www.scar-scripts.com

How Long have You Played Runescape
2 years

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

i am 15, i have another account called "takeout" but im using this one now because in all the other forums i use this username :)

im from the channel islands i have been scripting for about 6 months, mmm i know the basics for scripting and i can put my legs behind my head ^.^

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

program Willow_chopper;
{.include srl/srl.scar}

var
x, y, a:Integer;

procedure eventchecker; Forward;
procedure safechecker; Forward;



Procedure DeclarePlayers;
begin
  HowManyPlayers:=1; //Don't Change if you want more players just fill in their info and set their active to: True/False
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on

  Players[0].Name :='username';  //Fill in your username
  Players[0].Pass :='password';  //Fill in your password
  Players[0].Nick :='nick';      //2-3 letters of your username
  Players[0].Active :=True;      //DON'T CHANGE
  Players[0].Booleans[1] := True;    //logged in?
  Players[0].Skill:= 'woodcutting' //genie skill
  Players[0].Strings[1] := 'Willow'; // DON'T CHANGE
  Players[0].Integers[1] := 500 //how many loads?
end;


Procedure eventchecker;
begin
  if not findcolorspiraltolerance(x,y,5795970,732,177,751,194,8) then
  begin
    writeln('oh your not dead, you are in random event')
    writeln('logging out :(')
    logout;
    terminatescript;
  end;
end;

Procedure home;
begin
  solvebox;
  Wait(700+Random(500));
  if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)then
  begin
  end;
  repeat
    Wait(50+Random(100));
    if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)then
    begin
      mmouse(x,y,0,0)
    end;
    a:= a+1;
  until(a=30)or IsUpText('Willow');
  mouse(x,y,0,0,false)
  if not chooseoption('Willow') then
  begin
     writeln('Did not find tree using home teleport')
      mouse(740,186,0,0,true)
       Wait(150+Random(300));
        mouse(740,186,0,0,true)
         Wait(300+Random(100));
        mouse(570,241,0,0,true)
       Wait(10000+Random(12000));
      eventchecker;
     safechecker;
  end;
end;

procedure cuttree;
begin
  makecompass('W')
  home;
  findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)
  mmouse(x,y,0,0)
  Wait(200+Random(500));
  if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5) then
  begin
    if IsUpText('Willow')then
    begin
      mouse(x,y,0,0,true)
      Wait(5000+Random(10000));
    end;
  end;
  repeat
    solvebox;
    Wait(1000+Random(1500));
    findcolorspiraltolerance(x,y,3830633,8,51,500,314,5)
    mmouse(x,y,0,0)
    Wait(200+Random(500));
    if IsUpText('Willow')then
    begin
      mouse(x,y,0,0,true)
      Wait(5000+Random(7000));
    end;

    a:= a+1;
    until(a=5)or   FindBlackChatMessage('Oh dear, you are dead!') or  FindBlackChatMessage('do not have an axe') or  FindBlackChatMessage('inventory is too full');
    Wait(1000+Random(1500));
    dropall;
end;

Procedure getaxe;
begin
  makecompass('W')
  writeln('going to wc tutor to get another axe.')
  Wait(500+Random(300));
  mouse(654,65,0,0,true)
  Wait(5000+Random(4500));
  makecompass('N')
  if findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8) then
  begin
    mouse(x,y,0,0,false)
  end;
  repeat
    if not chooseoption('Talk') then
    begin
      findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8);
      mouse(x,y,0,0,false);
    end;
  until chooseoption('Talk') ;
  Wait(7000+Random(5000));
  makecompass('W')
  mouse(263,388,0,0,true)
  Wait(1000+Random(500));
  clicktocontinue;
  Wait(1000+Random(500));
  clicktocontinue;
  Wait(800+Random(1000));
  mouse(577,223,0,0,true)
  writeln('Recieved axe from wc tutor successful!')
  writeln('Goiing back to Willow trees.')
  Wait(800+Random(1000));
  mouse(631,109,0,0,true)
  Wait(5000+Random(10000));
end;

Procedure safechecker;
begin

  MMouse(580,228,0,0);
    Wait(150+Random(300));
     if IsUpText('axe')then
    begin
  mouse(576,229,0,0,true)
 end else
begin

  end;


  Wait(150+Random(300));
  if IsUpText('logs')then
  begin
    mouse(576,229,0,0,false)
      Wait(100+Random(200));
    chooseoption('Drop')
  end else
  begin

   end;


 writeln('checking axe...')
   mouse(671,186,0,0,true)
   mmouse(588,305,0,0)
 Wait(200+Random(350));

if isUpText('Broken') or isUpText('handle')then
begin
  writeln('axe is broken')
   mouse(586,300,0,0,true)
    Wait(800+Random(1000));
     mouse(638,188,0,0,true)
    Wait(800+Random(1000));
   mouse(576,227,0,0,false)
  Wait(800+Random(1000));
 chooseoption('Drop')
getaxe;
end;
repeat

if not isUpText('Broken') or isUpText('handle')then
begin
  Wait(800+Random(1000));
  writeln('Axe is fine')

end;
  a:= a+1;
until(a=1)or not isUpText('Broken')  ;

  Wait(800+Random(1000));
  writeln('checking players status...')
  closewindow;
  if FindBlackChatMessage('Oh dear, you are dead!') then
  begin
    logout;
    Wait(3000+Random(5000));
    LoginPlayer
    writeln('Player dead or in unknown location walking back to willows.')
    typesend('darn i died') /// do NOT remove VERY important
    dropall;
    Wait(300+Random(500));
    makecompass('W')
    mouse(673,479,0,0,true)
    Wait(300+Random(500));
    if   findcolorspiraltolerance(x,y,5067346,653,422,656,427,8)   then
    begin
      mouse(638,430,0,0,true)
    end;
    mouse(646,183,0,0,true)
    Wait(300+Random(500));
    if findcolorspiraltolerance(x,y,8476246,645,0,700,104,8)then
    begin
      mouse(x,y,0,0,true)
    end;
    Wait(6000+Random(5000));
    makecompass('N')
    Wait(600+Random(500));
    if findcolorspiraltolerance(x,y,14071968,665,12,721,98,8)then
    begin
      mouse(x,y,0,0,true);
      Wait(12000+Random(10000));
    end;
    mouse(652,23,0,0,true)
    Wait(5000+Random(6000));
    makecompass('N')
    if findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8) then
    begin
      mouse(x,y,0,0,false);
    end;
    repeat
      if not chooseoption('Talk') then
      begin
        findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8)
        mouse(x,y,0,0,false)
      end;
    until chooseoption('Talk') ;
    Wait(7000+Random(5000));
    makecompass('W')
    mouse(263,388,0,0,true)
    Wait(1000+Random(500));
    clicktocontinue;
    Wait(1000+Random(500));
    clicktocontinue;
    Wait(800+Random(1000));
    mouse(577,223,0,0,true)
    writeln('Recieved axe from wc tutor successful!')
    writeln('Goiing back to Willow trees.')
    Wait(800+Random(1000));
    mouse(631,109,0,0,true)
    Wait(5000+Random(10000));
  end;
  if not FindBlackChatMessage('Oh dear, you are dead!') then
  begin
    writeln('Player is not dead.')
    mouse(647,187,0,0,true)
    eventchecker;
    solvebox;
  end;
end;

Procedure setup;
begin
  if (not(loggedIn)) then
  begin
    LoginPlayer;
  end;
  makecompass('W')
  highestangle;
  Setchat('friends',1)
  SetChat('friends',2)
  Setchat('off',3)
  solvebox;
  Wait(500+Random(200));
  safechecker;
  Wait(500+Random(1000));
  cuttree;
end;

begin
  SetupSRL;
  DeclarePlayers;
  repeat
    setup;
  Until False;

end.

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

get rid of one of your accounts.

The script is too basic:
coord clicking = bannage
barely any failsafes
no standards
me no likes you're name

hi im learning to script but i only know a couple of basics, anyone got a simple guide just for basics?

im from the channel islands i have been scripting for about 6 months, mmm i know the basics for scripting and i can put my legs behind my head ^.^

i like my name :)

From: fucker
i like my name :)

unfortunately for you I get to vote =)

Your script is very simple and you have a lot of coordinate clicking.

Coordinate - a.k.a blind clicking can be used in situations where it is about the only solution, rare though, but for example if you would go to draynor bank to the willows you would propably use coord clicking as so would I, since there using a dtm or something would be completely unnecassary.

Coordinate clicking itself isn't an instant ban, but you have 0 for both randomnesses (nesses :p ) which means it always clicks exactly same position, so use atleast 4 and 4.

Also, you should learn something lot more advanced than FindColorSpiralTolerance.

Read more tutorials and stickies about becoming an SRL Member, remember to wait a month between every apply.

Why I put it in bold was because I had a nice conversation (not really nice) with one appliance today.

Also, apply when your script is totally ready, we don't like it that people start to edit the required stuff in their scripts after they have applied.

But, you have a good start there, good luck and see ya!

I'd vote no,
- coord clicking
- useless begins and ends
- useless ifs
- useless repeat!

repeat
 
if not isUpText('Broken') or isUpText('handle')then
begin
  Wait(800+Random(1000));
  writeln('Axe is fine')
 
end;
  a:= a+1;
until(a=1)or not isUpText('Broken')  ;

- no standards.

but i won't vote.

Try reading some more tuts, make a few more scripts, and especially look at other scripts, because you can learn a lot from that.

~RM

From: Rasta Magician
I'd vote no,
- coord clicking
- useless begins and ends
- useless ifs
- useless repeat!

repeat
 
if not isUpText('Broken') or isUpText('handle')then
begin
  Wait(800+Random(1000));
  writeln('Axe is fine')
 
end;
  a:= a+1;
until(a=1)or not isUpText('Broken')  ;

- no standards.

but i won't vote.

Try reading some more tuts, make a few more scripts, and especially look at other scripts, because you can learn a lot from that.

~RM

why not?

repeat
 
  if not isUpText('Broken') or isUpText('handle')then
  begin

    Wait(800+Random(1000));
    writeln('Axe is fine')
 
  end;
  a:= a+1;
until(a=1)or not isUpText('Broken')  ;

Why did you use a loop there since you are going to do it only one time?

Just do

If IsUpText('Broken') Then
  Writeln('Axe is broken')
Else
  Writeln('Axe is fine');

From: hugolord
why not?

I just got into members, i prefer to restraint myself from voting for a little while rather than possibly underestimate / overestimate someone's script.

[offtopic]Hugo are you portuguese?[/offtopic]

~Rasta Magician :)

I am going to vote no because it doesn't fulfill the checklist that hugo has listed.

I will give you kudos though because I like your name.

Good decision rasta.

Try to see if there comes any average appliances, so then you can see how people vote in difference situations, how they comment on them and tell why they voted yes or no, and start making your own requirements for a yes vote :)

When I saw your name, I said no.

He's getting banned for his name anyway.

Thread closed

Account banned
Reason: Unacceptable.

Edit: This is takeout who was banned for leaking SMART


Admins: IP ban?