SRL Archive - OSR Script Requests

Name - Pairing With Smart
What does the script do? and Where does it do it? It's a code that you paste in scripts to get them to work with SMART v 8
What does the script achieve? Make scripts work with smart v 8.
f2p/p2p? any other level / skill / quest requirements? No requirements obviously. :)
Do you have an account with these requirements you could lend to a dev? None needed
Difficulty… (Easy/Medium/Hard)I would assume this is very simple, but I just haven't learned how to code yet, but I am looking into it. :D

Umm what? Lol, change {define smart} to {define smart8}

I have no code to even pair it with any version of smart, could you help me out with that?

From: Proninja
I have no code to even pair it with any version of smart, could you help me out with that?

What do you mean any version of smart, Simba comes with smart8

At the top of the script if it says {define smart} change that to {define smart8}

Maybe this would explain it here is the code, sorry for being an idiot about this, trying hard to learn x. x.
program GuardKillerv1;

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}

var
x,y: Integer;
Text: TStringArray;

procedure KillGuardz;
begin
If P07_FindObjCustom(x, y, ['ttack', 'uard'], [945028, 7111561, 6321017, 6123379, 0, 0, 0], 5) Then
ClickMouse2(mouse_left);
Wait(RandomRange(4050,6025)) //Increase to Slow guard clicking, Decrease to Speed Up
end;

procedure GrabNatureRune;
begin
If P07_FindObjCustom(x, y, ['Take', 'Nature Rune'], [1411857], 25) Then
ClickMouse2(mouse_left);
Wait(RandomRange(1500,2500))
end;

begin
SetupP07Include;
repeat
GrabNatureRune;
KillGuardz;
GrabNatureRune;
until(false);
end.program new;
begin
end.

Add {define smart8} to the very top of the script

Above this:

{$I SRL/SRL.Simba}

put this:

{$DEFINE SMART8}

And you're all set!

Ah rats, Officer Barbrady :ninja:'d me out of nowhere.

Okay thanks! :D lets see if this works

Okay so it's like this, i think i have it as a comment line though, need to change that right?
program GuardKillerv1;

{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}

var
x,y: Integer;
Text: TStringArray;

procedure KillGuardz;
begin
If P07_FindObjCustom(x, y, ['ttack', 'uard'], [945028, 7111561, 6321017, 6123379, 0, 0, 0], 5) Then
ClickMouse2(mouse_left);
Wait(RandomRange(4050,6025)) //Increase to Slow guard clicking, Decrease to Speed Up
end;

procedure GrabNatureRune;
begin
If P07_FindObjCustom(x, y, ['Take', 'Nature Rune'], [1411857], 25) Then
ClickMouse2(mouse_left);
Wait(RandomRange(1500,2500))
end;

begin
SetupP07Include;
repeat
GrabNatureRune;
KillGuardz;
GrabNatureRune;
until(false);
end.program new;
begin
end.

From: Proninja
Okay so it's like this, i think i have it as a comment line though, need to change that right?

Nope, you've got it right.

From: Proninja
Okay so it's like this, i think i have it as a comment line though, need to change that right?
program GuardKillerv1;

{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}

var
x,y: Integer;
Text: TStringArray;

procedure KillGuardz;
begin
If P07_FindObjCustom(x, y, ['ttack', 'uard'], [945028, 7111561, 6321017, 6123379, 0, 0, 0], 5) Then
ClickMouse2(mouse_left);
Wait(RandomRange(4050,6025)) //Increase to Slow guard clicking, Decrease to Speed Up
end;

procedure GrabNatureRune;
begin
If P07_FindObjCustom(x, y, ['Take', 'Nature Rune'], [1411857], 25) Then
ClickMouse2(mouse_left);
Wait(RandomRange(1500,2500))
end;

begin
SetupP07Include;
repeat
GrabNatureRune;
KillGuardz;
GrabNatureRune;
until(false);
end.program new;
begin
end.

At the end of your script, remove the

program new;
begin
end. 

and for future reference on asking questions, please use SIMBA tags when posting code.