Proninja
2013-06-08 10:40:18
{$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.
Hi I realize this isn't in the correct format, just wondering if someone would add a food or even bank script procedure to the script. Would really appreciate as i hate grinding for this game, and I can't leave the screen while I bot.
{$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.
Hi I realize this isn't in the correct format, just wondering if someone would add a food or even bank script procedure to the script. Would really appreciate as i hate grinding for this game, and I can't leave the screen while I bot.