PDA

View Full Version : Reopened Forums.



WT-Fakawi
05-20-2006, 01:00 AM
The following actions where undertaken in order to convert SRL to a semi-private community.


Forums Permissions Reset

I was forced to close the Forums because either one of the devs was leaking private scripts or a hacker stole a dev's password. Either way, I have reset all the devs forum and repository passwords (including my own) just to make sure.


Pruning of inactive members

I have pruned over 400 members with postcount 0 and 60 days inactivity. I still have 283 members that have 0 postcount and have been inactive for 30 days. I advice them to become active or fade away, because I will repeat the pruning every once and a while.


New SRL Script Section

SRL leechers Script and SRL Members Script are merged in SRL Scripts Section. I have subdivided this forum so that they may be placed in their own section. Greatly improves readability.


Cleaned Up Forums

I dont like auto pruning so I have begun to clean up old threads.


New Members

New Members can send one request to SRLRequest@hotmail.com clearly stating their preferred Login and Password and a good reason for their appliance.




Future of SRL.

I will keep the forums semi-private for a while. In the far future I plan to reopen to the public again, since it is the easiest way to gather knowlegde, and a forum like this needs to be open. But we are already surrounded by lots of miracle scripters and lots of other good people here, so for the time being lets see where this will bring us.

Mopar has kindly offered to host the Public SRL. The Latest Public SRL will therefore be mirrored at www.moparisthebest.com's kaitnieks replacements forums. I have contacted sythe about mirroring too. We will shine on other forums my friends. In fact: The only hope of the cheating community is SCAR. Ironical isn't. First we where crap, and now we are too hot to handle. Well, thats the good news.

Now for the bad news: we are faced with one of the biggest challenge in SCAR Scripting history. How to auto in a continuously color rotating world. But that issue will be discussed in many other future topics.


Finally, I dont care how small this community will grow, as long as we have the good guys in willing to work hard on trying to Beat the Game.


Welcome back to SRL.

Fawk!

Mutant Squirrle
05-20-2006, 01:26 AM
w00t for teh fawkizzle

thank god i missed SRL i was all bored.. and lonely

Pwnd
05-20-2006, 01:34 AM
You should regain a life then, Mutant.

Bebe
05-20-2006, 01:34 AM
I was bored for a it, but then I went to the movies and forgot about SRL :p

Also, I rediscovered that there was Internet card games :p
I get addicted fast, hehe

Dankness
05-20-2006, 01:36 AM
yay the forums are back up :) lol i was getting bored :eek:

timmyboy
05-20-2006, 01:37 AM
Yay, opened once again. I hope that I will learn to script better to be able to support this communty ebtter.

Cheesehunk
05-20-2006, 02:00 AM
Awesome Fakawi!

I loved that speach by the way, inspiring.:)

Bam Bam
05-20-2006, 02:20 AM
I was so bored without SRL... Im glad they are back up. :)

-chaos-
05-20-2006, 02:37 AM
im glad im having something to do on the computer now

hooray for Fawk :D

QQu
05-20-2006, 03:00 AM
Yay, the forum is back up again! :D

JiveTonto@Gmail.com
05-20-2006, 03:05 AM
nice good idea and you wont have to do as mcuh proning as befor now that they have to contact a hotmail peopel will feel lazy and wont bother

leader
05-20-2006, 03:48 AM
Pruning of inactive members

I have pruned over 400 members with postcount 0 and 60 days inactivity. I still have 283 members that have 0 postcount and have been inactive for 30 days. I advice them to become active or fade away, because I will repeat the pruning every once and a while.

Cleaned Up Forums

I dont like auto pruning so I have begun to clean up old threads.

Now for the bad news: we are faced with one of the biggest challenge in SCAR Scripting history. How to auto in a continuously color rotating world. But that issue will be discussed in many other future topics.


Finally, I dont care how small this community will grow, as long as we have the good guys in willing to work hard on trying to Beat the Game.


Welcome back to SRL.

Fawk!

Okay first of all I suggest that you should make it automatically delete the accounts after a certain number of days instead of you doing it. Also if you could you should make the forums block people from double posting. Example: An error pops up saying use edit.
I don't get what you meant by you don't like auto pruning or what that was referring to. Also I didn't know that Runescape always changes the colors now.

Well glad that the forums are up again. Good Job Fakawi

Avaphi
05-20-2006, 04:53 AM
Hey fawk, I am just getting on... Nice job again on making private, it was a good decision. Also what are we gonna do about the color conundrum?

weaselforce
05-20-2006, 05:14 AM
thank you fakawi for your continued faith in this community. Your a great asset and i dont know where we would be without you. Good luck on solving this leech problem.

c0de
05-20-2006, 08:38 AM
Nice to be back :)

Sjoe
05-20-2006, 09:35 AM
wieeee, great job FAwki :)

Wizzup?
05-20-2006, 09:51 AM
I am getting the feeling it will not be that hard, but the problem is, Fakawi's Scripts never use tol, he always pick(ed)(s) the color when you login, I either think Tolerance or Some good function will solve it.


Function FindColor(MaxTol:Integer):Boolean;

Var Tol,Ex,Ey:Integer;

Begin

H:=H+1;
For G := 1 to H do
Begin
Case G Of

1: Begin Color:= Color1; If Debug Then WriteLn('Color1'); End;
2: Begin Color:= Color2; If Debug Then WriteLn('Color2'); End;
3: Begin Color:= Color3; If Debug Then WriteLn('Color3'); End;

End;
End;

If Debug Then WriteLn('FindColor;');
While (Not (FindColorTolerance(Ex,Ey,Color,MSX1,MSY1,MSX2,MSY 2,Tol))
And Not (Tol > MaxTol)) Do
Begin
Tol:=Tol+1;
If Debug Then WriteLn('Tol = '+IntToStr(Tol));
End;
If ((FindColorTolerance(Ex,Ey,Color,MSX1,MSY1,MSX2,MS Y2,Tol))
And Not (Tol > MaxTol)) Then Result:=True;
Tol:=1;
If Debug Then WriteLn('Color = ' + IntToStr(OreColor));
Wait(10);

End;

MaxTol is a Integer.v putted in the function.
Debug is a Constant I still had in my functions, I didn't took it out.
P and H are global vars.

You might want to make a other function for making diff colors.

You need to put this in the function you use :


Begin If H>3 Then H:=0; End;

Example.


Procedure PowerMine;

Var Dx,Dy:Integer;

Begin

If Debug Then WriteLn('PowerMine;');
If Find(Tol) Then
Begin If FindObj(Dx,Dy,'Mine',Color,10) Then
Begin
H:=0;
If Not FindGas(DX,DY) Then
Begin
Mouse(DX, DY, 0, 0, True);
If (FlagPresent) Then
Begin
Flag;
Wait(500 + Random( 500 ) );
End;
MarkTime(Mark);
Repeat
Wait(100);
FindPick;
If FindFight Then Begin Face('N') RunTo(RunDir,False) End;
FindNormalRandoms;
Until ((TimeFromMark(Mark) > (1000 * SecondsToWait))
or (FindColor(x,y,0,51,421,51,421))
or (FindColor(x,y,7981,71,392,71,392)))

If FindColor(x,y,7981,71,392,71,392) Then
Begin
ClicktoContinue;
ClicktoContinue;
End;
End;
End;
End
Else Begin If H>3 Then H:=0; End; // RIGHT HERE.
End;




Procedure SetOreColor;

Begin
Case Players[CurrentPlayer].String1 Of

'Copper' : Color1:=CopperColor;
'Tin' : Color1:=TinColor;
'Clay' : Color1:=ClayColor;
'Iron' : Color1:=IronColor;
'Silver' : Color1:=SilverColor;
'Coal' : Color1:=CoalColor;
'Gold' : Color1:=GoldColor;
'Mithril' : Color1:=MithrilColor;
'Adamant' : Color1:=AdamantColor;
'Runite' : Color1:=RuniteColor;

End;

Case Players[CurrentPlayer].String2 Of

'Copper' : Color2:=CopperColor;
'Tin' : Color2:=TinColor;
'Clay' : Color2:=ClayColor;
'Iron' : Color2:=IronColor;
'Silver' : Color2:=SilverColor;
'Coal' : Color2:=CoalColor;
'Gold' : Color2:=GoldColor;
'Mithril' : Color2:=MithrilColor;
'Adamant' : Color2:=AdamantColor;
'Runite' : Color2:=RuniteColor;

End;

Case Players[CurrentPlayer].String3 Of

'Copper' : Color3:=CopperColor;
'Tin' : Color3:=TinColor;
'Clay' : Color3:=ClayColor;
'Iron' : Color3:=IronColor;
'Silver' : Color3:=SilverColor;
'Coal' : Color3:=CoalColor;
'Gold' : Color3:=GoldColor;
'Mithril' : Color3:=MithrilColor;
'Adamant' : Color3:=AdamantColor;
'Runite' : Color3:=RuniteColor;

End;


WriteLn('Color1 = '+IntToStr(Color1)+'; and Color2 = '+
IntToStr(Color2)+'; and Color3 = '+IntToStr(Color3)+';');

End;

Color constants.


Const CopperColor = 4549781;
Const TinColor = 9277080;
Const ClayColor = 4553880;
Const IronColor = 2371664;
Const SilverColor = 12434885;
Const CoalColor = 2834753;
Const GoldColor = 5161431;
Const MithrilColor = 7359564;
Const AdamantColor = 6322272;
Const RuniteColor = 0;

This works fine for me, it will be included in my powerminer that will be posted soon, I will go and experiment with this.
Just to keep you guys updated.