putonajonny
2011-11-27 10:11:04
Please See This Thread: http://villavu.com/forum/showthread.php?p=850874#post850874
[COLOR="Red"]Do you think this is good enough for an application for SRL members? Please Comment Below.[/COLOR]
[CENTER][B][SIZE="5"][COLOR="Purple"]Simple Goblin Killer[/COLOR][/SIZE][/B]
[SIZE="3"][URL="http://villavu.com/forum/showthread.php?t=47714"]Install and Setup Simba[/URL] | [URL="http://villavu.com/forum/showthread.php?t=57883"]Setting up SRL[/URL] | [URL="http://villavu.com/forum/showthread.php?t=53807"]How to Not get Banned[/URL][/SIZE][/CENTER]
[B]What does this script do?[/B]
This script can be started anywhere in the whole of Runescape, it kills Goblins and even Walks back if you die, perfect for low levels.
[B]What have you included?[/B]
[LIST][*]Auto Login
[*]Version Checking so you are Always Up To Date
[*]Support for SMART
[*]Random Event Checking
[*]Fail Safes - If it gets lost it Teleports To Lumbridge and walks back to Goblins
[*]A Hell of a Lot of AntiBan[/LIST]
[B]How do I run it?[/B]
You should set-up Simba following the instructions at the link above. copy and paste it from below into simba. You will need SPS installed for it to run.
[B]Can I run it on more than one account at the same time?[/B]
Yes, just open more than one copy of Simba
[B]Does this use S.M.A.R.T.?[/B]
Yes it does, but if you don't want to I am sure you know how to stop it
[B]I want to use your Script but I can't get it to work[/B]
Please post the error below if you think it is to do with my script, if you think it is a client problem then post it in the client help section.
[B]I have an idea of how to make this better[/B]
Please post it below and I will add it if I think it is good
[B]I am an experience dev, do you need any help?[/B]
Not Currently, but if you can see a better way to achieve some of the things I am doing then feel free to mention them.
:spongebob:
If you wish to download this file for use see the bottom of this post, if you just want to see what this script contains please look here:
[SIMBA]//This script kills goblins in lumbridge, It will even walk back if you die. Give me feedback in the forms.
program GoblinKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{$i sps/sps.simba}
{$i SRL/SRL/Misc/stats.simba}
{$i SRL/SRL/misc/paintsmart.scar}
{.include SRL/SRL/Skill/Fighting.scar}
Var
Died, Location, x, y :Integer;
Lumbridge, Goblins1, Goblins2, Goblins3: TPoint;
WalkGoblins: TPointArray;
Colours: TIntegerArray;
Ver : String;
Const
Version = 1;
NCPColour1 = 5658202; //If the script won't fight the goblins then change these
NCPColour2 = 6335614;
NCPColour3 = 4628377;
WaitTime = 2000; //Wait Time before attacking another NCP
Tolerance = 3; //Colour Tolerence
INeedHelp = False; //Do you need help setting this script up?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //use " if you are getting ~
Players[0].Pass :='';
Players[0].Nick :='';//3-4 phrase from your name Ex. "ownage" = "nag"
Players[0].Active := True;
end;
Procedure CheckVersion;
Begin
Ver := GetPage('http://goblinkiller.webuda.com/Ver');
If Version = StrToInt(Ver) Then
Begin
WriteLn('You are using the most up to date version -Thank you');
end Else
begin
WriteLn('Please Update This Script, opening web page...');
OpenWebPage('http://goblinkiller.webuda.com/Redirect.php');
TerminateScript; //Comment out this to use this version anyway
end;
End;
Procedure CheckRandoms;
begin
FindNormalRandoms;
If Not(LoggedIn) Then
begin
WriteLn('I think we failed a randome - I will just Check');
LoginPlayer;
FindNormalRandoms;
If Not(LoggedIn) Then
begin
WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Scrip');
TerminateScript;
end
end;
end;
Procedure CheckLocation;
begin
Wait(4000+Random(2000))
Location := 2;
if (SPS_PosOnMM(Lumbridge)) then
Location := 0; //lumbridge
if (SPS_PosOnMM(Goblins1)) or (SPS_PosOnMM(Goblins2)) or (SPS_PosOnMM(Goblins3)) then
Location := 1; //Goblins
end;
Procedure WalkToGoblins;
begin
Writeln('Walking To goblins')
WalkGoblins := [Point(4708, 3767), Point(4733, 3767), Point(4753, 3761), Point(4759, 3743), Point(4748, 3723),
Point(4731, 3707), Point(4717, 3693), Point(4710, 3676), Point(4698, 3677), Point(4675, 3674),
Point(4648, 3678), Point(4625, 3675), Point(4598, 3677), Point(4580, 3676), Point(4565, 3676), Point(4565, 3650)]
If(SPS_WalkPath(WalkGoblins)) then
WriteLn('At Goblins');
end;
Procedure RectifyLocation;
begin
Mouse(254, 309, 10, 5, true);
Wait(500+Random(500));
Mouse(544, 24,5,5,true);
Wait(1000+Random(200));
If (FindSymbol( x, y, 'fishing shop')) then
begin
x := x-43
y := y-5
Mouse(x, y,5,5,true);
Wait(2000+Random(2000));
end;
CheckLocation;
case location of
2:
begin
Writeln('Location Not Recognised - Lets Teleport Home')
Mouse(748, 187,5,5,true)
Wait(1000+Random(500))
Mouse(575, 230, 5, 5, true)
Wait(16000+Random(2000))
end;
end
end;
Procedure Attack;
begin
If(srl_InFight) then
begin
//WriteLn('In Fight')
x := random(51)
case x of
0: HoverSkill('Attack', False); //Beautiful Antiban
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('hitpoints', False);
4: HoverSkill('smithing', False);
5: HoverSkill('woodcutting', False);
6: HoverSkill('firemaking', False);
7: HoverSkill('magic', False);
8: HoverSkill('woodcutting', False);
9: HoverSkill('fishing', False);
10: HoverSkill('prayer', False);
11: HoverSkill('runecrafting', False);
12..15: PickUpMouse;
16..25: RandomMovement;
26..27: RandomRClick;
28..32: BoredHuman;
33: ExamineInv;
34: RandomAngle(True);
35..45: Wait(1000+random(1000));
46..50: Wait(1000+Random(20000));
end;
Wait(2000);
end else
begin
//WriteLn('Clicking Attack')
FightNPC(Colours, Tolerance, WaitTime)
//attack the goblin
end;
//to do
end;
begin
If (IneedHelp) then
begin
WriteLn('Opening Help Page');
OpenWebPage('http://goblinkiller.webuda.com/Help');
TerminateScript;
end;
CheckVersion;
Died := 0
Lumbridge := Point(4706, 3767);
Goblins1 := Point(4570, 3650);
Goblins2 := Point(4570, 3650);
Goblins3 := Point(4570, 3650);
Colours := [NCPColour1,NCPColour2,NCPColour3]
Smart_Server := 11;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
cleardebug;
WriteLn('***************Goblin Killer by Putonajonny Version '+IntToStr(Version)+'***************');
CheckVersion;
DeclarePlayers;
LoginPlayer;
SPS_Areas := ['11_9'];
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
// WriteLn('Current Location:')
// WriteLn(SPS_GetMyPos);
Repeat
CheckRandoms;
CheckLocation;
case location of
0: WalkToGoblins;
1: Attack;
2: RectifyLocation;
3: WriteLn('oh');
else
RectifyLocation;
end;
until(false)
end.
[/SIMBA]
[CENTER]My Working Scrips:
[URL="http://villavu.com/forum/showthread.php?t=67726"]Simple Alcher[/URL] | [URL="http://villavu.com/forum/showthread.php?t=67822"]Simple Account Maker[/URL] | [URL="http://villavu.com/forum/showthread.php?t=67817"]Simple Talker[/URL][/CENTER]