SRL Archive - First Scripts

… yeah…. here it is… it iks having problems on my computer.. thought that someone might wanna review it because it is an very uncommon type of SCAR script.. i have relaly only heard of 2 of them.. plz review and post your comments =[)

program PacStringer;

begin

procedure UseBank;

begin
FindObj(x, y, 'ank', 9539728, 267, 147);
Mouse(x, y, 5, 5, False);
wait(100);
ChooseOption(x,y,'quickly');
wait(3000);
Mouse(585, 228, 2, 2, False);
wait(200);
ChooseOption(x,y,'Withdraw All');
wait(150);
Mouse(588, 230), 2, 2, False);
wait(200);
ChooseOption(x,y,'Deposit All');
wait(1000);
Mouse(94, 78, 2, 2, False);
wait(200);
ChooseOption(x,y,'Withdraw All');
procedure Stringbows;
begin
ClickMouse(485, 44)
HoldMouse(627,339,true);
Wait(random(100));
ReleaseMouse(672,447,true);
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(716, 124 True);
wait(random(100));
MouseClick(672, 447, True);
wait(random(100));
Writeln('Happy Fletching: From The_Pac_Man')
end;
begin
UseBank;
Stringbows;
Until(False)
repeat;
//multiply this by the amount of k's that you are going to string =)\\
end.

I posted this in your help topic:

Bunch of mistakes here:

1. You forgot to put {.include SRL/SRL.scar} after program PacStringer;

2. The begin you have on the second line is not supposed to exist.

3. You're using findobj wrong. Line 5 should be like this with color and color tolerance changed of course:

FindObj(x, y, 'ank', color, color tolerance);

4. Line 14 has an extra parantesis after 230.

5. Around line 21 you need to have an end; before starting the new procedure.

6. When you use ClickMouse (very detectable Mouse is better) around line 26 you forget to put the true.

7. You use MouseClick a bunch of times which isn't an actual procedure.

8. You forget commas before when using MouseClick (by which I'm assuming you meant ClickMouse)

9. At the end you use until(false) without have a repeat before UseBank;

10. You have an extra repeat on the third to last line of your script.


Here is your script with most of the changes made, so it'll actually compile. I'd strongly reccommend using Mouse instead of ClickMouse.

program PacStringer;
{.include SRL/SRL.scar}

procedure UseBank;
begin
FindObj(x, y, 'ank', 9539728, 5);
Mouse(x, y, 5, 5, False);
wait(100);
ChooseOption(x,y,'quickly');
wait(3000);
Mouse(585, 228, 2, 2, False);
wait(200);
ChooseOption(x,y,'Withdraw All');
wait(150);
Mouse(588, 230, 2, 2, False);
wait(200);
ChooseOption(x,y,'Deposit All');
wait(1000);
Mouse(94, 78, 2, 2, False);
wait(200);
ChooseOption(x,y,'Withdraw All');
end;

procedure Stringbows;
begin
ClickMouse(485, 44, true)
HoldMouse(627, 339, true);
Wait(random(100));
ReleaseMouse(672,447,true);
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(716, 124, True);
wait(random(100));
ClickMouse(672, 447, True);
wait(random(100));
Writeln('Happy Fletching: From The_Pac_Man')
end;

begin
repeat
UseBank;
Stringbows;
Until(False)
//multiply this by the amount of k's that you are going to string =)\\
end.

thnkyou soooo much!

No problem lol, it was interesting, and it's good that you're trying to make a script yourself.