Fix my script!!! [Archive] - SRL

The_Pac_Man

04-28-2007, 03:45 AM

hey.... I have made a script... please help me... it won't work... but it all makes sense to me.. can you please tell me what is wrong ???
-ThePacMan
here it is:
//It keeps saying that I have an error with my first procedure... save me pl0x

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.

alach11

04-28-2007, 04:38 AM

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.