Jump to content
Amberleaf

[Project RSC] Goblin hut

Recommended Posts

v0.2 by amberleaf

 

Copy and paste the script below and start it inside the goblin hut in lumbridge. You'll need OSI to run this script get it by going to File>>Includes manager.

 

Can also collect and bury bones remove the comment lines from the loop at the bottom //

 

v0.2 updates

F6 to stop the script

Made it not loot by default.

Changed FindColorSpiral to FindColorsSpiral and updated the colours as they were outdated.

Works pretty sweet with ranged too.

 

 

[sCAR]//AmberRSCGoblinFighter v0.2

//Amberleaf

//http://www.scar-divi.com

 

{.include OSI\OSI.scar}

 

var i, xp: Integer;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure SpinCam;

begin

PressVKeyEx(VK_LEFT, 25 + Random(1000));

end;

 

procedure FindTarget;

var x, y: Integer;

begin

If FindColorsSpiral(259, 118,x, y, [5523759, 5721395, 5326379, 5984311, 6181947], 0, 0, 509, 327) then // You can replace this color 41957 with another color from a different enemy.

begin

MoveMouse(x, y);

Wait(100);

Mouse(x, y, 0, 0, False);

end;

end;

 

procedure Atttack;

var x, y: Integer;

begin

If FindColor(x, y, 65280, 23, 28, 490, 301) then

begin

MMouse(x, y, 0, 0);

GetMousePos(x, y);

Mouse(x, y+5, 0, 0, false);

Wait(1500);

Writeln('Attcking...');

xp := xp + 67; // Replace the 100 with the amount of XP from that given enemy

Writeln('XP so far...');

Writeln(xp);

end else

begin

MMouse(401, 181, 75, 75);

Wait(100 + Random(1000));

end;

end;

 

procedure InCombat;

var x, y: Integer;

begin

repeat

If FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4) then

begin

WriteLn('In Combat...');

MoveMouse(100 + Random(100), 100 + Random(100));

Wait(2000);

end;

until (FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4) = False);

end;

 

procedure Loot;

var x, y: Integer;

begin

If FindColorSpiral(259, 118, x, y, 16579836, 23, 28, 490, 301) then

begin

Writeln('Finding loot...');

repeat

Mouse(x, y, 0, 0, False);

If FindColor(x, y, 4231423, 23, 28, 490, 301) then

begin

Mouse(x, y, 0, 0, True);

Wait(1000 + Random(1000));

end;

until (FindColor(x, y, 4231423, 23, 28, 490, 301) = False);

end;

end;

 

procedure BuryBones;

var x, y: Integer;

begin

MMouse(498, 19, 3, 3);

repeat

If FindColor(x, y, 16775143, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, True);

Wait(250);

end;

until (FindColor(x, y, 16775143, 267, 36, 504, 236) = False);

repeat

If FindColor(x, y, 2848472, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, False);

Wait(100);

Mouse(x, y+25, 0, 0, True);

Wait(100);

MMouse(498, 19, 3, 3);

Wait(250);

end;

until (FindColor(x, y, 2848472, 267, 36, 504, 236) = False);

repeat

If FindColor(x, y, 9605632, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, False);

Wait(100);

Mouse(x, y+25, 0, 0, True);

Wait(100);

MMouse(498, 19, 3, 3);

Wait(250);

end;

until (FindColor(x, y, 9605632, 267, 36, 504, 236) = False);

MMouse(137, 216, 20, 20);

end;

 

begin

SetupOSI;

repeat

FindTarget;

Atttack;

InCombat;

//Loot;

i := Random(5);

If i = 1 then

begin

//BuryBones;

SpinCam;

end;

until GetKeyState(VK_F6);

end.[/sCAR]

Edited by Amberleaf
  • Confused 1
Link to comment
Share on other sites

v0.1 by amberleaf

 

Copy and paste the script below and start it inside the goblin hut in lumbridge. You'll need OSI to run this script get it by going to File>>Includes manager.

 

Can also collect and bury bones remove the comment lines from the loop at the bottom //

 

[sCAR]//AmberRSCGoblinFighter

 

{.include OSI\OSI.scar}

 

var i, xp: Integer;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure SpinCam;

begin

PressVKeyEx(VK_LEFT, 25 + Random(1000));

end;

 

procedure FindTarget;

var x, y: Integer;

begin

If FindColorSpiral(259, 118, x, y, 251224, 0, 0, 509, 327) then // You can replace this color 41957 with another color from a different enemy.

begin

MoveMouse(x, y);

Wait(100);

Mouse(x, y, 0, 0, False);

end;

end;

 

procedure Atttack;

var x, y: Integer;

begin

If FindColor(x, y, 65280, 23, 28, 490, 301) then

begin

MMouse(x, y, 0, 0);

GetMousePos(x, y);

Mouse(x, y+5, 0, 0, false);

Wait(1500);

Writeln('Attcking...');

xp := xp + 67; // Replace the 100 with the amount of XP from that given enemy

Writeln('XP so far...');

Writeln(xp);

end else

begin

MMouse(401, 181, 75, 75);

Wait(100 + Random(1000));

end;

end;

 

procedure InCombat;

var x, y: Integer;

begin

repeat

If FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4) then

begin

WriteLn('In Combat...');

MoveMouse(100 + Random(100), 100 + Random(100));

Wait(2000);

end;

until (FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4) = False);

end;

 

procedure Loot;

var x, y: Integer;

begin

If FindColorSpiral(259, 118, x, y, 16579836, 23, 28, 490, 301) then

begin

Writeln('Finding loot...');

repeat

Mouse(x, y, 0, 0, False);

If FindColor(x, y, 4231423, 23, 28, 490, 301) then

begin

Mouse(x, y, 0, 0, True);

Wait(1000 + Random(1000));

end;

until (FindColor(x, y, 4231423, 23, 28, 490, 301) = False);

end;

end;

 

procedure BuryBones;

var x, y: Integer;

begin

MMouse(498, 19, 3, 3);

repeat

If FindColor(x, y, 16775143, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, True);

Wait(250);

end;

until (FindColor(x, y, 16775143, 267, 36, 504, 236) = False);

repeat

If FindColor(x, y, 2848472, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, False);

Wait(100);

Mouse(x, y+25, 0, 0, True);

Wait(100);

MMouse(498, 19, 3, 3);

Wait(250);

end;

until (FindColor(x, y, 2848472, 267, 36, 504, 236) = False);

repeat

If FindColor(x, y, 9605632, 267, 36, 504, 236) then

begin

Mouse(x, y, 0, 0, False);

Wait(100);

Mouse(x, y+25, 0, 0, True);

Wait(100);

MMouse(498, 19, 3, 3);

Wait(250);

end;

until (FindColor(x, y, 9605632, 267, 36, 504, 236) = False);

MMouse(137, 216, 20, 20);

end;

 

begin

SetupOSI;

repeat

FindTarget;

Atttack;

InCombat;

Loot;

i := Random(5);

If i = 1 then

begin

BuryBones;

SpinCam;

end;

until GetKeyState(VK_F6);

end.

[/sCAR]

 

 

Thanks for this, what do I delete to not pick and bury bones without it messing up rest of script?

Pretty new to SCAR

Link to comment
Share on other sites

Thanks for this, what do I delete to not pick and bury bones without it messing up rest of script?

Pretty new to SCAR

Hello kingsmill,

 

This is what you would need to do changes like these:

 

//AmberRSCGoblinFighter

const
 LOOTING = True; // Set to false, if you dont want boneburying and item looting.

{.include OSI\OSI.scar}

var
 i, xp: Integer;

procedure ScriptTerminate;
begin
 FreeOSI;
end;

procedure SpinCam;
begin
 PressVKeyEx(VK_LEFT, (25 + Random(1000))); 
end;

procedure FindTarget;
var
 x, y: Integer;
begin
 if FindColorSpiral(259, 118, x, y, 251224, 0, 0, 509, 327) then // You can replace this color 41957 with another color from a different enemy.
 begin
   MoveMouse(x, y);
   Wait(100);
   Mouse(x, y, 0, 0, False);
 end; 
end;

procedure Atttack;
var
 x, y: Integer;
begin
 if FindColor(x, y, 65280, 23, 28, 490, 301) then
 begin
   MMouse(x, y, 0, 0);
   GetMousePos(x, y);
   Mouse(x, (y + 5), 0, 0, false);
   Wait(1500);
   WriteLn('Attcking...');
   xp := (xp + 67); // Replace the 100 with the amount of XP from that given enemy
   WriteLn('XP so far...');
   WriteLn(xp);
 end else
 begin
   MMouse(401, 181, 75, 75);
   Wait(100 + Random(1000));
 end;       
end;

procedure InCombat;
var
 x, y: Integer;
begin
 repeat
   if FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4) then
   begin
     WriteLn('In Combat...');
     MoveMouse(100 + Random(100), 100 + Random(100));  
     Wait(2000);
   end;
 until not FindColorTol(x, y, 16777215, 57, 21, 126, 32, 4);
end;

procedure Loot;
var
 x, y: Integer;
begin
 if FindColorSpiral(259, 118, x, y, 16579836, 23, 28, 490, 301) then
 begin
   WriteLn('Finding loot...');
   repeat
     Mouse(x, y, 0, 0, False);
     if FindColor(x, y, 4231423, 23, 28, 490, 301) then
     begin
       Mouse(x, y, 0, 0, True);
       Wait(1000 + Random(1000));
     end;
   until not FindColor(x, y, 4231423, 23, 28, 490, 301);     
 end;
end;

procedure BuryBones;
var
 x, y: Integer;
begin
 MMouse(498, 19, 3, 3);
 repeat
   if FindColor(x, y, 16775143, 267, 36, 504, 236) then
   begin
     Mouse(x, y, 0, 0, True);
     Wait(250);
   end;
 until not FindColor(x, y, 16775143, 267, 36, 504, 236);
 repeat
   if FindColor(x, y, 2848472, 267, 36, 504, 236) then
   begin       
     Mouse(x, y, 0, 0, False);
     Wait(100);
     Mouse(x, y+25, 0, 0, True);
     Wait(100);
     MMouse(498, 19, 3, 3);
     Wait(250);                         
   end;
 until not FindColor(x, y, 2848472, 267, 36, 504, 236);
 repeat
   if FindColor(x, y, 9605632, 267, 36, 504, 236) then
   begin       
     Mouse(x, y, 0, 0, False);
     Wait(100);
     Mouse(x, y+25, 0, 0, True);
     Wait(100);
     MMouse(498, 19, 3, 3);
     Wait(250);                         
   end;
 until not FindColor(x, y, 9605632, 267, 36, 504, 236);
 MMouse(137, 216, 20, 20);
end;

begin
 SetupOSI;
 GetClient.Activate;
 Wait(500);
 repeat
   FindTarget;
   Atttack;
   InCombat;
   if LOOTING then
     Loot;
   i := Random(5);
   if (i = 1) then
   begin
     BuryBones;
     SpinCam;
   end; 
 until GetKeyState(VK_F6);
end.

 

I tried this script and it doesn't work (fighting didn't work for me, looting did). :(

It is a great script, but I think it just needs to be updated by Amberleaf.

 

-Jani

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...