ownedlikenoob
2010-06-13 01:13:14
This is my first script, I know that my standards are not good at all. It is mostly just all thrown together. I will be editing it more later but for now I am finished. The script ranges skeletons at the safespot in the varrock sewers.
Uploaded with ImageShack.us
I have not ran this script for a long period of time, So go ahead and give it a try if you want.
USE AT YOUR OWN RISK.
Also, You need to be level 28 so that the squirpions don't attack you.
Script:
Feel free to edit and use any method in this script. If you are going to edit the whole script and repost it, Crediting me would be nice.
Thanks
Uploaded with ImageShack.us
I have not ran this script for a long period of time, So go ahead and give it a try if you want.
USE AT YOUR OWN RISK.
Also, You need to be level 28 so that the squirpions don't attack you.
Script:
{First Script I have made. Hope you enjoy it. I know it is not great
but it's my first script.}
{Directions:
1. Change Brightness to all the way up
2. Drag the crosshair on RS Screen.
3. Log in and stand in safe spot.
4. Join a Clan Chat. I usually join Green098
5 Run the script.
It may mess up, So use at your own risk.}
program SafeDemSkellies;
{$IFDEF SIMBA}
{$I SRL/SRL.scar}
{$ELSE}
{.Include SRL/SRL.scar}
{$ENDIF}
Var
x,y,i : integer;
Const
Skellie = 6844785;
Sqorpion = 5009303;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
Procedure NotFound;
Begin
If(Not(FindColorSpiral(x,y,Skellie,0,0,518,339))) then
I := I+1;
WriteLn('Did not find Skeleton '+IntToStr(I)+' Times');
Keydown(40);
Wait(1000+random(1000));
MakeCompass('N');
end;
Procedure Check;
begin
If (I>5) then
begin
Mouse(754, 10,5,5,true);
Mouse(608, 419,5,5,true);
WriteLn('Did not find skeltons 4 times, logging out.')
TerminateScript;
end;
end;
Procedure AntiBann;
begin
case (Random(60)) of
1: Typesend('/lol');
2: RandomRClick;
8: Begin
Mouse(538, 64,5,5,true);
end;
9: Begin
Mouse(566, 186,5,5,true);
wait(100+random(200));
Mouse(585, 309,5,5,true);
wait(5000+random(5000));
Mouse(501, 22,5,5,true);
end;
10: MMouse(338, 78, 20, 20);
11: MMouse(57, 111, 24, 23);
12: MMouse(203,232, 30, 14);
14: ExamineInv;
7: Begin
FindNormalRandoms;
Writeln('Looking for randoms')
end;
3: PickUpMouse;
4: RandomMovement;
5: Begin
BoredHuman;
Keydown(40);
Wait(1000+random(1000));
MakeCompass('N');
end;
6: Begin
Mouse(572,485,5,5,true);
Wait(1000+random(1000));
end;
end;
end;
function F_InFight: Boolean;
var GTPA, RTPA: TPointArray;
begin
FindColorsTolerance(GTPA, 49499, MSCX - 15, MSCY - 40, MSCX + 15, MSCY, 20);
FindColorsTolerance(RTPA, 590010, MSCX - 15, MSCY - 40, MSCX + 15, MSCY, 20);
Result := ((GetArrayLength(GTPA) + GetArrayLength(RTPA)) >= 20);
end;
function WhileInFight: Boolean;
begin
while F_InFight do
begin
AntiBann;
Wait(200 + Random (500));
end;
Result := True;
end;
Procedure Attack;
begin
If(FindColorSpiral(x,y,Skellie,0,0,518,339)) then
case (Random(3)) of
1: Begin
I:=0
MMouse(X,y, 5, 5);
if WaitUpText('Skeleton', 100) then
Mouse(x,y,5,2,False);
wait(100+random(200));
ChooseOption('ack');
Wait(9000+random(2000));
WhileInFight;
end;
2: Begin
I:=0
MMouse(x,y, 5, 5);
if WaitUpText('Skeleton', 100) then
Mouse(x,y,1,1,True);
Wait(9000+random(2000));
WhileInFight;
end;
end;
end;
begin
SetupSRL;
I := 0
Mouse(572, 10,2,4,true);
Repeat
Check;
NotFound;
Attack;
AntiBann;
Until(false);
end.
Feel free to edit and use any method in this script. If you are going to edit the whole script and repost it, Crediting me would be nice.
Thanks