SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal, PHP, Java, HTML, C++.


Are you a member of any other communities?
Sythe.org, Stickpage.org


Tell us about yourself…

From: xXTrollXx
I've tried to get into SRL members in the past, failed.. For some good reasons, and for some stupid.. But, I've taken into consideration what you guys have suggested, and I want to try again. I've learned TPAs, Which was kind of a challenge for me, but I did it. I want to learn more of the C language, and I want to be a Master SRL scripter.

Please show us one (or multiple) of your scripts.

program Trolling_SoulWars;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
 {$ENDIF}
{$i SRL/SRL.simba}
{$i SPS/SPS.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 Version            = '1.0'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

 var
  x, y : Integer;

procedure DeclarePlayers;
var
 i: Integer;
begin
 NumberOfPlayers(NumbOfPlayers);
 CurrentPlayer := StartPlayer;
 for i := 0 to NumbOfPlayers-1 do
 begin
  Players[0].Name   := '';       // Your Username.
  Players[0].Pass   := '';       // Your Password.
  Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
  Players[0].Active := True;     // Are you using this player?
  Players[0].Member := True;     // Are you a member?
 end;
end;

procedure SetupChar;
begin
 SetupSRL();
 SetAngle(0);
 ClickNorth(0);
end;

procedure Startup;
begin
 Smart_Server := 97;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 SetupSRL;
 DeclarePlayers;
 LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

function Findobjeffects(var TPA: TPointArray; Colors: TIntegerArray; Uptext: TStringArray; X1, Y1, X2, Y2, Width, Height, tol: integer; Click: Boolean): Boolean;
var
 X, Y, I: integer;
 ATPA: T2DPointArray;
begin
 SetLength(TPA, Length(Colors));
 For I:= 0 To High(Colors) do
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[i], X1, Y1, X2, Y2, tol);
 ATPA:= TPAToATPAEx(TPA, Width, Height);
 SortATPAFrom(ATPA, Point(MSCX, MSCY));
 if(Length(ATPA) = 0) then
  Exit;
 MiddleTPAEx(ATPA[0], X, Y);
 MMouse(x, y, 5, 5);
 Wait(randomrange(200, 500));
 if Click then
 If(IsUpTextMultiCustom(UpText)) then
 begin
  ClickMouse2(False);
  wait(500);
  if ChooseOptionMulti(UpText) then
   begin
    Result := True;
    Exit;
   end;
 end else
  Result := False
  else if IsUpTextMultiCustom(UpText) then
  Result:= True;
end;

function Evenportal(X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.55, .99);
 if FindColorsTolerance(TPA, 4884286, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, Y);
  MMouse(X, Y, 0, 0);
  wait(200);
  Result:= isUptextMultiCustom(['portal', 'alanced portal', 'ced port', 'oin-team']);
 end;
end;

function ZammyP(X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 Colortolerancespeed(2);
 SetColorSpeed2Modifiers(0.03, 1.24);
 Result:= Findobjeffects(TPA, [5331725], ['bar', 'rier', 'ass', 'ed', 'bar', 'rier', 'ed'], MSX1, MSY1, MSX2, MSY2, 10, 10, 20, True);
end;

function SaraP(X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
 begin
  CTS:= getcolortolerancespeed;
  Colortolerancespeed(2);
  SetColorSpeed2Modifiers(0.12, 2.51);
  if FindColorsTolerance(TPA, 13990742, MSX1, MSY1, MSX2, MSY2, 7) then
  begin
   SortTPAFrom(TPA, Point(MSCX, MSCY));
   MiddleTPAEx(TPA, X, Y);
   MMouse(X, Y, 0, 0);
   wait(200);
   Result:= IsUptextMultiCustom(['arrier', 'ass', 'lue', 'barrier', 'lue', 'bar']);
  end;
 end;

function FindRCapes: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 Colortolerancespeed(2);
 SetColorSpeed2Modifiers(0.15, 1.55);
 Result:= (FindObjeffects(TPA, [986653], ['ttack'], MSX1, MSY1, MSX2, MSY2, 10, 10, 6, True));
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 986653, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;


function FindBCapes: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.10, 1.41);
 Result:= (Findobjeffects(TPA, [3219475], ['ttack'], MSX1, MSY1, MSX2, MSY2, 10, 10, 7, True));
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3219475, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;


function InRG: Boolean;
begin
 Result:= Not SPS_PosOnMM(Point(709, 5322));
end;

function InBG: Boolean;
begin
 Result:= Not SPS_PosOnMM(Point(628, 5315));
end;

function FinddemJellies: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.26, 0.33);
 result:= (findobjeffects(TPA, [6325118], ['ttack jelly', 'elly'], MSX1, MSY1, MSX2, MSY2, 10, 10, 13, True));
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6325118, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;


function FindDemPyres: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 SetColorSpeed2Modifiers(0.48, 2.82);
 ColorTolerancespeed(2);
 result:= (findobjeffects(TPA, [4293359], ['ttack pyre', 'yre fiend'], MSX1, MSY1, MSX2, MSY2, 13, 13, 6, True));
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4293359, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;
end;

function RGameEnd: Boolean;
var
 GV: TBox;
begin
 GV:= PointToBox(Point(688, 5264), Point(711, 5289));
 Result:= PointInBox(SPS_GetMyPos, GV);
end;

function BGameEnd: Boolean;
var
 GV: TBox;
begin
 GV:= PointToBox(Point(676, 5261), Point(678, 5299));
 Result:= PointInBox(SPS_GetMyPos, GV);
end;

function RGrave: Boolean;
var
 RG: TBox;
begin
RG:= PointToBox(Point(845, 4970), Point(867, 4970));
Result:= PointInBox(SPS_GetMyPos, RG);
end;

function BGrave: Boolean;
var
 BG: TBox;
begin
 BG:= PointToBox(Point(488, 5076), Point(498, 5082));
 Result:= PointInBox(SPS_GetMyPos, BG);
end;

function RPyres: Boolean;
var
 RP: TBox;
begin
 RP:= PointToBox(Point(808, 5083), Point(861, 5130));
 Result:= PointInBox(SPS_GetMyPos, RP);
end;

function BPyres: Boolean;
var
 BP: TBox;
begin
 BP:= PointToBox(Point(622, 5103), Point(673, 5142));
 Result:= PointInBox(SPS_GetMyPos, BP);
end;

function RJellies: Boolean;
var
 RJ, RJX: TBox;
begin
 RJ:= PointToBox(Point(671, 4926), Point(742, 4966));
 RJX:= PointToBox(Point(595, 4907), Point(653, 4942));
 Result:= (PointInBox(SPS_GetMyPos, RJ) OR PointInBox(SPS_GetMyPos, RJX));
end;

function BJellies: Boolean;
var
 BJ: TBox;
begin
 BJ:= PointToBox(Point(463, 4932), Point(542, 4996));
 Result:= PointInBox(SPS_GetMyPos, BJ);
end;

function Obliesk: Boolean;
var
 OBJ: TBox;
begin
 OBJ:= PointToBox(Point(611, 4987), Point(721, 5062));
 Result:= PointInBox(SPS_GetMyPos, OBJ);
end;

function OCenter: Boolean;
var
 OBC: TBox;
begin
 OBC:= PointToBox(Point(655, 5014), Point(679, 5040));
 Result:= PointInBox(SPS_GetMyPos, OBC);
end;

function RSpawn: Boolean;
var
 Spawn: TBox;
begin
 Spawn:= PointToBox(Point(927, 4977), Point(953, 5017));
 Result:= PointInBox(SPS_GetMyPos, Spawn);
end;

function BSpawn: Boolean;
var
 Spawn: TBox;
begin
 Spawn:= PointToBox(Point(382, 5031), Point(415, 5076));
 Result:= PointInBox(SPS_GetMyPos, Spawn);
end;

Procedure LoadPaths;
var
 Red1, Red2, Red3, Red4, Red5 : TPointArray;
 Blue1, Blue2, Blue3, Blue4, Blue5 : TPointArray;
begin
 Red1 :=  [Point(960, 5000), Point(964, 5003), Point(968, 5008), Point(973, 5017),Point(978, 5025), Point(982, 5030), Point(983, 5036), Point(984, 5040),Point(984, 5042), Point(985, 5049), Point(983, 5057), Point(980, 5065),Point(975, 5073), Point(975, 5082), Point(970, 5092), Point(965, 5098),Point(958, 5099), Point(949, 5102), Point(941, 5100), Point(927, 5096),Point(918, 5090), Point(910, 5086), Point(900, 5084), Point(892, 5084),Point(883, 5086), Point(875, 5086), Point(867, 5088), Point(859, 5093),Point(853, 5096), Point(846, 5100), Point(838, 5102)];
 Red2 :=  [Point(960, 4997), Point(965, 5000), Point(969, 5003), Point(973, 5008),Point(978, 5013), Point(982, 5018), Point(983, 5026), Point(984, 5033),Point(985, 5039), Point(985, 5046), Point(981, 5053), Point(981, 5061),Point(980, 5068), Point(975, 5074), Point(973, 5081), Point(971, 5088),Point(968, 5094), Point(964, 5100), Point(956, 5103), Point(949, 5100),Point(941, 5098), Point(936, 5095), Point(930, 5090), Point(924, 5087),Point(917, 5085), Point(911, 5082), Point(904, 5079), Point(898, 5076),Point(890, 5075), Point(884, 5072), Point(878, 5069), Point(873, 5068),Point(867, 5065), Point(860, 5062), Point(854, 5057), Point(847, 5054),Point(842, 5050), Point(836, 5048), Point(830, 5044), Point(826, 5041),Point(819, 5041), Point(813, 5039), Point(803, 5034), Point(798, 5034),Point(792, 5031), Point(783, 5031), Point(775, 5031), Point(768, 5032),Point(760, 5030), Point(751, 5030), Point(743, 5030), Point(736, 5030),Point(730, 5030), Point(723, 5030), Point(716, 5030), Point(708, 5028),Point(700, 5027), Point(691, 5027), Point(683, 5027), Point(676, 5027), Point(667, 5028)];
 Red3 :=  [Point(957, 4996), Point(960, 5000), Point(965, 5002), Point(969, 5004),Point(973, 5007), Point(976, 5012), Point(980, 5016), Point(983, 5021),Point(983, 5026), Point(984, 5031), Point(984, 5036), Point(985, 5040),Point(985, 5046), Point(983, 5050), Point(980, 5056), Point(976, 5062),Point(976, 5069), Point(973, 5076), Point(970, 5082), Point(968, 5089),Point(965, 5096), Point(959, 5099), Point(951, 5100), Point(945, 5099),Point(940, 5095), Point(934, 5092), Point(927, 5090), Point(924, 5087),Point(920, 5084), Point(915, 5080), Point(909, 5077), Point(905, 5073),Point(900, 5072), Point(897, 5069), Point(891, 5065), Point(885, 5063),Point(881, 5057), Point(874, 5052), Point(868, 5045), Point(861, 5042),Point(854, 5037), Point(848, 5031), Point(841, 5025), Point(838, 5020),Point(833, 5016), Point(827, 5011), Point(819, 5006), Point(812, 4999),Point(806, 4995), Point(798, 4989), Point(791, 4984), Point(785, 4979),Point(779, 4973), Point(771, 4970), Point(765, 4966), Point(758, 4959),Point(751, 4957), Point(742, 4951), Point(734, 4950), Point(724, 4947), Point(715, 4949)];
 Red4 :=  [Point(853, 4982), Point(853, 4988), Point(852, 4993), Point(849, 4999),Point(841, 5003), Point(835, 5009), Point(830, 5014), Point(825, 5019),Point(818, 5021), Point(812, 5024), Point(804, 5026), Point(796, 5029),Point(788, 5030), Point(780, 5030), Point(770, 5031), Point(765, 5031),Point(757, 5030), Point(748, 5030), Point(741, 5030), Point(737, 5030),Point(727, 5030), Point(721, 5030), Point(715, 5031), Point(708, 5032),Point(700, 5032), Point(690, 5031), Point(685, 5031), Point(677, 5030),Point(669, 5030)];
 Red5 :=  [Point(853, 4983), Point(852, 4988), Point(852, 4993), Point(852, 4999),Point(852, 5004), Point(851, 5010), Point(848, 5015), Point(848, 5022),Point(847, 5031), Point(846, 5039), Point(846, 5045), Point(846, 5053),Point(846, 5060), Point(845, 5066), Point(843, 5072), Point(842, 5082),Point(839, 5085), Point(837, 5090), Point(836, 5097), Point(835, 5105)];
 //Blue!!
 Blue1 :=  [Point(380, 5054), Point(376, 5054), Point(370, 5051), Point(367, 5047),Point(363, 5043), Point(358, 5038), Point(353, 5031), Point(351, 5023),Point(351, 5016), Point(350, 5008), Point(350, 5002), Point(353, 4995),Point(358, 4990), Point(364, 4983), Point(369, 4977), Point(376, 4971),Point(383, 4964), Point(389, 4963), Point(396, 4965), Point(404, 4968),Point(411, 4970), Point(420, 4975), Point(427, 4979), Point(434, 4984),Point(439, 4989), Point(445, 4992), Point(453, 4996), Point(457, 5003),Point(461, 5011), Point(465, 5017), Point(468, 5023), Point(472, 5028),Point(476, 5038), Point(480, 5044), Point(482, 5053), Point(487, 5059),Point(488, 5067)];
 Blue2 :=  [Point(379, 5054), Point(373, 5054), Point(368, 5051), Point(362, 5047),Point(356, 5040), Point(354, 5034), Point(352, 5027), Point(351, 5022),Point(351, 5015), Point(351, 5007), Point(351, 4998), Point(354, 4989),Point(360, 4984), Point(365, 4978), Point(372, 4970), Point(377, 4964),Point(383, 4965), Point(393, 4966), Point(401, 4968), Point(406, 4970),Point(411, 4973), Point(419, 4974), Point(425, 4974), Point(430, 4974),Point(438, 4973), Point(445, 4972), Point(454, 4969), Point(463, 4969),Point(470, 4965), Point(479, 4962), Point(488, 4961), Point(497, 4961)];
 Blue3 :=  [Point(380, 5055), Point(375, 5056), Point(368, 5052), Point(362, 5046),Point(357, 5039), Point(353, 5034), Point(351, 5028), Point(350, 5023),Point(350, 5015), Point(350, 5007), Point(352, 4999), Point(356, 4993),Point(359, 4987), Point(363, 4980), Point(367, 4970), Point(373, 4965),Point(380, 4962), Point(387, 4963), Point(393, 4966), Point(401, 4971),Point(409, 4975), Point(416, 4978), Point(421, 4979), Point(426, 4984),Point(432, 4987), Point(438, 4990), Point(443, 4994), Point(448, 4998),Point(453, 5001), Point(456, 5004), Point(463, 5007), Point(468, 5008),Point(474, 5011), Point(477, 5014), Point(485, 5015), Point(495, 5018),Point(501, 5022), Point(507, 5022), Point(513, 5024), Point(519, 5024),Point(526, 5024), Point(533, 5022), Point(540, 5021), Point(547, 5020),Point(553, 5021), Point(560, 5020), Point(566, 5020), Point(572, 5020),Point(579, 5020), Point(585, 5020), Point(592, 5020), Point(597, 5020),Point(601, 5020), Point(606, 5021), Point(613, 5021), Point(620, 5023),Point(625, 5023), Point(631, 5023), Point(638, 5024), Point(645, 5025),Point(651, 5026), Point(659, 5026), Point(664, 5026), Point(668, 5028)];
 Blue4 :=  [Point(380, 5053), Point(377, 5052), Point(371, 5051), Point(366, 5045),Point(360, 5038), Point(355, 5034), Point(351, 5022), Point(351, 5012),Point(352, 5000), Point(355, 4993), Point(359, 4986), Point(362, 4981),Point(368, 4975), Point(375, 4969), Point(382, 4965), Point(392, 4963),Point(399, 4966), Point(407, 4971), Point(415, 4975), Point(422, 4981),Point(426, 4986), Point(430, 4989), Point(435, 4994), Point(443, 4999),Point(449, 5004), Point(453, 5007), Point(457, 5010), Point(462, 5015),Point(469, 5018), Point(474, 5022), Point(481, 5027), Point(488, 5031),Point(494, 5036), Point(499, 5038), Point(505, 5043), Point(510, 5046),Point(517, 5049), Point(525, 5055), Point(530, 5058), Point(536, 5060),Point(541, 5068), Point(548, 5073), Point(554, 5078), Point(559, 5081),Point(566, 5089), Point(574, 5093), Point(582, 5097), Point(588, 5102),Point(594, 5106), Point(600, 5109), Point(606, 5111), Point(614, 5112),Point(622, 5114), Point(632, 5118), Point(642, 5121), Point(649, 5126)];
 Blue5 :=  [Point(489, 5072), Point(489, 5066), Point(490, 5061), Point(495, 5055),Point(503, 5051), Point(509, 5047), Point(515, 5042), Point(522, 5037),Point(529, 5033), Point(536, 5029), Point(542, 5025), Point(550, 5022),Point(558, 5021), Point(564, 5020), Point(570, 5020), Point(576, 5020),Point(581, 5022), Point(589, 5020), Point(595, 5020), Point(602, 5021),Point(609, 5021), Point(616, 5021), Point(621, 5021), Point(626, 5021),Point(633, 5021), Point(641, 5022), Point(645, 5024), Point(653, 5024),Point(661, 5024), Point(666, 5028)];
end;


begin
 DeclarePlayers;
 SetupSRL();
 Startup;
 SPS_Setup(RUNESCAPE_SURFACE, ['0_12','1_12','2_12','1_13']);
 writeln(SPS_GetMyPos);
 repeat
  FindDemJellies;
  LoadPaths;
  evenportal(X, y);
  ZammyP(X, y);
  SaraP(X, y);
  FindRcapes;
  Findbcapes;
  InRG;
  InBG;
  FindDemPyres;
  RgameEnd;
  BgameEnd;
  RGrave;
  BGrave;
  rPyres;
  BPyres;
  RJellies;
  BJellies;
  Obliesk;
  OCenter;
  RSpawn;
  BSpawn;
 until not LoggedIn;
end. 

<– MY soul wars script. The REAL one.

program TrollsMegaKiller;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
 {$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '1.0'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?
 WhichMonster       = ''; //Goblin, Experiment, Ghoul, With more to come! Request through PM please!

procedure DeclarePlayers;
var
 i: Integer;
begin
 NumberOfPlayers(NumbOfPlayers);
 CurrentPlayer := StartPlayer;
 for i := 0 to NumbOfPlayers-1 do
 begin
  Players[0].Name   := '';       // Your Username.
  Players[0].Pass   := '';       // Your Password.
  Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
  Players[0].Active := True;     // Are you using this player?
  Players[0].Member := True;     // Are you a member?
 end;
end;

procedure Startup;
begin
 Smart_Server := 97;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 SetupSRL;
 DeclarePlayers;
 LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

function KillGoblin(X, y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.42, 0.44);
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8233358, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;

function KillExperiment(X, y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.14, 0.69);
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6063284, MSX1, MSY1, MSX2, MSY2, 7) or
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 7319718, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;

function KillGhoul(X, y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.26, 0.40);
 if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9486269, MSX1, MSY1, MSX2, MSY2, 7) then
 begin
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  MiddleTPAEx(TPA, X, y);
  MMouse(X, y, 0, 0);
  Wait(300);
  Result := True;
 end;
end;

(*procedure FindMonster;
begin
 if WhichMonster:='Goblin' then
 begin
  repeat
   KillGoblin;
  until not LoggedIn;
  end else
 if WhichMonster:='Experiment' then
 begin
  repeat
   KillExperiment;
  until not LoggedIn;
  end else
 if WhichMonster:='Ghoul' then
 begin
  repeat
   KillGhoul;
  until not LoggedIn;
 end;
end;*)

begin
 DeclarePlayers;
 StartUp;
 //FindMonster;
end.

<– My megaKiller. (Still needs a little work.. Cant fix this one error..)

Now for my not-so-good scripts.

program Trolln_Expirements;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
{$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '1.0'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

var
 X, Y : Integer;

 procedure DeclarePlayers;
 var
  i: Integer;
 begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
  begin
   Players[0].Name   := '';       // Your Username.
   Players[0].Pass   := '';       // Your Password.
   Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
   Players[0].Active := True;     // Are you using this player?
   Players[0].Member := True;     // Are you a member?
  end;
 end;

procedure SetupChar;
begin
 SetupSRL();
 SetAngle(0);
 ClickNorth(0);
end;

procedure Startup;
begin
 Smart_Server := 10;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 DeclarePlayers;
 LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

procedure AntiBan;
begin
 case Random(250) of
  0: begin GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
  1: begin SleepAndMoveMouse (9000+random(600)); end;
  2: begin GameTab(tab_inv) ExamineInv; GameTab(28); end;
  3: begin RandomAngle(1); end;
  4: begin GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
  5: begin SleepAndMoveMouse (4000+random(250)); end;
  6: begin RandomAngle(2); end;
 end;
end;

procedure Kill;
begin
 if FindObjCustom(X, y, ['ttack', 'xperiment'], [6063284, 1781573, 7319718, 4277319], 7) then
 begin
  GetMousePos(X, y);
  MMouse(X, y, 5, 5);
  if IsUpText('Attack') then
  ClickMouse2(true);
  Wait(20000);
  AntiBan;
 end;
 if not FindObjCustom(X, y, ['ttack', 'xperiment'], [6063284, 1781573, 4277319, 7319718], 7) then
  repeat
   Kill;
   AntiBan;
  until(FindObjCustom(X, y, ['ttack', 'xperiment'], [6063284, 1781573, 4277319, 7319718], 7));
end;

begin
 DeclarePlayers;
 Startup;
 SetupChar;
 repeat
  Kill;
  AntiBan;
 until not LoggedIn;
end.

<– My Experiment killer.

program ForJordan;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
 {$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '1.0'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

procedure DeclarePlayers;
var
 i: Integer;
begin
 NumberOfPlayers(NumbOfPlayers);
 CurrentPlayer := StartPlayer;
 for i := 0 to NumbOfPlayers-1 do
 begin
  Players[0].Name   := '';       // Your Username.
  Players[0].Pass   := '';       // Your Password.
  Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
  Players[0].Active := True;     // Are you using this player?
  Players[0].Member := True;     // Are you a member?
 end;
end;

procedure Startup;
begin
 Smart_Server := 97;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 SetupSRL;
 DeclarePlayers;
 LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

function TPAFinder(X, y : Integer):Boolean;
var
 CTS, i : Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.42, 0.44);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8233358, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA := TPAToATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[i], X, y);
  MMouse(X, y, 2, 2);
  if (IsUpTextMultiCustom(['Attack', 'Goblin'])) then
  begin
   Result := true;
   GetMousePos(X, y);
   Break;
  end;
 end;
end;

procedure AntiBan;
begin
 case Random(250) of
  0: begin
      GameTab(tab_stats);
      HoverSkill('Mining', false);
      GameTab(28);
     end;
  1: begin
      SleepAndMoveMouse(9000+random(600));
     end;
  2: begin
      GameTab(tab_inv);
      ExamineInv;
      GameTab(28);
     end;
  3: begin
      RandomAngle(1);
     end;
  4: begin
      GameTab(tab_stats);
      HoverSkill('Attack', false);
      GameTab(28);
     end;
  5: begin
      SleepAndMoveMouse(4000+random(250));
     end;
  6: begin
      RandomAngle(2);
     end;
 end;
end;

procedure KillGoblin;
var
 X, y : Integer;
begin
 if FindObjCustom(X, y, ['ttack', 'oblin'], [7514770, 8233358, 3702387, 7969929], 10) then
 begin
  GetMousePos(X, y);
  MMouse(X, y, 5, 5);
  if WaitUpText('Attack', 100) then
  ClickMouse2(true);
  Wait(20000);
  AntiBan;
  begin
   Writeln('Completed Antiban!');
  end;
 end;
end;

procedure KillMan;
begin

end;


begin
 DeclarePlayers;
 Startup;
 repeat
  KillGoblin;
  AntiBan;
 until not LoggedIn;
end.

<– A script I made for my friend Jordan.. I practiced TPAs on this script.

Well, Those are all of the scripts I have that are worth showing. I hope I get in!

Most of the scripts don't even compile. One compiles yet Access violation is stopping it. Holding vote. Seems like you didn't test the scripts before you applied….

Soulwars one doesn't compile. Missing colour tolerance and to many end;'s

Forgive me if I'm wrong you only use SPS to walk?

you use SetupSRL twice in one script and declare players twice

even after fixes it doesn't work

Those one spaced tabs are killing me. D:

Same as above, but holding vote for now.

Is FindObjectEffects originally your function?

~RM

The Script for my friend.. I practiced TPAs on it.. I fixed it. The Experiments one was a test that I did that I forgot to take out because it wasn't working. I fixed that, too. The Soul wars, it kept getting an error that I couldn't fix. It's a SPS Error. Thank you, guys, for withholding your votes. I'm working on fixing the thing with the experiments.

I am sorry no; You need to read this Mate:
http://villavu.com/forum/showthread.php?t=40470

All I can see in your SW script (the one you say is the best) is SPS and TPAs. No DTMs, DDTMs, not even anti-ban, and no failsafes whatsoever. You seem to want to get SRL Members desperately and this makes your scripts and app seem rushed. Take more time next time (this is assuming that you're not accepted, which you may well be), and actually test the scripts.

Sorry man, no from me.

I hate to be the guy to do it but these is copied straight from pastebin, just changed the procedures names, changed few coord numbers around and linked it as your own :(, sorry but a no from me too.

Source: http://pastebin.com/JLAQMVEj

Lol.. Direct copy of my oldest and first script ever created.. It was made for testing, not for applying or use. That script was the template for Jakeeboy's soulwars. All the colours were the ones I gathered for him when he didn't have access to sw.. I just made it into a script.

No from me.

From: Brandon
Lol.. Direct copy of my oldest and first script ever created.. It was made for testing, not for applying or use. That script was the template for Jakeeboy's soulwars. All the colours were the ones I gathered for him when he didn't have access to sw.. I just made it into a script.

No from me.

Google (SRL Mem) was the one who actually found this. I remembered I had seen the FindObjEffects function before. Google PMed me, I PMed Brandon.

Anyway, bye bye TrollXx.

~RM

Shame really…I thought he was quite a decent guy.

People say I'm to harsh to you. But this is partly why