SRL Archive - Discussions and Debates

xXTrollXx

P1nky

2012-03-19 22:21:12

From: xXTrollXx
P1nky, I didn't mean to post that script, the reflection one, I've already sent a message to S1N about this, and I don't know if he believes me. I was going to covert that script to test my skills in coding in Pascal, and I wasn't going to post it, but I forgot to copy-paste MY script, and that script got posted. If you want to see MY script then here it is:

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?

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(var X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.53, 1.00);
 if FindColorsTolerance(TPA, 4884044, MSX1, MSY1, MSX2, MSY2, 10) 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;

 SetColorSpeed2Modifiers(0.2, 0.2);
 ColorToleranceSpeed(CTS);
end;

function ZamyP(var X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 Colortolerancespeed(4);
 SetColorSpeed2Modifiers(0.02, 1.22);
 Result:= Findobjeffects(TPA, [5331916], ['bar', 'rier', 'ass', 'ed', 'bar', 'rier', 'ed'], MSX1, MSY1, MSX2, MSY2, 10, 10, 20, True);
 SetColorSpeed2Modifiers(0.2, 0.2);
 ColorToleranceSpeed(CTS);
end;

function SaraP(var X, Y: Integer): Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
 begin
  CTS:= getcolortolerancespeed;
  Colortolerancespeed(4);
  SetColorSpeed2Modifiers(0.12, 2.51);
  if FindColorsTolerance(TPA, 13990504, MSX1, MSY1, MSX2, MSY2, 15) 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;
   SetColorSpeed2Modifiers(0.2, 0.2);
   ColorToleranceSpeed(CTS);
 end;

function FindRCapes: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 Colortolerancespeed(4);
 SetColorSpeed2Modifiers(0.17, 1.57);
 Result:= (FindObjeffects(TPA, [986662], ['ttack'], MSX1, MSY1, MSX2, MSY2, 10, 10, 6, True));
 ColorToleranceSpeed(CTS);
 SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FindBCapes: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 ColorToleranceSpeed(4);
 SetColorSpeed2Modifiers(0.11, 1.40);
 Result:= (Findobjeffects(TPA, [3219474], ['ttack'], MSX1, MSY1, MSX2, MSY2, 10, 10, 7, True));
 ColorToleranceSpeed(CTS);
 SetColorSpeed2Modifiers(0.2, 0.2);
end;

function InRG: Boolean;
begin
 Result:= Not SPS_PosOnMM(Point(700, 5310));
end;

function InBG: Boolean;
begin
 Result:= Not SPS_PosOnMM(Point(634, 5311));
end;

function FinddemJellies: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 ColorToleranceSpeed(4);
 SetColorSpeed2Modifiers(0.28, 0.31);
 result:= (findobjeffects(TPA, [6325106], ['ttack jelly', 'elly'], MSX1, MSY1, MSX2, MSY2, 10, 10, 13, True));
 ColorToleranceSpeed(CTS);
 SetColorSpeed2Modifiers(0.2, 0.2);
end;

function FindDemPyres: Boolean;
var
 CTS: Integer;
 TPA: TPointArray;
begin
 SetColorSpeed2Modifiers(0.45, 2.81);
 ColorTolerancespeed(4);
 result:= (findobjeffects(TPA, [4293347], ['ttack pyre', 'yre fiend'], MSX1, MSY1, MSX2, MSY2, 13, 13, 6, True));
 ColorToleranceSpeed(CTS);
 SetColorSpeed2Modifiers(0.2, 0.2);
end;

function RGameEnd: Boolean;
var
 GV: TBox;
begin
 GV:= PointToBox(Point(685, 5257), Point(708, 5298));
 Result:= PointInBox(SPS_GetMyPos, GV);
end;

function BGameEnd: Boolean;
var
 GV: TBox;
begin
 GV:= PointToBox(Point(654, 5257), Point(676, 5297));
 Result:= PointInBox(SPS_GetMyPos, GV);
end;

function RGrave: Boolean;
var
 RG: TBox;
begin
RG:= PointToBox(Point(846, 4965), Point(860, 4979));
Result:= PointInBox(SPS_GetMyPos, RG);
end;

function BGrave: Boolean;
var
 BG: TBox;
begin
 BG:= PointToBox(Point(484, 5078), Point(494, 5088));
 Result:= PointInBox(SPS_GetMyPos, BG);
end;

function RPyres: Boolean;
var
 RP: TBox;
begin
 RP:= PointToBox(Point(806, 5079), Point(860, 5127));
 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(959, 4997), Point(964, 5000), Point(968, 5003), Point(973, 5008),Point(978, 5014), Point(982, 5021), Point(983, 5027), Point(984, 5036),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);
 finddemjellies;
 LoadPaths;
 evenportal;
 ZammyP;
 SaraP;
 FindRcapes;
 Findbcapes;
 InRG;
 InBG;
 FindDemPyres;
 RgameEnd;
 BgameEnd;
 RGrave;
 BGrave;
 rPyres;
 BPyres;
 RJellies;
 BJellies;
 Obliesk;
 OCenter;
 RSpawn;
 BSpawn;
end.

I don't want to lose your trust, either.. I know everybody thinks I'm a bad guy, and stuff.. but I have no way in showing them.. Could you try and tell them, Please?

I think it's a cover-up but who knows… Also, if he had posted that script, I would have voted no.

-Discuss

E:
His application:
http://villavu.com/forum/showthread.php?t=77107

kitchenrange

2012-03-19 22:25:20

What exactly happened?

P1nky

2012-03-19 22:35:34

This:
http://villavu.com/forum/showthread.php?t=77107

Kyle Undefined

2012-03-19 23:06:25

He PM'd me the exact same thing, I just ignored it.

Justin

2012-03-20 02:46:06

I think its a cover up.

Jagex_Fagex

2012-03-20 08:07:10

Who cares, just ignore it, think of him as you will. This doesn't really need to be a SRL+ topic, he was dealt with for the mistakes he made, whether by accident or not.

Kyle Undefined

2012-03-20 08:16:27

How could it be a mistake? Lol, he blatantly posted a copied script. However, I do agree, he has already been dealt with.

Jagex_Fagex

2012-03-20 08:21:13

That's why i said deliberate or not.. It was a mistake, however there is no argument as to whether it was an accident. There is a difference between an accident and a mistake. :p

P1nky

2012-03-20 14:21:33

From: Jagex_Fagex
Who cares, just ignore it, think of him as you will. This doesn't really need to be a SRL+ topic, he was dealt with for the mistakes he made, whether by accident or not.

He wanted me to spread the word to the Member community; So I did. Also, I think this is meant to be in SRL+ and not in public?

'Toxin

2012-03-21 16:14:47

From: P1nky
He wanted me to spread the word to the Member community; So I did. Also, I think this is meant to be in SRL+ and not in public?

P1nky, it isn't in public. He also sent me a PM about it… clearly a cover up.

DemiseScythe

2012-03-21 17:07:16

He no PM me, I'm not important ;_; so good thing he banned for plagiarism

Sin

2012-03-21 17:09:17

From: DemiseScythe
He no PM me, I'm not important ;_; so good thing he banned for plagiarism

ujelly?

cause

2012-03-21 18:15:39

lol totes jelly, no pm either

Sin

2012-03-21 18:43:10

From: cause
lol totes jelly, no pm either

I used to get mad at RS but then i had some orange juice and I was k.

RISK

2012-03-22 00:26:07

The post: http://villavu.com/forum/showthread.php?p=967315#post967315

A few seconds later:

Huh?

P1nky

2012-03-22 01:45:46

From: RISK
The post: http://villavu.com/forum/showthread.php?p=967315#post967315

A few seconds later:

Huh?

He's trying too hard lol.