Jump to content
Amberleaf

[Project RSC] Goblin hut

By Amberleaf, in RSC Scripts

Recommended Posts

Amberleaf Senior Member

Amberleaf

Posted
Posted (edited)

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
kingsmill Junior Member

kingsmill

Posted
Posted
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
Janilabo Contributing Member

 Janilabo

Posted
Posted
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
TerryKig Contributing Member

TerryKig

Posted
Posted
league of legends boyband what is an erc 20 definition dao how to buy waves with bitcoin evm cosmos is zara having a black friday sale abc news andrew forrest bitcoin dragons in palworld 2017 bitcoin chart vs 2018 .033 bitcoin how to beat certegy doegcoin character io buy bitcoin with paxum 1 bitcoin in usd 2010

buy bitcoin with credit card on blockchain 1000 bitcoin price in 2010 are banks closed memorial day how to buy bitcoin with debit card in malaysia $250 worth of bitcoin debank] secondary market meaning coinhall 99 bitcoin token crypto airdrop september 2020

how to buy bitcoins with gift cards sprk crypto ai crypto predictor silk road ross best crypto mining app for pc actual bitcoin volume crypto trending how is bitcoin doing today best crypto casinos usa 12 alternatives to bitcoin

1.5 billion to bitcoin 6 dolares a bitcoin 60 minutes bitcoin youtube best crypto for airdrops best crypto bots for beginners 0.000001357021 bitcoin into usd carret bitcoin cad most energy efficient cryptocurrency komando crypto wallets

buy crypto no kyc credit card how exactly does one buy bitcoin buying land with bitcoin tennessee kas crypto price 5 gh/s bitcoin miner calculator
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.

×
Go to topic listing
×
×
  • Create New...