Amberleaf Posted October 29, 2012 Share Posted October 29, 2012 (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 January 22, 2013 by Amberleaf 1 Quote Link to comment Share on other sites More sharing options...
turner850 Posted October 29, 2012 Share Posted October 29, 2012 I heard bot client, and automatically thought someone was developing a bot for RSC private servers Great script!! i will definitely be using this Quote Link to comment Share on other sites More sharing options...
kingsmill Posted January 6, 2013 Share Posted January 6, 2013 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 Quote Link to comment Share on other sites More sharing options...
Janilabo Posted January 6, 2013 Share Posted January 6, 2013 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 Quote Link to comment Share on other sites More sharing options...
Amberleaf Posted January 22, 2013 Author Share Posted January 22, 2013 I've fixed the problems with the colours feel free to try the new version and let me know if it's any better and thanks for the kind words Jani =] Quote Link to comment Share on other sites More sharing options...