SRL Archive - Archive

Choob'R'Us - SRL Member Application Form

Choob'R'Us

2007-10-16 02:09:13

<!– BEGIN TEMPLATE: formanswers –>
Choob'R'Us - SRL Member Application Form
Choob'R'Us

What is the meaning to life?

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

Programming Knowledge
Yes, but I'm not sure what it's called. The language used in GlovePIE.

Other Communitys
N/A

How Long have You Played Runescape
Um….I'm gonna say about three years.

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

I'm all new to this and being a computer junkie, I find a strange pleasure in spending hours in front of the computer writing and rewriting codes until they work correctly. I'm also an avid runescape player, but, like everyone else, don't enjoy clicking the same things over and over again, so I decided to see what macroing is all about. I know it's against the rules, but I do not intend to abuse macroing. I only am going to use it in moderation, only when I need it. I love pretty much anything electronic related. I also like to play golf, read, and I like to go swimmimg. I hope you will at least consider letting me be a member in your forums so that I may benifit from it and that I may be able to contribute back to you in the future. Thank you for your time.

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

Not much but….

ScarScript:By Drunkenoldma[LEFT]{*******************************************)(#####<Draynor Willow Cutter + Banker>######)(***************By Choob'R'Us***************)(——————————————-)(<><><><><><><><>Instructions<><><><><><><><)(——————————————-)( 1. Fill out DeclarePlayers section below. )( 2. Enter Bank Pin [If You Have One] below.)( 3. Press Run and enjoy! )(*******************************************} program DraynorWillowBanker;{.include srl/srl.scar}Const willowcolor1=2902351; willowcolor2=3686456; willowcolor3=2971728;Var x, y : Integer;Procedure DeclarePlayers;begin HowManyPlayers:= 6; NumberOfPlayers(HowManyPlayers); CurrentPlayer:= 0; Players[0].Name := 'Username'; //UserName Players[0].Pass := 'Password'; //Password Players[0].Nick := 'Nick'; //2-4 letters of username Players[0].Integers[1] := 10; //Number of loads before switching Players[0].Active := True; //Active Players[1].Name := 'Username'; //UserName Players[1].Pass := 'Password'; //Password Players[1].Nick := 'Nick'; //2-4 letters of username Players[1].Integers[1] := 10; //Number of loads before switching Players[1].Active := True; Players[2].Name := 'Username'; //UserName Players[2].Pass := 'Password'; //Password Players[2].Nick := 'Nick'; //2-4 letters of username Players[2].Integers[1] := 10; //Number of loads before switching Players[2].Active := True; //Active Players[3].Name := 'Username'; //UserName Players[3].Pass := 'Password'; //Password Players[3].Nick := 'Nick'; //2-4 letters of username Players[3].Integers[1] := 10; //Number of loads before switching Players[3].Active := True; //Active Players[4].Name := 'Username'; //UserName Players[4].Pass := 'Password'; //Password Players[4].Nick := 'Nick'; //2-4 letters of username Players[4].Integers[1] := 10; //Number of loads before switching Players[4].Active := True; //Active Players[5].Name := 'Username'; //UserName Players[5].Pass := 'Password'; //Password Players[5].Nick := 'Nick'; //2-4 letters of username Players[5].Integers[1] := 10; //Number of loads before switching Players[5].Active := True; //Active Writeln('Using '+IntToStr(HowManyPlayers)+' Players'); NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);end;procedure Login;begin if (not(LoggedIn)) then LoginPlayer;end;procedure DoChats;begin if (not(LoggedIn)) then Exit; SetChat('off', 1); SetChat('friends', 2); SetChat('on', 3); SetChat('off', 4);end;function FindFastRandoms: Boolean;var i: Integer;begin for i:=1 to 10 do begin case I of 1: If FindDead then Result := True; 2: If FindMod then Result := True; 3: If FindMime then Result := True; 4: If FindMaze then Result := True; 5: If FindQuiz then Result := True; 6: If FindDemon then Result := True; 7: begin if NoGameTab then begin Result := True; Players[CurrentPlayer].loc := 'No GameTab'; Logout; Exit; end; end; 8: begin if InBlack then begin Result := True; Players[CurrentPlayer].loc := 'InBlack'; Logout; Exit; end; end; 9: RC; 10: Respond; end; wait(1); end;end;procedure FindRandoms;begin FindTalk; FindFastRandoms; FindNormalRandoms; FindLamp('Woodcutting'); SolvePinball; if (FindFight) then begin MakeCompass('N'); RunTo('N', True); Wait(7000 +Random(3000)); RunBack; end;end;procedure AntiBan;begin if (not(LoggedIn)) then Exit; case Random(8) of 0: RandomRClick; 1: HoverSkill('Woodcutting', False); 2: RandomMovement; 3: BoredHuman; 4: PickUpMouse; 5: AlmostLogout; 6: begin GameTab(1 +Random(12)); wait(2000 +Random(1000)); GameTab(4); end; end;end;procedure Chop;begin wait(6000+random(2000)) repeat if(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or (findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or (findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then begin Mmouse(x,y,2,2); If(IsUpText('illow'))then begin Mouse(x,y,2,2,false) chooseoption('own') // no more x, y, wait(4000+random(3000)) end; end; until (InvFull);end;procedure Bank; begin FindBank('db'); OpenBankQuiet('db'); if PinScreen then InPin(''); // Enter Pin Number Here if BankScreen then DepositAll; CloseBank;end;procedure WalktoWillows; begin MakeCompass('N'); HighestAngle; WaterColor := FindWaterColor; RadialWalk(WaterColor, 225, 351, 64, 2, 2); Flag;end;// These Functions Will Start The script ( Login Player, Find Window, ect..)begin SetupSRL; FindWindowBySize(766, 504); Activateclient; DeclarePlayers; LoginPlayer; repeat // All Functions Below Here Will Repeat Until False. FindFastRandoms; FindRandoms; Antiban; Chop; Bank; WalktoWillows; until (False);end. [/LEFT]

It's my first one so…ya.

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

mat_de_b

2007-10-16 02:31:04

Scar tags… holding vote

Pancakes

2007-10-16 02:55:13

Wtf… You can't read that. Scar tags please.

HellBoyz

2007-10-16 02:56:47

lol where the script? totally can't read at all

Pentti

2007-10-16 05:19:56

Your SCAR Script tags kinda messed up dude. It happens when you edit your post, you save, you scroll back to edit site and save…
But anyways, here's how the script looks like (For real):
:D

ScarScript:By Drunkenoldma

{*******************************************)

(###########)

(***************By Choob'R'Us***************)

(-------------------------------------------)

(<><><><><><><><>Instructions<><><><><><><><)

(-------------------------------------------)

( 1. Fill out DeclarePlayers section below. )

( 2. Enter Bank Pin [If You Have One] below.)

( 3. Press Run and enjoy! )

(*******************************************}

program DraynorWillowBanker;

{.include srl/srl.scar}

Const

willowcolor1=2902351;

willowcolor2=3686456;

willowcolor3=2971728;

Var x, y : Integer;

Procedure DeclarePlayers;

begin

HowManyPlayers:= 6;

NumberOfPlayers(HowManyPlayers);

CurrentPlayer:= 0;

Players[0].Name := 'Username'; //UserName

Players[0].Pass := 'Password'; //Password

Players[0].Nick := 'Nick'; //2-4 letters of username

Players[0].Integers[1] := 10; //Number of loads before switching

Players[0].Active := True; //Active

Players[1].Name := 'Username'; //UserName

Players[1].Pass := 'Password'; //Password

Players[1].Nick := 'Nick'; //2-4 letters of username

Players[1].Integers[1] := 10; //Number of loads before switching

Players[1].Active := True;

Players[2].Name := 'Username'; //UserName

Players[2].Pass := 'Password'; //Password

Players[2].Nick := 'Nick'; //2-4 letters of username

Players[2].Integers[1] := 10; //Number of loads before switching

Players[2].Active := True; //Active

Players[3].Name := 'Username'; //UserName

Players[3].Pass := 'Password'; //Password

Players[3].Nick := 'Nick'; //2-4 letters of username

Players[3].Integers[1] := 10; //Number of loads before switching

Players[3].Active := True; //Active

Players[4].Name := 'Username'; //UserName

Players[4].Pass := 'Password'; //Password

Players[4].Nick := 'Nick'; //2-4 letters of username

Players[4].Integers[1] := 10; //Number of loads before switching

Players[4].Active := True; //Active

Players[5].Name := 'Username'; //UserName

Players[5].Pass := 'Password'; //Password

Players[5].Nick := 'Nick'; //2-4 letters of username

Players[5].Integers[1] := 10; //Number of loads before switching

Players[5].Active := True; //Active

Writeln('Using '+IntToStr(HowManyPlayers)+' Players');

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

end;

procedure Login;

begin

if (not(LoggedIn)) then

LoginPlayer;

end;

procedure DoChats;

begin

if (not(LoggedIn)) then

Exit;

SetChat('off', 1);

SetChat('friends', 2);

SetChat('on', 3);

SetChat('off', 4);

end;

function FindFastRandoms: Boolean;

var

i: Integer;

begin

for i:=1 to 10 do

begin

case I of

1: If FindDead then

Result := True;

2: If FindMod then

Result := True;

3: If FindMime then

Result := True;

4: If FindMaze then

Result := True;

5: If FindQuiz then

Result := True;

6: If FindDemon then

Result := True;

7: begin

if NoGameTab then

begin

Result := True;

Players[CurrentPlayer].loc := 'No GameTab';

Logout;

Exit;

end;

end;

8: begin

if InBlack then

begin

Result := True;

Players[CurrentPlayer].loc := 'InBlack';

Logout;

Exit;

end;

end;

9: RC;

10: Respond;

end;

wait(1);

end;

end;

procedure FindRandoms;

begin

FindTalk;

FindFastRandoms;

FindNormalRandoms;

FindLamp('Woodcutting');

SolvePinball;

if (FindFight) then

begin

MakeCompass('N');

RunTo('N', True);

Wait(7000 +Random(3000));

RunBack;

end;

end;

procedure AntiBan;

begin

if (not(LoggedIn)) then

Exit;

case Random(8) of

0: RandomRClick;

1: HoverSkill('Woodcutting', False);

2: RandomMovement;

3: BoredHuman;

4: PickUpMouse;

5: AlmostLogout;

6: begin

GameTab(1 +Random(12));

wait(2000 +Random(1000));

GameTab(4);

end;

end;

end;

procedure Chop;

begin

wait(6000+random(2000))

repeat

if(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or

(findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or

(findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then

begin

Mmouse(x,y,2,2);

If(IsUpText('illow'))then

begin

Mouse(x,y,2,2,false)

chooseoption('own') // no more x, y,

wait(4000+random(3000))

end;

end;

until (InvFull);

end;

procedure Bank;

begin

FindBank('db');

OpenBankQuiet('db');

if PinScreen then

InPin(''); // Enter Pin Number Here

if BankScreen then

DepositAll;

CloseBank;

end;

procedure WalktoWillows;

begin

MakeCompass('N');

HighestAngle;

WaterColor := FindWaterColor;

RadialWalk(WaterColor, 225, 351, 64, 2, 2);

Flag;

end;

// These Functions Will Start The script ( Login Player, Find Window, ect..)

begin

SetupSRL;

FindWindowBySize(766, 504);

Activateclient;

DeclarePlayers;

LoginPlayer;

repeat // All Functions Below Here Will Repeat Until False.

FindFastRandoms;

FindRandoms;

Antiban;

Chop;

Bank;

WalktoWillows;

until (False);

end.

BobboHobbo

2007-10-16 05:24:06

Thanks Penti!

Well, its a no for you sorry Choob :(

Because…

Rikje

2007-10-16 09:29:10

Even with all those enters inside the script its still every short. most of it is random looking etc..

sorry, but its a no from me.

Zeta

2007-10-16 12:50:45

it's a no from me as well, most if the script is for randoms and it looks like you just copied and pasted alot from different scripts, and theres no fail safes and i dont see where the loads to do comes into the actual script

n3ss3s

2007-10-16 13:13:07

offtopic:

Penti

Pentti.

Though even if that was a mistake, I've noticed that English ppl have usually trouble spelling the names of Finnish people like

"Jussi", "Janne", "Matti" including the second (whats the english word: "konsonantti" - letters like "t, q, m" etc?), so it turns into a faster version :p

[/]

Sorry, no from me, too simple.

the scar noob

2007-10-16 14:51:24

Okay first off, I staderdizend it a lil bit:

program DraynorWillowBanker;

{.include srl/srl.scar}

const

  willowcolor1=2902351;
  willowcolor2=3686456;
  willowcolor3=2971728;

var
  x, y : Integer;

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

  Players[0].Name := 'Username'; //UserName
  Players[0].Pass := 'Password'; //Password
  Players[0].Nick := 'Nick'; //2-4 letters of username
  Players[0].Integers[1] := 10; //Number of loads before switching
  Players[0].Active := True; //Active

  Players[1].Name := 'Username'; //UserName
  Players[1].Pass := 'Password'; //Password
  Players[1].Nick := 'Nick'; //2-4 letters of username
  Players[1].Integers[1] := 10; //Number of loads before switching
  Players[1].Active := True;

  Players[2].Name := 'Username'; //UserName
  Players[2].Pass := 'Password'; //Password
  Players[2].Nick := 'Nick'; //2-4 letters of username
  Players[2].Integers[1] := 10; //Number of loads before switching
  Players[2].Active := True; //Active

  Players[3].Name := 'Username'; //UserName
  Players[3].Pass := 'Password'; //Password
  Players[3].Nick := 'Nick'; //2-4 letters of username
  Players[3].Integers[1] := 10; //Number of loads before switching
  Players[3].Active := True; //Active

  Players[4].Name := 'Username'; //UserName
  Players[4].Pass := 'Password'; //Password
  Players[4].Nick := 'Nick'; //2-4 letters of username
  Players[4].Integers[1] := 10; //Number of loads before switching
  Players[4].Active := True; //Active

  Players[5].Name := 'Username'; //UserName
  Players[5].Pass := 'Password'; //Password
  Players[5].Nick := 'Nick'; //2-4 letters of username
  Players[5].Integers[1] := 10; //Number of loads before switching
  Players[5].Active := True; //Active

  Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

procedure Login;
begin
  if (not(LoggedIn)) then LoginPlayer;
end;


procedure DoChats;
begin
  if (not(LoggedIn)) then Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
      1: If FindDead then
        Result := True;
      2: If FindMod then
        Result := True;
      3: If FindMime then
       Result := True;
      4: If FindMaze then
       Result := True;
      5: If FindQuiz then
       Result := True;
      6: If FindDemon then
       Result := True;
      7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
      8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
      9: RC;
      10: Respond;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunBack;
  end;
end;


procedure AntiBan;
begin
  if (not(LoggedIn)) then Exit;
  case Random(8) of
    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
      end;
  end;
end;


procedure Chop;
begin
  wait(6000+random(2000))
  repeat
    if(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
      (findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
    begin
      Mmouse(x,y,2,2);
      If(IsUpText('illow'))then
      begin
        Mouse(x,y,2,2,false)
        chooseoption('own') // no more x, y,
        wait(4000+random(3000))
      end;
    end;
  until (InvFull);
end;


procedure Bank;
begin
  FindBank('db');
  OpenBankQuiet('db');
  if PinScreen then InPin(''); // Enter Pin Number Here
  if BankScreen then
    DepositAll;
    CloseBank;
end;


procedure WalktoWillows;
begin
  MakeCompass('N');
  HighestAngle;
  WaterColor := FindWaterColor;
  RadialWalk(WaterColor, 225, 351, 64, 2, 2);
  Flag;
end;

// These Functions Will Start The script ( Login Player, Find Window, ect..)

begin
  SetupSRL;
  FindWindowBySize(766, 504);
  Activateclient;
  DeclarePlayers;
  LoginPlayer;
  repeat // All Functions Below Here Will Repeat Until False.
    FindFastRandoms;
    FindRandoms;
    Antiban
    Chop;
    Bank;
    WalktoWillows;
  until (False);
end.

Something that I emmidiatly saw:

  if BankScreen then
    DepositAll;
    CloseBank;

mhh, there need to be added a begin:

  if BankScreen then
  begin
    DepositAll;
    CloseBank;
  end;

Other then that, too simple stuff, it's actually already been said, no from me, sorry :(

-Tsn.

HellBoyz

2007-10-16 21:28:53

still the script was way too… short so I'm sorry for that

MasterKill

2007-10-17 03:12:20

no from me.

GoF

2007-10-17 06:51:06

From: hellbb88
still the script was way too… short so I'm sorry for that

I dont think it's the length of the script that matters, it's the quality of it :rolleyes:

But still, the script seems a bit simple and basic and the fact that you didnt even use SCAR tags in your first post (or not sure, but the script looks messed up there..) doesnt make it any better for you atleast. I'll say no.

BobboHobbo

2007-10-17 08:27:46

From: n3ss3s
offtopic:

Pentti.

Though even if that was a mistake, I've noticed that English ppl have usually trouble spelling the names of Finnish people like

"Jussi", "Janne", "Matti" including the second (whats the english word: "konsonantti" - letters like "t, q, m" etc?), so it turns into a faster version :p

[/]

Sorry, no from me, too simple.

[OffTopic]
LOL im not english, im Aussie! big difference also i was never a good writer in my life and probly will never be. As im in year 7 i got a good english teacher, so his making me better!
[/offtopic]

Also about Pentti's name my bad..

Dark_Sniper

2007-10-17 09:37:01

From: the scar noob

Something that I immediately saw:
  if BankScreen then
    DepositAll;
    CloseBank;
mhh, there need to be added a begin:
  if BankScreen then
  begin
    DepositAll;
    CloseBank;
  end;
Other then that, too simple stuff, it's actually already been said, no from me, sorry :(

-Tsn.

There does not have to be a begin there.
It will deposit all if there is a bankscreen… close bank has a failsafe where it will close the bank if there is a bankscreen… its in the code XD.. he lucked out there man :p , but your right most people would add a begin end there.

no from me..

I like:
MultiPlayer.
AntiRandoms.

but I do not like:
How short it is.
How you search for a tree without fail safes.
Look at the code… you don't even search for the randoms in the main loop for chopping.. Thats where you need it.

YoHoJo

2007-10-19 01:52:22

Closed.