SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
no

Other Communitys
sythe.org a little…

How Long have You Played Runescape
almost 3 years

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

i used to do scar for a while then i got a vista computer and it wouldnt work…then i quit runescape for a month and now i i am back into it.

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

//made by qcrist
//start in lumby bank(anywhere should be fine)
//have a full invtory of flax
//i recomend watching it
//change line  98 (ammofflax=_______)   ________=amount of flax
//change 21-22 to usernameand pass
//u can be logged in or logged off
//anyproblems ask 4 help on my forum
//have fun
program New;
{.include SRL/SRL.scar}
  Const
   StartPlayer = 0;
var x,y,ammofflax:integer;

//Procedure SetupScript;

{-----
login
------ }
Procedure login;
begin
begin
cleardebug;
ammofflax :=0;
findrs;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := 'zcv';
  Players[0].Active := True;
end;
End;
Procedure login2;

begin
 if not loggedin then
     login;
   LoginPlayer;
   wait(4000)
end;



{-----
makemapright
------ }
Procedure makemapright;
Begin
wait(1000)
Makecompass ('N');
makecompass('N');
makecompass('N');
HighestAngle;
HighestAngle;
HighestAngle;
end;

{-----
gotostairs
------ }
Procedure gotostairs;
Begin
mouse(643, 153,0,0,true);
wait(3000);
flag;
if findobj(x, y, 'tair', 537419, 25) then
  GetMousePos(X,Y)
  Mouse(x, y, 0, 0, true)
wait(3000);
mouse(250, 129,0,0,false)
chooseoption('Walk')
wait(500)
flag;
end;

{-----
spin
------ }
Procedure spin;
begin
if findobj(x,y,'pin',607848,15) then
  GetMousePos(X,Y)
  mmouse(x,y,0,0)
  mouse(x,y,0,0,False)
  wait(5000)
  chooseoption('Spin')
wait(1000)
flag;
wait(1000)
wait(1000)
  mmouse(262, 116,0,0)
  wait(2000)
  mouse(262, 116,0,0,false)
  wait(2000)
  ChooseOption(' X')
  wait(4500)
  typesend('28')
  wait(51000)
  ammofflax:=ammofflax+28
end;

{-----
upstairs
------ }
Procedure upstairs;
begin
  mouse(619, 107,0,0,true)
  wait(3000)
  flag;
if findobj(x, y, 'tair', 606303, 25) then
  GetMousePos(X,Y)
  mouse(x,y,0,0,False)
  wait(1000)
  chooseoption('-up')
  
end;
////////////////
//player ckeck//
////////////////

procedure PlayerCheck;
begin
  if(not(LoggedIn))then  Exit;
end;

////////////////
//  AntiBan   //
////////////////
procedure Antiban;
begin
PlayerCheck;
FindNormalRandoms;
end;
{-----
bank
------ }
Procedure bank;
begin
 wait(3000)
  mouse(658, 47,0,0,true)
  wait(2000)
  flag;
lowestAngle;
makecompass('E')
if findobj(x, y, 'ooth',543587, 25) then
  getMousePos(x,y)
  mouse(x,y,0,0,False)
  wait(1000)
  chooseoption('-qui')
  wait(3000)
  flag;
  depositall;
  mmouse(91, 77,0,0)
  wait(2000)
  mouse(91, 77,0,0,false)
  getMousePos(x,y)
  mouse(x,y,0,0,False)
  wait(2000)
  chooseoption('All')
if invfull then
end;


{-----
Main loop
------ }
Begin
  setupsrl;
  findrs;
  ClearDebug;
  login;
  login2;
  repeat
  makemapright;
  gotostairs;
  spin;
  upstairs;
  bank;
  if (ammofflax> 0) then
    AddToReport('Made '+ IntToStr(ammofflax) + ('bowsrtings'))
    writeln('Made = ' + IntToStr(ammofflax) + (' Bowstrings'));
until ammofflax=33000;
logout;
end.

i am currently working on this script..i used the 3.11 version and now i am trying to get it better updated

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

no sorry script is very very basic poor standards i meen realy bad standerds use things like dtms etc (masterkill hurry post you're uber explanation):) sorry no from me

Sorry dude no from me,

but keep trying dont give up! lol

read tuts thats what i advice you!
and
we prefer Walking Scripts that use DDtm/RRW and such (reflection maybe :O?)
dont use coord clicking really risky to get banned. and there must be failsafes like,

if not findsymbol('Example'); then
begin
 BackUp; // like rrw/ddtms or uhm a diff proc you made just for backup reason :) GL
end;

hope you understand theres alot other stuff you missing (DTM's). so just read the tuts, and make sure to read the How to get into SRL members (should be alot of tuts over that ;O?)

GOODLUCK m8 btw, dont give up just because we voted no!:spot:

No for me aswell.

• No Standards
• No RRW/DTMs/DDTMs
• No randomness in clicking

I didn't look through the whole thing, but I can tell it's not that good.

Just a few examples…

wait(1000)
flag;
wait(1000)
wait(1000)
  mmouse(262, 116,0,0)
  wait(2000)
  mouse(262, 116,0,0,false)
  wait(2000)
  ChooseOption(' X')
  wait(4500)
  typesend('28')
  wait(51000)

So… erm… what the heck is that supposed to do? it waits 2 seconds, moves the mouse, waits 2 seconds again, then clicks, then waits 2 seconds again, then chooses 'X' then waits 4.5 seconds, then chooses 28, then waits 51 seconds, and just consideres the job done… First of all, "Mouse" already does move the mouse, so no need to use MMouse first.

ALSO, BIG ERROR HERE: Finding the object will add the coords into the x and y variables, yet, after you did that, you overwrite them with the coords at which your mouse currently is… DO NOT USE GETMOUSEPOS AFTER ANY OBJECT/BITMAP/DTM/DDTM/COLOR FINDING -.-

Secondly, the waits are too big and too detectable… for example, the wait time between "mouse(x,y,0,0,false)" and "ChooseOption('X')" doesn't need to be more than 500ms at the most. Also, for the other waits in that procedure, use "Flag" or "FFlag(0)" instead of a given time. For the 51 seconds one, just use a repeat loop which waits 3seconds over and over again, until it finds the bowstring in the last inventory space, or until it has reached some sort of maximum which you could set or an antirandom has apeared. Also, add randoms into the wait times. After all that lecture, it should look something like this:

 Procedure spin;
begin
if findobj(x,y,'pin',607848,15) then
  mouse(x,y,0,0,False)
  wait(132+random(21)); //give the flag some time to appear.
  FFlag(0);  //Saver than Flag
  Wait(900+random(100));
  chooseoption('pin') // choose option sometimes has probs with capitalized letters
  wait(132+random(21)); //give the flag some time to appear.
  FFlag(0);  //Saver than Flag
  wait(760+random(250))
  mouse(262, 116,0,0,false)
  Wait(900+random(100));
  ChooseOption(' X')
  wait(950+random(300))
  typesend('28');
  MMouseItem(28);
  markTime(MyTime);
  repeat
     wait(3000);
     if InRange(TimeFromMark(MyTime),2800,5900) then 
       if FindNormalRandoms then Break;
     if TimeFromMark(MyTime) > 68000 then break;
  until IsUpTextMultiCustom(['ow','ring']);
  ammofflax:=ammofflax+28 
end;

You can laso substitute the line with "ammofflax:=ammofflax+28 " into something like

ammofflax := ammofflax + ammount('inventory',{Bow string dtm here});

Well, I guess I could write a text like that for all the procedures, but heck, I think I did enough, I have more important things to do atm than correct scripts which aren't of my own design ^^

Good luck next time (if you have a decent script)
-Pure1993

PS: in case somebody missed my point here, I am clearly voting "no"…

sorry, a no, not good enough yet :(

What factors do you need:

• DTMs / DDTMs
• Decent complex working script.
• FailSafes
• MultiPlayer
• Break out of potential endless loops
• Standards! Required to get people read your script.
• RadialWalk / DDTM Walking

if you allready have some points don't mind them :)


How do we judge it?

looking at the code, standaards. and whe imagen if it's working yes or no.


How many lines of code do you need

I would say 300+.
Make sure you got fail saves for evry possible option that could be going wrong.


well….

I hope this helped ya. good luck scripting!

~

offtopic:
(cant dankness add this to the aply form? ;)

I made a list like MK too :p Anyways, I'm not allowed to vote yet :p


D(D)TMs No..
Working script (and a little complicated). It won't work correctly :(
FailSafes for Everything No..
MultiPlayer No..
Break out of potential endless loops Only one, so no..
Standards! Required to get people read your script. No, a bit munk-style (No CamelCap or whatever it's called. (ForExampleTypeLikeThisIfSpacesAreNotAllowed))
Radial(Road)Walk / DDTM Walking No..

+++++Score Board+++++
+   Yes     : 0     +
+   Failz   : 7     +
+   Verdict : No.   +
+++++++++++++++++++++

From: laurenssie0
I made a list like MK too :p Anyways, I'm not allowed to vote yet :p

missing two of those points should be enough to vote no ;)

I'm still not allowed.. :o

mouse(658, 47,0,0,true)
mouse(619, 107,0,0,true)
mmouse(91, 77,0,0)
mouse(91, 77,0,0,false)

mmouse(91, 77,0,0)
  wait(2000)
  mouse(91, 77,0,0,false)
  getMousePos(x,y)
  mouse(x,y,0,0,False)
  wait(2000)

what is this for


if you want to close bank use

CloseBank;

http://www.villavu.com/forum/showthread.php?t=32568


far to many co-ord clicking no randomness

its a no from me

Sorry, but you didn't get in.

Please take all the suggestions you were given here and put them into your script to improve it. Stick around and read some tuts. Then reapply in one month after improving your script.

Cheers,
Hobbit. :)