Laz
2012-02-12 17:24:44
2012-02-12 17:24:44
2012-02-12 17:25:57
2012-02-12 17:28:34
From: Zyt3x
Yes, pasting scripts that are not for the public to see is actually leaking and is against the rules. Please stop doing that, whoever you are.
2012-02-12 17:28:41
2012-02-12 17:29:49
2012-02-12 17:30:11
2012-02-12 17:30:50
2012-02-12 17:30:57
From: LazAsk the creator(s) of the script(s) :)
can i keep it them ?? i found astral crafter, nature crafter, merchant, abbys pro pouch to scrolls .
2012-02-12 17:31:22
2012-02-12 17:31:34
From: Kyle Undefined
Sigh…this is getting annoying.
2012-02-12 17:31:54
2012-02-12 17:31:54
2012-02-12 17:32:24
2012-02-12 17:33:44
Pretty Colours
2012-02-12 17:34:36
From: PatDuffyGood idea.
Move this thread too, don't want too many public people
2012-02-12 17:35:42
2012-02-12 17:37:01
2012-02-12 17:40:44
From: Mat
http://pastebin.com/search?cx=partner-pub-4339714761096906%3A1qhz41g8k4m&cof=FORID%3A10&ie=UTF-8&q=.srl&sa.x=0&sa.y=0&sa=Search
Just did a search for .SRL in the last 24 hrs look..
2012-02-12 17:42:30
2012-02-12 17:45:57
2012-02-12 17:49:00
2012-02-12 17:51:19
2012-02-12 17:53:21
From: Kyle Undefined
But it would help kick them out, how many people who recently got in that haven't done anything since?
2012-02-12 17:55:26
From: Kyle Undefined
But it would help kick them out, how many people who recently got in that haven't done anything since?
2012-02-12 17:58:32
From: Kyle Undefined
But it would help kick them out, how many people who recently got in that haven't done anything since?
2012-02-12 18:05:22
2012-02-12 18:08:52
From: R4nd0m
I think someone should make an announcement threatening to report to ISP's (99% of the people who leak/do anything stupid are teenagers who ultimately fear the police/parents getting really mad at them.
2012-02-12 18:14:26
2012-02-12 18:15:29
From: Kyle Undefined
There are other ways of contributing than writing scripts, being an active member counts.
There are so many people who aren't even active and just leech. Also, Sin, this wasn't the place for that type of comment.
2012-02-12 18:16:32
2012-02-12 18:21:56
From: masterBB
Lol, no. I would rather keep internet and real life apart. We shouldn't do that.
2012-02-12 18:31:20
From: Mat
Pretty Colours
2012-02-12 18:36:17
From: mormonman
Copy-Cat!
2012-02-12 18:53:04
From: masterBB
Lol, no. I would rather keep internet and real life apart. We shouldn't do that.
2012-02-12 19:06:27
From: Harry
How you suggest we deal with this? Ban him and have him change IP and continue?
2012-02-12 19:41:21
From: masterBB
First everyone is against SOPA and such, but oh no, when our scripts gets stolen we need to inform the authorities? We did all we could protecting our scripts, apparently not all SRL members are what a SRL member should be, mature and trustworthy. I do not like the idea of informing the authorities.
2012-02-12 20:25:40
From: Harry
How you suggest we deal with this? Ban him and have him change IP and continue?
2012-02-12 23:04:06
2012-02-12 23:05:10
2012-02-12 23:23:06
From: Harry
They are breaking international copyright for monetary gain. They are also leaking content that is designed to remain private, which would be against privacy laws. Selling copyrighted content is highly illegal, so is leaking personal information. It's criminal what he's doing. There's no way to make SRL Members more trustworthy other than possibly kicking out people who have contributed nothing to the site in the past year (you haven't made any scripts recently but you're knowledgeable and make a few tuts so that won't apply to you anyways).
2012-02-12 23:56:57
From: XxX Toxin XxX
None of our scripts are copyrighted though
Just because we have a members section which is held private against the open internet forums, or registered users rather, doesn't mean that information, namely scripts are all private content and could face federal charges. Only way I could see anything legal happening is if the user would be selling someone else's work, that, is illegal.
2012-02-13 00:29:02
From: Harry
Wrong, anything you type online is copyrighted automatically.
It is still private content, no matter how petty you think it is.
2012-02-13 00:30:34
2012-02-13 03:18:26
2012-02-13 06:24:02
2012-02-13 08:58:29
From: Tickyy
That's why i vote NO to new members here on srl. And the problem at this is… you can't stop them whoever is doing this.
2012-02-13 09:49:13
2012-02-13 09:57:54
From: weequ
I have an idea.
Lets just upload lots of 'fake' scripts to pastebin so that no-one can find what they want.
2012-02-13 10:10:22
From: Kyle Undefined
Heh, I like that idea. We can upload a ton of the Reflection scripts :D
program new;
var
program0, program1, program2,
program3, program4, program5, program6, program7: TStringArray;
programs: Array of Array of TStringArray;
namestring: String;
I, r1: Integer;
begin
ClearDebug;
program0 := ['ultimate', '', ''];
program1 := ['air', 'fire', 'earth', 'nature', 'gold', 'silver', 'cowhide', 'dhide', 'amulet', 'ring', 'bracelet'];
program2 := ['crafter', 'maker'];
program3 := ['pro', '', 'lite'];
program4 := ['bronze', 'iron', 'silver', 'gold', 'steel', 'mithril', 'addy', 'rune'];
program5 := ['smither', 'smelter', 'superheater'];
program6 := ['Goblin', 'GreenDragon', 'Chicken'];
program7 := ['fighter', 'killer', 'slayer'];
SetLength(programs, 3);
programs[0] := [program0, program1, program2, program3];
programs[1] := [program0, program4, program5, program3];
programs[2] := [program0, program6, program7, program3];
r1 := Random(Length(programs));
for I := 0 to Length(programs[r1])-1 do
begin
namestring := namestring+Capitalize(programs[r1][I][random(Length(programs[r1][I]))]);
end;
writeln('program '+ namestring);
end.
2012-02-13 10:11:20
From: Kyle Undefined
Heh, I like that idea. We can upload a ton of the Reflection scripts :D
2012-02-13 10:14:03
2012-02-13 10:21:48
From: patduffy
operation trololololololol?
2012-02-13 10:50:05
program S1NGreenDragonsPRO;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
uAmmyDTM,ammyDTM,kitDtM,uAmmy2DTM:Integer;
Column,Row:Integer;
//proggy variables
Sec,XPEarned,XPH,SCasts,HCasts,StartTime:Integer;
procedure DeclarePlayers;
begin
//Where are your Gold Amulets located
Column := X; //Write your Column here
Row := X; //Row here
//Row : 0 = First row, 1 = Second Row etc...
//Column : 0 = First Column, 1 = Second Column etc...
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'trolldemleechers'; // Username
Players[0].Pass := 'khazard121'; // Password
Players[0].Active := True;
Players[0].Pin := '3421';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure SetDTM;
begin
uAmmyDTM := DTMFromString('m1gAAAHic42JgYKhlYmCoBuJ6IG4C4lYgbgHiOqh4ORR7MzIwuAGxKxC7A7EXEPsDcSAUg/i+QNzYIQQ0lYkg/s9AHGAkEiMAAHxaCjc=');
AmmyDTM := DTMFromString('mlwAAAHicY2dgYChmYmAoAeJcIK4D4lIgzgPiIiAuY2RgKATiFCBOBOJqIK4C4jggbmgXBupmwor/M+AGjHgwFAAAoFQIbw==');
kitDTM := DTMFromString('m1gAAAHic42JgYChlYmAoAeJsIM6CYpBYExKuAuJfjAwMb4H4IxD/AWJWoBgXELMA8Q8g/xMQvwPiAGddoKlMBPF/BuIAI5EYAQBeLA1j');
uAmmy2DTM := DTMFromString('mwQAAAHic42RgYPBmYmBwBmJXIPYBYg8gDgDiQCD2hfL7GSF4ChBPg2IQeyIQd0FxZYMQ0DQmvPg/A2HASASGAwBnOAn8');
end;
procedure WithdrawAmulets;
var
x,y,x2,y2,x3,y3,x4,y4,x5,y5:Integer;
t:Integer;
begin
if FindObjCustom(x,y,['Bank'],[11711418,13158866],2) then
MarkTime(t);
begin
case random(2) of
0: begin
Mouse(x,y,0,0,False);
wait(900);
ChooseOption('Bank');
end;
1: begin
Mouse(x,y,0,0,True);
end;
end;
end;
repeat
wait(100);
if TimeFromMark(t) > 30000 then
begin
WriteLn('Could not Open bank');
TerminateScript;
end;
until(PinScreen or BankScreen);
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;
if BankScreen then
begin
if FindDTM(KitDTM,x3,y3,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(x3,y3,0,0,False);
ChooseOption('All');
end;
if FindDTM(AmmyDTM,x4,y4,MIX1,MIY1, MIX2,MIY2) then
begin
Mouse(x4,y4,0,0,False);
ChooseOption('All');
end;
if FindDTM(uAmmy2DTM,x5,y5,MIX1,MIY1, MIX2,MIY2) then
begin
Mouse(x4,y4,0,0,False);
ChooseOption('All');
end;
begin
wait(1000);
Withdraw(Column,Row,14);
repeat
wait(100);
until(FindDTM(uammyDTM,x2,y2,MIX1,MIY1,MIX2,MIY2));
end;
CloseBank;
end;
end;
procedure Cast;
var
x,y,x2,y2:Integer;
SJewel,HKit:integer;
t:Integer;
begin
SJewel := DTMFromString('mrAAAAHic42BgYKhjYmAoA+J2IG4D4mYo7gLibiDex8jAsBWIdwHxdih7ExBvAOJtQHyaUwFoCiMejB/g04msGwCoWArx');
HKit := DTMFromString('mwQAAAHic42RgYNBjYmBQBmINIDYCYjMmiJg2klgdIwNDNRA3AnEzEFcCcREQFwBxGRCXAHFykA0DNzcXHEfY6aLwQfg/A2HASASGAwDTDQmX');
GameTab(28);
if FindDTM(SJewel,x,y,MIX1,MIY1,MIX2,MIY2) and FindDTM(HKit,x2,y2,MIX1,MIY1,MIX2,MIY2) then
begin
MarkTime(t);
repeat
Mouse(x,y,1,1,True);
Inc(SCasts);
wait(1000+random(200));
Mouse(x2,y2,1,1,True);
Inc(HCasts);
until((TimeFromMark(t) > 32000) or FindBlackChatMessage('inventory'));
end;
XPEarned := XPEarned + 2072;
FreeDTM(SJewel);
FreeDTM(HKit);
end;
Procedure Proggy;
begin
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XPEarned) / (SeC);
writeLn('====================');
writeLn('=====S1NLunars======');
writeLn('Time Running: ' + TimeRunning);
writeLn('Casts: ' + IntToStr(HCasts + SCasts));
writeLn('XP Earned: ' + IntToStr(XPEarned));
writeLn('XP/H: ' + IntToStr(XPH));
writeLn('====================');
end;
procedure FreDTM;
begin
FreeDTM(kitDTM);
FreeDTM(AmmyDTM);
FreeDTM(uAmmyDTM);
FreeDTM(uAmmy2DTM);
end;
begin
SetupLogin;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetDTM;
ActivateClient;
if LoggedIn then
begin
MakeCompass(90);
SetAngle(SRL_ANGLE_HIGH);
end;
StartTime:=GetSystemTime;
ClearDebug;
writeLn('Fixes in 1.1:');
writeLn(' -Fixed method');
repeat
WithdrawAmulets;
Cast;
Proggy;
until(false);
FreDTM;
end.
2012-02-13 10:53:00
2012-02-13 11:09:25
program new;
var
program0, program1, program2,
program3, program4, program5, program6, program7: TStringArray;
programs: Array of Array of TStringArray;
namestring: String;
I, r1: Integer;
IntegerVariableNames: TStringArray;
StringVariableNames: TStringArray;
BooleanVariableNames: TStringArray;
currentline: String;
procedure WriteDeclarePlayers(HowManyPlayers: Integer);
begin
WriteLn('procedure DeclarePlayers;');
WriteLn('begin');
WriteLn(' NumberOfPlayers('+IntToStr(HowManyPlayers)+');');
WriteLn(' CurrentPlayer := 0;');
for I := 0 to HowManyPlayers-1 do
begin
if Random(2) = 0 then WriteLn('');
WriteLn(' with Players['+IntToStr(I)+'] do');
WriteLn(' begin');
WriteLn(' Name := '''';');
WriteLn(' Pass := '''';');
WriteLn(' Active := True;');
WriteLn(' Pin := '''';');
WriteLn(' end;');
end;
if Random(2) = 0 then WriteLn('');
WriteLn('end;');
end;
begin
ClearDebug;
program0 := ['ultimate', '', ''];
program1 := ['air', 'fire', 'earth', 'nature', 'gold', 'silver', 'cowhide', 'dhide', 'amulet', 'ring', 'bracelet'];
program2 := ['crafter', 'maker'];
program3 := ['pro', '', 'lite'];
program4 := ['bronze', 'iron', 'silver', 'gold', 'steel', 'mithril', 'addy', 'rune'];
program5 := ['smither', 'smelter', 'superheater'];
program6 := ['Goblin', 'GreenDragon', 'Chicken'];
program7 := ['fighter', 'killer', 'slayer'];
SetLength(programs, 3);
programs[0] := [program0, program1, program2, program3];
programs[1] := [program0, program4, program5, program3];
programs[2] := [program0, program6, program7, program3];
r1 := Random(Length(programs));
for I := 0 to Length(programs[r1])-1 do
begin
namestring := namestring+Capitalize(programs[r1][I][random(Length(programs[r1][I]))]);
end;
writeln('program '+ namestring+';');
for I := 1 to Random(3) do WriteLn('');//add 0-2 empty lines
if Random(2) = 0 then
begin
WriteLn('{$i srl/srl/misc/Smart.simba}');
WriteLn('{$i SRL/SRL.simba}');
end else
begin
WriteLn('{.include srl/srl/misc/Smart.simba}');
WriteLn('{.include SRL/SRL.simba}');
end;
for I := 1 to Random(3) do WriteLn('');//add 0-2 empty lines
IntegerVariableNames := ['I', 'Loads done', 'Deaths', 'Slept', 'Gained'];
StringVariableNames := ['Location', 'Debug'];
BooleanVariableNames := ['Active' ,'Breaking', 'Stupid'];
if Random(10) > 0 then //add global vars?
begin
WriteLn('var');
for I := 0 to High(IntegerVariableNames) do //Integers
if Random(2) = 0 then currentline := currentline+IntegerVariableNames[I]+', ';
if Length(currentline) > 0 then
begin
SetLength(CurrentLine, Length(CurrentLine)-2);
currentline := currentline+': Integer;';
WriteLn(' '+CurrentLine);
end;
currentline := '';
for I := 0 to High(StringVariableNames) do //Strings
if Random(2) = 0 then currentline := currentline+StringVariableNames[I]+', ';
if Length(currentline) > 0 then
begin
SetLength(CurrentLine, Length(CurrentLine)-2);
currentline := currentline+': String;';
WriteLn(' '+CurrentLine);
end;
currentline := '';
for I := 0 to High(BooleanVariableNames) do //Strings
if Random(2) = 0 then currentline := currentline+BooleanVariableNames[I]+', ';
if Length(currentline) > 0 then
begin
SetLength(CurrentLine, Length(CurrentLine)-2);
currentline := currentline+': Boolean;';
WriteLn(' '+CurrentLine);
end;
currentline := '';
end;
for I := 1 to Random(3) do WriteLn('');//add 0-2 empty lines
WriteDeclarePlayers(1+Random(5));//Declareplayers with 1-5 players
for I := 1 to Random(3) do WriteLn('');//add 0-2 empty lines
WriteLn('begin');
WriteLn('end.');
end.
Edit: Updated again with declareplayers :p
2012-02-13 20:48:29
2012-02-13 20:55:06
From: -daazndagger-I don't see a search option but I recommend changing your password anyway. Online data might always get leaked.
Can script be searched on http://pastehtml.com/ ? Because I have some scripts with my password on them.. Just for personal pursoses and accessability.
2012-02-14 00:14:28
2012-02-14 00:28:53
From: hamster31
Yea but seriously, the idea is to make it more secure, when people try to find something, they will find something…
Also as i posted in Mem Sections, there are people selling members script on RiD for applying to gain access to this members section. You will NOT be able to stop them.
As i read through this thing, non of the scripts were found using paste bin, they leaked by SRL member(s) who have gained access to that specific section.
I do suggest everyone does investigate it because it is getting out of hand. So many new members are applying with scripts that aren't theres…I do say 1 on 1 interview of people applying.
2012-02-14 00:47:00
2012-02-14 14:12:45
From: -daazndagger-
Can script be searched on http://pastehtml.com/ ? Because I have some scripts with my password on them.. Just for personal pursoses and accessability.
2012-02-14 15:18:57
2012-02-15 01:39:57
From: KaveYeah, I've taken down the scripts with the passwords in it :)
http://lmgtfy.com/?q=site%3Apastehtml.com+declareplayers%3B
Your fantastic fletcher is on there without any account information (dork above)
http://pastehtml.com/view/bjkqmgt9a.txt
From: Kyle UndefinedAhahahah! RS botting has never been so safe and easy :p
Lol, found this: http://pastehtml.com/view/b9sxfktuw.html