SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
scar, little bit of c#

Other Communitys
sythe.org rs-cheater.org

How Long have You Played Runescape
since it came out

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

hi, my name is josh im 15 and im learning a lot about scar and even have a script that uses a little bit of radial walk, im learning c# but havent had a lot of time latley due to school but now its summer so hopefully i will learn it soon. ive been with srl forums for a little while and have help some ppl and on sythe ive written a couple of tuts on difernt things… oh yea this is serios im not makeing this up, just thaught u migh wanna know that i got 1 eye, i have a prosthetic eye that i pop out in class and show the subs so they freak out =P

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

heres my willow choper and banker script, if it dosent work plz let me know so i can fix it (i havent used it in a while and have changed it some)

{.Script Info:
# ScriptName  = 1-DUB's willow choper and banker
# Author      = 1-DUB
# Description = cuts and banks willows in Draynor
# Version     = 0.1
# Date        = 5/26/07 9:12 pm
# Comments    = thanks to every one who has made a tut on scar they have all helped me
greatley and a special thx to omgh4x0rz for his help, please post bugs and
any thing else , keep in mind this is the first version... all complements
wanted lol

/Script Info}
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
Tree = 2121808;

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

  Players[0].Name :='';//Player's name
  Players[0].Pass :='';//Pass (incase he logs out)
  Players[0].Nick :='';//Nick name , 3 or 4 letters of his name -This is used
  Players[0].Active:=True;//is active. YES       //for anti randoms
end;
////////////////////////////////////////////////
///////////////DO NOT MESS WITH BELOW!!!////////
////////////////////////////////////////////////
const
MTree = 1140529;
MBankLine = 15460592;
MBankSymbol = 4839659;

procedure SetUp;
 begin
  SetRun(True);
  DisguiseScar('i Tunes');
  FindAxeHeadColor;
   end;

function WalkToTree:boolean;
begin
  MakeCompass('S');
  Wait(100+random(39));
  HighestAngle;
  if (RadialWalk(MTree, 320, 400, 40, -1, -1)) then
  begin
    Wait(1000+random(30));
    Flag;
    result:=True;

  end;
  result:=false;
end;

   
function cuttree:boolean;
 begin
  if FindColorSpiral(x, y, Tree, 0, 0, 517, 339) then
  begin
  MMouse(x, y, 1, 1);
  Mouse(x, y, 1, 1, true);
  FindNormalRandoms;
  LeaveScreenEvery(2+random(4));
  RotateEvery(200+random(1000));
  FindHead;
  wait(2000+random(2000));
  result:=True;
   end;
   result:=false;
end;
   
function WalkToBank:boolean;
 begin
  MakeCompass('S');
  Wait(500+random(60));
  if RadialWalk(MBankLine, 200, 160, 70, -1, -1) then
  begin
  Flag;
  wait(500+random(200));
  RadialWalk(MBankSymbol, 200, 160, 70, -1, -1);
  RadialWalk(MBankSymbol, 250, 300, 70, -1, -1);
  GameTab(4);
   result:=True;
   end;
   result:=false;
end;
   
procedure Bank;
 begin
  OpenBankQuiet('db');
  Wait(500+random(20));
  mouse(626,229,1,1,False);
  ChooseOption(610,307, 'All');
   end;
   
procedure WalkCheck;
 begin
  while(WalkToTree)do
  begin
   Wait(200);
   FindNormalRandoms;
   end;
end;

procedure CutCheck;
 begin
  while(CutTree)do
 begin
  Wait(200);
  FindNormalRandoms;
  AntiBan;
  PickUpMouseEvery(5+random(10));
  BoredEvery(2+(19));
  HoverSkill('8-5',false);
   end;
end;

procedure WTBCheck;
 begin
  while(WalkToBank)do
 begin
  Wait(200);
  FindNormalRandoms;
  end;
end;
  





begin
SetupSRL;
ClearDebug;
ActivateClient;
SetUp;
repeat
WalkToTree;
PickUpMouseEvery(10+random(3));
repeat
CutTree;
until(invfull)
WalkToBank;
Bank;
WalkCheck;
CutCheck;
WTBCheck;
until(False)
end.

hope you liked it

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

I noticed in you cuttree function that a Result:= False was after a Result:= True.

That would make it turn up always false. I think.

Also, might I suggest more players than one? I think you should change that.
you should also put in WT-Fakawis FindFastRandoms; and make your own more complexeed Anti-Ban.





Back to CheatEngine!

No.

you don' have any:

• Multiplayer/player switching.
• Anti ban.
• Anti randoms
• Standards (Well.. correct ones anyways :p);
• Barely any fail safes if you even have any.

You have a little anti ban in your main loop, but thats just pick up mouse.

Check out my tutorial, (links in sig) Learning the things to become a SRL member.

Your on to a good start, and if you keep with it, and apply in another month, I think you may get in. Just learn some more, get more complex and have all the requirements and you will get in.

Not a bad attempt but you need to beef up antirandoms and antiban, also player switching is essential. Keep working hard and try again next month :)

Not bad but not enough. Improve a bit and come again in a month.

ya, antiban, antirandoms, better standards, multiplayer, fix the false in cuttree. Right now, its a no from me.

ok im working on a script to mine in dawfern mines and bank, im pretty sure ill be threw with it before next month, after i get threw with it can i get one of yall to check it??